Sub setup
pCLV.Initialize(Me, "pclv", clvDemo)
For i = 0 To 99
pCLV.AddItem(Rnd(200, 480), tints(i Mod 4), i)
Next
pCLV.Commit
End Sub
Sub clvDemo_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For Each i As Int In pCLV.VisibleRangeChanged(FirstIndex, LastIndex)
Dim item As CLVItem = clvDemo.GetRawListItem(i)
Dim pnl As B4XView = xui.CreatePanel("")
item.Panel.AddView(pnl, 0, 0, item.Panel.Width, item.Panel.Height)
pnl.LoadLayout("item")
Next
End Sub