Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1")
For i = 1 To 10
Dim parent As TreeItem = CreateTreeItem("Parent " & i, fx.Colors.Red, fx.DefaultFont(20))
Dim child As TreeItem = CreateTreeItem("Child", fx.Colors.Blue, fx.DefaultFont(14))
parent.Children.Add(child)
TreeView1.Root.Children.Add(parent)
Next
MainForm.Show
End Sub
Sub CreateTreeItem(Text As String, Color As Paint, Font As Font) As TreeItem
Dim ti As TreeItem
ti.Initialize("", "")
Dim tf As TextFlow
tf.Initialize
tf.AddText(Text)
tf.SetColor(Color)
tf.SetFont(Font)
Dim jo As JavaObject = ti
Dim p As Pane = tf.CreateTextFlow
jo.RunMethod("setGraphic", Array(p))
Return ti
End Sub