Code: Select all
Enumeration
#Window
#Splitter
#Container1
#Container2
#Button1
EndEnumeration
Procedure WindowResized()
ResizeGadget(#Splitter, 0, 0, WindowWidth(#Window), WindowHeight(#Window))
EndProcedure
Procedure SplitterMoved()
ResizeGadget(#Button1, 0, 0, GadgetWidth(#Container1), GadgetHeight(#Container1))
EndProcedure
If OpenWindow(#Window, 0, 0, 640, 480, "SplitterGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)
BindEvent(#PB_Event_SizeWindow, @WindowResized(), #Window)
ContainerGadget(#Container1, 0, 0, 0, 0, #PB_Container_Single)
ButtonGadget(#Button1, 0, 0, 0, 0, "One")
CloseGadgetList()
ContainerGadget(#Container2, 0, 0, 0, 0, #PB_Container_Single)
CloseGadgetList()
SplitterGadget(#Splitter, 0, 0, WindowWidth(#Window), WindowHeight(#Window), #Container1, #Container2, #PB_Splitter_Separator)
BindEvent(#PB_Event_Gadget, @SplitterMoved(), #Window, #Splitter, #PB_All)
PostEvent(#PB_Event_Gadget, @SplitterMoved(), #Window)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf