I have an app where a user (with iPhone 13) shows me a video with an error in the app. The problem is that when entering some sections from the main screen, the content of the screen is not shown, if you close the app from multitasking and open the app again, the same thing happens again, this does not happen in all the sections and It doesn't always happen in the same screen either.
I have tried to reproduce the problem on real devices (does not match user model) and also not on the simulator (appetize.io/) since there is no iPhone 13.
I use B4XPages and mainly libraries ASViewPager, ASTabStrip and AsTabMenu .
The app is quite large and showing all the code would not be understood, I show an idea of how I load the screens. Maybe with this someone can suggest me where the problem could be.
I have tried to reproduce the problem on real devices (does not match user model) and also not on the simulator (appetize.io/) since there is no iPhone 13.
I use B4XPages and mainly libraries ASViewPager, ASTabStrip and AsTabMenu .
The app is quite large and showing all the code would not be understood, I show an idea of how I load the screens. Maybe with this someone can suggest me where the problem could be.
MainPage:
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
LoadLayoutMain
End Sub
Private Sub LoadLayoutMain
Dim HamburgerIcon As B4XBitmap
Wait For B4XPage_Resize(Width As Int, Height As Int)
Dim r As Rect = B4XPages.GetNativeParent(Me).SafeAreaInsets
Dim p1 As B4XView = xui.CreatePanel("")
p1.SetLayoutAnimated(0, 0, 0, 100%x, 150%y)
p1.LoadLayout("Principal")
'Code position views
'....
InitializeActivities
End Sub
Private Sub B4XPage_Resize (Width As Float, Height As Float)
Drawer.Resize(Width, Height)
End Sub
Sub InitializeActivities
Page1.Initialize
B4XPages.AddPage("Page1", Page1)
Page2.Initialize
B4XPages.AddPage("Page2", Page2)
'....16 pages
End Sub
Sub ShowPage1_Click
B4XPages.ShowPage("Page1")
End Sub
Page1:
Public Sub Initialize
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
LoadLayoutPage1
End Sub
Sub LoadLayoutPage1
B4XPages.GetNativeParent(B4XPages.MainPage).Title = ""
TitlePage
'Code to position views
'...code
End Sub
Private Sub B4XPage_Resize (Width As Float, Height As Float)
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)
End Sub