Why not use an image gadget?
Code: Select all
If OpenWindow(0, 100, 100, 640, 600, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget) And CreateGadgetList(WindowID(0))
UseJPEGImageDecoder()
LoadImage(1, #PB_Compiler_Home + "Examples\Sources\Data\terrain_texture.jpg")
ResizeImage(1, 300, 300)
ImageGadget(1, 0, 0, 300,300, ImageID(1))
UseGadgetList(GadgetID(1))
StringGadget(2, 20,20, 80, 30, "")
Repeat
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf