#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
#AdditionalJar:fxthemes-1.6.0
#AdditionalJar: jna-5.13.0
#AdditionalJar: jna-platform-5.13.0
'#JavaCompilerPath: 19,C:\Java\jdk-19.0.2\bin\javac.exe ' Or wherever a suitable java version lives on your machine.
#VirtualMachineArgs: --add-opens javafx.graphics/javafx.stage=ALL-UNNAMED --add-exports javafx.graphics/com.sun.javafx.tk.quantum=ALL-UNNAMED
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Dim MF As JavaObject = MainForm
Dim Stage As JavaObject = MF.GetField("stage")
Dim Manager As JavaObject
Dim Factory As JavaObject
Factory.InitializeStatic("com.pixelduke.window.ThemeWindowManagerFactory")
Manager = Factory.RunMethod("create",Null)
Manager.RunMethod("setWindowBackdrop",Array(Stage,"ACRYLIC"))
Manager.RunMethod("setWindowCornerPreference",Array(Stage,"ROUND"))
Manager.RunMethod("setWindowFrameColor",Array(Stage,fx.Colors.Black))
End Sub