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-18 11:26:34 -05:00
parent 08ef995805
commit 40ebe8f1c3
Signed by: kake26
GPG key ID: E8AFC43591876B4D
3 changed files with 23 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
kratom.db
View file

Binary file not shown.

32
kratom.pb
View file

@ -21,7 +21,7 @@ Openkrt1()
Procedure btn0click (EventType) Procedure btn0click (EventType)
;MessageRequester("INFO", "ADD CLICKED") ;MessageRequester("INFO", "ADD CLICKED")
DatabaseUpdate(0,"INSERT into kratom (name, type) Values ('"+GetGadgetText(String_0)+"', '"+GetGadgetText(String_1)+"' );") DatabaseUpdate(0,"INSERT into kratom (name, type) Values ('"+Trim(GetGadgetText(String_0))+"', '"+Trim(GetGadgetText(String_1))+"' );")
updatelist() updatelist()
EndProcedure EndProcedure
@ -42,18 +42,26 @@ Procedure dellist(EventType)
selectedname$ = GetGadgetItemText(ListView_0,selecteditem) selectedname$ = GetGadgetItemText(ListView_0,selecteditem)
RemoveGadgetItem(ListView_0,GetGadgetState(ListView_0)) ; removes it from view RemoveGadgetItem(ListView_0,GetGadgetState(ListView_0)) ; removes it from view
fldname$ = StringField(selectedname$,2," ") fldname$ = StringField(selectedname$,2," ")
pos1 = FindString(selectedname$,fldname$,1,#PB_String_NoCase)
;Debug fldname$ pos2 = FindString(selectedname$,"Type",1,#PB_String_NoCase) - 6
;Debug DatabaseUpdate(0, "DELETE FROM kratom WHERE name = '"+fldname$+"';") key$ = Mid(selectedname$,pos1,pos2)
key$ = Trim(key$)
;Debug "POSES " + pos1 + " " + pos2
;Debug "KEY :" + key$ + ":"
;Debug "FLDNAME " + fldname$
;Debug
DatabaseUpdate(0, "DELETE FROM kratom WHERE name = '"+key$+"';")
;Debug DatabaseError() ;Debug DatabaseError()
;If DatabaseQuery(0, "DELETE FROM * kratom WHERE name = '"+fldname$+"';")
;While NextDatabaseRow(0) ; Loop for each records
;Debug GetDatabaseString(#Database, 0) ; Display the content of the first field
; AddGadgetItem (ListView_0, -1, "Name " + GetDatabaseString(0,1) + " Type " + GetDatabaseString(0,2))
;Wend
;EndIf
EndProcedure EndProcedure
Procedure burn()
EndProcedure
; window init ; window init
updatelist() updatelist()
@ -78,8 +86,8 @@ 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 = 47 ; CursorPosition = 54
; FirstLine = 24 ; FirstLine = 32
; Folding = - ; Folding = -
; EnableXP ; EnableXP
; DPIAware ; DPIAware

6
kratomprj.pbp
View file

@ -7,16 +7,16 @@
<section name="data"> <section name="data">
<explorer view="/opt/purebasic/examples/" pattern="0"/> <explorer view="/opt/purebasic/examples/" pattern="0"/>
<log show="1"/> <log show="1"/>
<lastopen date="2024-09-17 23:16" user="kake26" host="kake26-20l6s42e00"/> <lastopen date="2024-09-18 00:19" user="kake26" host="kake26-20l6s42e00"/>
</section> </section>
<section name="files"> <section name="files">
<file name="kratom.pb"> <file name="kratom.pb">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
<fingerprint md5="ab4f18ac51a4fe0d16c110460946fe9a"/> <fingerprint md5="c44a94d156eacc238e59494b51caf74f"/>
</file> </file>
<file name="kratomfrm1.pbf"> <file name="kratomfrm1.pbf">
<config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/> <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
<fingerprint md5="31af23cf297f2016a8d18f51dc8faeff"/> <fingerprint md5="fa99faf895ea57cf32aabcb624a1769e"/>
</file> </file>
</section> </section>
<section name="targets"> <section name="targets">