Code : Tout sélectionner
UseJPEGImageDecoder()
OpenWindow(0, 0, 0, 200, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
CreateGadgetList(WindowID( 0))
;LoadImage(2,"c:\ess.jpg") ;avec load à la place de catch cela marche
CatchImage(2,?im_fond)
ImageGadget(1,10,10,180,180,ImageID(2))
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
EndSelect
Until event = #WM_CLOSE
End
im_fond: IncludeBinary "c:\ess.jpg"