Sub Globals
Private B4XTable1 As B4XTable
Private CheckedColumn As B4XTableColumn
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
CheckedColumn = B4XTable1.AddColumn("Checked", B4XTable1.COLUMN_TYPE_VOID)
CheckedColumn.Width = 80dip
B4XTable1.AddColumn("Entry", B4XTable1.COLUMN_TYPE_NUMBERS)
B4XTable1.MaximumRowsPerPage = 50
B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
B4XTable1.RowHeight = 50dip
Dim data As List
data.Initialize
For i = 1 To 100
data.Add(Array(i))
Next
Wait For (B4XTable1.SetData(data)) Complete (Unused As Boolean)
For i = 1 To CheckedColumn.CellsLayouts.Size - 1
Dim p As B4XView = CheckedColumn.CellsLayouts.Get(i)
Dim chk As CheckBox
chk.Initialize("chk")
p.AddView(chk, p.Width / 2 - 20dip, B4XTable1.RowHeight / 2 - 20dip, 40dip, 40dip)
Next
End Sub