Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
#IF B4J
CallSubDelayed3(Me,"SetScrollPaneBackgroundColor", CustomListView1, xui.Color_Green)
#End If
For i = 0 To 5
CustomListView1.AddTextItem("Item " & i, i)
Next
End Sub
#If B4j
Private Sub SetScrollPaneBackgroundColor(View As CustomListView, Color As Int)
Dim SP As JavaObject = View.GetBase.GetView(0)
Dim V As B4XView = SP
V.Color = Color
Dim V As B4XView = SP.RunMethod("lookup",Array(".viewport"))
V.Color = Color
End Sub
#End If