Re: Editor Sample

Return to index

Author

Message

Alexander Adam

Posted: 08/15/2002 16:54:46

hi,

thanks, it is a bit, but only a bit (!) better.

Nearly the same problems still exists.

Please try it yourself by using the above code, maybe so you find it out

much much easier...

Code:

var

   I : Integer;

   PageRect : TRect;

begin

   rvr.RichView.Style := RVStyle1;

   rvr.RichView.LoadRVF(ExtractFilePath(Application.ExeName)+'Readme.rvf');

   PDFDocument1.FileName := 'c:\test333.pdf';

   PDFDocument1.BeginDoc;

   rvr.Init(Self.Canvas, PDFDocument1.PageWidth);

   while rvr.FormatNextPage(PDFDocument1.PageHeight) do;

     for I:= 1 to rvr.PagesCount-1 do

     begin

       rvr.DrawPage(I, PDFDocument1.Canvas, True, PDFDocument1.PageHeight);

       PDFDocument1.NewPage;

     end;

   PDFDocument1.EndDoc;

end;

Any idea?

Alex