Re: PDF again

Author

Message

user@domain.invalid

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