Italian B4J :diversificare proprietà durante items.add

Sub InitView
    For n = 0 To 100
        Dim p As B4XView = xui.CreatePanel("")
        p.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 250dip)
        p.LoadLayout("2")
        p.SetLayoutAnimated(0, 0, 0, p.Width, 50dip)
        CustomListView1.Add(p,"")
    Next
End Sub

Sub Process_Globals
   Private MainForm As Form
   Private xui As XUI
   Private CustomListView1 As CustomListView
   Private ClickIndex As Int
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("1") 'Load the layout file.
   MainForm.Show
   For i = 1 To 100
       Dim p As B4XView = xui.CreatePanel("p")
       p.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 50dip)
       p.Color = Rnd(0xff000000, -1)
       CustomListView1.Add(p, "")       
   Next
End Sub

Sub Process_Globals
   Private MainForm As Form
    Private fx As JFX

   Private CustomListView1 As CustomListView
 
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("1") 'Load the layout file.
   MainForm.Show
  
  
   For i = 1 To 30
  
       Dim lbl As Label
        lbl.Initialize("")
        
       lbl.SetLayoutAnimated(0, 0, 0, CustomListView1.AsView.Width, 30dip)
    
        lbl.Text =" #" & i
        lbl.Alpha=1
        
        If i Mod 2 =0 Then
            lbl.Font = fx.DefaultFont(14)
            CSSUtils.SetBackgroundColor(lbl, fx.Colors.White)
        Else
            lbl.Font = fx.DefaultFont(12)
            CSSUtils.SetBackgroundColor(lbl, fx.Colors.Cyan)
        End If
        
       CustomListView1.Add(lbl ,"" )
   Next
End Sub


'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub CustomListView1_ItemClick (Index As Int, Value As Object)
    Log ("1" & Index & " -" & Value)
    Log ("2" & CustomListView1.GetValue(Index))
    
    
End Sub