kake26/kratom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

save point

Browse source
This commit is contained in:
kake26 2024-09-17 22:11:44 -05:00
parent 7ce3ae437d
commit 1195f20ffb
Signed by: kake26
GPG key ID: E8AFC43591876B4D
3 changed files with 32 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
kratom.db Normal file
View file

Binary file not shown.

25
kratom.pb
View file

@ -1,9 +1,32 @@
; Main Code File ; Main Code File
; init stuff
UseSQLiteDatabase()
XIncludeFile "kratomfrm1.pbf" 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() 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 Repeat
Event = WaitWindowEvent() Event = WaitWindowEvent()
@ -19,6 +42,6 @@ Repeat
Until Event = #PB_Event_CloseWindow ; Quit on any window close Until Event = #PB_Event_CloseWindow ; Quit on any window close
; IDE Options = PureBasic 6.12 LTS (Linux - x64) ; IDE Options = PureBasic 6.12 LTS (Linux - x64)
; CursorPosition = 11 ; CursorPosition = 21
; EnableXP ; EnableXP
; DPIAware ; DPIAware

12
kratomfrm1.pbf
View file

@ -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. ; 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. ; 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. ; 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) 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) 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) Container_0 = ContainerGadget(#PB_Any, 10, 10, 810, 550)
ListView_0 = ListViewGadget(#PB_Any, 0, 60, 300, 470) ListView_0 = ListViewGadget(#PB_Any, 0, 60, 300, 470)
Text_0 = TextGadget(#PB_Any, 70, 20, 130, 30, "Kratom Stock") Text_0 = TextGadget(#PB_Any, 70, 20, 130, 30, "Kratom Stock")
@ -41,3 +39,9 @@ Procedure krt1_Events(event)
ProcedureReturn #True ProcedureReturn #True
EndProcedure EndProcedure
; IDE Options = PureBasic 6.12 LTS (Linux - x64)
; CursorPosition = 41
; FirstLine = 7
; Folding = -
; EnableXP