PureBasic Forums - English

Code: Select all

IsVisible = CocoaMessage(0, WindowID(0), "isVisible")

Code: Select all

IsVisible = CocoaMessage(0, GadgetID(0), "isHidden")

Code: Select all

IsVisible = Bool(CocoaMessage(0, GadgetID(0), "isHidden") = 0)

Code: Select all

IsHidden = CocoaMessage(0, GadgetID(0), "isHidden")

Code: Select all

Define HiddenState.I

OpenWindow(0, 270, 100, 220, 95, "ButtonGadget demo")
ButtonGadget(0, 10, 20, 200, 25, "Hide button below")
ButtonGadget(1, 10, 55, 200, 25, "Visible button")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If EventGadget() = 0 And EventType() = #PB_EventType_LeftClick
        HiddenState ! 1
        HideGadget(1, HiddenState)
        
        If HiddenState 
          SetGadgetText(0, "Unhide button below")
        Else
          SetGadgetText(0, "Hide button below")
        EndIf

        Debug "Hidden state of 2nd button: " +
            CocoaMessage(0, GadgetID(1), "isHidden")
      EndIf
  EndSelect
ForEver