[Gambas-user] [Gambas Bug Tracker] Bug #1029: BUG: SpinBar does not block mousewheel scroll when inside a scrollview

[bugtracker at ...3416...]

http://gambaswiki.org/bugtracker/edit?object=BUG.1029&from=L21haW4-

Comment #1 by Antonio OREFICE:

Workarounded with the following:

'---------------- HACKY WORKAROUND TO STOP SCROLLVIEWS SCROLLING WHEN OBJECTS ARE FOCUSED
    Private Scrollview_is_focused As Boolean = False
    Public Sub ScrollViews_GotFocus()
      Scrollview_is_focused = True
    End
    Public Sub ScrollViews_LostFocus()
      Scrollview_is_focused = False
    End
    
    Public my_observer As Observer
    
    Public Sub dynaobj_gotfocus()
      If (Last Is Spinbox) Or (Last Is Floatspinbox) Then
        If Not Object.IsValid(my_observer) Then
          Debug
          my_observer = New Observer(Last) As "my_observer"
        Endif
      Endif
    End
    
    Public Sub my_observer_MouseWheel()
      If Not Scrollview_is_focused Then
        Stop Event
      Endif
    End
'---------------- HACKY WORKAROUND TO STOP SCROLLVIEWS SCROLLING WHEN OBJECTS ARE FOCUSED