Re: Inserting text at the begining of each line

Return to index

Author

Message

Sergey Tkachenko

Posted: 06/06/2003 23:21:23

Yes, Format after LoadRTFFromStream is necessary because SetSelectionBounds

and InsertText require formatted document.

Which colors and font sizes are lost?

Try to change the cycle to

>

> This code throws "List index out of bounds" in SetSelectionBounds:

>

> var

>   rve:TRichViewEdit;

>   i:Integer;

> begin

>   rve.LoadRTFFromStream(myStream);

>   for i:=0 to rve.ItemCount-1 do

>   begin

>     if rve.IsFromNewLine(i) then

>     begin

>       rve.SetSelectionBounds(i,rve.GetOffsBeforeItem

>         (i),i,rve.GetOffsBeforeItem(i));

>       rve.InsertText('>');

>     end;

>   end;

> end;

>

> If we call rve.Format after LoadRTFFromStream, it works without

exceptions,

> but colors and font sizes are lost.

>

>