PureBasic

Code : Tout sélectionner

; Proce qui remplace DisableGadget et qui ajoute un état
Procedure ToggleGadgetState(gad)  
    If GetGadgetData(gad) = 0 Or GetGadgetData(gad) = 2
        DisableGadget(gad,1)
        SetGadgetData(gad,1)
    Else
        DisableGadget(gad,0)
        SetGadgetData(gad,2)
    EndIf
EndProcedure

; Proce qui récupère cet état
Procedure CatchGadgetState(gad)
        ;0 : non initialisé
    ;1 : disable
    ;2 : enable
    ProcedureReturn GetGadgetData(gad)
EndProcedure


If OpenWindow(0, 0, 0, 220, 100, "Exemple...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

   ButtonGadget  (1, 10, 10, 200, 30, "Quitter")
   ButtonGadget  (2, 10, 40, 200, 30, "clic")
    Debug "clic sur le bouton 2 (résultat 1 = gadget disable - Résultat 2 = gadget enable)"
   Repeat
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
           Case 1 
              CloseWindow(0)
              End
          Case 2
              clic = ToggleGadgetState(1)
              Debug "Gadget 1 : " + CatchGadgetState(1)
         EndSelect
            
     EndSelect
   Until Event = #PB_Event_CloseWindow
 EndIf