Drawing a bitmap to an TImage
lazarus / 39-Graphics

----------------------------------------------------------------------
Ray Greene · 2004-02-15 09:06

When I try to draw a bitmap onto a TImage object, the bitmap is drawn
at the top left of the form instead of on the TImage. This happens in
Windows and Linux.

Anyone know why it happens and what can be done about it?

----------------------------------------------------------------------
Anonymous · 2004-02-15 18:12

The form has a canvas too so make sure you use the Timage's canvas
(and not the form's)

MyImage : Timage
......
........
Myimage.canvas.draw.....

----------------------------------------------------------------------
Ray Greene · 2004-02-16 02:07

I'm definitely drawing to the TImage's canvas. Here's the code:
Code: [Select]
procedure TForm1.Button1Click(Sender: TObject);
var
   Bmp: TBitmap;
begin
     Bmp := TBitmap.Create;
     Bmp.Height := Image1.Height;
     Bmp.Width := Image1.Width;
     Bmp.Canvas.Brush.Color := clBlack;
     Bmp.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
     Image1.Canvas.Draw(0,0,Bmp);
end;

It works OK in Delphi, so it looks like a bug. I'll post a message on
the Bug Tracking page.