Geht #PB_Canvas_WheelDelta nicht richtig?

Anfängerfragen zum Programmieren mit PureBasic.
Syntacks_Error
Beiträge: 107
Registriert: 08.03.2009 16:08

Geht #PB_Canvas_WheelDelta nicht richtig?

Beitrag von 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?
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Geht #PB_Canvas_WheelDelta nicht richtig?

Beitrag von 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
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Syntacks_Error
Beiträge: 107
Registriert: 08.03.2009 16:08

Re: Geht #PB_Canvas_WheelDelta nicht richtig?

Beitrag von Syntacks_Error »

Ach so. Danke!
Antworten