[*]Profan

Kompilieren Marca Separación

Dieter
Zornow

por qué umständlich wenns auch simplemente va

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 y %mousey-setzend wäre doch aber schöner y antes allem más rápido.

17.10.2009 ▲

Nico
Madysa

Kann uno el Koordinaten porque no con ClientToScreen umrechnen dejar?

Nico Madysa

Dieter
Zornow

¿Quieres decir que wohl screentoClient no clienttoscreen. getcursorpos liefert sí ya el Screen-Koordinaten, el uno con ScreentoClient en Ventana beziehen kann, Yo lo en mi 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 uno el Koordinaten porque no con ClientToScreen umrechnen dejar?

Koordinaten kommen no a si Ratón no überm HWND.

Dieter
Zornow

Probiere veces mein Ejemplo, como kommen ellos a

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

@Dieter: Mi Antwort galt Nico el IMHO annahm, dass %mousex y %mousey simplemente umrechenbar wäre, qué deshalb wenig nutzt, como %mousex y %mousey sólo gesetzt voluntad, si la Mauspfeil se encima el HWND befindet. ^ ^ Su Ejemplo es doch ok, es doch en el Grunde selbe como meins oben - Yo meinte sólo el lo mejor wäre si XProfan %mousex y y conjunto podría y getMousePos nativ wäre.

Dieter
Zornow

Achso, entonces Yo auch Nico falso verstanden, naja rapide fortschreitende Alzheimer.

Aber grundsätzlich ha él bastante, el Positionen en el Ventana principal podría uno en Screen-Koordinaten umrechnen dejar.
Pero en el Ventana principal 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 ▲

En Omikron-Basic (Atari 1040ST) hiess lo auch GetMousePos - fand Yo siempre schön.

19.10.2009 ▲

Nico
Madysa

Sí, dass %MouseX y -Y algo eingeschränkt son, vergaß Yo, jsuis inconsolable.

Dann wäre aber una Conjunto-Opción, el el beiden Systemvariablen entsprechend ändert, doch wesentlich sinnvoller, oder?

Nico Madysa

24.10.2009 ▲

Nico Madysa, Beitrag=54602, Zeitpunkt=24.10.2009

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

24.10.2009 ▲