4.60B3: Canvas: #PB_EventType_MouseWheel does not work.

[IceSoft]

Canvas: #PB_EventType_MouseWheel does not work.

For tests source:
Replace on the canvas example source.

Code: Select all

          Select EventType()
            Case #PB_EventType_MouseWheel
              MessageRequester("Wheel","works now.")
          
            Case #PB_EventType_LeftButtonDown

[atomo]

You must use the flag #PB_Canvas_Keyboard on CanvasGadget creation to get MouseWheel events.

[IceSoft]

You must use the flag #PB_Canvas_Keyboard on CanvasGadget creation to get MouseWheel events.

Have you tried it?
On my deployment (Windows 7 64bit) it is not working, also not with the #PB_Canvas_Keyboard flag.

[atomo]

This code works for me, the CanvasGadget must also have the focus :

Code: Select all

Window = OpenWindow(#PB_Any, 0, 0, 200, 200, "CanvasGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If Window
  CanvasGadget = CanvasGadget(#PB_Any, 0, 0, 200, 200, #PB_Canvas_Keyboard)
  Repeat
    Event = WaitWindowEvent(1)
    If Event = #PB_Event_Gadget
      If EventGadget() = CanvasGadget
        If EventType() = #PB_EventType_MouseWheel
          Debug "MouseWheel"
        EndIf
      EndIf
    EndIf    
  Until Event = #PB_Event_CloseWindow
EndIf

[IceSoft]

@atome,
Your code works only if I pressed the mousebutton before.
=> that is the bug.

[bobobo]

Focus !!
A SetActiveGadget(CanvasGadget) before Repeat will do

[STARGÅTE]

Your code works only if I pressed the mousebutton before.
=> that is the bug.

No it is not, because the gadget must be activated first:

MouseWheel not "same" as MouseMove or so... it needs a focus

Code: Select all

Window = OpenWindow(#PB_Any, 0, 0, 400, 200, "CanvasGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If Window
  CanvasGadget1 = CanvasGadget(#PB_Any, 0, 0, 200, 200, #PB_Canvas_Keyboard|#PB_Canvas_DrawFocus)
  CanvasGadget2 = CanvasGadget(#PB_Any, 200, 0, 200, 200, #PB_Canvas_Keyboard|#PB_Canvas_DrawFocus)
  Repeat
    Event = WaitWindowEvent(1)
    If Event = #PB_Event_Gadget
      Select EventGadget()
        Case CanvasGadget1
          Select EventType()
            Case #PB_EventType_MouseWheel
              Debug "MouseWheel 1"
            Case #PB_EventType_MouseMove
              Debug "MouseMove 1"
          EndSelect
        Case CanvasGadget2
          Select EventType()
            Case #PB_EventType_MouseWheel
              Debug "MouseWheel 2"
            Case #PB_EventType_MouseMove
              Debug "MouseMove 2"
          EndSelect
      EndSelect
    EndIf    
  Until Event = #PB_Event_CloseWindow
EndIf