A sliderbox with Enabled property to False still respond to mouse wheel.
I've write a little class as a  to workaround with this code:


Export
Inherits SliderBox
Public Const _Similar As String = "SpinBox,SliderBox"
Public Const _drawWith As String = "SliderBox"

Private obs As Observer

Public Sub _new()

   obs = New Observer(Me.Children[1]) As "Spin"

End

Public Sub spin_mousewheel()

 If Me.enabled = False Then Stop Event

End

But I think that it will be better fix the bug.

Best regards.
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to