;
; 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