Sub Process_Globals

End Sub

Sub Globals
    Dim clv1 As CustomListView
    Dim Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)

      ' Crea Panel1
    Panel1.Initialize("Panel1")
    Panel1.Color=Colors.Magenta
    Activity.AddView(Panel1, 5dip, 60dip, 100%x, 80%y)
    
    ' CLV
    clv1.Initialize(Me, "clv1")
    Panel1.AddView(clv1.AsView, 0, 0, Panel1.Width, Panel1.Height)
    
    For i = 1 To 20
        clv1.Add(CreateListItem("id " & i, "nombre", "apellido", "edad", clv1.AsView.Width, 50dip), 50dip, "Registro #" & i)
    Next
    
End Sub

Sub clv1_ItemClick (Index As Int, Value As Object)
    Activity.Title = Value
End Sub

Sub CreateListItem(Text1 As String, Text2 As String, Text3 As String, Text4 As String, Width As Int, Height As Int) As Panel
    Dim p As Panel
    p.Initialize("")
    p.Color = Colors.Black
        Dim lbl As Label
    lbl.Initialize("")
    lbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl.Text = Text1
    lbl.TextSize = 16
    lbl.TextColor = Colors.White
        Dim lbl2 As Label
    lbl2.Initialize("")
    lbl2.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl2.Text = Text2
    lbl2.TextSize = 16
    lbl2.TextColor = Colors.blue
        Dim lbl3 As Label
    lbl3.Initialize("")
    lbl3.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl3.Text = Text3
    lbl3.TextSize = 16
    lbl3.TextColor = Colors.red
            Dim lbl4 As Label
    lbl4.Initialize("")
    lbl4.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl4.Text = Text4
    lbl4.TextSize = 16
    lbl4.TextColor = Colors.green

    p.AddView(lbl, 5dip, 2dip, 50dip, Height - 4dip) 
    p.AddView(lbl2, 60dip, 2dip, 150dip, Height - 4dip)
    p.AddView(lbl3, 150dip, 2dip, 150dip, Height - 4dip)
    p.AddView(lbl4, 260dip, 2dip, 50dip, Height - 4dip)
    Return p
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub