Hallo Jungs,
ich habe ein Image1 und Image2 auf dem Form liegen, nun möchte ich einen rechteckigen Teil aus Image1 ausschneiden und in Image2 anzeigen. Wie kann ich das anstellen? Muss zugeben, dass ich mit Grafik noch wenig was gemacht habe.
Habe leider im Image2 nur schwarze Fläche
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Quelle, Ziel: TRect;
begin
Quelle := Rect(Image1.Left, Image1.Top, Image1.Left + 100, Image1.Top + 100);
Ziel := Rect(Image2.Left, Image2.Top, Image2.Width, Image2.Height);
Image2.Canvas.CopyRect(Ziel, Image1.Canvas, Quelle);
end;
Vielen Dank!