save point

splash.pbf

@@ -0,0 +1,46 @@
+; 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.
+; 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.
+;
+
+Global splash
+
+Global Image_0
+
+Global Img_splash_0
+
+UsePNGImageDecoder()
+
+Img_splash_0 = CatchImage(#PB_Any,?Img_splash_0)
+
+
+Procedure Opensplash(x = 0, y = 0, width = 1020, height = 630)
+  splash = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_BorderLess | #PB_Window_ScreenCentered)
+  Image_0 = ImageGadget(#PB_Any, 0, -264, 1030, 894, ImageID(Img_splash_0))
+EndProcedure
+
+Procedure splash_Events(event)
+  Select event
+    Case #PB_Event_CloseWindow
+      ProcedureReturn #False
+
+    Case #PB_Event_Menu
+      Select EventMenu()
+      EndSelect
+
+    Case #PB_Event_Gadget
+      Select EventGadget()
+      EndSelect
+  EndSelect
+  ProcedureReturn #True
+EndProcedure
+
+
+
+DataSection
+  Img_splash_0: : IncludeBinary "/home/kake26/projects/purebasic/kratom/kratom.png"
+EndDataSection