Sub ExpandItem (index As Int)
pnlItemExpanded = clvFAQ.GetPanel(index).GetView(1)
Dim lbl As B4XView = pnlItemExpanded.GetView(0)
Dim str As StringUtils
Dim h As Float
h = clvFAQ.GetPanel(index).GetView(0).Height
h = h + str.MeasureMultilineTextHeight(lbl,lbl.Text) + 20
clvFAQ.ResizeItem(index, h)
clvFAQ.GetPanel(index).Tag = True
AnimatedArrow(index, 0, 180)
End Sub
Sub CollapseItem(index As Int)
pnlItemExpanded = clvFAQ.GetPanel(index).GetView(1)
clvFAQ.ResizeItem(index, clvFAQ.GetPanel(0).GetView(0).Height)
pnlItemExpanded.SetLayoutAnimated(300,pnlItemExpanded.Left,pnlItemExpanded.Top,pnlItemExpanded.Width,0)
clvFAQ.GetPanel(index).Tag = False
AnimatedArrow(index, 180, 0)
End Sub