B4J Question Drag CustomListView up and down using mouse click

[aeric]

I think I need to modify CustomListView to support this feature.
I want to drag the panel like a ScrollPane.
Maybe someone already have a solution?

 

[stevel05]

If you click on the first item in the CustomListView the following error occurs

Fixed

 

[aeric]

Thanks Paul for the example code for using ScrollPane. It will be very useful.

However, I choose Steve's answer for my question.
Even though I need to add some code for CustomListview, I prefer to use it instead because of some advantages.

 

[aeric]

Here is an update.

I get an error when running the code on Linux.
SBV is null.

Dim visibleHeight As Double = SBV.RunMethod("getVisibleAmount", Null) * contentHeight

I changed it to:

Dim visibleHeight As Double = GetScrollBar(SP, "VERTICAL").RunMethod("getVisibleAmount", Null) * contentHeight

And it is now working on Linux too.
SBV can be removed.

My code is updated on GitHub https://github.com/pyhoon/CLVMouseScroll-B4J