Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
clv1.AddTextItem("1Aaaa" & CRLF & "Bbbb", "b")
clv1.AddTextItem("2Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc", "c")
clv1.AddTextItem("3Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc" & CRLF & "Dddd" , "d")
clv1.AddTextItem("4Aaaa" & CRLF & "Bbbb" & CRLF & "Cccc" & CRLF & "Dddd" & CRLF & "Eeee", "e")
For i = 1 To 20
clv2.Add(CreateListItem($"Item #${i}"$, clv2.AsView.Width, 60dip), $"Item #${i}"$)
Next
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("CellItem")
Label1.Text = Text
Return p
End Sub