Re: Carries of lines in RVEdit

Return to index

Author

Message

Sergey Tkachenko

Posted: 07/07/2005 23:11:21

...

for n:=0 to rve4.ItemCount-1 do begin

  if (n>0) and rve4.IsFromNewLine(n) then

    text := text + #10#13;

  if (rve4.GetItemStyle(n)=rvsBullet) then

    text:=text+GetSmile(GetBulletImageIndex);

  else if rve4.GetItemStyle(n)>=0 then

      text:=text+rve4.GetItemTextA(n);

end;

rv3.AddTextNL(text,0,0,0);

rv3.Format;