Re: GIF size in Print Preview

Return to index

Author

Message

Marc

Posted: 11/20/2003 0:51:29

Tried that, and several variations. Unfortunately did not work, the GifImage

still displayed at its original size. :-(

Thanks for the suggestion.

"Sergey Tkachenko" <[email protected]> wrote:

>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.

>

>