Wär nett wenn ihr mir helfen würdet.
Code: Alles auswählen
#WindowWidth = 800
#WindowHeight = 600
If OpenWindow(0, 0, 0, #WindowWidth, #WindowHeight, #PB_Window_SystemMenu, "PureBasic - Menu")
If CreateMenu(0, WindowID())
MenuTitle("Datei")
MenuItem( 1, "Öffnen...")
MenuItem( 2, "Speichern")
MenuItem( 3, "Speichern unter...")
MenuItem( 4, "Beenden")
EndIf
If CreateToolBar(0, WindowID())
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
ToolBarSeparator()
ToolBarStandardButton(4, #PB_ToolBarIcon_Find)
ToolBarToolTip(4, "Titel Suchen")
ToolBarSeparator()
EndIf
;************************************************************************
If CreateGadgetList(WindowID())
ScrollAreaGadget(0, 0, 0, 400, 400, 1000, 1000, 1)
CloseGadgetList()
PanelGadget(1, 0, 0, 400, 400)
For k=0 To 3
AddGadgetItem(1, -1, "Line "+Str(k))
ButtonGadget(12+k, 10, 10, 100, 20, "Test"+Str(k))
Next
SplitterGadget(5, 0, 25, #WindowWidth, #WindowHeight-25, 0, 1, #PB_Splitter_Vertical)
SetGadgetState(5, 500)
CloseGadgetList()
EndIf
;***************************************************************************
Repeat
EventID.l = WaitWindowEvent()
If EventID.l = #WM_CLOSE
Quit = 1
EndIf
Until Quit = 1
EndIf
End