#Region Project Attributes
#VirtualMachineArgs: -Djavafx.platform=gtk
#MainFormWidth: 1280
#MainFormHeight: 800
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private frm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.MouseCursor = fx.Cursors.NONE
MainForm.SetFormStyle("TRANSPARENT")
MainForm.RootPane.LoadLayout("main") 'Load the layout file.
MainForm.RootPane.Enabled = True
MainForm.WindowLeft=1
MainForm.WindowTop=1
MainForm.Show
frm.Initialize("frm",530,108)
frm.WindowLeft = 300
frm.WindowTop = 690
frm.SetFormStyle("TRANSPARENT")
frm.BackColor = fx.Colors.Transparent
frm.show
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub