Español
Wünsche y Sugerencias

Wunsch: Globale Mausposition

 
- Página 1 -


Problema: El globale Mausposition es no simplemente a beziehen.

Un zusätzliche Función getMousePos (vlt. get("MousePos",handle&)) fehlt, esta setzt auch el Systemvariablen %mouseX  y %mouseY .

Ist handle& Null, entonces el Globale gemeint, de otra manera relativ vlt. como:
KompilierenMarcaSeparación
proc MOUSE.GETPOS

    PARAMETERS H&

    SELECT %PCOUNT

        CASEOF 0

        ~GetCursorPos(MOUSE.MEM#)
        MOUSE.X&=MOUSE.MEM#.X&
        MOUSE.Y&=MOUSE.MEM#.Y&

        CASEOF 1

        DECLARE GMP#
        DIM GMP#,8
        CLEAR GMP#
        ~clientToScreen(H&,GMP#)
        var GMX%=LONG(GMP#,0)
        var GMY%=LONG(GMP#,4)
        ~getCursorPos(GMP#)
        GMX%=LONG(GMP#,0)-GMX%
        GMY%=LONG(GMP#,4)-GMY%
        MOUSE.X&=GMX%
        MOUSE.Y&=GMY%
        DISPOSE GMP#

    ENDSELECT

ENDPROC


KompilierenMarcaSeparación
 
16.10.2009  
 



 
- Página 1 -


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




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
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?


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



 
- Página 2 -



Nico
Madysa
Kann uno se en Untiges algunos?
KompilierenMarcaSeparación
cls
print %MouseX,%MouseY in Bezug auf %hWnd
Set("MouseOrigin",andresHandle&)
print %MouseX,%MouseY in Bezug auf andresHandle&
Set("MouseOrigin",%Desktop)
print %MouseX,%MouseY in Bezug auf globales Koordinatensystem
Set("MouseOrigin",%hWnd) 0 ginge auch
print %MouseX,%MouseY in Bezug auf %hWnd
waitinput
Nico Madysa
24.10.2009  
 



Ne - es Müll, como wärs de jemanden el se no Gedanken gemacht ha oder así no Erfahrung ha.

Get("MousePos",... es aktiv, qué Usted vorschlägst wäre passiv.

Um el Mausposition JETZT o. a una cierta Tiempo a beziehen (es wichtig dies incluso bestimmen a puede!) - y optional relativ a una Handle od. rel.z. Bildschrim, benötigt uno una Función getMousePos - podría uno schön verpacken en get("MousePos",... como sí Systemvariablen gesetzt y ser dies imho con el Función GET en el "Einklang" es.

"GetMousePos" es auch schön Basichaft, saber Yo jedenfalls así y fands siempre bastante praktisch y misse lo en XProfan seither por qué Yo en el Ratón.Inc auch el Función getMousePos hineinpackte. ^ ^

Naja, explode Tuve auch vermisst - qué es lo geworden?!

Aber natürlich, mannn kann auch getMousePos verhunzen - podría uno auch get("MausÄthsaPosi",Y,Z,X) draus hacer gefolgt de %x%mouse y %y%mouse. -.-

Ein einfaches getmousepos!
 
24.10.2009  
 




Nico
Madysa
So, como du lo haben willst, bist du así, simplemente el API -- meinetwegen por Call -- utilizarse, con 70%-iger Wahrscheinlichkeit más rápido y mejor bedient.
 
Nico Madysa
26.10.2009  
 



Was? ¿Por qué es una mehrzeilige XProfanfunktion más rápido como si Roland lo nativ implementiert y cómo Puse Systemvariablen %mousex y y?
 
26.10.2009  
 




Nico
Madysa
Willst du me sagen, dass Dieters Angebot para deine Zwecke a langsam es?
 
Nico Madysa
28.10.2009  
 



Geht en FPS (Programmeffizienz), teste veces el Diferencia.

¿Por qué debería el Prozessor en 100 laufen en lugar de sólo en 5, en solch wichtiger Función auch en Echtzeitanwendungen?
 
28.10.2009  
 



Das hier es natürlich unheimlich rápidamente, aber desafortunadamente en Variables en lugar de Systemvariablen schreibend:
KompilierenMarcaSeparación
cls
var mouse.x&=0
var mouse.y&=0
var mouse.xa&=addr(mouse.x&)
var mouse.ya&=addr(mouse.y&)

while 1

    GetMousePos(%hWnd,mouse.xa&,mouse.ya&)
    locate 1,1
    print mouse.x&,mouse.y&,"	"
    waitinput 100

wend

waitinput
end

nProc GetMousePos

    Parameters h&,ax&,ay&
    var mem&=dim(8)
    ClientToScreen(h&,mem&)
    var x&=long(mem&,0)
    var y&=long(mem&,4)
    GetCursorPos(mem&)
    x&=long(mem&,0)-x&
    y&=long(mem&,4)-y&
    dispose(mem&)
    long ax&,0=x&
    long ay&,0=y&
    return 0

ENDPROC

(aber vlt. lässt se así trotzdem bastante bien trabajo)

319 kB
Hochgeladen:28.10.2009
Ladeanzahl60
Descargar
 
28.10.2009  
 




Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.120 Views

Untitledvor 0 min.
Sven Bader02.08.2021
Axel Berse01.05.2019
Walter07.04.2019
Vgdd05.06.2017
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

iF (10x)
Nico Madysa (5x)
Dieter Zornow (4x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie