Does anybody know, why the tabstrip shows a white bar under the pages on iPhone Xs? This doesn't happens on iPhone 8:
for i=1 to Count
tabpage(i).Initialize("tabpage" & i)
tabpage(i).Title = Name(i)
table(i).Initialize(Me, "Table" & i, 8)
table(i).AddToParent(tabpage(i).RootPanel, 0, 0,100%x, 100%y)
..
next
Sub MainPage_Resize (Width As Float, Height As Float)
If TabStrip1.IsInitialized And App.OSVersion >= 11 Then
Dim no As NativeObject = TabStrip1
Dim window As NativeObject = App
window = window.GetField("keyWindow")
Dim f() As Float = window.ArrayFromEdgeInsets(window.RunMethod("safeAreaInsets", Null))
If f(1) > 0 Then
Dim Container As View = no.GetField("containerView")
Sleep(50)
Dim PrevTop As Int = Container.Top
Container.Top = 44 - f(1)
Container.Height = Container.Height + PrevTop - Container.top
End If
End If
End Sub