Dim j As Int =mTable.VisibleColumns.IndexOf(col)
If j>=0 Then
Dim p As B4XView = col.CellsLayouts.Get(i + 1)
Dim lbl As B4XView = p.GetView(col.LabelIndex)
If RowSelected And (LineMode Or SelectedCells.IndexOf(col.Id) > -1) Then
p.Color = SelectionColor
lbl.TextColor = SelectedTextColor
Else
p.Color = clr
lbl.TextColor = mTable.TextColor
End If
End If