Android Question Expandable list based on xCustomListView

Sergey_New · Jan 11, 2022

Is there an easy way to allow only one row to open and automatically close all other open rows?

TILogistic · Jan 12, 2022

solution finish:

B4X:

Sub clv1_ItemClick (index As Int, Value As Object)
    If Not(Currindex = index) Then
        Dim i As ExpandableItemData = clv1.GetValue(Currindex)
        If i.Expanded = True Then
            expandable.ToggleItem(Currindex)
        End If
    End If
    Sleep(300)
    expandable.ToggleItem(index)
    Currindex = index
End Sub

Mahares · Jan 11, 2022

Sergey_New said:
Is there an easy way to allow only one row to open and automatically close all other open rows?

Do you mean for instance if the list has 5 items for a given panel, you want to show only the first one in the list and not show the other 4 when you expand the panel. . Can you explain better what you want.

TILogistic · Jan 11, 2022

you can improve it
demo:

Sergey_New · Jan 11, 2022

oparra said:
you can improve it
demo:

Thank you very much, this is what need!

TILogistic · Jan 11, 2022

edit:
looks a little better

B4X:

Sub clv1_ItemClick (index As Int, Value As Object)
    If Not(Currindex = index) Then
        expandable.CollapseItem(Currindex)
        Currindex = index
    End If
    Sleep(300)
    expandable.ToggleItem(index)
End Sub

Sergey_New · Jan 12, 2022

oparra said:
looks a little better

You're right

TILogistic · Jan 12, 2022

solution finish:

B4X:

Sub clv1_ItemClick (index As Int, Value As Object)
    If Not(Currindex = index) Then
        Dim i As ExpandableItemData = clv1.GetValue(Currindex)
        If i.Expanded = True Then
            expandable.ToggleItem(Currindex)
        End If
    End If
    Sleep(300)
    expandable.ToggleItem(index)
    Currindex = index
End Sub

Sergey_New · Jan 12, 2022

oparra said:
solution finish:

Thank you!

TILogistic · Jan 12, 2022

Note:
You can set customlistview animation to match expandable effects.

Change:

B4X:

clv1.AnimationDuration = 200
CLVExpandable1.Initialize(clv1)

B4X:

Sub clv1_ItemClick (index As Int, Value As Object)
    If Not(Currindex = index) Then
        Dim i As ExpandableItemData = clv1.GetValue(Currindex)
        If i.Expanded = True Then
            CLVExpandable1.ToggleItem(Currindex)
        End If
    End If
    Sleep(clv1.AnimationDuration) 'Animation to match expandable effects
    CLVExpandable1.ToggleItem(index)
    Currindex = index
End Sub

Sergey_New · Jan 12, 2022

It's clear.
I'll ask one more question on the expandable list:
Is it possible to search through the headings of a long (about 10,000 rows) list and move to the found row when the data is not loaded all at once?

TILogistic · Jan 12, 2022

It's clear.

I am making some adjustments to the class.
Animations, icon fonts, expandable options (only one element, all elements) and other functionalities.

TILogistic · Jan 12, 2022

Is it possible to search through the headings of a long (about 10,000 rows) list and move to the found row when the data is not loaded all at once?

yes

But it is another matter, I suggest you open a new post.

Sergey_New · Jan 12, 2022

oparra said:
yes

Agree, I will create a new post.

Sergey_New · Jan 12, 2022

oparra said:
I am making some adjustments to the class.

The last lines in the list are not fully visible when expanded. I would like to have automatic scrolling if substrings are not visible.

TILogistic · Jan 13, 2022

Sergey_New said:
The last lines in the list are not fully visible when expanded. I would like to have automatic scrolling if substrings are not visible.

see:

[B4X] CLVExpandable - Push the list up if expanded part is hidden.

I love CLV with CLVExpandable, it is just so darn clean and professional but I have one minor nit to pick. If the item you are expanding is toward the bottom of the display, or it is the last item, the expanded portion is hidden. If it is the last item you can't even tell it has been expanded...

www.b4x.com

TILogistic · Jan 13, 2022

