Localize splash screen

Author: CodingWonders

Installer/Languages/lang_en.ini

@@ -42,6 +42,11 @@ Common_Back = "Back"
 Common_Next = "Next"
 Common_Browse = "Browse..."
 
+[SplashScreen]
+OSInstTitle = "Operating System Installation"
+OSInstStatus_StartingUp = "Setup is starting..."
+OSInstStatus_Restarting = "Setup will continue after restarting your computer"
+
 [MainForm]
 BootMgrEntryName = "DISMTools Operating System Installation"
 Win7IncompatibilityError = "This program is incompatible with Windows 7 and Server 2008 R2 due to lack of support for the DISM API."

Installer/Languages/lang_es.ini

@@ -42,6 +42,11 @@ Common_Back = "Atrás"
 Common_Next = "Siguiente"
 Common_Browse = "Examinar..."
 
+[SplashScreen]
+OSInstTitle = "Instalación del sistema operativo"
+OSInstStatus_StartingUp = "El programa de instalación se está iniciando..."
+OSInstStatus_Restarting = "El programa de instalación continuará después de reiniciar el equipo"
+
 [MainForm]
 BootMgrEntryName = "DISMTools - Instalación del sistema operativo"
 Win7IncompatibilityError = "Este programa no es compatible con Windows 7 y Server 2008 R2 debido a la falta de compatibilidad con la API de DISM."

Installer/Languages/lang_fr.ini

@@ -42,6 +42,11 @@ Common_Back = "Retour"
 Common_Next = "Suivant"
 Common_Browse = "Parcourir..."
 
+[SplashScreen]
+OSInstTitle = "Installation du système d'exploitation"  
+OSInstStatus_StartingUp = "Le programme d'installation démarre..."  
+OSInstStatus_Restarting = "Le programme d'installation reprendra après le redémarrage de l'ordinateur"
+
 [MainForm]
 BootMgrEntryName = "Installation du système d'exploitation DISMTools"
 Win7IncompatibilityError = "Ce programme est incompatible avec Windows 7 et Server 2008 R2 en raison du manque de support pour l'API DISM."

Installer/Languages/lang_it.ini

@@ -42,6 +42,11 @@ Common_Back = "Indietro"
 Common_Next = "Avanti"
 Common_Browse = "Sfoglia..."
 
+[SplashScreen]
+OSInstTitle = "Installazione del sistema operativo"  
+OSInstStatus_StartingUp = "L'installazione sta iniziando..."  
+OSInstStatus_Restarting = "L'installazione continuerà dopo il riavvio del computer"
+
 [MainForm]
 BootMgrEntryName = "Installazione del sistema operativo DISMTools"
 Win7IncompatibilityError = "Questo programma è incompatibile con Windows 7 e Server 2008 R2 a causa della mancanza di supporto per l'API DISM."

Installer/Languages/lang_pt.ini

@@ -42,6 +42,11 @@ Common_Back = "Voltar"
 Common_Next = "Próximo"
 Common_Browse = "Procurar..."
 
+[SplashScreen]
+OSInstTitle = "Instalação do Sistema Operacional"  
+OSInstStatus_StartingUp = "A configuração está iniciando..."  
+OSInstStatus_Restarting = "A configuração continuará após reiniciar o computador"
+
 [MainForm]
 BootMgrEntryName = "Instalação do Sistema Operacional DISMTools"
 Win7IncompatibilityError = "Este programa é incompatível com o Windows 7 e o Server 2008 R2 devido à falta de suporte para a API DISM."

Installer/SplashForm.vb

@@ -10,12 +10,22 @@ Public Class SplashForm
     Public TestMode As Boolean = Environment.GetCommandLineArgs().Contains("/test")
     Public TestBCD As Boolean = Environment.GetCommandLineArgs().Contains("/bcdtest")
 
+    Sub ChangeLanguage(LanguageCode As String)
+        If Not File.Exists(Path.Combine(Application.StartupPath, "Languages", "lang_" & LanguageCode & ".ini")) Then
+            LanguageCode = "en"
+        End If
+        LoadLanguageFile(Path.Combine(Application.StartupPath, "Languages", "lang_" & LanguageCode & ".ini"))
+        Label1.Text = GetValueFromLanguageData("SplashScreen.OSInstTitle")
+        Label2.Text = GetValueFromLanguageData("SplashScreen.OSInstStatus_StartingUp")
+    End Sub
+
     Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' Load background image
         If File.Exists(Application.StartupPath & "\Resources\SplashScreen\background.jpg") Then
             BackgroundPicture = Image.FromFile(Application.StartupPath & "\Resources\SplashScreen\background.jpg")
             ResizeImage()
         End If
+        ChangeLanguage(My.Computer.Info.InstalledUICulture.TwoLetterISOLanguageName)
         ' Change status font size
         Dim ReferenceSize As Size = New Size(1024, 768)
         If Width <= ReferenceSize.Width AndAlso Height <= ReferenceSize.Height Then
@@ -98,7 +108,7 @@ Public Class SplashForm
 
     Private Sub SplashForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
         If SetupSuccess Then
-            Label2.Text = "Setup will continue after restarting your computer"
+            Label2.Text = GetValueFromLanguageData("SplashScreen.OSInstStatus_Restarting")
             Label2.Visible = True
             Refresh()
             If Not TestMode Then