B4J Question [Solved] AutoShowScrollbar in CustomListView

[aeric]

By default, we need to set the property in designer. There is a ShowScrollBar property in PCLV.
I want to know is there any way that I can make my horizontal CLV hide the scrollbar when all the items are displayed and only show the scrollbar when the CLV is scrollable?

 

[PaulMeuris]

You can switch off the Show Scroll Bar property of the CLV.
In the fill_clv1 subroutine you can add the lines 13 and 14.
You can change the line 5 to test.
I have used some code from my CLV_examples tutorial (page 16).

Private Sub fill_clv1
    clv1.Clear
    Dim fnames As List = get_filenames
    Dim itemlst As List = get_titleitems
    For i = 0 To 1        'itemlst.Size -1
        Dim item As String = itemlst.Get(i)
        Dim fname As String = fnames.Get(i)
        Dim note As String = notesmap.Get(item)
        Dim pn As Pane = set_clv1_item(i,fname,item,note)
        clv1.Add(pn,itemlst.Get(i))
        Hdragger.AddDragButtons
    Next
    Dim sv As ScrollPane = clv1.sv
    sv.SetHScrollVisibility("AS_NEEDED")
End Sub

The CLV uses an internal Scrollpane...

 

[aeric]

View attachment 159467
You can switch off the Show Scroll Bar property of the CLV.
In the fill_clv1 subroutine you can add the lines 13 and 14.
You can change the line 5 to test.
I have used some code from my CLV_examples tutorial (page 16).

Private Sub fill_clv1
    clv1.Clear
    Dim fnames As List = get_filenames
    Dim itemlst As List = get_titleitems
    For i = 0 To 1        'itemlst.Size -1
        Dim item As String = itemlst.Get(i)
        Dim fname As String = fnames.Get(i)
        Dim note As String = notesmap.Get(item)
        Dim pn As Pane = set_clv1_item(i,fname,item,note)
        clv1.Add(pn,itemlst.Get(i))
        Hdragger.AddDragButtons
    Next
    Dim sv As ScrollPane = clv1.sv
    sv.SetHScrollVisibility("AS_NEEDED")
End Sub

The CLV uses an internal Scrollpane...

This works but I need to set the correct height so the clv is not vertically scrollable.
Any idea how I can set the height?

 

[PaulMeuris]

Have you tried to set the property FitToHeight (after line 13 in the example)?

sv.FitToHeight = True

 

[aeric]

Have you tried to set the property FitToHeight (after line 13 in the example)?

sv.FitToHeight = True

Doesn't seem has any effect.
I attach here a sample project.

 

[Sagenut]

My 2 cents.
Note that the project inside the zip has the same name as your.
So watch out not to overwrite.

 

[PaulMeuris]

The solution from @Sagenut works fine except when you use the mouse wheel to scroll vertically.

To capture the mouse wheel event you can use the code suggested by @stevel05 in this thread: scroll event for mouse wheel
So use Reflection to disable the mouse wheel scrolling:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private LblCategory As Label
    Private ClvCategories As CustomListView
    Private CLVHeight As Int    'This will store the original CLV Height
    'Dim Size As Int = 4
'    Dim Size As Int = 10
End Sub
Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me, "Main Title")
    CLVHeight = ClvCategories.AsView.Height    'Store the original CLV Height
    Dim R As Reflector
    R.Target = ClvCategories.sv
    R.AddEventFilter("ClvVscroll","javafx.scene.input.ScrollEvent.SCROLL")
End Sub
Private Sub ClvVscroll_Filter (E As Event)
'    Dim MouseEvent As JavaObject = E
'    Dim deltaY As Double = MouseEvent.RunMethod("getDeltaY",Null)
'    Log(deltaY)
    E.Consume
End Sub
Private Sub CreateButtonCategory (ButtonText As String, Height As Double) As B4XView
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 150dip, Height)
    #If B4J
    p.Color = xui.Color_Transparent
    #End If   
    p.LoadLayout("BtnCategory")
    LblCategory.Text = ButtonText
    LblCategory.Alignment = "CENTER" 'no effect
    Return p
End Sub
Private Sub LblCategory_MouseClicked (EventData As MouseEvent)
    Dim lbl As Label = Sender
    xui.MsgboxAsync(lbl.Text & " clicked.","Category click event")
