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

[Ar-S]

Y'a t il une syntaxe pour remplacer un cas comme ça sans avoir à mettre 2x BindGadgetEvent:

Code : Tout sélectionner

 Case #PB_Event_Gadget
        Select EventGadget()
          Case #Lmin,  #Lsec ; <<<<<<<<<<<<
            ;Code
  
        EndSelect

Merci

[Fred]

Non, il faut mettre 2 BindGadgetEvent(). Sinon, tu peux en mettre un seul BindEvent(#PB_Event_Gadget, ...) et faire ce test dans ta callback, mais l'interet est plutot limité.

[Ar-S]

Ok merci Fred,
Du coup puis-je utiliser des BindGadgetEvent pour certains gadgets, un BindEvent pour mon timer mais laisser ma partie "double gadget pour 1 proce" dans la boucle sans que ça cause de soucis ?

[Fred]

Oui, ca devrait marcher meme si c'est pas conseillé de mixer tout.

[Ar-S]

J'ai testé ça a l'air de bien fonctionner.

[falsam]

Si tu as pas mal de gadgets, tu peux aussi inclure ton BindGadgetEvent() dans une boucle For .... Next

Code : Tout sélectionner

Enumeration Window
  #MainForm
EndEnumeration

Enumeration Gadget
  #First
  #Second
  #Third
  #Fourth
  #Fifth
EndEnumeration
 
y=10

Procedure OnClick()
  Debug "Clique sur le bouton " + EventGadget()
EndProcedure

If OpenWindow(#MainForm, 0, 0, 500, 400, "BindGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)   
  For Gadget = #First To #Fifth
    ButtonGadget(Gadget, 400, y, 80, 22, "Button" + Str(Gadget)) 
    y + 30
    
    BindGadgetEvent(Gadget, @OnClick())
  Next
    
  Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow
EndIf

[Ar-S]

Mouais pour des actions similaires sur différents gadgets je préfère tout de même le Case #G1,#G2,#G3
C'est dans ce cas là le plus simple et le moins redondant.

[Micheao]

c'est nouveau ce BindGadgetEvent

[falsam]

c'est nouveau ce BindGadgetEvent

C'est une question ? une affirmation ?

Dans tous les cas Non ce n'est pas nouveau. La version 5.31 de PureBasic intégrée déja cette fonctionnalité.

[Micheao]

c'est nouveau ce BindGadgetEvent

C'est une question ? une affirmation ?

Dans tous les cas Non ce n'est pas nouveau. La version 5.31 de PureBasic intégrée déja cette fonctionnalité.

j'ai été pas au courant désoler

[Fred]

Mouais pour des actions similaires sur différents gadgets je préfère tout de même le Case #G1,#G2,#G3
C'est dans ce cas là le plus simple et le moins redondant.

Dans ce cas BindEvent() fera l'affaire:

Code : Tout sélectionner

 Enumeration Window
  #MainForm
EndEnumeration

Enumeration Gadget
  #First
  #Second
  #Third
  #Fourth
  #Fifth
EndEnumeration

y=10

Procedure OnGenericClick()
  Select EventGadget()
    Case 1,2,3
      Debug EventGadget()
  EndSelect
  
EndProcedure

If OpenWindow(#MainForm, 0, 0, 500, 400, "BindGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)   
  For Gadget = #First To #Fifth
    ButtonGadget(Gadget, 400, y, 80, 22, "Button" + Str(Gadget))
    y + 30
  Next
  
  BindEvent(#PB_Event_Gadget, @OnGenericClick())

   
  Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow
EndIf

[Ar-S]

C'est juste nikel
Merci !

[Ar-S]

Je rouvre ce topic car j'ai un nouveau soucis de BindEvent.
#WM_LBUTTONDOWN est bien un event ?
Si je fais

Code : Tout sélectionner

Procedure BougeFenetre()
   SendMessage_(WindowID(#MAFENETRE), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)
EndProcedure

Openwindows (etc...)
BindEvent(#WM_LBUTTONDOWN, @BougeFenetre())

Dans une boucle classique de Repeat Until la procedure marche bien.

Une idée de pourquoi ça ne fonctionne pas ?


----EDIT----

En 5.31 ça fonctionne, en 5.41 ça ne fonctionne pas

[Micheao]

BOnsoir Ar-S

si j'ai bien compris tu veux pas passer par une boucle Repeat Until

[Fred]

#WM_LBUTTONDOWN n'est pas evenement purebasic, donc ca ne marchera pas BindEvent().