PureBoard

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