Skip to content

Commit

Permalink
[Unattended answer file] Add translations (part 2)
Browse files Browse the repository at this point in the history
  • Loading branch information
@CodingWonders
CodingWonders committed Sep 23, 2024
1 parent c46cd55 commit 2711cb6
Show file tree
Hide file tree
Showing 3 changed files with 208 additions and 12 deletions.
39 changes: 35 additions & 4 deletions Panels/DoWork/ProgressPanel.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5190,10 +5190,41 @@ Public Class ProgressPanel
End Try
End If
ElseIf opNum = 79 Then
' Translations will not be available for 0.5.1

allTasks.Text = "Applying unattended answer file..."
currentTask.Text = "Applying specified unattended answer file to the target image..."
Select Case Language
Case 0
Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
Case "ENU", "ENG"
allTasks.Text = "Applying unattended answer file..."
currentTask.Text = "Applying specified unattended answer file to the target image..."
Case "ESN"
allTasks.Text = "Aplicando archivo de respuesta desatendida..."
currentTask.Text = "Aplicando archivo de respuesta desatendida especificado a la imagen de destino..."
Case "FRA"
allTasks.Text = "Appliquer le fichier de réponse sans surveillance en cours..."
currentTask.Text = "Appliquer le fichier de réponse non assisté spécifié à l'image cible en cours..."
Case "PTB", "PTG"
allTasks.Text = "Aplicar ficheiro de resposta não assistido..."
currentTask.Text = "Aplicar o ficheiro de resposta automática especificado à imagem de destino..."
Case "ITA"
allTasks.Text = "Applicazione del file di risposta non presidiato..."
currentTask.Text = "Applicazione del file di risposta non presidiato specificato all'immagine di destinazione..."
End Select
Case 1
allTasks.Text = "Applying unattended answer file..."
currentTask.Text = "Applying specified unattended answer file to the target image..."
Case 2
allTasks.Text = "Aplicando archivo de respuesta desatendida..."
currentTask.Text = "Aplicando archivo de respuesta desatendida especificado a la imagen de destino..."
Case 3
allTasks.Text = "Appliquer le fichier de réponse sans surveillance en cours..."
currentTask.Text = "Appliquer le fichier de réponse non assisté spécifié à l'image cible en cours..."
Case 4
allTasks.Text = "Aplicar ficheiro de resposta não assistido..."
currentTask.Text = "Aplicar o ficheiro de resposta automática especificado à imagem de destino..."
Case 5
allTasks.Text = "Applicazione del file di risposta non presidiato..."
currentTask.Text = "Applicazione del file di risposta non presidiato specificato all'immagine di destinazione..."
End Select
LogView.AppendText(CrLf & "Applying unattended answer file. Options:" & CrLf & _
"- Unattended answer file: " & UnattendedFile)

Expand Down
8 changes: 4 additions & 4 deletions Panels/Unattend_Files/Management/UnattendMgr.Designer.vb
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

173 changes: 169 additions & 4 deletions Panels/Unattend_Files/Management/UnattendMgr.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,6 +26,7 @@ Public Class UnattendMgr

Sub ScanForUnattendFiles(folderPath As String)
Dim UnattendFiles() As String
Dim errorMsg As String = ""
ListView1.Items.Clear()
Try
If Directory.Exists(folderPath) Then
Expand All @@ -39,17 +40,67 @@ Public Class UnattendMgr
End If
End If
Else
Throw New Exception("The folder path does not exist")
Select Case MainForm.Language
Case 0
Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
Case "ENU", "ENG"
errorMsg = "The folder path does not exist"
Case "ESN"
errorMsg = "La carpeta especificada no existe"
Case "FRA"
errorMsg = "Le chemin d'accès au dossier n'existe pas"
Case "PTB", "PTG"
errorMsg = "A localização da pasta não existe"
Case "ITA"
errorMsg = "Il percorso della cartella non esiste"
End Select
Case 1
errorMsg = "The folder path does not exist"
Case 2
errorMsg = "La carpeta especificada no existe"
Case 3
errorMsg = "Le chemin d'accès au dossier n'existe pas"
Case 4
errorMsg = "A localização da pasta não existe"
Case 5
errorMsg = "Il percorso della cartella non esiste"
End Select
Throw New Exception(errorMsg)
End If
If UnattendFiles.Length > 0 Then
For Each xmlFile In UnattendFiles
ListView1.Items.Add(New ListViewItem(New String() {Path.GetFileName(xmlFile), File.GetCreationTime(xmlFile), File.GetLastWriteTime(xmlFile), File.GetLastAccessTime(xmlFile)}))
Next
Else
Throw New Exception("Search concluded with no elements found")
Select Case MainForm.Language
Case 0
Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
Case "ENU", "ENG"
errorMsg = "Search concluded with no elements found"
Case "ESN"
errorMsg = "La búsqueda ha finalizado. No se han encontrado elementos"
Case "FRA"
errorMsg = "La recherche s'est terminée sans qu'aucun élément n'ait été trouvé"
Case "PTB", "PTG"
errorMsg = "Pesquisa concluída sem elementos encontrados"
Case "ITA"
errorMsg = "La ricerca si è conclusa con nessun elemento trovato"
End Select
Case 1
errorMsg = "Search concluded with no elements found"
Case 2
errorMsg = "La búsqueda ha finalizado. No se han encontrado elementos"
Case 3
errorMsg = "La recherche s'est terminée sans qu'aucun élément n'ait été trouvé"
Case 4
errorMsg = "Pesquisa concluída sem elementos encontrados"
Case 5
errorMsg = "La ricerca si è conclusa con nessun elemento trovato"
End Select
Throw New Exception(errorMsg)
End If
Catch ex As Exception
MsgBox(ex.Message, vbOKOnly + vbCritical, "Search error")
MsgBox(ex.Message, vbOKOnly + vbCritical, Text)
End Try
End Sub

