Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private TabPane1 As TabPane
Private xui As XUI
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
TabPane1.LoadLayout("2", Chr(0xF17B) & " Android")
TabPane1.LoadLayout("2", Chr(0xF179) & " iOS")
Dim x As B4XView = TabPane1
x.Font = xui.CreateFontAwesome(30) 'this sets the CSS font property
MainForm.Show
End Sub