Private Sub ShowRow(row As Int)
If visibleRows.ContainsKey(row) Then Return
'Log("ShowRow: " & row)
Dim lbls() As Label
Dim values() As String
lbls = GetLabels(row)
values = Data.Get(row)
visibleRows.Put(row, lbls)
Dim rowColor() As Object
'Make changes here .....
' If row = SelectedRow Then
' rowColor = SelectedDrawable
If row Mod 2 = 0 Then
rowColor = Drawable1
Else
rowColor = Drawable2
End If
For I = 0 To lbls.Length - 1
SV.Panel.AddView(lbls(I), Header.GetView(I).Left, row * RowHeight, Header.GetView(I).Width, _
RowHeight - 1dip)
lbls(I).Text = values(I)
lbls(I).Background = rowColor(I)
Next
End Sub