Sub AppStart (Form1 As Form, Args() As String)
Cursors.InitializeStatic("javafx.scene.Cursor")
MainForm = Form1
' MainForm.SetFormStyle("TRANSPARENT")
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
MainForm.BackColor = fx.Colors.ARGB(0, 255, 0, 0)
CSSUtils.SetBackgroundColor(MainForm.RootPane, fx.Colors.Transparent)
End Sub
Private Sub MainForm_Resize (Width As Double, Height As Double)
MainForm.RootPane.RemoveAllNodes
Sleep(1000)
MainForm.RootPane.LoadLayout("Layout1")
MainForm.RootPane.SetLayoutAnimated(0,0,0,MainForm.RootPane.Width,MainForm.RootPane.Height)
UnderPane.PrefWidth = MainForm.RootPane.Width
UnderPane.PrefHeight = MainForm.RootPane.Height
MainPane.PrefWidth = MainForm.RootPane.Width-20
MainPane.PrefHeight = MainForm.RootPane.Height-20
End Sub
Private Sub FormCloseBtn_Click
MainForm.Close
End Sub