change:

B4X:

Public Sub ExpandItem (index As Int)
    Dim item As CLVItem = mCLV.GetRawListItem(index)
    Dim currentOffset As Int = mCLV.sv.ScrollViewOffsetY
    Dim id As ExpandableItemData = item.Value
    Dim itemBottom As Int = item.Offset + id.ExpandedHeight
    ResizeItem(index, False)
    Dim delta As Int = itemBottom - currentOffset - mCLV.AsView.Height
    If delta > 0 Then
        Sleep(5)
        Dim offset As Int = itemBottom - mCLV.AsView.Height
        #if B4i
        Dim nsv As ScrollView = mCLV.sv
        nsv.ScrollTo(0, offset, True)
        #else if B4J
        Sleep(50)
        mCLV.sv.ScrollViewOffsetY = offset
        #Else If B4A
            Dim nsv As ScrollView = mCLV.sv
            nsv.ScrollPosition = offset
        #End If
    End If
End Sub

Sergey_New · Jan 13, 2022

oparra said:
change:

Thanks, it works great!

LucaMs · Jan 13, 2022

I've only read the title (bad thing, I shouldn't have done it) and I know that what I'm about to write will be criticized by many, also for this reason.

Reading it I immediately thought:
it is wrong to perform a search in a View, of whatever type it is.

I think it is more correct that a processing, such as a search, should be carried out on a data structure associated with a View.
This is because keeping data and UI separate is a good general rule, for various reasons.

I am not writing more, so as not to receive too many insults ?

Sergey_New · Jan 14, 2022

oparra said:
изменять:

oparra said:

change:

Click to expand...

Made a project with lazy loading 10000 records based on your solution. The search will be carried out by the index of the line. There are a couple of questions left that, in my opinion, should not be posted in a new thread, since the CLVExpandable class has been changed.
Questions:
1. How to open an expanding list at the desired index?
2. Is it possible to apply a ListView with any number of rows so that all of them are visible in the drop-down list?

TILogistic · Jan 14, 2022

I have seen your code and I recommend you to see @Peter Simpson customlistview tutorials, he has several very good examples that will help you to know and understand better.
@Peter Simpson

? Part 1 Basics - Creating long lists using xCustomListView with Lazy Loading - Newer developers

Hello All After thinking about it yesterday and having a quick chat with Erel, I decided that my previous long list examples were not basic enough for newer B4X developers, so I put together a minimal xCLV with LL code example together with comments in the code module. There are no themes...

www.b4x.com

see examples of search in clv

? Part 2 Examples - Creating long lists using xCustomListView with Lazy Loading - Newer developers

Hello All, If you're not experienced with using xCustomListView (xCLV) with Lazy Loading (LL) when it comes to loading long lists of data, then I strongly suggest that you read the following post first >>>? Part 1 Basics > XcustomListView

www.b4x.com

? [B4X] [XUI] [B4XPages] B4J PreoptimizedCLV lazy loading from SQLite and CSV - Newer developers

Hello to you all, Welcome to Sheldon Coopers and Amy Farrah Fowlers fun with flags ;) Here is a simple example on using B4XPages with both an SQLite database and also a CSV file with multiple PreoptimizedCLV to retrieve country population data and flag images. Using a PreoptimizedCLV to display...

www.b4x.com

etc. etc.

and @Erel

[B4X] PreoptimizedCLV - Lazy loading extension for xCustomListView

This is a cross platform class that extends xCustomListView and makes it "lazier". Lazy loading is explained here: https://www.b4x.com/android/forum/threads/b4x-xui-customlistview-lazy-loading-virtualization.87930/#content and here...

www.b4x.com

Android Question Expandable list based on xCustomListView

Well-Known Member

Expert

Expert

Attachments

Well-Known Member

Expert

Well-Known Member

Expert

Attachments

Well-Known Member

Expert

Attachments

Well-Known Member

Expert

Attachments

Expert

Well-Known Member

Well-Known Member

Expert

Expert

Well-Known Member

Expert

Well-Known Member

Attachments

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency