von TPaintbox in TImage kopieren

[Klaus01]

Wie Lukas schon schrieb:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
begin
  Image1.Width:=PaintBox1.Width;
  Image1.Height:=PaintBox1.Height;
  r:=rect(0,0,Image1.Width,Image1.Height);
  Image1.Picture.Bitmap.Canvas.CopyRect(r,PaintBox1.Canvas,r);
end;

Grüße
Klaus