47 lines
No EOL
1.5 KiB
Text
47 lines
No EOL
1.5 KiB
Text
;
|
|
; 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
|
|
|
|
|
|
Procedure Openkrt1(x = 0, y = 0, width = 830, height = 570)
|
|
krt1 = OpenWindow(#PB_Any, x, y, width, height, "Kratom Picker GUI", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
|
|
HideWindow(krt1, 1)
|
|
Container_0 = ContainerGadget(#PB_Any, 10, 10, 810, 550)
|
|
ListView_0 = ListViewGadget(#PB_Any, 0, 60, 300, 470)
|
|
Text_0 = TextGadget(#PB_Any, 70, 20, 130, 30, "Kratom Stock")
|
|
Text_1 = TextGadget(#PB_Any, 310, 20, 170, 30, "Kratom to add")
|
|
String_0 = StringGadget(#PB_Any, 460, 10, 150, 40, "")
|
|
Button_0 = ButtonGadget(#PB_Any, 630, 10, 130, 40, "Add")
|
|
Button_1 = ButtonGadget(#PB_Any, 310, 60, 130, 40, "Burn!")
|
|
Button_2 = ButtonGadget(#PB_Any, 310, 490, 130, 40, "Delete")
|
|
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()
|
|
EndSelect
|
|
EndSelect
|
|
ProcedureReturn #True
|
|
EndProcedure
|
|
|
|
|
|
; IDE Options = PureBasic 6.12 LTS (Linux - x64)
|
|
; CursorPosition = 41
|
|
; FirstLine = 7
|
|
; Folding = -
|
|
; EnableXP |