Sub LoadData
Dim no As NativeObject
no.Initialize("UIButton").RunMethod("appearance", Null).RunMethod("setFont:", Array(Font.CreateMaterialIcons(17)))
TableView1.RowHeight = 70
TableView1.SeparatorColor = Colors.White
TableView1.Clear
For i = 0 To 100
Dim p As Panel
p.Initialize("Cell")
p.Width = Page1.RootPanel.Width
p.Height = TableView1.RowHeight
p.LoadLayout("row1")
Label1.Text = "Row "&i
Dim tc As TableCell = TableView1.AddSingleLine("")
tc.AddActionButton(Chr(0xF014), Colors.Red)
tc.AddActionButton(Chr(0xE22B), Colors.Green)
tc.ShowSelection = True
tc.AccessoryType = tc.ACCESSORY_NONE
tc.CustomView = p
Next
TableView1.ReloadAll
End Sub