Still get the same result.
Edit:
If i change your code like that it works
Code: Select all
UsePNGImageDecoder()
Procedure SetWindowBackgroundImage(CanvasID.I, ImageID.I)
If StartDrawing(CanvasOutput(CanvasID))
DrawImage(ImageID(ImageID), 0, 0, GadgetWidth(CanvasID),
GadgetHeight(CanvasID))
StopDrawing()
EndIf
EndProcedure
Procedure OnWindowResize()
ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0), WindowHeight(0))
SetWindowBackgroundImage(0, 0)
EndProcedure
; Procedure OnCanvasResize()
; SetWindowBackgroundImage(0, 0)
; EndProcedure
If LoadImage(0, #PB_Compiler_Home + "examples/3d/Data/Textures/spheremap.png")
OpenWindow(0, 100, 100, ImageWidth(0), ImageHeight(0),
"Window with background image", #PB_Window_SizeGadget)
CanvasGadget(0, 0, 0, ImageWidth(0), ImageHeight(0), #PB_Canvas_Container)
BindEvent(#PB_Event_SizeWindow, @OnWindowResize(), 0)
;BindGadgetEvent(0, @OnCanvasResize(), #PB_EventType_Resize)
SetWindowBackgroundImage(0, 0)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf