Bild hinter dem Canvas zeichen

[shmia]

Du kannst auch diesen Code aufrufen:

Delphi-Quellcode:

procedure TForm1.CreateEmptyBitmap;
var
   bm : TBitmap;
begin
   bm := TBitmap.Create;
   bm.PixelFormat := pf24bit;
   bm.Width := Image1.Width;
   bm.Height := Image1.Height;

   Image1.Picture.Assign(bm);

   // Hinweis: bm wird von Image1 freigegeben
   // bm.free ist also nicht nötig
end;