PureBoard
http://forums.purebasic.com/german/

Geht #PB_Canvas_WheelDelta nicht richtig?
http://forums.purebasic.com/german/viewtopic.php?f=16&t=31680
Seite 1 von 1

Autor:  Syntacks_Error [ 07.10.2019 20:25 ]
Betreff des Beitrags:  Geht #PB_Canvas_WheelDelta nicht richtig?

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

Code:
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?

Autor:  RSBasic [ 07.10.2019 20:39 ]
Betreff des Beitrags:  Re: Geht #PB_Canvas_WheelDelta nicht richtig?

Du gibst ja nur den Wert der Konstante aus. Du musst GetGadgetAttribute() benutzen. Also so:
Code:
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

Autor:  Syntacks_Error [ 07.10.2019 20:55 ]
Betreff des Beitrags:  Re: Geht #PB_Canvas_WheelDelta nicht richtig?

Ach so. Danke!

Seite 1 von 1 Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/