Sub B4XTable1_DataUpdated
For i = 0 To B4XTable1.VisibleRowIds.Size - 1
Dim pnl As B4XView = NameColumn.CellsLayouts.Get(i + 1) '0 = header
Dim lbl As Label = pnl.GetView(NameColumn.LabelIndex)
SetMouseNotTransparent(lbl)
Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
If RowId = 0 Then
lbl.TooltipText = ""
Else
Dim row As Map = B4XTable1.GetRow(RowId)
Dim value As String = row.Get(NameColumn.Id)
lbl.TooltipText = value
End If
Next
End Sub
Private Sub SetMouseNotTransparent (lbl As B4XView)
#if B4J
Dim jo = lbl As JavaObject
jo.RunMethod("setMouseTransparent", Array(False))
#End If
End Sub