End Sub
Private Sub Button1_Click
    ClvCategories.Add(CreateButtonCategory("Sample " & ClvCategories.Size, CLVHeight), ClvCategories.Size)
    Sleep(10)
    ScrollCheck
End Sub
Private Sub Button2_Click
    ClvCategories.RemoveAt(ClvCategories.Size - 1)
    Sleep(10)
    ScrollCheck
End Sub
Private Sub ScrollCheck
    Dim    CLVWidth As Int
    Dim p As Pane
    For x = 0 To ClvCategories.Size - 1
        p = ClvCategories.GetPanel(x)
        CLVWidth = CLVWidth + (p.Width)
    Next
    Dim sv As ScrollPane = ClvCategories.sv
    If CLVWidth > ClvCategories.AsView.Width Then
        ClvCategories.Base_Resize(ClvCategories.AsView.Width, ClvCategories.AsView.Height + 18dip)
        sv.SetHScrollVisibility("ALWAYS")
    Else
        ClvCategories.Base_Resize(ClvCategories.AsView.Width, CLVHeight)
        sv.SetHScrollVisibility("NEVER")
    End If
End Sub

It's enough to consume the ClvVscroll_Filter event to stop the mouse wheel to work on the ClvCategories.sv

Thank you @stevel05 !

 

[aeric]

The solution from @Sagenut works fine except when you use the mouse wheel to scroll vertically.
View attachment 159552
To capture the mouse wheel event you can use the code suggested by @stevel05 in this thread: scroll event for mouse wheel
So use Reflection to disable the mouse wheel scrolling:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private LblCategory As Label
    Private ClvCategories As CustomListView
    Private CLVHeight As Int    'This will store the original CLV Height
    'Dim Size As Int = 4
'    Dim Size As Int = 10
End Sub
Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    B4XPages.SetTitle(Me, "Main Title")
    CLVHeight = ClvCategories.AsView.Height    'Store the original CLV Height
    Dim R As Reflector
    R.Target = ClvCategories.sv
    R.AddEventFilter("ClvVscroll","javafx.scene.input.ScrollEvent.SCROLL")
End Sub
Private Sub ClvVscroll_Filter (E As Event)
'    Dim MouseEvent As JavaObject = E
'    Dim deltaY As Double = MouseEvent.RunMethod("getDeltaY",Null)
'    Log(deltaY)
    E.Consume
End Sub
Private Sub CreateButtonCategory (ButtonText As String, Height As Double) As B4XView
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, 150dip, Height)
    #If B4J
    p.Color = xui.Color_Transparent
    #End If  
    p.LoadLayout("BtnCategory")
    LblCategory.Text = ButtonText
    LblCategory.Alignment = "CENTER" 'no effect
    Return p
End Sub
Private Sub LblCategory_MouseClicked (EventData As MouseEvent)
    Dim lbl As Label = Sender
    xui.MsgboxAsync(lbl.Text & " clicked.","Category click event")
End Sub
Private Sub Button1_Click
    ClvCategories.Add(CreateButtonCategory("Sample " & ClvCategories.Size, CLVHeight), ClvCategories.Size)
    Sleep(10)
    ScrollCheck
End Sub
Private Sub Button2_Click
    ClvCategories.RemoveAt(ClvCategories.Size - 1)
    Sleep(10)
    ScrollCheck
End Sub
Private Sub ScrollCheck
    Dim    CLVWidth As Int
    Dim p As Pane
    For x = 0 To ClvCategories.Size - 1
        p = ClvCategories.GetPanel(x)
        CLVWidth = CLVWidth + (p.Width)
    Next
    Dim sv As ScrollPane = ClvCategories.sv
    If CLVWidth > ClvCategories.AsView.Width Then
        ClvCategories.Base_Resize(ClvCategories.AsView.Width, ClvCategories.AsView.Height + 18dip)
        sv.SetHScrollVisibility("ALWAYS")
    Else
        ClvCategories.Base_Resize(ClvCategories.AsView.Width, CLVHeight)
        sv.SetHScrollVisibility("NEVER")
    End If
End Sub

It's enough to consume the ClvVscroll_Filter event to stop the mouse wheel to work on the ClvCategories.sv
View attachment 159555
Thank you @stevel05 !

I just tested the code. Very nice. Maybe someone can make this a new custom view.

 

[aeric]

Application