.Enfin je l'espère
**********************************
UseJPEGImageDecoder()
Global image, IEncart1
Enumeration
#o_Iaffiche
#o_IEncart1
#o_image1
#i_iaide1
#o_iaide1
EndEnumeration
Image=CatchImage(#o_IAffiche, ?Iaffiche);
IEncart1=CatchImage(#o_IEncart1, ?IEncart1);
Procedure transfer(num_obj_i.l)
; ImageGadget(#o_image1, 0,0,20,20,UseImage(num_obj_i))
; If LoadImage(0, ".\images\image3.bmp") ; change 2nd parameter to the path/filename of your image
; ImageGadget(0, 10,10,30,50,UseImage(0)) ; imagegadget standard
; ImageGadget(1,140,10,30,50,UseImage(0),#PB_Image_Border) ; imagegadget with border
; EndIf
; ImageGadget(0, 10,10,30,50,UseImage(num_obj_i.l)) ; imagegadget standard
; ImageGadget(1,140,10,30,50,UseImage(num_obj_i.l),#PB_Image_Border) ; imagegadget with border
ImageGadget(1,140,10,30,50,UseImage(num_obj_i),#PB_Image_Border) ; imagegadget with border
EndProcedure
; Open a window, and do some stuff with it...
;
If OpenWindow(0,0,0,500,500,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ImageGadget") And CreateGadgetList(WindowID(0))
; If LoadImage(0, ".\images\image3.bmp") ; change 2nd parameter to the path/filename of your image
; ImageGadget(0, 10,10,30,50,UseImage(0)) ; imagegadget standard
; ImageGadget(1,140,10,30,50,UseImage(0),#PB_Image_Border) ; imagegadget with border
; EndIf
; ImageGadget(0, 10,10,30,50,UseImage(#o_IAffiche)) ; imagegadget standard
; transfer(#o_IAffiche)
transfer(#o_IEncart1)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
End
DataSection
IAffiche:IncludeBinary ".\images\image3.bmp"
IEncart1:IncludeBinary ".\images\image4.jpg"
EndDataSection