Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim s As Long = DateTime.Now
clv2.Initialize(Me, "clv2")
Panel2.AddView(clv2.AsView, 0, 0, Panel2.Width, Panel2.Height)
For i = 1 To 1000
clv2.Add(CreateListItem("Item #" & i, clv2.AsView.Width, 50dip), 50dip, "Item #" & i)
Next
Log(DateTime.Now - s)
End Sub
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.Black
Dim lbl2 As Label
lbl2.Initialize("")
lbl2.Text = "Test"
Dim lbl As Label
lbl.Initialize("")
lbl.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.Text = Text
lbl.TextSize = 16
lbl.TextColor = Colors.White
p.AddView(lbl, 5dip, 2dip, 150dip, Height - 4dip) 'view #0
p.AddView(lbl2, 155dip, 2dip, 110dip, Height - 4dip) 'view #1
Return p
End Sub