Genaue Position des Mausklicks in einem Canvas

[Furtbichler]

Die vielen Codezeilen verwirren mich.
Wenn sich ein Bild MyImage in meiner MyPaintBox befindet, und das Bild ist mit dem Zoomfactor vergrößert, dann ergibt sich doch die absolute Koordinate einer MousePos (relativ zu MyPaintBox) wie folgt:

Delphi-Quellcode:

ZoomedMousePos := ScaledPoint(MousePos, Zoomfactor) - MyImage.TopLeft; // in 'gezoomte' absolute Koordinaten umrechnen
PointOnOriginalImage := ScaledPoint (ZoomedMousePos, 1/Zoomfactor); // Absoluter Punkt im gezoomten Bild => ungezoomt.

Die Operatoren [+] und [-] auf TPoint sind bekannt, müssten aber auskodiert werden.
Die Funktion 'ScaledPoint' multipliziert die Koordinaten des Punktes mit dem Zoomfactor.

Und bei dem freundlicherweise geposteted Stück Code fällt mir als erstes auf, das die Refactoring-Funktion unbekannt zu sein scheint.

[idefix2]

Danke an alle für die Antworten - Ich bin Himitsus Hinweis gefolgt und verwende jetzt statt des Events onclick den Event onmousedown, das geht mindestens genausogut und liefert mir direkt die Relativkoordinaten des Clicks - der Zoomfaktor wird in den dahinterliegenden Routinen bei mir automatisch berücksichtigt, darum brauch ich mich an der Stelle nicht zu kümmern.

[stahli]

Oha! Ihr habt ja im Grunde Recht - ABER:

In meinem Projekt achte ich schon auf Ordnung und auch Trennung von Daten und GUI (und nutze inzwischen auch englische Bezeichner).

Das o.g. Formular fällt da aus der Reihe und liefert einen Bildausschnitt in das "richtige Projekt" zurück. Das habe ich aus einem früheren Projekt übernommen und nicht angepasst, da es problemlos und korrekt funktioniert.

Soweit zu meiner Verteidigung
(Ich hatte es ja nur gut gemeint).


PS: Musste den Beitrag gerade nochmal schreiben, da die DP meinen ersten Beitrag mit einem Fehler abgelehnt hatte ;-(

[haentschman]

[OT]

Zitat:

da die DP meinen ersten Beitrag mit einem Fehler abgelehnt hatte

...es kommt ja auch das Wort "Verteidigung" vor... das wird erst mal grundsätzlich abglehnt
[/OT]