Process_Globals
Private fx As JFX
Private MainForm As Form
Dim JOMainForm As JavaObject
Private scroller As B4XView
Private displaypane As B4XView
Private SP As ScrollPane
Dim InnerPane As Pane
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("scroller") 'Load the layout file.
MainForm.Show
JOMainForm = MainForm
JOMainForm.GetFieldJO("stage").RunMethod("setMaximized", Array(True))
SP = scroller
SP.LoadLayout("Content",800,800)
Log(scroller.ScrollViewInnerPanel)
End Sub