iOS Question B4XPage Full Page

[MarcoRome]

Hi All.
What is the code in B4XPage to have the full screen page in b4i.
In the "classic" system i use the following code:

Public Sub Show
....
'Full screen
    Main.NavControl.ToolBarVisible = False
    Main.NavControl.SetNavigationBarVisibleAnimated(False)
    Dim no As NativeObject = App
    no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
    SetStatusBarStyleLight
End Sub

Sub SetStatusBarStyleLight
    Dim no As NativeObject = App
    no.RunMethod("setStatusBarStyle:", Array(1))
End Sub

In B4xPage to have all pages full screen ?
Thank you
Marco

 

[Johan Hormaza]

Hello, are you referring to the extended screen style that I use here as you can see on the Google Map?

UBER style Transportation Platform

Hello everyone and happy new year! First of all, thank the entire B4X team and the members of this beautiful forum Most of this platform is working in the real world with more than 5000 downloads and active users in my country, that means it has been tested and works great. Today we present...

www.b4x.com

 

[MarcoRome]

Hello, are you referring to the extended screen style that I use here as you can see on the Google Map?

UBER style Transportation Platform

Hello everyone and happy new year! First of all, thank the entire B4X team and the members of this beautiful forum Most of this platform is working in the real world with more than 5000 downloads and active users in my country, that means it has been tested and works great. Today we present...

www.b4x.com

Hi @Johan Hormaza
Yes. The ability to see all screens in full page.

 

[Johan Hormaza]

This code for each page

Private Sub B4XPage_Resize (Width As Int, Height As Int)
   #If B4i
    Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
    Root.SetLayoutAnimated(0,r.Left, r.Top - 50, Width - r.Right - r.Left, (Height - r.Bottom - r.Top) + 85)
  #End if
End Sub

 

[MarcoRome]

This code for each page

Private Sub B4XPage_Resize (Width As Int, Height As Int)
   #If B4i
    Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
    Root.SetLayoutAnimated(0,r.Left, r.Top - 50, Width - r.Right - r.Left, (Height - r.Bottom - r.Top) + 85)
  #End if
End Sub

Thank you for your support @Johan Hormaza

If I add SafeArea with the title everything is ok

If I delete the title using the statement:

NavControl.NavigationBarVisible = False

I do not understand...
in attachment example

 

[Johan Hormaza]

You must eliminate the Autoscall and the status bar in the design script.
you must add a panel of the same color as the menu. Tomorrow I'll send you an example of the adjustment I made to be able to use that menu

 

[Johan Hormaza]

 

[MarcoRome]

You must eliminate the Autoscall and the status bar in the design script.
you must add a panel of the same color as the menu. Tomorrow I'll send you an example of the adjustment I made to be able to use that menu

Hi @Johan Hormaza
I already tried to remove autoscale and status bar. It does not change.
The problem is the one reported by @Alexander Stolte here:

Anchored without being ??

I have this design: An object ( WobbleMenu ) anchored in the panel, as shown in the figure. But the moment it's run I get the "opposite" result instead of being docked up, it's docked down ???

www.b4x.com

Using other "objects" there is no problem using the following code:

Main

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    
    'Per Nascondere il titolo sulle pagine
    'NavControl.NavigationBarVisible = False
    
    
    Dim PagesManager As B4XPagesManager
    PagesManager.Initialize(NavControl)
    
    'Full screen
    Nav.SetNavigationBarVisibleAnimated(False)
    Dim no As NativeObject = App
    no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
    SetStatusBarStyleLight
    
    
End Sub

Sub SetStatusBarStyleLight
    Dim no As NativeObject = App
    no.RunMethod("setStatusBarStyle:", Array(1))
End Sub

in another modules

Private Sub B4XPage_Resize (Width As Int, Height As Int)
    obejctuse.mBase.Top = Height - objectuse.mBase.Height - B4XPages.GetNativeParent(Me).SafeAreaInsets.Bottom
End Sub

Anyway Thank you for your support ?