; Form Designer for PureBasic - 6.12
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

;
; This code is automatically generated by the Form Designer.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures need to be put in another source file.
;

Global krt1

Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Button_2, String_1, Text_2, Text_3, String_2

Declare burn(EventType)
Declare dellist(EventType)
Declare btn0click(EventType)

Procedure Openkrt1(x = 0, y = 0, width = 920, height = 600)
  krt1 = OpenWindow(#PB_Any, x, y, width, height, "Kratom Picker GUI", #PB_Window_SystemMenu | #PB_Window_Invisible)
  HideWindow(krt1, 1)
  Container_0 = ContainerGadget(#PB_Any, 10, 10, 900, 580)
  ListView_0 = ListViewGadget(#PB_Any, 0, 60, 410, 470)
  Text_0 = TextGadget(#PB_Any, 70, 20, 130, 30, "Kratom Stock", #PB_Text_Center)
  Text_1 = TextGadget(#PB_Any, 500, 70, 170, 30, "Kratom Name", #PB_Text_Center)
  String_0 = StringGadget(#PB_Any, 700, 60, 150, 40, "")
  Button_0 = ButtonGadget(#PB_Any, 710, 230, 130, 40, "Add")
  Button_1 = ButtonGadget(#PB_Any, 710, 430, 130, 40, "Burn!")
  Button_2 = ButtonGadget(#PB_Any, 710, 490, 130, 40, "Delete")
  String_1 = StringGadget(#PB_Any, 700, 110, 150, 40, "")
  Text_2 = TextGadget(#PB_Any, 590, 120, 50, 30, "Type", #PB_Text_Center)
  Text_3 = TextGadget(#PB_Any, 490, 170, 200, 30, "Chance Multiplier")
  String_2 = StringGadget(#PB_Any, 700, 160, 150, 40, "1")
  CloseGadgetList()
EndProcedure

Procedure krt1_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case Button_0
          btn0click(EventType())          
        Case Button_1
          burn(EventType())          
        Case Button_2
          dellist(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure