diff --git a/kratom.db b/kratom.db new file mode 100644 index 0000000..7688628 Binary files /dev/null and b/kratom.db differ diff --git a/kratom.pb b/kratom.pb index 6e4cf01..446e5d3 100644 --- a/kratom.pb +++ b/kratom.pb @@ -1,9 +1,32 @@ ; Main Code File +; init stuff + +UseSQLiteDatabase() XIncludeFile "kratomfrm1.pbf" +; init code + +dbfile$ = "kratom.db" ; created and setup with dbbrowser for now + +If OpenDatabase(0, dbfile$, "", "") + ;Debug "Connected to PureBasic.sqlite" +Else + MessageRequester("ERROR","I can't open the database kratom.db!",#PB_MessageRequester_Error) +EndIf + Openkrt1() +; window init + + + +AddGadgetItem (ListView_0, -1, "Item " + Str(a) + " of the Listview") + +HideWindow(krt1,#False) + +;AddGadgetItem (0, -1, "Item " + Str(a) + " of the Listview") + Repeat Event = WaitWindowEvent() @@ -19,6 +42,6 @@ Repeat Until Event = #PB_Event_CloseWindow ; Quit on any window close ; IDE Options = PureBasic 6.12 LTS (Linux - x64) -; CursorPosition = 11 +; CursorPosition = 21 ; EnableXP ; DPIAware \ No newline at end of file diff --git a/kratomfrm1.pbf b/kratomfrm1.pbf index 16b4b31..384a484 100644 --- a/kratomfrm1.pbf +++ b/kratomfrm1.pbf @@ -1,7 +1,4 @@ -; 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. @@ -14,6 +11,7 @@ Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Bu 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") @@ -41,3 +39,9 @@ Procedure krt1_Events(event) ProcedureReturn #True EndProcedure + +; IDE Options = PureBasic 6.12 LTS (Linux - x64) +; CursorPosition = 41 +; FirstLine = 7 +; Folding = - +; EnableXP \ No newline at end of file