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("Layout1") 'Load the layout file.
settaSchermoIntero(Form1, False)
MainForm.Show
End Sub
Sub settaSchermoIntero(frm As Form, modo As Boolean)
If modo = False Then
Dim ps As Screen = fx.PrimaryScreen
frm.WindowLeft = ps.MinX
frm.WindowWidth = ps.MaxX - ps.MinX
frm.WindowTop = ps.MinY
frm.WindowHeight = ps.MaxY - ps.MinY
Else
Dim jo As JavaObject
Dim joStage As JavaObject
jo = frm
joStage = jo.GetField("stage")
joStage.RunMethod("setFullScreen", Array As Object(True))
End If
End Sub