Inserting a line with bullets

Author

Message

Marcos Lommez

Posted: 07/28/2004 2:37:06

Im trying to insert a line with a bullet without success.

When a user click in a button i want to insert a line with a icon first of

the text

Every time when the button is clicked i want to insert a new line but is not

working very well.

Look how is my code

procedure X(Msg: String);

begin

RichViewEdit2.ReadOnly := False;

RichViewEdit2.InsertText(' ', True);

RichViewEdit2.InsertBullet(1, ImageList2);

RichViewEdit2.AddNL(Msg, 3, -1);

RichViewEdit2.InsertText('', True);

RichViewEdit2.Format;

RichViewEdit2.ReadOnly := True;

end;

The result should be this when user clicked in button 3 times for example

<bullet> + Msg

thanks