D 
		
				
			
		Deleted member 103
Guest
Hi,
with this code I load 3 layouts into a TabStrip.
With iPhone 6+ everything looks right, with iPhone-X you see a red bar, which is probably the status bar.
Is there a way to remove the status bar?
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
iphone 6+ screenshot:
		
		
	
	
		 
	
iphone-X screenshot:
		 
	
			
			with this code I load 3 layouts into a TabStrip.
With iPhone 6+ everything looks right, with iPhone-X you see a red bar, which is probably the status bar.
Is there a way to remove the status bar?
			
				B4X:
			
		
		
		Sub Process_Globals
    Private pnlRoot As Panel
    Private ToolBar1 As clsToolBar
    Private TabStrip1 As TabStrip
    Private csb As CSBuilder
    Private page1, page2, page3 As Page
    Private TabPages As List
End Sub
Public Sub Show
    If Not(Main.pOnlineStatistik.IsInitialized) Then
        Main.pOnlineStatistik.Initialize("pOnlineStatistik")
    End If
    Main.pOnlineStatistik.RootPanel.LoadLayout("Main")
    Main.pOnlineStatistik.RootPanel.Color = Colors.White
    pnlRoot.LoadLayout("frmOnlineStatistik")
    Main.NavControl.ShowPage(Main.pOnlineStatistik)
    ToolBar1.Clear
    ToolBar1.UpIndicator = ToolBar1.Indicator_Back
    ToolBar1.Titel = Starter.Language.value("strGamePoint") & ": Online"
    TabPages.Initialize
    
    page1.Initialize("page1")
    page1.RootPanel.LoadLayout("frmStatistikLevel1")
    UpdateStatistikViews(1)
    SetAttributedTitle(page1, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit4Karten")).PopAll)
    TabPages.Add(page1)
    page2.Initialize("page2")
    page2.RootPanel.LoadLayout("frmStatistikLevel2")
    UpdateStatistikViews(2)
    SetAttributedTitle(page2, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit4KartenTime")).PopAll)
    TabPages.Add(page2)
    page3.Initialize("page3")
    page3.RootPanel.LoadLayout("frmStatistikLevel3")
    UpdateStatistikViews(3)
    SetAttributedTitle(page3, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit7Karten")).PopAll)
    TabPages.Add(page3)
    TabStrip1.SetPages(TabPages)
End Sub
Private Sub pOnlineStatistik_Resize (Width As Float, Height As Float)
    Dim r As Rect = Main.pOnlineStatistik.SafeAreaInsets
    pnlRoot.SetLayoutAnimated(0, 1, r.Left, r.Top, Width - r.Right - r.Left, Height - r.Bottom - r.Top)
End Sub
Private Sub pnlRoot_Resize (Width As Float, Height As Float)
...
End Subiphone 6+ screenshot:
iphone-X screenshot:
 
				 
 
		 
 
		 
 
		 
 
		 
 
		