B4XTable1.AddColumn("State", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("Interesting Number", B4XTable1.COLUMN_TYPE_NUMBERS)
B4XTable1.MaximumRowsPerPage = 10
B4XTable1.BuildLayoutsCache(10)
SetColumnAlignment("State", Gravity.Left) 'columnID, Alignment
SetColumnAlignment("Interesting Number", Gravity.RIGHT) 'columnID, Alignment
'more code ...........
End Sub
Sub SetColumnAlignment(columnID As String, alignmentX As Int)
Dim column As B4XTableColumn = B4XTable1.GetColumn(columnID)
For i = 1 To column.CellsLayouts.Size - 1 'starts at 1 due to header
Dim pnl As B4XView = column.CellsLayouts.Get(i)
Dim lbl As Label = pnl.GetView(0)
lbl.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, alignmentX)
Next
End Sub