Wish BJ4 ScrollEvent for MouseWheel event

stevel05

Expert
Licensed User
Longtime User
While I don't think you can capture the mouse wheel scroll directly, you can capture it's effect on a Node using reflection and the onScrollProperty.

Something like:

B4X: 
Dim R As Reflector
R.Target = Slider1
R.AddEventHandler("Slider1Scroll","onScrollProperty")

Sub Slider1Scroll_event(e As Event)
    Dim ThisEvent As JavaObject = e
    Dim Moved As Double = ThisEvent.RunMethod("getDeltaY",Null)
    Slider1.Value = Slider1.Value + (Moved / Abs(Moved))
    e.Consume
End Sub

After testing, you can also add the onScrollProperty to the MainForm.RootPane and catch the scrollwheel movement without it affecting a view.

B4X: 
    Dim R As Reflector
    R.Target = MainForm.RootPane
    R.AddEventHandler("PaneScroll","onScrollProperty")
Sub PaneScroll_event(e As Event)
    Dim ThisEvent As JavaObject = e
    Dim Moved As Double = ThisEvent.RunMethod("getDeltaY",Null)
    Log(Moved)
    e.Consume
End Sub
 
Last edited:

Jim Brown

Active Member
Licensed User
Longtime User
Thanks Steve,

Whilst I couldn't get your code above to work I found the following works perfectly, which I use to catch the event from a canvas:
B4X: 
Dim R As Reflector
R.Target = canvas1
R.AddEventHandler("canvasScroll","javafx.scene.input.ScrollEvent.SCROLL")

...

Sub canvasScroll_Event(e As Event)
    Dim ThisEvent As JavaObject = e
    Dim Moved As Double = ThisEvent.RunMethod("getDeltaY",Null)
    Log(Moved)
    e.Consume
End Sub
 
You must log in or register to reply here.

Similar Threads

  • Question
B4J Question wrong height in nested xCLV ?
Replies
4
Views
1K
Patent
  • Article
Share My Creation SpriteMotion - 1.01
Replies
4
Views
4K
victormedranop
  • Article
B4J Library jAutoItX Library
2
Replies
31
Views
15K
jmon
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…