[OK] BindGadgetEvent pour la même proce sur N gadgets ?

[Ar-S]

C'est ce que je supposais, merci pour la confirmation.

[Ar-S]

Je reviens dans ce topic pour vous demander comment gérer la détection de mouvement de souris avec les bindevent

J'ai essayé avec #PB_EventType_MouseMove mais ça ne le fait pas.

Code : Tout sélectionner

Enumeration
   #win
EndEnumeration

Global.i Mx, My

Declare Fermer()
Declare CheckMouse()


Procedure Fermer()
quite = 1
End
EndProcedure


Procedure CheckMouse()
If EventType() = #PB_EventType_MouseMove
   Mx = DesktopMouseX()
   My = DesktopMouseY()
   Debug mx
   EndIf
EndProcedure



InitMouse()


If OpenWindow(#win, 60, 200, largeur_fenetre, 100, "mouse test", #PB_Window_SystemMenu)
   
   BindEvent(#PB_EventType_MouseMove,@CheckMouse() )
   BindEvent(#PB_Event_CloseWindow,@Fermer())
   
   Repeat  
    Event = WaitWindowEvent(20)
   Until quite = 1

   
EndIf

[Marc56]

BindEvent ne gère que les évènements de WindowEvent() donc pas #PB_EventType_MouseMove

Dixit l'aide sur BindEvent:
Pour une liste complète des évènements, consultez WindowEvent().

[Ar-S]

C'est bien dommage.
J'ai compensé avec un timer. Merci

[Marc56]

Tu peux sans problème mélanger méthode classique et méthode BindEvent et de même injecter un Event avec PostEvent (pas testé)

BindEvent a aussi ses inconvénients.