commit 7ce3ae437d2d442d0098612078480f8894d1cb40 Author: kake26 Date: Tue Sep 17 21:07:01 2024 -0500 initial commit diff --git a/kratom.pb b/kratom.pb new file mode 100644 index 0000000..6e4cf01 --- /dev/null +++ b/kratom.pb @@ -0,0 +1,24 @@ +; Main Code File + +XIncludeFile "kratomfrm1.pbf" + +Openkrt1() + +Repeat + Event = WaitWindowEvent() + + Select EventWindow() + Case krt1 + krt1_Events(Event) ; This procedure name is always window name followed by '_Events' + + ;Case DateWindow + ;DateWindow_Events(Event) + + EndSelect + + Until Event = #PB_Event_CloseWindow ; Quit on any window close + +; IDE Options = PureBasic 6.12 LTS (Linux - x64) +; CursorPosition = 11 +; EnableXP +; DPIAware \ No newline at end of file diff --git a/kratomfrm1.pbf b/kratomfrm1.pbf new file mode 100644 index 0000000..16b4b31 --- /dev/null +++ b/kratomfrm1.pbf @@ -0,0 +1,43 @@ +; 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 + + +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) + 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 + diff --git a/kratomprj.pbp b/kratomprj.pbp new file mode 100644 index 0000000..211bbf7 --- /dev/null +++ b/kratomprj.pbp @@ -0,0 +1,20 @@ + + + +
+ +
+
+ + + +
+
+
+ + + + + +
+