How to make the ExpandableTableView row background transparent and text color red? Following crash when i apply c.CustomView.Color=Colors.red
B4X:
'Code module
#Region Project Attributes
#ApplicationLabel: B4i Example
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 7
#End Region
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private etv As ExpandableTableView
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
etv.Initialize(Me, "etv")
etv.View.Color=Colors.Blue
Page1.RootPanel.AddView(etv.View, 0, 50, 100%x,400)
For i1 = 1 To 10
Dim c As CustomCell
c.Initialize
c.Text = "List " & i1
c.CustomView.Color=Colors.red
c.Children.Initialize
etv.Root.Children.Add(c)
Next
etv.RefreshItems
End Sub
Sub etv_SelectedChanged(cell As CustomCell)
Log(cell.Text)
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
Private Sub Application_Background
End Sub