Splash Screen
Verfasst: 30.03.2005 17:04
Ho!
ich habe hier mal nen Code gesammelt womit ihr eure eigenen Splashscreens anzeigen könnt.
Greetz Disy
Edit by Kiffi: NTQ als Programmautor in den Code eingetragen
ich habe hier mal nen Code gesammelt womit ihr eure eigenen Splashscreens anzeigen könnt.
Code: Alles auswählen
; By NicTheQuick (12.11.2003)
#SplashScreen_WindowID = 0
#SplashScreen_GadgetID = 0
#SplashScreen_ImageID = 0
Image.s = "C:\Coding\Radix Engine 3.0\bin\splash.bmp" ;Pfad anpassen
Procedure ShowSplashScreen(Picture.s, Delay.l)
Protected a.l
UseJPEGImageDecoder()
If LoadImage(#SplashScreen_ImageID, Picture)
If OpenWindow(#SplashScreen_WindowID, 0, 0, ImageWidth(), ImageHeight(), #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Splash")
If CreateGadgetList(WindowID(0))
ImageGadget(#SplashScreen_GadgetID, 0, 0, ImageWidth(), ImageHeight(), UseImage(0))
a = GetTickCount_() + Delay
Repeat
While WindowEvent() : Wend
Until GetTickCount_() > a
EndIf
CloseWindow(0)
EndIf
EndIf
EndProcedure
ShowSplashScreen(Image, 2000) ;(euer Bild,länge der Anzeige Zeit)
Greetz Disy
Edit by Kiffi: NTQ als Programmautor in den Code eingetragen