Code: Select all
;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;
Enumeration FormWindow
#Window_0
EndEnumeration
Enumeration FormGadget
#ListIcon_0
#Panel_0
#Splitter_0
#Panel_1
#Splitter_1
EndEnumeration
Procedure OpenWindow_0(x = 0, y = 0, width = 1280, height = 800)
OpenWindow(#Window_0, x, y, width, height, "", #PB_Window_SystemMenu)
ListIconGadget(#ListIcon_0, 8, 8, 1000, 600, "Column 1", 100)
PanelGadget(#Panel_0, 8, 617, 1000, 175)
AddGadgetItem(#Panel_0, -1, "Tab 1")
CloseGadgetList()
SplitterGadget(#Splitter_0, 8, 8, 1000, 784, #ListIcon_0, #Panel_0)
SetGadgetState(#Splitter_0, 600)
PanelGadget(#Panel_1, 1017, 8, 255, 784)
AddGadgetItem(#Panel_1, -1, "Tab 1")
CloseGadgetList()
SplitterGadget(#Splitter_1, 8, 8, 1264, 784, #Splitter_0, #Panel_1, #PB_Splitter_Vertical)
SetGadgetState(#Splitter_1, 1000)
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure