Re: GIF size in Print Preview

Return to index

Author

Message

Marc

Posted: 11/20/2003 1:07:50

Cracked it. Your code was right, I just did not copy it over correctly. Thanks

very much.

"Marc" <[email protected]> wrote:

>

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

>>

>>

>