Bildausschnitt kopieren

[markus lemcke]

Hallo,

ich wollte mal testweise einen ausschnitt einer timage-komponente in eine andere kopieren und habe das hier probiert:
<pre>
procedure TFormMainBike.HotSpotImageBikeWare1Click(Sender: TObject);
var
p :tpoint;
rechteck : trect;
begin
//Vergrößern
GetCursorPos(p);
rechteck.Left := p.x -20;
rechteck.Right := p.x +20;
rechteck.Top := p.y -20;
rechteck.Bottom := p.y+20;
image1.Height := 40;
image1.Width := 40;
image1.Canvas.CopyRect(rechteck,HotSpotImageBikeWa re1.Picture.Bitmap.Canvas,rechteck);
image1.Visible := true;
</pre>

warum funzt das nicht! im zielimage ist nur eine weise fläche!

Gruß

Markus

[Andreas Wirth]

Hallo Markus,

GetCursorPos() liefert die Cursorposition in Screen-Koordinaten. Um die Koordinaten im HotSpotImageBikeWare1-Fenster zu erhalten, mußt Du die Methode HotSpotImageBikeWare1.ScreenToClient verwende