Re: What??

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/22/2003 21:17:18

May be you can select the second part of the document and copy it to the

second editor:

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

  if rve1.PageBreaksBeforeItems[i] then begin

    rve1.SetSelectionBounds(i, rve1.GetOffsBeforeItem(i),

      rve1.ItemCount-1, rve1.GetOffsAfterItem(rve1.ItemCount-1));

    Stream := TMemoryStream.Create;

    rve1.SaveRVFToStream(Stream, True);

    Stream.Position := 0;

    rve2.LoadRVFFromStream(Stream);

    rve2.Format;

    rve2.PageBreaksBeforeItems[0] := False;

    Stream.Free;

    rve1.DeleteSelection;

  end;