Detect if language is supported

CodingWonders · Apr 20, 2024 · bbb8841 · bbb8841
1 parent 0cbaf15
commit bbb8841
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Installer/Output/dt_setup.exe b/Installer/Output/dt_setup.exe
diff --git a/Panels/FirstUse/PrgSetup.vb b/Panels/FirstUse/PrgSetup.vb
@@ -7,6 +7,7 @@ Public Class PrgSetup
 
     Dim ColorModes() As String = New String(2) {"Use system setting", "Light mode", "Dark mode"}
     Dim Languages() As String = New String(4) {"Use system language", "English", "Spanish", "French", "Portuguese"}
+    Dim SupportedLangCodes() As String = New String(5) {"ENU", "ENG", "ESN", "FRA", "PTB", "PTG"}
 
     Dim btnToolTip As New ToolTip()
     Private isMouseDown As Boolean = False
@@ -147,6 +148,8 @@ Public Class PrgSetup
 
     Private Sub Next_Button_Click(sender As Object, e As EventArgs) Handles Next_Button.Click
         If pageInt = 4 Then
+            ' Set program to English if the system language is not supported
+            If Not SupportedLangCodes.Contains(My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName) Then MainForm.Language = 1
             MainForm.SaveDTSettings()
             Close()
         End If