Expand All @@ -74,7 +125,121 @@ Public Class UnattendMgr
End Sub

Private Sub UnattendMgr_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Select Case MainForm.Language
Case 0
Select Case My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName
Case "ENU", "ENG"
Text = "Unattended answer file manager"
Label1.Text = "Project path:"
Button1.Text = "Browse..."
Button2.Text = "Open file"
Button3.Text = "Open file location"
Button4.Text = "Apply to image..."
ListView1.Columns(0).Text = "File name"
ListView1.Columns(1).Text = "Created"
ListView1.Columns(2).Text = "Last modified"
ListView1.Columns(3).Text = "Last accessed"
Case "ESN"
Text = "Administrador de archivos de respuesta desatendida"
Label1.Text = "Ubicación de proyecto:"
Button1.Text = "Examinar..."
Button2.Text = "Abrir archivo"
Button3.Text = "Abrir ubicación del archivo"
Button4.Text = "Aplicar a una imagen..."
ListView1.Columns(0).Text = "Nombre de archivo"
ListView1.Columns(1).Text = "Creado"
ListView1.Columns(2).Text = "Última modificación"
ListView1.Columns(3).Text = "Último acceso"
Case "FRA"
Text = "Gestionnaire de fichiers de réponse sans surveillance"
Label1.Text = "Chemin du projet :"
Button1.Text = "Parcourir..."
Button2.Text = "Ouvrir le fichier"
Button3.Text = "Ouvrir l'emplacement du fichier"
Button4.Text = "Appliquer à l'image..."
ListView1.Columns(0).Text = "Nom du fichier"
ListView1.Columns(1).Text = "Créé"
ListView1.Columns(2).Text = "Dernière modification"
ListView1.Columns(3).Text = "Dernier accès"
Case "PTB", "PTG"
Text = "Gestor de ficheiros de resposta não assistida"
Label1.Text = "Localização do projeto:"
Button1.Text = "Procurar..."
Button2.Text = "Abrir ficheiro"
Button3.Text = "Abrir localização do ficheiro"
Button4.Text = "Aplicar à imagem..."
ListView1.Columns(0).Text = "Nome do ficheiro"
ListView1.Columns(1).Text = "Criado"
ListView1.Columns(2).Text = "Última modificação"
ListView1.Columns(3).Text = "Último acesso"
Case "ITA"
Text = "Gestore file di risposta non presidiato"
Label1.Text = "Posizione del progetto:"
Button1.Text = "Sfoglia..."
Button2.Text = "Apri file"
Button3.Text = "Apri il percorso del file"
Button4.Text = "Applica all'immagine..."
ListView1.Columns(0).Text = "Nome del file"
ListView1.Columns(1).Text = "Creato"
ListView1.Columns(2).Text = "Ultima modifica"
ListView1.Columns(3).Text = "Ultimo accesso"
End Select
Case 1
Text = "Unattended answer file manager"
Label1.Text = "Project path:"
Button1.Text = "Browse..."
Button2.Text = "Open file"
Button3.Text = "Open file location"
Button4.Text = "Apply to image..."
ListView1.Columns(0).Text = "File name"
ListView1.Columns(1).Text = "Created"
ListView1.Columns(2).Text = "Last modified"
ListView1.Columns(3).Text = "Last accessed"
Case 2
Text = "Administrador de archivos de respuesta desatendida"
Label1.Text = "Ubicación de proyecto:"
Button1.Text = "Examinar..."
Button2.Text = "Abrir archivo"
Button3.Text = "Abrir ubicación del archivo"
Button4.Text = "Aplicar a una imagen..."
ListView1.Columns(0).Text = "Nombre de archivo"
ListView1.Columns(1).Text = "Creado"
ListView1.Columns(2).Text = "Última modificación"
ListView1.Columns(3).Text = "Último acceso"
Case 3
Text = "Gestionnaire de fichiers de réponse sans surveillance"
Label1.Text = "Chemin du projet :"
Button1.Text = "Parcourir..."
Button2.Text = "Ouvrir le fichier"
Button3.Text = "Ouvrir l'emplacement du fichier"
Button4.Text = "Appliquer à l'image..."
ListView1.Columns(0).Text = "Nom du fichier"
ListView1.Columns(1).Text = "Créé"
ListView1.Columns(2).Text = "Dernière modification"
ListView1.Columns(3).Text = "Dernier accès"
Case 4
Text = "Gestor de ficheiros de resposta não assistida"
Label1.Text = "Localização do projeto:"
Button1.Text = "Procurar..."
Button2.Text = "Abrir ficheiro"
Button3.Text = "Abrir localização do ficheiro"
Button4.Text = "Aplicar à imagem..."
ListView1.Columns(0).Text = "Nome do ficheiro"
ListView1.Columns(1).Text = "Criado"
ListView1.Columns(2).Text = "Última modificação"
ListView1.Columns(3).Text = "Último acesso"
Case 5
Text = "Gestore file di risposta non presidiato"
Label1.Text = "Posizione del progetto:"
Button1.Text = "Sfoglia..."
Button2.Text = "Apri file"
Button3.Text = "Apri il percorso del file"
Button4.Text = "Applica all'immagine..."
ListView1.Columns(0).Text = "Nome del file"
ListView1.Columns(1).Text = "Creato"
ListView1.Columns(2).Text = "Ultima modifica"
ListView1.Columns(3).Text = "Ultimo accesso"
End Select
If MainForm.BackColor = Color.FromArgb(48, 48, 48) Then
BackColor = Color.FromArgb(31, 31, 31)
ForeColor = Color.White
Expand Down

0 comments on commit 2711cb6

Please sign in to comment.