Sub Activity_Create(FirstTime As Boolean)
Dim p As Phone
If FirstTime Then
' Stop service STARTATBOOT
StopService(STARTATBOOT)
End If
If p.SdkVersion >= 28 Then
Dim ctxt As JavaObject
ctxt.InitializeContext
ctxt.RunMethodJO("getWindow", Null).RunMethodJO("getAttributes", Null).SetField("layoutInDisplayCutoutMode", 1)
End If
GetRealSize
Activity_WindowFocusChanged(True)
Dim lv As LayoutValues = GetRealSize
Dim jo As JavaObject = Activity
jo.RunMethod("setBottom", Array(lv.Height))
jo.RunMethod("setRight", Array(lv.Width))
Activity.Height = lv.Height
Activity.Width = lv.Width
Dim pm As B4XPagesManager
pm.Initialize(Activity)
End Sub