Copy stretched image with TCanvas.StretchDraw

[hosune7845]

Hi.

I tried to copy my stretched image to TBitmap.

Drawing stretched image is fine. But no image is copied to TBitmap with StretchDraw.

Here's my code :

Code: Pascal  [Select][+][-]

1. var
2.   Bitmap: TBitmap;
3. begin
4.   Bitmap := TBitmap.Create;
5.   Bitmap.PixelFormat := pf32bit;
6.   Bitmap.SetSize(SrcImage.Width, SrcImage.Height); //SrcImage is stretched image
7.   Bitmap.TranasparentColor := clGreen;
8.   Bitmap.Canvas.Clear;
9.   Bitmap.Canvas.StretchDraw(Rect(0, 0, SrcImage.Width, SrcImage.Height), SrcImage.Picture.Graphic);
10. end;
11.  

Any idea?

[balazsszekely]

Your code works fine under win32/win64/Qt, on the other hand to make it work under GTK2, you have to comment out the following line:
//Bitmap.PixelFormat := pf32bit;

[hosune7845]

Your code works fine under win32/win64/Qt, on the other hand to make it work under GTK2, you have to comment out the following line:
//Bitmap.PixelFormat := pf32bit;

I use Lazarus on Ubuntu x32 for arm-linux.

I ran test with "//Bitmap.PixelFormat := pf32bit;" but same issue.

Here's my code for drawing stretch image

Code: Pascal  [Select][+][-]

1. begin
2.   SrcImage.Stretch := True;
3.   with SrcImage.Picture.Bitmap do
4.   begin
5.     SetSize(trunc(SrcImage.Width / 2), trunc(SrcImage.Height / 2));
6.     TransparentColor := clGreen;
7.     Canvas.Clear;
8.     Canvas.TextOut(0,0,'TEST FOR STRETCH');  
9.   end;
10. end;
11.