Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Pane1 As Pane
Private ListView1 As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
CSSUtils.SetBackgroundColor(Pane1, fx.Colors.Yellow)
For i=1 To 20
ListView1.Items.Add("Item # "&i)
Next
CSSUtils.SetStyleProperty (ListView1, "-fx-background-color", "yellow")
CSSUtils.SetStyleProperty (ListView1, "-fx-text-color", "blue")
End Sub