[*]Profan

Kompilieren Markieren Separieren

Dieter
Zornow

warum umständlich wenns auch einfach geht

XProfan 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.

17.10.2009 ▲

Nico
Madysa

Kann man sich die Koordinaten denn nicht mit ClientToScreen umrechnen lassen?

Nico Madysa

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

Nico Madysa, Beitrag=54509, Zeitpunkt=18.10.2009

Kann man sich die Koordinaten denn nicht mit ClientToScreen umrechnen lassen?

Koordinaten kommen nicht an wenn Maus nicht überm HWND.

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

@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.

19.10.2009 ▲

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

24.10.2009 ▲

Nico Madysa, Beitrag=54602, Zeitpunkt=24.10.2009

get("MousePos",[Handle]) ist sinnvoll, ändert beide Sysvars.

24.10.2009 ▲