Indenting on the fly

Return to index

Author

Message

David Kroll

Posted: 10/15/2003 17:42:24

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);

    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;