Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'----full screen modu oldu---
Dim mf As JavaObject = MainForm
mf.GetFieldJO("stage").RunMethod("setFullScreen", Array(True))
MainForm.RootPane.LoadLayout("Main_from") 'Load the layout file.
MainForm.Show
MainForm.Resizable=False
Dim gvh As GameViewHelper
gvh.AddKeyListener("GVH",MainForm)
End Sub
Sub GVH_KeyPressed (KeyCode As String) As Boolean
Log(KeyCode)
Return False' try TRUE, same result
End Sub
Sub GVH_KeyReleased (KeyCode As String) As Boolean
Log("--"&KeyCode)
Return FALSE ' try TRUE, same result
End Sub