iOS Question AutoScaleAll makes TextSize Huge

German Buchmuller

Member
Licensed User
Hi, I have 4 Code Modules: Main, SplashScreen, LogInScreen and MenuScreen. There is only one Page called Page1, which is initialized in SplashScreen.
When the user starts the app for the first time, the LogInScreen shows. When he/she has already registered and starts the app, the MenuScreen is shown. The problem I have is that when he/she LogsOut from his account on MenuScreen, LogInScreen shows but the textsize is huge. Ive got AutoScaleAll in all designer scripts.

My Main code is:
Main:
Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    NavControl.NavigationBarVisible=False
    Nav.ToolBarVisible=False   
    SplashScreen.Initialize
    Wait For (SplashScreen.Show) Complete (Result As Boolean)
    Page1=SplashScreen.GetPage
    If File.Exists(File.DirDocuments,"LoggedIn.rlm") Then
        MenuScreen.Show
    Else
        LogInScreen.LoadLogin
    End If
    
End Sub

My SplashScreen code is:
SplashScreen:
Sub Process_Globals
    Private Page1 As Page
    Private Status As String
End Sub

Sub Initialize
    Status="loading"
    Page1.Initialize("Page1")
    Page1.RootPanel.LoadLayout("SplashLayout")
    Page1.RootPanel.Color=Colors.White
    Main.Page1=Page1
End Sub

Sub Show As ResumableSub
    Main.NavControl.ShowPage2(Page1,False)
    Animate
    
    Do While Status="loading"
        Sleep(0)
    Loop
    Return True
End Sub

Sub GetPage As Page
    Return Page1
End Sub

Sub Page1_Resize(Width As Int, Height As Int)
    Main.ScreenX=Width
    Main.ScreenY=Height
End Sub

Private Sub Animate
    'Shows the splash animation and sets Status="done"
End Sub

My LogInScreen code is:
LogInScreen:
Sub LoadLogin
    Main.Page1.RootPanel.RemoveAllViews
    Main.Page1.RootPanel.LoadLayout("LogInLayout")
    RegisterScrollView.Panel.LoadLayout("RegisterScrollLayout")    
End Sub

My MenuScreen code is:
MenuScreen:
Sub Show
    Main.Page1.RootPanel.RemoveAllViews
    Main.Page1.RootPanel.LoadLayout("MenuLayout")
    CreditCardsLayoutPanel.LoadLayout("Page1")
    DocumentsLayoutPanel.LoadLayout("DocumentsLayout")
    NotesLayoutPanel.LoadLayout("NotesLayout")
    PasswordsLayoutPanel.LoadLayout("PasswordsLayout")
End Sub

Sub MenuBtn_Click
    Dim sheet As ActionSheet
    sheet.Initialize("sheet", "", "CANCEL", "LOG OUT", Array("SETTINGS","GO PREMIUM"))
    sheet.Show(Main.Page1.RootPanel)
    Wait For sheet_Click (Item As String)
    If Item="LOG OUT" Then
        LogInScreen.LoadLogin
    End If
End Sub

The problem is that when LogInScreen.LoadLogin in the MenuBtn_Click sub is executed, the LogInLayout loads but with textsize huge. Here are two screenshots:
When the layout is loaded properly:
WhatsApp Image 2021-01-18 at 14.16.12 (1).jpeg


When the layout is loaded when Logging out:
WhatsApp Image 2021-01-18 at 14.16.12.jpeg


Any ideas how to solve this issue? Thanks
 
Top