Sub LoadButtons
For i = 1 To editCol.CellsLayouts.Size - 1
Dim p As B4XView = editCol.CellsLayouts.Get(i)
p.AddView(CreateButton("btnEdit", Chr(0xF044)), 2dip, 0dip, 40dip, 40dip)
p.AddView(CreateButton("btnDelete", Chr(0xF00D)), 44dip, 0dip, 40dip, 40dip)
p.AddView(CreateButton("btnDuplicate",Chr(0xF0C5)), 85dip, 0dip, 40dip, 40dip)
Next
End Sub
Sub CreateButton (EventName As String, Text As String) As B4XView
Dim Btn As Button
Dim FontSize As Int = 14
#if B4i
Btn.InitializeCustom(EventName, xui.Color_Black, xui.Color_White)
FontSize = 16
#else
Btn.Initialize(EventName)
#End If
Dim x As B4XView = Btn
x.Font = xui.CreateFontAwesome(FontSize)
x.Visible = False
x.Text = Text
Return x
End Sub