Re: Inserting a line with bullets

Author

Message

Sergey Tkachenko

Posted: 07/28/2004 19:08:44

You are mixing two different kinds of methods - editing methods (InsertText,

InsertBullet) and viewer methods (AddNL).

Editing methods add items at the position of caret.

Viewer methods add items to the end of document. They should be used mostly

for generating new documents, not for inserting. If you use such method, any

editing method must be called only after the call of Format (otherwise the

program may crash) - it's dangerous to call InsertText right after AddNL.

Besides, you pass True to CaretBefore parameter of InsertText. Caret will be

positioned before the inserted text, and the next call of Insert*** method

will insert items before (not after) it.

The code may be

RichViewEdit2.ReadOnly := False;

RichViewEdit2.CurTextStyleNo := 3;

RichViewEdit2.InsertText(#13' '); // starting new line

RichViewEdit2.InsertBullet(1, ImageList2);

RichViewEdit2.InsertText(Msg);

RichViewEdit2.ReadOnly := True;

Call of Format is not needed because only editing methods were used.

> 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