Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
For i = 0 To 10
clv2.Add(CreateListItem( i, clv2.AsView.Width, 70dip, True), 70dip, $"Item #${i}"$)
Next
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int, isBold As Boolean) As Panel
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 0, 0, Width, Height)
p.LoadLayout("CellItem")
p.RemoveView
Button1.Text = "Button1 Row" & Text
Button2.Text = "Button2 Row" & Text
Return p
End Sub