Hi,
ich hab zwei Image-Komponenten auf einer Form. Die kleinere enthaelt ein Image welches bei einem OnClick-Event des grossen Image einen Teil ueberblendet. Das Problem ist, dass die Image-Komponenten Rechteckig sind, der Teil der ersetzt wird aber eine Rundung hat.
Mit dieser Funktion pruefe ich, ob der Curser an der Position ist an dem das kleine Image ueberblendet:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| function Tfrm_OAPhone.MouseOverHotImage(aImage: TImage; x, y: Integer): Boolean;
var i: Integer;
begin
Result := false;
If (x > aImage.Left) and (x < aImage.Left + aImage.Width) then begin
If (y > aImage.Top) and (y < aImage.Top + aImage.Height) then begin
Result := true;
end;
end;
end; |
Das klappt auch - gibt aber nicht die wirkliche geometrische Form des Buttons wieder. Ich moechte aber, dass die Funktion nur dann true zurueckliefert, wenn der Curser sich unterhalb der Rundung befindet.
Ich haenge das Image mal an um mein Problem zu verdeutlichen.
Danke schonmal.
