Bitmap auf Bitmap kopieren

[thomas2009]

Mit CopyRect geht auch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bmp.Canvas.CopyRect(
    Rect(0,0,bmp.Width,bmp.Height),
    Image1.Canvas,
    Rect(
      0,
      0,
      Image1.Picture.Width-10,
      Image1.Picture.Height-10));
end;