Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("1") 'Load the layout file.
Dim tf As B4JTextFlow
tf.Initialize
tf.Append("1 2 3").SetColor(fx.Colors.Red).SetUnderline(True)
tf.Append(" 4 5 6 ").SetColor(fx.Colors.Green).SetFont(fx.CreateFont("", 17, True, True))
tf.Append("7 8 9").SetColor(fx.Colors.Blue).SetStrikethrough(True).SetFont(fx.DefaultFont(20))
Dim p As Pane = tf.CreateTextFlow
MainForm.RootPane.AddNode(p, 10, 10, 200, 100)
MainForm.Show
End Sub