[*]Profan

Kompilieren Marque Séparation

Dieter
Zornow

pourquoi compliqué wenns aussi simple allez

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 ▲

alors %mousex et %mousey-setzend wäre doch mais plus beau et avant allem plus rapide.

17.10.2009 ▲

Nico
Madysa

peux on sich qui Koordinaten car pas avec ClientToScreen umrechnen laisser?

Nico Madysa

Dieter
Zornow

Du meinst wohl screentoClient pas clienttoscreen. getcursorpos liefert oui déjà qui Screen-Koordinaten, qui on avec ScreentoClient sur la fenêtre beziehen peux, comment je es dans mon 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

peux on sich qui Koordinaten car pas avec ClientToScreen umrechnen laisser?

Koordinaten venons pas à si souris pas überm HWND.

Dieter
Zornow

Probiere la fois mon Beispiel, là venons vous à

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

@Dieter: mon Antwort galt Nico qui IMHO annahm, dass %mousex et %mousey simple umrechenbar wäre, quoi c'est pourquoi wenig utilise, là %mousex et %mousey seulement gesetzt volonté, si qui Mauspfeil sich sur dem HWND est. ^ ^ Dein Beispiel mais est ok, mais est im Grunde selbe comment meins dessus - je meinte seulement cela es besser wäre si XProfan %mousex et y mettons pourrait et getMousePos nativ wäre.

Dieter
Zornow

Achso, ensuite habe je aussi Nico faux verstanden, bof rapide fortschreitende Alzheimer.

mais grundsätzlich hat il droite, qui Positionen im Hauptfenster pourrait on sur Screen-Koordinaten umrechnen laisser.
Ist mais 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 ▲

chez Omikron-Basic (Atari 1040ST) hiess es aussi GetMousePos - fand je toujours joli.

19.10.2009 ▲

Nico
Madysa

oui, dass %MouseX et -Y quelque chose eingeschränkt sommes, vergaß je, jsuis inconsolable.

ensuite wäre mais une Set-Option, qui qui beiden Système entsprechend ändert, doch wesentlich sinnvoller, ou bien?

Nico Madysa

24.10.2009 ▲

Nico Madysa, Beitrag=54602, Zeitpunkt=24.10.2009

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

24.10.2009 ▲