Re: Indenting on the fly

Author

Message

David Kroll

Posted: 10/15/2003 18:22:57

Also, in my example below, what StyleNo would I pass if I wanted it to be

bold?

"David Kroll" <david.kroll@removethis.desktop-assistance.com> wrote in

message news:3f8d677a$1@support.torry.net...

> I am loading a TRichViewEdit and want to indent some text on the fly.

This

> is for replying to a mail message, so the original message will be

indented.

> I'm not sure how to do this. Please see the code below.

> Thanks

> rtfStream := TStringStream.Create(oMessage.Text);

> try

> editor.Clear;

> editor.AddNL('', editor.Style.ItemNo, 0);

> ----- I want the text below this point to be indented -----

> editor.AddNL('---- Original Message ---- ', editor.Style.ItemNo, 0);

> editor.AddNL('From: ' + oMessage.SenderAddress, editor.Style.ItemNo,

0);

> editor.AddNL('Sent: ' + DateTimeToStr(oMessage.Timestamp),

> editor.Style.ItemNo, 0);

> editor.AddNL('To: ' + GetRecipientString(oMessage),

editor.Style.ItemNo,

> 0);

> editor.AddNL('Subejct: ' + oMessage.Subject, editor.Style.ItemNo, 0);

> editor.AddNL('', editor.Style.ItemNo, 0);

> editor.LoadRTFFromStream(rtfStream);

> editor.Format;

> finally

> rtfStream.Free;

> end;