iOS Question SafeArea Problem

[kohlenbach]

Hi,
I have a fullsize panel with anchors (panelMain) which I resize. This works.
In the panelMain, I have 2 panels with anchors . Panel 2 on the right sight with the buttons (screenshot) is only shown a part
after resize. (screenshot 2)
What can I do ?

Sub B4XPage_Resize (Width As Float, Height As Float)
    Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
    
    PanelMain.SetLayoutAnimated(0, r.Left, r.Top, Width - r.Right - r.Left, Height - r.Bottom - r.Top)

End Sub

 

[Erel]

Safe area with B4XPages: https://www.b4x.com/android/forum/t...r-managing-multiple-pages.118901/#post-746585

Make sure to implement it this way.

And Panel1 should fill the parent. It doesn't look like this in the abstract designer screenshot.

 

[kohlenbach]

This works, but now my menu is not shown anymore.

 

[kohlenbach]

Safe area with B4XPages: https://www.b4x.com/android/forum/t...r-managing-multiple-pages.118901/#post-746585

Make sure to implement it this way.

And Panel1 should fill the parent. It doesn't look like this in the abstract designer screenshot.

This works, but now my menu is not shown anymore. See fotos. #3

 

[Erel]

Try to reproduce it in a small project and upload the project.

 

[kohlenbach]

Try to reproduce it in a small project and upload the project.

This Button is not shown when I use SaveArea script. Without it works fine.

 

[Erel]

I now understand the issue. With this change root becomes a regular panel:

    Root = xui.CreatePanel("")
     Root1.AddView(Root, 0, 0, Root1.Width, Root1.Height)

You need to create a separate layout with the menu items and load them to Root1. Or add it programmatically:

Private Sub B4XPage_Created (Root1 As B4XView)
    #if B4A or B4J
        Root = Root1
    #else if B4i
        Root = xui.CreatePanel("")
        Root1.AddView(Root, 0, 0, Root1.Width, Root1.Height)
    Dim bb As BarButton
    bb.InitializeText("Setup", "Setup")
    B4XPages.GetNativeParent(Me).TopRightButtons = Array(bb)
    #end if
   Root.LoadLayout("MainPage")
End Sub

Private Sub B4XPage_MenuClick (Tag As String)
    Log(Tag)
End Sub