| |
|
|
| |
|
| |
|
|
|
Dieter Zornow | warum umständlich wenns auch einfach geht KompilierenMarkierenSeparierenXProfan 11
ohne Parameter ist screenposition
$H Windows.ph
subproc Get.MOUSEPOS
PARAMETERS Hwnd&
Declare X%,Y%,point#
Dim point#,8
SELECT %PCOUNT
CASEOF 0
~GetCursorPos(point#)
X%=long(point#,0)
Y%=long(point#,4)
CASEOF 1
~getCursorPos(point#)
~screenToClient(Hwnd&,point#)
X% = long(point#,0)
Y% = long(point#,4)
OTHERWISE
Dispose point#
Return "0|0"
ENDSELECT
Dispose point#
return str$(X%)+"|"+str$(Y%)
endproc
cls
while 1
waitinput 5
case %Key = 2:break
settext %Hwnd,Get("MOUSEPOS",%Hwnd)
endwhile
end
|
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 17.10.2009 ▲ |
|
|
|
|
| Also %mousex und %mousey-setzend wäre doch aber schöner und vor allem schneller. |
|
|
| |
|
|
|
Nico Madysa | Kann man sich die Koordinaten denn nicht mit ClientToScreen umrechnen lassen? |
|
|
| |
|
|
|
Dieter Zornow | Du meinst wohl screentoClient nicht clienttoscreen. getcursorpos liefert ja schon die Screen-Koordinaten, die man mit ScreentoClient auf Fenster beziehen kann, wie ich es in meinem Code gemacht habe. |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 18.10.2009 ▲ |
|
|
|
|
| |
|
| |
|
|
|
Dieter Zornow | Probiere mal mein Beispiel, da kommen sie an |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 18.10.2009 ▲ |
|
|
|
|
| @Dieter: Meine Antwort galt Nico der IMHO annahm, dass %mousex und %mousey einfach umrechenbar wäre, was deshalb wenig nutzt, da %mousex und %mousey nur gesetzt werden, wenn der Mauspfeil sich circa dem HWND è. ^^ Dein Beispiel ist doch ok, ist doch im Grunde selbe wie meins oben - ich meinte nur das es besser wäre wenn XProfan %mousex und y setzen potuto und getMousePos nativ wäre. |
|
|
| |
|
|
|
Dieter Zornow | Achso, dann habe ich auch Nico falsch verstanden, naja rapide fortschreitende Alzheimer.
Aber grundsätzlich hat er recht, die Positionen im Hauptfenster potuto man auf Screen-Koordinaten umrechnen lassen. Ist aber im Hauptfenster wahrscheinlich sinnfrei. |
|
|
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 19.10.2009 ▲ |
|
|
|
|
| Bei Omikron-Basic (Atari 1040ST) hiess es auch GetMousePos - fand ich immer schön. |
|
|
| |
|
|
|
Nico Madysa | Ja, dass %MouseX und -Y etwas eingeschränkt sind, vergaß ich, jsuis inconsolable.
Dann wäre aber eine Set-Option, die die beiden Systemvariablen entsprechend ändert, doch wesentlich sinnvoller, oder? |
|
|
| |
|
|
|
| Nico Madysa, Beitrag=54602, Zeitpunkt=24.10.2009
Ja, dass %MouseX und -Y etwas eingeschränkt sind, vergaß ich, jsuis inconsolable.
Dann wäre aber eine Set-Option, die die beiden Systemvariablen entsprechend ändert, doch wesentlich sinnvoller, oder?
get("MousePos",[Handle]) ist sinnvoll, ändert beide Sysvars. |
|
|
| |
|
|