Sub Globals
Private xui As XUI
Private CustomListView1 As CustomListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
For i = 1 To 100
Dim lbl As Label
lbl.Initialize("lbl")
lbl.Text = "AAAA"
Dim x As B4XView = lbl
x.SetTextAlignment("CENTER", "CENTER")
x.TextColor = xui.Color_Black
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 100%x, 100dip)
p.AddView(lbl, 0, 0, 100dip, 100dip)
CustomListView1.Add(p, "")
Next
End Sub
Sub lbl_Click
Log("click")
End Sub
Sub lbl_LongClick
Log("long")
End Sub
Sub CustomListView1_ItemLongClick (Index As Int, Value As Object)
Log("CLV Long")
End Sub