With version 5. Oct. 2005 it works (can load picture), no mouseevent on imagegadget.
with the new version i cannot load images and the debugger suddenly crashes, while starting the code with debugger. So I cannot debug this code.
Code: Select all
UseJPEGImageDecoder()
If LoadImage(10,"Bild001.jpg") = 0 ; <###### Change picturepath and name
MessageRequester("Error","Cannot load picture")
EndIf ; use any picture you want
OpenWindow(0, 0, 0, 250, 250, #PB_Window_SystemMenu|#PB_Window_ScreenCentered, "ImageGadget Event Test")
CreateGadgetList(WindowID(0))
ResizeImage(10, 100, 100)
ImageGadget(0, 10, 10, 100, 100, UseImage(10), #PB_Image_Border)
ButtonImageGadget(1, 120, 10, 100, 100, UseImage(10))
Repeat
Event.l = WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadgetID() = 0 ; ImageGadget
Select EventType()
Case #PB_EventType_LeftClick
Debug "Image Left Click"
Case #PB_EventType_RightClick
Debug "Image Right Click"
Case #PB_EventType_LeftDoubleClick
Debug "Image Left Double Click"
Case #PB_EventType_RightDoubleClick
Debug "Image Right Double Click"
EndSelect
EndIf
If EventGadgetID() = 1 ; ButtonImageGadget
Select EventType()
Case #PB_EventType_LeftClick
Debug "ImageButton Left Click"
Case #PB_EventType_RightClick
Debug "ImageButton Right Click"
Case #PB_EventType_LeftDoubleClick
Debug "ImageButton Left Double Click"
Case #PB_EventType_RightDoubleClick
Debug "ImageButton Right Double Click"
EndSelect
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
I don't know what happens