Geht #PB_Canvas_WheelDelta nicht richtig?

[Syntacks_Error]

Bei mir ( 5.71 LTS (Windows - x86), 32 Bit) kommt immer ein positiver Wert heraus, egal in welche Richtung ich das Mausrad drehe:

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

Wo liegt der Fehler?

[RSBasic]

Du gibst ja nur den Wert der Konstante aus. Du musst GetGadgetAttribute() benutzen. Also so:

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 GetGadgetAttribute(canvGad, #PB_Canvas_WheelDelta)
   EndSelect
 EndSelect
 Delay(1)
Until close

[Syntacks_Error]

Ach so. Danke!