Editor Sample

Return to index

Author

Message

Alexander Adam

Posted: 08/15/2002 3:12:06

hi!

Okay, I got forward with my things, not much to do anymore, just the

PDF-Export...

I got it working so far with the IIPDFLib & TRVReportHelper.

For this, I have added a new button to the "Editor"-Sample you have made

that loads the file "Readme.rvf".

I am using this code:

var

   I : Integer;

   PageRect : TRect;

begin

   rvr.RichView.Style := RVStyle1;

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

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

   PDFDocument1.BeginDoc;

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

   while rvr.FormatNextPage($FFFFFFF) do;

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

     begin

       rvr.DrawPage(I, PDFDocument1.Canvas, False, rvr.EndAt);

       PDFDocument1.NewPage;

     end;

   PDFDocument1.EndDoc;

end;

Explainings:

===========#

rvr = ReportHelper

PDFDocument1 = TPDFDocument of IIPDFLib

Problems:

1) The images are not printed!?

2) The following two pagea are empty!?

Can you explain me why? Maybe you can download the trial of the PDFLib

and check it out by simply copying this code into your editor-sample and

trying it, that shouldn't cost you too much time but show you what I am

meaning without telling 1000s of words ;-)

thanks for any help here with this PDF-Thing (and hopefully others can

use this too),

Alex