Re: pagebreaks in RVEdit ==> RV

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/23/2003 17:32:41

May be something like this:

var Count: Integer;

      PB: Boolean;

for i := 0 to RVE.ItemCount-1 do

begin

  Count := RV.ItemCount;

  PB := RVE.PageBreaksBeforeItems[i];

  ParseString(RVE.GetItemTextA(i));

  if PB and (Count<RV.ItemCount) then

    RV.PageBreaksBeforeItems[Count] := True;

end;

RV.FormatTail;