Re: PDF again

Return to index

Author

Message

[email protected]

Posted: 08/12/2002 16:01:49

Sergey Tkachenko wrote:

> First, I am not sure if it will work.

>

Okay, I got it working - in a way.

But why the hell is the font _much_ too big, some images not drawn and

the controls to small?

Here's the simple code, add this to the Editor-Demo of TRichviewEdit:

var

   I : Integer;

   PageRect : TRect;

begin

   RVPrint1.AssignSource(RichViewEdit1);

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

   RVPrint1.FormatPages(rvdoALL);

   PDFDocument1.BeginDoc;

   //

   PageRect := Rect(0, 0, RVPrint1.Preview100PercentWidth,

RVPrint1.Preview100PercentHeight);

   I := 1;

   while I<RVPrint1.PagesCount do

   begin

     RVPrint1.DrawPreview(I, PDFDocument1.Canvas, PageRect);

     Inc(I); PDFDocument1.NewPage;

   end;

   //

   PDFDocument1.EndDoc;

Works with the IIPDFLib Trial.

Could you maybe try this and tell my why it doesn't work in this way...

thanks,

Alex