Sub clv_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
Dim item As CLVItem = clv.GetRawListItem(i)
Dim pnl As B4XView = xui.CreatePanel("")
item.Panel.AddView(pnl,0,0, item.Panel.Width, item.Panel.Height)
Dim mappa As Map = item.Value
pnl.LoadLayout("lay_clv_dentro")
Log($"${mappa.Get($"caricoitem${i}"$)}"$)
lbl_item.Text = $"${mappa.Get($"caricoitem${i}"$)}"$
'or
'pnl.GetView(3).Text = $"${mappa.Get($"caricoitem${i}"$)}"$
' 'Foto Normal
MediaManager.SetMedia(Panel1, $"${mappa.Get("foto")}"$)
' 'Foto Round
Dim extra As Map = CreateMap(MediaManager.REQUEST_ROUNDIMAGE: True, MediaManager.REQUEST_BACKGROUND: xui.Color_Transparent, MediaManager.REQUEST_RESIZE_MODE: "FILL_WIDTH")
MediaManager.SetMediaWithExtra(Panel2, $"${mappa.Get("foto")}"$, "", extra)
' 'Movie
MediaManager.SetMedia(Panel3, $"${mappa.Get("filmato")}"$)
Next
End Sub