Re: Using Richview as a log

Author

Message

Chris de Gelder

Posted: 06/18/2003 16:03:22

Make two styles one for red and for green.

use richview1.add('my log text', stylenumber)

to add a line.

"Peter" <[email protected]> schreef in bericht

> Hi again.

> I have actually three questions but for 1 different applications but to

save

> time I will ask them here....

> I would like to use a Richview as a display for log file.

> What i want to do is say insert a line of text in RED for a proble

> and say GREEN for a normal operation.

> So as the program runs, the richview slowly fills with green and red lines

> of info.

> So how can I do this programicly? Which example is th ebest to look at?

> When I use a normal memo and the display is say 200 lines long I simply

> delete lines at the begining to reduce size but also taking in mind my

> questions, how can I delete stuff form this method?

RichView1.Clear; to clear all

procedure DeleteParas(FirstItemNo, LastItemNo: Integer);

> As I add a line, I would like to somehow tag it so the user can CLICK on

one

> of the red lines and it will pass the tag or whatever to my program so I

can

> call up extra info? Is that possible with all I want to do above?

See the tutorials 2_7 (tags (integer))

procedure TForm1.RichView1Jump(Sender: TObject; id: Integer);

var ItemNo: Integer;

Tag: Integer;

begin

ItemNo := RichView1.GetJumpPointItemNo(id);

Tag := RichView1.GetItemTag(ItemNo);

Panel1.Caption := 'Clicked: Item with Tag='+IntToStr(Tag);

end;

> I am sorry to ask the above but I like using the stuff even though I

haven't

> really understood everything about it yet..

> Regards, Peter