B4J Question (Solved) How to calculate the Main Form depending on the screen ratio (16:9, 4:3)?

SquareSize = Minimum(AreaWidth, AreaHeight)
    'or if no Minimum function, then:
    'If AreaWidth < AreaHeight Then
    '    SquareSize = AreaWidth
    'Else
    '    SquareSize = AreaHeight
    'End If
SquareTop = AreaTop + (AreaHeight - SquareSize) / 2
SquareLeft = AreaLeft + (AreaWidth - SquareSize) / 2

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    Dim PagesManager As B4XPagesManager
    Dim PS As Screen = FX.PrimaryScreen
'    shrinking width to 90% of the screen
    Dim Width = PS.MaxX*.9 As Double
'    calculating 16:9 height depending on shrinked width
    Dim Height = Width*.56 As Double
'    calculating ratio only for comparison
    Dim Ratio = Height/Width As Double
    Log ("Ratio   : " & Ratio)
'    calculating gap to screen top/bottom for defining top of app
    Dim Gap = (PS.MaxY-Height)/2 As Double
    MainForm.BackColor = FX.Colors.Transparent
'    centering left/right
    MainForm.WindowLeft = PS.MinX + PS.MaxX*.05
'    setting formwidth
    MainForm.WindowWidth = Width
'    setting top of form   
    MainForm.WindowTop = PS.MinY + Gap
'    setting formheight   
    MainForm.WindowHeight = Height
'    limitation of downsizing the form below 75%   
    MainForm.SetWindowSizeLimits(MainForm.WindowWidth*.75, MainForm.WindowHeight*.75, MainForm.WindowWidth, MainForm.WindowHeight)
    PagesManager.Initialize(MainForm)
    MainForm.Show
End Sub

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
  
    Type LayoutCopyType(Node As Node, Width As Int, Height As Int, Left As Int, Top As Int, Tag As String, TextSize As Float)
    Dim LayoutCopy As List
  
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    CopyLayout
    MainForm.Show
  
    ResizeLayoutToFitWindow
  
End Sub

Sub Button1_Click
    '''xui.MsgboxAsync("Hello World!", "B4X")
    ResizeLayoutToFitWindow
End Sub

Sub MainForm_Resize (Width As Double, Height As Double)
    ResizeLayoutToFitWindow 
End Sub

Sub CopyLayout

    LayoutCopy.Initialize
  
    Dim FoundAspectFixerFlag As Boolean = False 
    For Each n As Node In MainForm.RootPane.GetAllViewsRecursive
        If n.PrefWidth > 0 And n.PrefHeight > 0 And n.Left >= 0 And n.Top >= 0 Then
            Dim ThisNode As LayoutCopyType
            ThisNode.Node = n
            ThisNode.Width = n.PrefWidth
            ThisNode.Height = n.PrefHeight
            ThisNode.Left = n.Left
            ThisNode.Top = n.Top
            ThisNode.Tag = n.Tag
          
            'text resizing
            If n Is Button Then
                ThisNode.TextSize = n.As(Button).TextSize
            else if n Is Label Then
                ThisNode.TextSize = n.As(Label).TextSize
            Else
                ThisNode.TextSize = 1    'just in case
            End If
              
            If ThisNode.Tag.Trim.ToLowerCase = "aspectfixer" Then
                LayoutCopy.InsertAt(0, ThisNode)
                FoundAspectFixerFlag = True
            Else
                LayoutCopy.Add(ThisNode)
            End If
        End If
    Next

    If FoundAspectFixerFlag = False Then
        Log("add full-size pane with tag = AspectFixer")
        LayoutCopy.Clear
    End If
  
End Sub

Sub ResizeLayoutToFitWindow

    If LayoutCopy.Size = 0 Then
        Return 
    End If

    Dim ThisNode As LayoutCopyType = LayoutCopy.Get(0)
  
    Dim LayoutWidth As Int = ThisNode.Width
    Dim LayoutHeight As Int = ThisNode.Height
      
    Dim WindowWidth As Int = MainForm.Width
    Dim WindowHeight As Int = MainForm.Height
  
    Dim ScaleX As Float = WindowWidth / LayoutWidth
    Dim ScaleY As Float = WindowHeight / LayoutHeight
      
    Dim Scale As Float
    Dim OffsetX As Int = 0
    Dim OffsetY As Int = 0
    If ScaleX < ScaleY Then
        Scale = ScaleX
        OffsetY    = (WindowHeight - LayoutHeight * Scale) / 3    'biased towards top
    Else
        Scale = ScaleY
        OffsetX    = (WindowWidth - LayoutWidth * Scale) / 2
    End If

    Dim TextScale As Float = Sqrt(Scale)    'enlarge/shrink text slower than everything else
  
    For I = 0 To LayoutCopy.Size - 1
        ThisNode = LayoutCopy.Get(I)
      
        ThisNode.Node.PrefWidth = ThisNode.Width * Scale
        ThisNode.Node.PrefHeight = ThisNode.Height * Scale
        ThisNode.Node.Left = OffsetX + ThisNode.Left * Scale
        ThisNode.Node.Top = OffsetY + ThisNode.Top * Scale

        'text resizing
        If ThisNode.Node Is Button Then
            ThisNode.Node.As(Button).TextSize = ThisNode.TextSize * TextScale
        else if ThisNode.Node Is Label Then
            ThisNode.Node.As(Label).TextSize = ThisNode.TextSize * TextScale
        End If
    Next
  
End Sub

Private Sub AdaptViewsToScreen
   
    Dim f As Form = B4XPages.GetNativeParent(Me)
   
    Private pnl As B4XView
    Private lbl As B4XView
    Private ImgVw As B4XImageView
    'Etc.'
   
    For i = 0 To 1 'or the total number of similar views - you may find a more elegant style for such cycle
        Select i
            Case 0
                pnl = Pane1
                lbl = Label1
                ImgVw = B4XImageView1
            Case 1
                pnl = Pane2
                lbl = Label2
                ImgVw = B4XImageView2
        End Select
       
        Dim fH As Double = f.WindowHeight
       
        Dim myPaneHeight As Double = fH * (0.33144) ' 0.33144 is just an example - parenthesis is just for my confort
       
        pnl.Width = pnl.Height * (0.7428) ' 0.7428 is just an example  - parenthesis is just for my confort
           
        lbl.Width = pnl.Width * (0.923) ' This is just an example  - parenthesis is just for my confort
        ImgVw.mBase.Width = pnl.Width * (0.846)
           
        lbl.Height = pnl.Height * (0.143)
        ImgVw.mBase.Height = pnl1.Height * (0.600)
           
        lbl.Left = pnl.Width * (0.038)
        ImgVw.mBase.Left = pnl1.Width * (0.077)
           
        lbl.Top = pnl.Height * (0.029)
        ImgVw.mBase.Top = pnl1.Height * (0.200)
    Next
End Sub