CustomListView - A flexible list based on ScrollView

   Dim pnl As Panel = clv3.GetPanel(9)
   Dim lbl As Label = pnl.GetView(0)
   Log(lbl.Text)

Dim retmap As Map
retmap.Initialize
retmap.Put("tag","TagValue"&i)
retmap.Put("itemID","ItemID"&i)
retmap.Put("name","ItemName"&i)
retmap.Put("line1","This is line 1")
retmap.Put("line2","This is line 2")
lv.AddTwoLines2(retmap.Get("line1"), retmap.Get("line2"), retmap)

Sub lv_ItemClick (Position As Int, Value As Object)
    Dim retmap As Map
    retmap = Value
    Log("Item at Pos "&Position&" Clicked...")
    Log("ItemInfos:")
    Log("tag = "&retmap.Get("tag"))
    Log("itemID = "&retmap.Get("itemID"))
    Log("name = "&retmap.Get("name"))
    Log("line 1 = "&retmap.Get("line1"))
    Log("line 2 = "&retmap.Get("line2"))
End Sub

scrollCimentacion.Initialize(200dip)
scrollCimentacion.Color=Colors.white
pan.AddView(scrollCimentacion,0%x, 8%y, 100%x, 100%y)    scrollCimentacion.Panel.LoadLayout("cimentacion")
If File.ExternalWritable = False Then
    sql1.Initialize(File.DirInternal, "ite.s3db", False)
Else
    sql1.Initialize(File.DirRootExternal, "ite.s3db", False)
End If
cursor1=sql1.ExecQuery("select nombre from elemento where id_padre=95")
clvcontencion.Initialize(Me, "clv2")
            pnlContencion.AddView(clvcontencion.AsView, 0, 0, pnlContencion.Width, pnlContencion.Height)
For i = 0 To cursor1.RowCount -1
    cursor1.Position=i         
clvcontencion.Add(CreateListItem(cursor1.GetString("nombre"), clvcontencion.AsView.Width, 50dip), 50dip, cursor1.GetString("nombre"))
Next       
scrollCimentacion.Panel.Height= 150%y

Dim pan As Panel
        Select i
            Case 0
                pan= CreatePanel(CIMENTACION, "Cimentación")
                container.AddPage(pan,"Cimentación")

Sub CreatePanel(PanelType As Int, Title As String) As Panel
    Dim pan As Panel
    Dim pi As PanelInfo
  
    pi.Initialize
    pi.LayoutLoaded = False
    pi.PanelType = PanelType

    pan.Initialize("")
    Select PanelType
        Case CIMENTACION
            scrollCimentacion.Initialize(400dip)
            scrollCimentacion.Color=Colors.white
            pan.AddView(scrollCimentacion,0%x, 8%y, 100%x, 100%y)
       scrollCimentacion.Panel.LoadLayout("cimentacion")