Code: Select all
OpenWindow (0, 100, 100, 300, 200, "CanvasGadget Events Test")
CanvasGadget(0, 10, 10, 280, 180, #PB_Canvas_Keyboard)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 0 ; CanvasGadget
Select EventType()
Case #PB_EventType_LeftButtonDown
Debug "#PB_EventType_LeftButtonDown"
Case #PB_EventType_LeftButtonUp
Debug "#PB_EventType_LeftButtonUp"
Case #PB_EventType_LeftClick
Debug "#PB_EventType_LeftClick"
Case #PB_EventType_RightButtonDown
Debug "#PB_EventType_RightButtonDown"
Case #PB_EventType_RightButtonUp
Debug "#PB_EventType_RightButtonUp"
Case #PB_EventType_RightClick
Debug "#PB_EventType_RightClick"
Case #PB_EventType_MouseWheel
Debug "#PB_EventType_MouseWheel"
EndSelect
EndSelect
Case #PB_Event_CloseWindow
Break
EndSelect
ForEver