PureBasic Forums - English

Code: Select all

OpenWindow(0, 100, 100, 400, 300, "Splitter Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(1, 0, 0, 0, 0, "Up Panel", #PB_Text_Center)
StringGadget(2, 0, 0, 0, 0, "Down Panel", #PB_Text_Center)
StringGadget(3, 0, 200, 0, 100, "hide Panel", #PB_Text_Center)
ButtonGadget(100,50,200,100,10,"button")
HideGadget(3,#True)
SplitterGadget(5, 10, 100, 380, 180,1, 3)
SplitterGadget(4, 10, 0, 380, 180, 1, 2)
Repeat
 Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 100: 
           HideGadget(3,#False)
           HideGadget(2,#True)
    EndSelect
 EndSelect
Until Event = #PB_Event_CloseWindow