Private Sub ShowRow(row As Int)
If visibleRows.ContainsKey(row) Then Return
Dim lbls() As Label
Dim values() As String
lbls = GetLabels(row)
values = Data.Get(row)
visibleRows.Put(row, lbls)
Dim rowColor As Int
If row = SelectedRow Then
rowColor = SelectedRowColor
Else If row Mod 2 = 0 Then
rowColor = EvenRowColor
Else
rowColor = OddRowColor
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).Color = rowColor
lbls(I).Font = Font.DEFAULT_BOLD
If lbls(0).Text.Contains("Sun") Then ' change color of text if sunday
lbls(0).TextColor = Colors.Red
End If
Next
End Sub