Sub clvWorkouts_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For Each i As Int In PCLVworkout.VisibleRangeChanged(FirstIndex, LastIndex)
If i<totalRowsWorkouts Then
Private si As SwipeItem = clvWorkouts.GetValue(i)
Dim item As CLVItem = clvWorkouts.GetRawListItem(i)
Dim pnl As B4XView = xui.CreatePanel("")
item.Panel.AddView(pnl, 0, 0, item.Panel.Width, item.Panel.Height)
Dim w As workout = si.Value
'Create the item layout
pnl.LoadLayout("clvWorkout")
pnl.GetView(0).GetView(0).Text=w.title
cs.Initialize.Font(Font.DEFAULT_BOLD).Append($"${w.duration}' ${typetxt}${CRLF}${CRLF}"$).Pop.Append(w.workout).PopAll
pnl.GetView(0).GetView(1).As(Label).AttributedText=cs
' misc.setLblWrapContent(pnl.GetView(0).GetView(1).As(Label),2)
pnl.GetView(0).GetView(1).As(Label).SizeToFit
pnl.GetView(0).Height=pnl.GetView(0).GetView(1).Top + pnl.GetView(0).GetView(1).Height+pnl.GetView(0).GetView(3).Height + 40
pnl.GetView(0).GetView(2).Top = pnl.GetView(0).GetView(1).top + pnl.GetView(0).GetView(1).Height
MediaManager.TrimMediaCache
End If
If LastIndex=clvWorkouts.Size-10 Then
Log(clvWorkouts.Size)
If (DateTime.Now > lastAddItemsTime + DateTime.TicksPerSecond) And (totalRowsWorkouts+totalRowsComments>clvWorkouts.Size) Then
lastAddItemsTime = DateTime.Now
getComments(clvWorkouts.Size-1,DateTime.Date(datePickerWorkouts.SelectedDate))
End If
End If
End Sub