Sub LoadGeneralClassDataList
B4XTable1.SetData(ItemListSelection)
For i = 1 To editCol.CellsLayouts.Size - 1
Dim p As B4XView = editCol.CellsLayouts.Get(i)
p.AddView(CreateButton("btnEdit", Chr(0xF044)), 2dip, 5dip, 40dip, 40dip)
p.AddView(CreateButton("btnDelete", Chr(0xF00D)), 44dip, 5dip, 40dip, 40dip)
Next
End Sub
Sub CreateButton (EventName As String, Text As String) As B4XView
Dim Btn As Button
Dim FontSize As Int = 14
Btn.Initialize(EventName)
Dim x As B4XView = Btn
x.Font = xui.CreateFontAwesome(FontSize)
x.Visible = False
x.Text = Text
Return x
End Sub