| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что использовать? [D6, WinXP]

webpauk ©   (2006-09-27 13:21:00) 

У меня необходимо выводить отчет.
Каждая из строк состоит из 3 частей: свойство, значение, примечание.
Каждая из частей может выводится разным шрифтом, а нажав примечание - нужно открывать подотчет.
Отчет нужно распечатывать.
Какой компонент лучше использовать?

webbrowser - не хотелось бы.
Richedit - трудно добавлять форматированные разным шрифтом строки.

---

Eraser   (2006-09-27 16:47:00) [1]

> [13] clickmaker ©   (27.09.06 14:46)


> да, но там она должна иметь соотв. формат. file://, http:
> // и т.д.

не обязательно.

выделяем текс, потом нажимаем кнопку, собработчиком
procedure TForm1.Button1Click(Sender: TObject);
begin
 JvRichEdit1.SelAttributes.Link := True;
end;

НО,
Text that represents a link is underlined and colored blue. If the user clicks on the link text an OnURLClick event is fired.
Note that the link is not persistent, ie. if you save the text to a (RTF) file the links will not be saved.

You could also insert a link by inserting RTF codes. Such a link will also not be saved for rich edit dll version 3.0 and below, but it will be saved for rich edit dll version 4.0 and up.

 const
   cHyperlink = '{\rtf1{\field {\*\fldinst {HYPERLINK "%s" }}{\fldrslt {\ul %s }}}}';
 var
   S: string;
   Stream: TStream;
 begin
   S := Format(cHyperLink, [' http://jvcl.sourceforge.net', 'JVCL']);

   Stream := TMemoryStream.Create;
   try
     Stream.Write(PChar(S)^, Length(S));
     Stream.Position := 0;

     JvRichEdit1.StreamFormat := sfRichText;
     JvRichEdit1.StreamMode := [smSelection, smPlainRtf];
     JvRichEdit1.Lines.LoadFromStream(Stream);
     { Don't forget to clear the smSelection flag: normally we want to save
        the whole text, and such a flag is easily forgotten }
     JvRichEdit1.StreamMode := [];
   finally
     Stream.Free;
   end;
 end;

(c) JVCL HELP.

---

webpauk   (2006-09-27 15:14:00) [2]

function GetStart(fRich: TRichEdit): Integer;
begin
 Result:=fRich.Perform(EM_LINEINDEX, fRich.Lines.Count, 0);
end;

procedure RichAdd(fProperty: String; fFont1: TFont; fValue: String; fFont2: TFont; fHyperLink: String);
var
 fSelStart: Integer;
begin
 fSelStart:=GetStart(RE);

 RE.Lines.Add(fProperty+fValue+'  '+fHyperLink);

 RE.SelStart:=fSelStart;
 RE.SelLength:=Length(fProperty);
 RE.SelAttributes.Assign(fFont1);

 RE.SelStart:=fSelStart+Length(fProperty);
 RE.SelLength:=Length(fValue);
 RE.SelAttributes.Assign(fFont2);

 RE.SelStart:=fSelStart+Length(fProperty)+Length(fValue);
 RE.SelLength:=Length(fHyperLink);
 RE.SelAttributes.Assign(f5);
end;

вроде работает

---

clickmaker   (2006-09-27 14:46:00) [3]

> как определить ASelStart для каждой новой строки?

EM_LINEINDEX


> TJvRichEdit из JEDI VCL

да, но там она должна иметь соотв. формат. file://, http:// и т.д.

---

Eraser   (2006-09-27 14:15:00) [4]

> [9] webpauk   (27.09.06 13:49)
> и как организовать гиперссылки (для перехода к подотчету)
> ?

лучше сразу используй TJvRichEdit из JEDI VCL, там такие фитчи, вроде гиперссылок уже организованы )

---

clickmaker   (2006-09-27 13:57:00) [5]

OnMouseDown, EM_CHARFROMPOS, EM_LINEFROMCHAR и т.д.

---

webpauk   (2006-09-27 13:54:00) [6]

> clickmaker ©   (27.09.06 13:34) [5]

как определить ASelStart для каждой новой строки?

---

webpauk   (2006-09-27 13:49:00) [7]

и как организовать гиперссылки (для перехода к подотчету)?

---

webpauk   (2006-09-27 13:44:00) [8]

ASelStart:=?
для каждой строки <>0

---

clickmaker   (2006-09-27 13:44:00) [9]

т.е. если окончательно все формализовать, например так:
Property: Value (Comment)

то в цикле, парся разделители, можно легко отформатировать строку

---

Eraser   (2006-09-27 13:40:00) [10]

> [2] webpauk   (27.09.06 13:26)


> [3] clickmaker ©   (27.09.06 13:29)

обогнал )

---

clickmaker   (2006-09-27 13:34:00) [11]

> [4] webpauk   (27.09.06 13:30)

procedure FormatLine(ASelStart: integer; ASelLen: integer; AFmt: TFontStyles);
begin
  RE.SelStart := ASelStart;
  RE.SelLength := ASelLen;
  RE.SelAttributes := AFmt;
end;

тем более, что "Каждая из строк состоит из 3 частей: свойство, значение, примечание" - то есть формализация налицо.

---

webpauk   (2006-09-27 13:30:00) [12]

нет
добавь 1000 строк...

---

clickmaker   (2006-09-27 13:29:00) [13]

> Добавь такую строку

RE.Lines.Add('Добавь такую строку');
RE.SelStart := 0;
RE.SelLength := 3;
RE.SelAttributes.Style := [fsBold];
RE.SelStart := 4;
RE.SelLength := 7
RE.SelAttributes.Style := [fsUnderline];
RE.SelStart := 8;
RE.SelLength := 9;
RE.SelAttributes.Style := [fsItalic];

сложно?

---

webpauk   (2006-09-27 13:26:00) [14]

Доб авь так ую строку

---

Eraser   (2006-09-27 13:25:00) [15]

> Richedit - трудно добавлять форматированные разным шрифтом
> строки.

и в чем же трудности? :)

---

Наверх