Schnittmenge Maße von 2 Images ?

[thomas2009]

Hallo

Ich habe 2 Images (img2 ist beweglich) auf ein Form wie im Anhang
Ich möchte nun nur die Schnittmenge kopieren
Mit dem Code klappt nur wenn img2 komplett in img1

Delphi-Quellcode:

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

Die Schnittemenge möchte ich in Img3 kopieren

[himitsu]

IntersectRect (Unit Windows) könntest du verwenden, um erstmal die SchnittMenge zu erhalten.