Re: Editor Sample

Author

Message

Sergey Tkachenko

Posted: 08/14/2002 13:15:47

Hi,

1) The constant $FFFFFFF was used to produce one page document (with

unlimited page height).

Use PDFDocument1.PageHeight instead.

2) Since pages are numbered from 1, the cycle should be from 1 to

PagesCount.

3) Do not use EndAt in the cycle (this is a height of document on the last

page), use PDFDocument1.PageHeight instead.

As for images - contact llPDFLib authors. May be this library has some

limitations on images.

> 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