Bitmap auf Bitmap kopieren

[thomas2009]

Canvas auf Canvas ist klar

Delphi-Quellcode:

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