Re: GIF size in Print Preview

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/19/2003 23:15:57

Do you insert images by InsertControl, via TImage?

Try this code:

procedure TForm3.RVPrint1PrintComponent(Sender: TCustomRVPrint;

  PrintMe: TControl; var ComponentImage: TBitmap);

begin

  // checking if PrintMe is TImage is skipped

  ComponentImage := TBitmap.Create;

  ComponentImage.Width:=Timage(PrintMe).Width;

  ComponentImage.Height:=Timage(PrintMe).Height;

ComponentImage.Canvas.StretchDraw(Rect(0,0,ComponentImage.Width,ComponentIma

ge.Height),

   TImage(PrintMe).Picture.Graphic);

end;

>

> Hi,

>

> I'm using RVPrint.OnPrintComponent to generate the bitmap for my inserted

> GifImage (Anders) and PNGImage (Sourceforge). Here is the code:

>

> ComponentImage := TBitmap.Create;

> ComponentImage.Assign(TImage(PrintMe).Picture.Graphic);

> ComponentImage.Width:=Timage(PrintMe).Picture.Graphic.Width;

> ComponentImage.Height:=TimagePrintMe).Picture.Graphic.Height;

>

> The problem I have is only with GifImage - the Print Preview always

displays

> the GIF at its Original size, even if the GIF image has been resized in

RVE.

> In RVE the GIF image displays fine, on Export to HTML the GIF image size

> is fine, but on 'Print Preview' and 'Print' the GIF Image always reverts

> back to original size.

>

> The PNG component is also prints fine when resized.

>

> Any suggestions? Thanks.