Sub ExpandItem(index As Int)
Dim InnerReference As ExpandedListView = Me
Dim id As ItemData = InnerReference.GetValue(index)
If isAutoExpanded Then
Try
Dim cPanel As B4XView = InnerReference.GetPanel(index)
Dim TitlePanel As Panel = cPanel.GetView(0)
Dim ExpandablePanel As Panel = cPanel.GetView(1)
Dim AutoExpandableHeight As Int = 0
For x=0 To ExpandablePanel.NumberOfViews -1
AutoExpandableHeight = AutoExpandableHeight + ExpandablePanel.GetView(x).Height
Next
AutoExpandableHeight = AutoExpandableHeight + TitlePanel.Height
InnerReference.ResizeItem(index, AutoExpandableHeight)
Catch
InnerReference.ResizeItem(index, id.ExpandedHeight)
End Try
Else
InnerReference.ResizeItem(index, id.ExpandedHeight)
End If
InnerReference.GetPanel(index).Tag = True
If (mUpDownIconExists) Then
AnimatedArrow(index, 0, 180)
End If
End Sub