Sub B4XTable1_DataUpdated
SetAlignment
End Sub
Private Sub SetAlignment
Dim col1 As B4XTableColumn = B4XTable1.GetColumn("Name")
For i = 1 To col1.CellsLayouts.Size - 1
Dim p As B4XView = col1.CellsLayouts.Get(i)
p.GetView(0).SetTextAlignment("CENTER", "LEFT")
p.GetView(0).SetLayoutAnimated(0, 5dip, 0, p.Width - 10dip, p.Height)
Next
End Sub