trichview.com

trichview.support




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;





Powered by ABC Amber Outlook Express Converter