'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
' Main.NavControl.NavigationBarVisible = False
Root.LoadLayout("login")
toast.Initialize(Root)
svLogin.Panel.LoadLayout("svLogin")
End Sub
Sub B4XPage_Resize (Width As Int, Height As Int)
Log(misc.IsStatusBarHidden)
Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
Root.SetLayoutAnimated(0, r.Left, r.Top, Width - r.Right - r.Left, Height - r.Bottom - r.Top)
'Resize views
svLogin.Height = Root.Height
svLogin.ContentWidth = Root.Width
svLogin.ContentHeight=Max(lblRegister.Top+lblRegister.Height,Root.Height)
End Sub