Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private CustomListView1 As CustomListView
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim Top As Int = 60dip
Dim Left As Int = 0
Dim Width As Int = Root.Width
Dim Height As Int = (Root.Height - Top)
Private mBaseCustomListView As B4XView
Private mLabelCustomListView As B4XView
mBaseCustomListView = xui.CreatePanel("")
mBaseCustomListView.SetLayoutAnimated(0, 0, 0, Width, Height)
mBaseCustomListView.Tag = ""
mLabelCustomListView = XUIViewsUtils.CreateLabel
mLabelCustomListView.SetLayoutAnimated(0, 0, 0, Width, Height)
Dim props As Map
props.Initialize
props.Put("DividerColor", 0xFFD9D7DE)
props.Put("DividerHeight", 2)
props.Put("PressedColor", 0xFF7EB4FA)
props.Put("InsertAnimationDuration", 300)
props.Put("ListOrientation", "Vertical")
props.Put("ShowScrollBar", True)
CustomListView1.Initialize(Me, "CustomListView1")
CustomListView1.DesignerCreateView(mBaseCustomListView, mLabelCustomListView, props)
Root.AddView(mBaseCustomListView, Left, Top, Width, Height)
Dim Names() As String = Array As String("John", "Joseph", "Daniel", "David")
For i = 1 To 100
Dim name As String = Names(Rnd(0, Names.Length)) & " " & i
CustomListView1.AddTextItem(name, name)
Next
End Sub
Private Sub CustomListView1_ItemClick (Index As Int, Value As Object)
Log($"CustomListView1_ItemClick(${Index}, ${Value})"$)
End Sub