save point
This commit is contained in:
parent
7ce3ae437d
commit
1195f20ffb
3 changed files with 32 additions and 5 deletions
25
kratom.pb
25
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
|
Loading…
Add table
Add a link
Reference in a new issue