save point

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

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