i want to show a Wait-Window with an animated GIF:
Code: Select all
Enumeration
#WaitWindow
#WaitWindowImage
EndEnumeration
Procedure Loaded(Type, Filename$, ObjectId)
SetGadgetState(#WaitWindowImage, ImageID(ObjectId))
EndProcedure
BindEvent(#PB_Event_Loading, @Loaded())
OpenWindow(#WaitWindow, #PB_Ignore, #PB_Ignore, 150, 150, "", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
ImageGadget(#WaitWindowImage, 0, 0, 128, 128, 0, #PB_Image_Border)
LoadImage(0, "loader.gif")
Greetings ... Peter