rendered paste body;
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
EndEnumeration
;- MenuBar Constants
;
Enumeration
#MenuBar_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#File1_0
#File2_1
#File3_2
#File4_3
#File5_4
#File6_5
#File7_6
#File8_7
#File9_8
#File10_9
#String_0
#String_1
#String_2
#String_3
#String_4
#String_5
#String_6
#String_7
#String_8
#String_9
#Button_10
#Button_11
#Button_12
#Button_13
#Button_14
#Button_15
#Button_16
#Button_17
#Button_18
#Button_19
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_0
EndEnumeration
;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Arial", 12, #PB_Font_Bold)
Procedure Open_Window_0()
If OpenWindow(#Window_0, 198, 63, 574, 513, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateMenu(#MenuBar_0, WindowID(#Window_0))
MenuTitle("Datei")
MenuItem(2, "bla")
MenuItem(3, "bla")
MenuItem(4, "bla")
MenuTitle("Hilfe")
MenuItem(2, "bla")
MenuItem(3, "bla")
MenuItem(4, "bla")
EndIf
If CreateStatusBar(#StatusBar_0, WindowID(#Window_0))
EndIf
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#File1_0, 30, 70, 30, 20, "...")
ButtonGadget(#File2_1, 30, 110, 30, 20, "...")
ButtonGadget(#File3_2, 30, 150, 30, 20, "...")
ButtonGadget(#File4_3, 30, 190, 30, 20, "...")
ButtonGadget(#File5_4, 30, 230, 30, 20, "...")
ButtonGadget(#File6_5, 30, 270, 30, 20, "...")
ButtonGadget(#File7_6, 30, 310, 30, 20, "...")
ButtonGadget(#File8_7, 30, 350, 30, 20, "...")
ButtonGadget(#File9_8, 30, 390, 30, 20, "...")
ButtonGadget(#File10_9, 30, 430, 30, 20, "....")
StringGadget(#String_0, 70, 70, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_1, 70, 110, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_2, 70, 150, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_3, 70, 190, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_4, 70, 230, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_5, 70, 270, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_6, 70, 310, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_7, 70, 350, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_8, 70, 390, 220, 20, "", #PB_String_ReadOnly)
StringGadget(#String_9, 70, 430, 220, 20, "", #PB_String_ReadOnly)
ButtonGadget(#Button_10, 300, 350, 110, 30, "Start")
SetGadgetFont(#Button_10, FontID1)
ButtonGadget(#Button_11, 300, 390, 110, 30, "Start")
SetGadgetFont(#Button_11, FontID1)
ButtonGadget(#Button_12, 300, 430, 110, 30, "Start")
SetGadgetFont(#Button_12, FontID1)
ButtonGadget(#Button_13, 300, 310, 110, 30, "Start")
SetGadgetFont(#Button_13, FontID1)
ButtonGadget(#Button_14, 300, 270, 110, 30, "Start")
SetGadgetFont(#Button_14, FontID1)
ButtonGadget(#Button_15, 300, 230, 110, 30, "Start")
SetGadgetFont(#Button_15, FontID1)
ButtonGadget(#Button_16, 300, 190, 110, 30, "Start")
SetGadgetFont(#Button_16, FontID1)
ButtonGadget(#Button_17, 300, 150, 110, 30, "Start")
SetGadgetFont(#Button_17, FontID1)
ButtonGadget(#Button_18, 300, 110, 110, 30, "Start")
SetGadgetFont(#Button_18, FontID1)
ButtonGadget(#Button_19, 300, 70, 110, 30, "Start")
SetGadgetFont(#Button_19, FontID1)
EndIf
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
If Event = #PB_Event_Menu
MenuID = EventMenu()
EndIf
If Event = #PB_Event_Gadget
If GadgetID = #File1_0
programm1$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File2_1
programm2$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File3_2
programm3$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File4_3
programm4$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File5_4
programm5$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File6_5
programm6$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File7_6
programm7$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File8_7
programm8$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File9_8
programm9$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #File10_9
programm10$ = OpenFileRequester("Bitte wählen sie das Gewünschte Programm aus:", "", "Programme|*.exe|Alle Dateien|*.*", 0)
ElseIf GadgetID = #String_0
ElseIf GadgetID = #String_1
SetGadgetText(,"d")
ElseIf GadgetID = #String_2
ElseIf GadgetID = #String_3
ElseIf GadgetID = #String_4
ElseIf GadgetID = #String_5
ElseIf GadgetID = #String_6
ElseIf GadgetID = #String_7
ElseIf GadgetID = #String_8
ElseIf GadgetID = #String_9
ElseIf GadgetID = #Button_10
ElseIf GadgetID = #Button_11
RunProgram(programm1$,programm1$,programm1$)
ElseIf GadgetID = #Button_12
ElseIf GadgetID = #Button_13
ElseIf GadgetID = #Button_14
ElseIf GadgetID = #Button_15
ElseIf GadgetID = #Button_16
ElseIf GadgetID = #Button_17
ElseIf GadgetID = #Button_18
ElseIf GadgetID = #Button_19
EndIf
EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End