Sub Globals
Private CustomListView1 As CustomListView
Private xui As XUI
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
For i = 1 To 100
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 50dip)
p.Color = Rnd(0xff000000, -1)
CustomListView1.Add(p, "")
Next
End Sub
Sub Globals
Private CustomListView1 As CustomListView
Private xui As XUI
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
For i = 1 To 100
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 50dip)
p.Color = Rnd(0xff000000, -1)
CustomListView1.Add(p, "")
Next
End Sub