Android Question B4XTable lock the property text autosize

Sub SetSingleLine(xColumn As B4XTableColumn)
    For i = 1 To B4XTable1.VisibleRowIds.Size
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(i)
        Dim lbl As Label = pnl.GetView(0)
        lbl.SingleLine = True
        lbl.Ellipsize = "END"
    Next
End Sub

Sub SetSingleLine(xColumn As B4XTableColumn)
    B4XTable1.RefreshNow
    Sleep(100)
    For i = 1 To B4XTable1.VisibleRowIds.Size - 1
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(i)
        Dim lbl As Label = pnl.GetView(0)
        lbl.SingleLine = True
        lbl.Ellipsize = "END"
    Next
End Sub

Sub SetSingleLine(xRow As Int, xColumn As B4XTableColumn, SingleLine As Boolean, Ellipsize As String)
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(xRow)
        Dim lbl As Label = pnl.GetView(0)
        lbl.SingleLine = SingleLine
        lbl.Ellipsize = Ellipsize
End Sub

Sub B4XTable1_DataUpdated
    For i = 1 To B4XTable1.VisibleRowIds.Size - 1
        For j = 0 To B4XTable1.Columns.size - 1
            Dim column As B4XTableColumn = B4XTable1.Columns.Get(j)
            SetSingleLine(i, column,True,"END")
        Next
    Next  
End Sub

Sub SetSingleLine(xRow As Int, xColumn As B4XTableColumn, SingleLine As Boolean, Ellipsize As String)
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(xRow)
        Dim lbl As Label = pnl.GetView(0)
        lbl.SingleLine = SingleLine
        lbl.Ellipsize = Ellipsize
End Sub

Sub B4XTable1_DataUpdated
    For i = 1 To B4XTable1.VisibleRowIds.Size  '  I replaced -1 otherwise skipped last line 
        For j = 0 To B4XTable1.Columns.size - 1
            Dim column As B4XTableColumn = B4XTable1.Columns.Get(j)
            SetSingleLine(i, column,True,"END")      ' Ellipsize  -> START, END, MIDDLE, NONE
        Next
    Next
End Sub