46 lines
1.2 KiB
Text
Executable file
46 lines
1.2 KiB
Text
Executable file
; 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
|