-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
B4J Question [Solved] AutoShowScrollbar in CustomListView
- Thread starter aeric
- Start date
- Similar Threads Similar Threads
Solution
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:
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:
B4X:
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...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).
B4X:
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
Upvote
0
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?
Upvote
0
Have you tried to set the property FitToHeight (after line 13 in the example)?
B4X:
sv.FitToHeight = True
Upvote
0
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:
It's enough to consume the ClvVscroll_Filter event to stop the mouse wheel to work on the ClvCategories.sv
Thank you @stevel05 !
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:
B4X:
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 SubThank you @stevel05 !
Upvote
0
Solution
Similar Threads
- Question
