Code: Alles auswählen
window = OpenWindow(#PB_Any,200,200,500,500,"Test",#PB_Window_SystemMenu)
canvGad = CanvasGadget(#PB_Any,0,0,500,500)
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow
close = 1
EndSelect
Select EventGadget()
Case canvGad
Select EventType()
Case #PB_EventType_MouseWheel
Debug #PB_Canvas_WheelDelta ; Output immer positiv?
EndSelect
EndSelect
Delay(1)
Until close