47 lines
No EOL
967 B
Text
47 lines
No EOL
967 B
Text
; 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()
|
|
|
|
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 = 21
|
|
; EnableXP
|
|
; DPIAware |