Code: Alles auswählen
ExamineDesktops()
Procedure Open_Window_0() ;Hintergrundfenster
If OpenWindow(#Window_0,0,0,Desk_Breit,Desk_Hoch,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered,"Hintergrund")
If CreateGadgetList(WindowID())
If CreateImage(#Image_1,Desk_Breit,Desk_Hoch)
If StartDrawing(ImageOutput())
e = 0
For k=0 To 255
Box(0,e,Desk_Breit,20,RGB(0,0,255-k)) ;Hintergrundfärbung
e + 3
Next k
StopDrawing()
EndIf
EndIf
ImageGadget(#Image_1,0,0,0,0,ImageID())
EndIf
EndIf
EndProcedure
Code: Alles auswählen
DataSection
Image0:
IncludeBinary "Bild4.png"
EndDataSection
Enumeration
#Window_0
EndEnumeration
Enumeration
#Image_0
#Image_1
EndEnumeration
Global Image0,Desk_Hoch,Desk_Breit
UsePNGImageDecoder()
Image0 = CatchImage(0,?Image0)
ExamineDesktops()
Procedure Open_Window_0() ;Hintergrundfenster
If OpenWindow(#Window_0,0,0,Desk_Breit,Desk_Hoch,#PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_ScreenCentered,"Hintergrund")
If CreateGadgetList(WindowID())
ResizeImage(0,Desk_Breit,Desk_Hoch,#PB_Image_Smooth)
ImageGadget(#Image_1,0,0,0,0,UseImage(0))
EndIf
EndIf
EndProcedure
wobei das bild im zweiten beispiel ein PNG - ZIP 102x73x24 (16Mil) 0.36 KB (365 Bytes) ist.