Android Question B4XTable not everything is clear for me.. (change font and size)

[SimonAndroid]

Hi, I've been using B4A for a short time, so I don't have any things that are fundamental for me.
1. How can I change the size and font type of a single column of a B4XTable, I could not find an example.
2. How can I padding the column of a B4XTable it's possible?
3. In addition to the B4XTable there is another more powerful object as an alternative.
Thank you

 

[Erel]

In addition to the B4XTable there is another more powerful object as an alternative.

If there was a more powerful alternative with the same features then B4XTable would have been deprecated.
What are you missing?

 

[SimonAndroid]

1. How can I change the size and font type of a single column of a B4XTable, I could not find an example.
2. How can I padding the column of a B4XTable it's possible?

I didn't understand if steps 1 and 2 are achievable, is there the possibility of intervening on the functionality of the individual columns of a B4XTable?

 

[Erel]

Better to start with the actual questions and only then assume that you need a more powerful solution.

B4XTable1.MaximumRowsPerPage = 20
B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
For i = 1 To StateColumn.CellsLayouts.Size - 1
    Dim pnl As B4XView = StateColumn.CellsLayouts.Get(i)
    Dim lbl As Label = pnl.GetView(0)
    lbl.Typeface = Typeface.DEFAULT_BOLD
    lbl.TextSize = 20
    lbl.Padding = Array As Int (10dip, 10dip, 10dip, 10dip)
Next

 

[LucaMs]

I read first the questions in the Italian forum (there is the same question):

 

[Erel]

Two points:
1. The MaximumRowsPerPage value isn't too important. It should just be larger than the maximum possible visible rows.
2. I usually prefer to work with B4XViews. The reason that I used a Label here is that Padding is a B4A only property so we need to cast to Label.

 

[LucaMs]

Just a starting idea (who will help me? )

' Note - you should first set BuildLayoutsCache:
'    Example:
'    B4XTable1.MaximumRowsPerPage = 20
'    B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
Sub SetColumnCellProps(xTable As B4XTable, ColumnIndex As Int, Properties As Map)
    Dim xColumn As B4XTableColumn = xTable.Columns.Get(ColumnIndex)
    For i = 1 To xColumn.CellsLayouts.Size - 1
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(i)
        Dim lbl As Label = pnl.GetView(0)
        ' Here set the lbl properties.
        Dim PropName As String
        Dim PropValue As Object
        For p = 0 To Properties.Size - 1
            PropName = Properties.GetKeyAt(p)
            PropValue = Properties.GetValueAt(p)
'            lbl.Typeface = Typeface.DEFAULT_BOLD
'            lbl.TextSize = 20
'            lbl.Padding = Array As Int (10dip, 10dip, 10dip, 10dip)
        Next
    Next
End Sub

[Constants for the name of the properties will be "necessary"]


P.S.

Public Const XCLMN_PROP_TEXTSIZE As String = "TextSize"


' Note - you should first set BuildLayoutsCache:
'    Example:
'    B4XTable1.MaximumRowsPerPage = 20
'    B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
Sub SetColumnCellProps(xTable As B4XTable, ColumnIndex As Int, Properties As Map)
    Dim xColumn As B4XTableColumn = xTable.Columns.Get(ColumnIndex)
    For i = 1 To xColumn.CellsLayouts.Size - 1
        Dim pnl As B4XView = xColumn.CellsLayouts.Get(i)
        Dim lbl As Label = pnl.GetView(0)
        ' Here set the lbl properties.
        Dim PropName As String
        Dim PropValue As Object
        For p = 0 To Properties.Size - 1
            PropName = Properties.GetKeyAt(p)
            PropValue = Properties.GetValueAt(p)
            Select PropName
                Case XCLMN_PROP_TEXTSIZE
                    lbl.TextSize = PropValue
            End Select
        Next
    Next
End Sub

SetColumnCellProps(B4XTable1, 0, CreateMap(XCLMN_PROP_TEXTSIZE:10))

 

[SimonAndroid]

Thanks everyone (@Erel @LucaMs) for the answers I have tried and it works very well!