Sub B4XRegister_CellClicked(ColumnId As String, RowId As Long)
If pRow = RowId Then
sRow = -1
pRow = -1
Dim Index As Int = B4XRegister.VisibleRowIds.IndexOf(RowId)
SetRowColor(Index, False)
Else
sRow = RowId
pRow = RowId
Dim Index As Int = B4XRegister.VisibleRowIds.IndexOf(RowId)
SetRowColor(Index, True)
End If
End Sub