Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private devwidth As Int
Private devheight As Int
End Sub
Public Sub Initialize
B4XPages.GetManager.LogEvents = True
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("frm_main")
End Sub
Private Sub B4XPage_Appear
set_layout
End Sub
Private Sub B4XPage_Resize (Width As Int, Height As Int)
set_layout
End Sub
Private Sub set_layout
devwidth = B4XPages.GetNativeParent(B4XPages.MainPage).RootPane.Width
devheight = B4XPages.GetNativeParent(B4XPages.MainPage).RootPane.Height
Dim lpos1 As Int = 0
Dim lpos2 As Int = devwidth / 3
Dim lpos3 As Int = lpos2 * 2
Dim labelwidth As Int = devwidth / 3
For i = 0 To Root.NumberOfViews -1
Dim xpnl As B4XView = Root.GetView(i)
Select i
Case 0
xpnl.Width = labelwidth
xpnl.SetLayoutAnimated(0,lpos3,0,xpnl.Width,xpnl.Height)
Case 1
xpnl.Width = labelwidth
xpnl.SetLayoutAnimated(0,lpos1,0,xpnl.Width,xpnl.Height)
Case 2
xpnl.Width = labelwidth * 2
xpnl.SetLayoutAnimated(0,lpos1,xpnl.height,xpnl.Width,xpnl.Height)
Case 3
xpnl.Width = labelwidth
xpnl.SetLayoutAnimated(0,lpos2,0,xpnl.Width,xpnl.Height)
End Select
Next
End Sub