; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_Goal=7
EndEnumeration

;- Gadget Constants
;
Enumeration
  #RDLG_LIST=#Browse_None+1
  #RDLG_EALL
  #RDLG_DALL
  #RDLG_ITEM
  #RDLG_CALL
  #RDLG_HELP
  #RDLG_CANCEL
  #RDLG_OK
  #RDLG_SAME
EndEnumeration


Procedure Open_Window_Goal()
  If OpenWindow(#Window_Goal, 285, 95, 498, 329, "RTS Maker Starting Resources",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_Goal))
      
      ;-
      ListIconGadget(#RDLG_LIST, 0, 0, 410, 330, "Resource", 100, #PB_ListIcon_GridLines | #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_FullRowSelect)
      AddGadgetColumn(#RDLG_LIST, 1, "Type", 50)
      AddGadgetColumn(#RDLG_LIST, 2, "Player1", 50)
      AddGadgetColumn(#RDLG_LIST, 3, "Player2", 50)
      AddGadgetColumn(#RDLG_LIST, 4, "Player3", 50)
      AddGadgetColumn(#RDLG_LIST, 5, "Player4", 50)
      AddGadgetColumn(#RDLG_LIST, 6, "Others", 50)
      ButtonGadget(#RDLG_EALL, 420, 10, 70, 30, "Enable All")
      GadgetToolTip(#RDLG_EALL, "Enable All Resources (Set to 0 or positive value)")
      ButtonGadget(#RDLG_DALL, 420, 50, 70, 30, "Disable All")
      GadgetToolTip(#RDLG_DALL, "Disable All Resources (Set to negative value)")
      ButtonGadget(#RDLG_ITEM, 420, 90, 70, 30, "Toggle  Item")
      GadgetToolTip(#RDLG_ITEM, "Toggle Resource as Enabled/Disabled or Global/Local/Special")
      ButtonGadget(#RDLG_CALL, 420, 130, 70, 30, "Clear All")
      GadgetToolTip(#RDLG_CALL, "Clear All Resources (Set to 0)")
      ButtonGadget(#RDLG_HELP, 420, 210, 70, 30, "Help")
      GadgetToolTip(#RDLG_HELP, "Show additional help instructions")
      ButtonGadget(#RDLG_CANCEL, 420, 250, 70, 30, "Cancel")
      GadgetToolTip(#RDLG_CANCEL, "Close without saving changes")
      ButtonGadget(#RDLG_OK, 420, 290, 70, 30, "OK")
      GadgetToolTip(#RDLG_OK, "Save changes and close")
      ButtonGadget(#RDLG_SAME, 420, 170, 70, 30, "Make Same")
      GadgetToolTip(#RDLG_SAME, "Set all players to same as Player1")
      
    EndIf
  EndIf
EndProcedure