#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private SiteEdit As Form
Private MenuClose As MenuItem
Private edit_site As MenuItem
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("simFOLD_MainScreen") 'Load the layout file.
MainForm.Show
CenterFormOnScreen(MainForm)
End Sub
Sub CenterFormOnScreen(Frm As Form)
'Centers a form on the primary screen
Dim ps As Screen = fx.PrimaryScreen
Frm.WindowTop = (ps.MaxY - ps.MinY) / 2 - Frm.Height / 2
Frm.WindowLeft = (ps.MaxX - ps.MinX) / 2 - Frm.Width / 2
End Sub
Sub MenuClose_Action
MainForm.Close
End Sub
Public Sub SiteInputStart
SiteEdit.Initialize("SiteEdit", -1, -1)
SiteEdit.RootPane.LoadLayout("simFOLD_SiteInput") 'Load the layout file.
SiteEdit.Show
End Sub
Sub edit_site_Action
SiteInputStart
End Sub