Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private Panel1 As Panel
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
AdjustPanel
End Sub
Private Sub B4XPage_Resize (Width As Int, Height As Int)
AdjustPanel
End Sub
Private Sub AdjustPanel
Panel1.Left = 0
Panel1.Top = 0
Panel1.Width = Root.Width
Panel1.Height = Root.Height
Log($"Root: ${Root.Width}x${Root.Height} @ (${Root.Left},${Root.Top})"$)
Log($"Panel1: ${Panel1.Width}x${Panel1.Height} @ (${Panel1.Left},${Panel1.Top})"$)
End Sub