save point

kratom.pb

@@ -54,9 +54,14 @@ Procedure dellist(EventType)
    
 EndProcedure
 
-Procedure burn()
-  
+Procedure burn(EventType)
   
+    If DatabaseQuery(0, "SELECT * FROM kratom ORDER BY RANDOM() LIMIT 1")
+  While NextDatabaseRow(0) ; Loop for each records
+                           ;AddGadgetItem (ListView_0, -1, "Name " + GetDatabaseString(0,1) + " Type " + GetDatabaseString(0,2))
+    MessageRequester("Burn you should","Today you get to burn "+GetDatabaseString(0,1))
+  Wend
+EndIf
   
 EndProcedure
 
@@ -84,9 +89,10 @@ Repeat
     EndSelect
     
   Until Event = #PB_Event_CloseWindow ; Quit on any window close
-; IDE Options = PureBasic 6.12 LTS (Linux - x64)
-; CursorPosition = 31
-; FirstLine = 20
+; IDE Options = PureBasic 6.12 LTS (Windows - x64)
+; CursorPosition = 61
+; FirstLine = 36
 ; Folding = -
 ; EnableXP
 ; DPIAware
+; Executable = win32kratom.exe

kratomfrm1.pbf

@@ -11,6 +11,7 @@ Global krt1
 
 Global Container_0, ListView_0, Text_0, Text_1, String_0, Button_0, Button_1, Button_2, String_1, Text_2
 
+Declare burn(EventType)
 Declare dellist(EventType)
 Declare btn0click(EventType)
 
@@ -43,6 +44,8 @@ Procedure krt1_Events(event)
       Select EventGadget()
         Case Button_0
           btn0click(EventType())          
+        Case Button_1
+          burn(EventType())          
         Case Button_2
           dellist(EventType())          
       EndSelect

kratomprj.pbp

@@ -7,22 +7,23 @@
   <section name="data">
     <explorer view="/opt/purebasic/examples/" pattern="0"/>
     <log show="1"/>
-    <lastopen date="2024-09-18 00:19" user="kake26" host="kake26-20l6s42e00"/>
+    <lastopen date="2024-09-18 12:49" user="kake26" host="kake26-20l6s42e00"/>
   </section>
   <section name="files">
     <file name="kratom.pb">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="1" panelstate="+"/>
-      <fingerprint md5="c44a94d156eacc238e59494b51caf74f"/>
+      <fingerprint md5="9f5e99e1ff488b0b29b5605576464d24"/>
     </file>
     <file name="kratomfrm1.pbf">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="2" panelstate="+"/>
-      <fingerprint md5="fa99faf895ea57cf32aabcb624a1769e"/>
+      <fingerprint md5="950999f7a68dfc50b2dffbd1dc130788"/>
     </file>
   </section>
   <section name="targets">
     <target name="Default Target" enabled="1" default="1">
       <inputfile value="kratom.pb"/>
       <outputfile value=""/>
+      <executable value="kratom"/>
       <options xpskin="1" dpiaware="1" debug="1" optimizer="1"/>
     </target>
   </section>