Android Question CLVExpandable - collapse existing and open selected

[mfstuart]

Hi all,
Based on Erel's library: https://www.b4x.com/android/forum/t...g-or-collapsing-xcustomlistview-items.106148/
How would the code be changed to: when selecting another item, the currently expanded item would close?
Take a look at Androids Contacts app to see what I mean.

I have tried this in the Main activity:

Sub Globals
    Private clv1 As CustomListView
    Private lblTitle As B4XView
    Private pnlTitle As B4XView
    Private pnlExpanded As B4XView
    Private xui As XUI
    Private expandable As CLVExpandable
    Private prevIndex As Int        '<== added this
End Sub

Now in the clv1_ItemClick event handler:

Sub clv1_ItemClick(Index As Int, Value As Object)
    If prevIndex >= 0 Then
        expandable.CollapseItem(prevIndex)
    End If
    expandable.ExpandItem(Index)
    prevIndex = Index
End Sub

Problem: touching an item for the first time, expands it. Touching the same item again, collapses it, but touching the same item again, does not expand it.
I've searched the forum for a solution, but nothing.

Anyone know how this should work?

Thanx,
Mark Stuart

 

[Erel]

Tracking state is difficult. Go with the simpler option:

Sub clv1_ItemClick (Index As Int, Value As Object)
    For i = 0 To clv1.Size - 1
        If i = Index Then Continue
        Dim e As ExpandableItemData = clv1.GetValue(i)
        If e.Expanded Then 
            expandable.CollapseItem(i)
            Sleep(clv1.AnimationDuration)
        End If
    Next
    expandable.ToggleItem(Index)
End Sub

 

[mfstuart]

Erel, thank you.

The expand and collapse are so smooth with this new code.
I get excited to see this work so well.

I continue to confirm myself and my colleagues that, THIS IS THE TOOL FOR MOBILE DEVELOPMENT, WITHOUT A DOUBT!!

Thanx again,
Mark Stuart

 

[Erel]

Tip: you can make the animation duration a bit faster than the default value. It is set in the designer.

 

[mfstuart]

Thanx for the tip. In the CLVExpandable class, I set the AnimationDuration to this:

Public Sub Initialize (CLV As CustomListView)
    mCLV = CLV
    mCLV.AnimationDuration = 140       '<== changed it to this, seems to be an OK speed.
End Sub