DISMTools 0.4.2 Preview 3 (#102)

* Updated assembly information

* Portuguese translation update (2024/02/23)

* Support petabytes (PB)

* Fixed integer casting exception

* Update download button

For those who don't care about the code and want an EXE version (source: https://www.reddit.com/r/github/comments/1at9br4/i_am_new_to_github_and_i_have_lots_to_say/)

* DISMTools Help Documentation Update (2024/02/23)

* Reduce wait time during project creation

* Update files

Update Portuguese translations, update What's New section, and updated Update System information files

Help/HelpBrowserForm.vb

@@ -15,13 +15,17 @@ Public Class HelpBrowserForm
                         TitleMsg = "Contenidos de ayuda de DISMTools"
                     Case "FRA"
                         TitleMsg = "Aide de DISMTools"
+                    Case "PTB", "PTG"
+                        TitleMsg = "Tópicos de ajuda do DISMTools"
                 End Select
             Case 1
                 TitleMsg = "DISMTools Help Topics"
             Case 2
                 TitleMsg = "Contenidos de ayuda de DISMTools"
             Case 3
                 TitleMsg = "Aide de DISMTools"
+            Case 4
+                TitleMsg = "Tópicos de ajuda do DISMTools"
         End Select
         Dim handle As IntPtr = MainForm.GetWindowHandle(Me)
         MainForm.EnableDarkTitleBar(handle, MainForm.BackColor = Color.FromArgb(48, 48, 48))

My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' mediante el asterisco ('*'), como se muestra a continuación:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.4.2.2422")> 
-<Assembly: AssemblyFileVersion("0.4.2.2422")> 
+<Assembly: AssemblyVersion("0.4.2.2423")> 
+<Assembly: AssemblyFileVersion("0.4.2.2423")> 

My Project/Resources.resx

@@ -1097,24 +1097,9 @@ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLI
     <value>..\Resources\get_appxpkg_info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="WhatsNew" xml:space="preserve">
-    <value>Bugfixes
-
-- Fixed some minor text editor issues in the Configuration List Editor
-- Fixed an issue where the "Pick..." button in the image file information dialog would not be disabled automatically when selecting "Currently mounted image"
-
-New features
-
-- You can now view the general information of a driver file
-- A help entry for downloading applications has been added to the AppX package addition dialog
-- You can now perform operating system uninstallation tasks
-  - Setting the uninstall window
-  - Initiating an OS uninstall
-  - Removing the rollback ability
-  - Getting the uninstall window
-- You can now exclude user OneDrive folders and add them to your configuration list automatically using the OneDrive folder exclusion tool
-- The Recents list has been implemented
-- Portuguese translations have been improved
-- CODE: updated the assembly description</value>
+    <value>- Portuguese translations are halfway done
+- CODE: size representation procedures in the DISMTools Utilities class now support petabytes (PB)
+- Project creation times have been reduced</value>
   </data>
   <data name="split_img" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\split_img.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

Panels/ConfigLists/AddListEntryDlg.vb

@@ -48,6 +48,11 @@ Public Class AddListEntryDlg
                         Button1.Text = "Parcourir..."
                         OK_Button.Text = "OK"
                         Cancel_Button.Text = "Annuler"
+                    Case "PTB", "PTG"
+                        Label1.Text = "Entrada:"
+                        Button1.Text = "Navegar..."
+                        OK_Button.Text = "OK"
+                        Cancel_Button.Text = "Cancelar"
                 End Select
             Case 1
                 Label1.Text = "Entry:"
@@ -64,6 +69,11 @@ Public Class AddListEntryDlg
                 Button1.Text = "Parcourir..."
                 OK_Button.Text = "OK"
                 Cancel_Button.Text = "Annuler"
+            Case 4
+                Label1.Text = "Entrada:"
+                Button1.Text = "Navegar..."
+                OK_Button.Text = "OK"
+                Cancel_Button.Text = "Cancelar"
         End Select
         If MainForm.BackColor = Color.FromArgb(48, 48, 48) Then
             BackColor = Color.FromArgb(31, 31, 31)

Panels/ConfigLists/Tools/OneDriveExclusionDlg.vb

@@ -19,13 +19,17 @@ Public Class OneDriveExclusionDlg
                         Label3.Text = "Las carpetas de OneDrive del usuario han sido excluidas y serán añadidas a la lista de configuración."
                     Case "FRA"
                         Label3.Text = "Les répertoires OneDrive de l'utilisateur ont été exclus et seront ajoutés à la liste de configuration."
+                    Case "PTB", "PTG"
+                        Label3.Text = "As pastas do OneDrive dos utilizadores foram excluídas e serão adicionadas à lista de configuração."
                 End Select
             Case 1
                 Label3.Text = "User OneDrive folders have been excluded and will be added to the configuration list."
             Case 2
                 Label3.Text = "Las carpetas de OneDrive del usuario han sido excluidas y serán añadidas a la lista de configuración."
             Case 3
                 Label3.Text = "Les répertoires OneDrive de l'utilisateur ont été exclus et seront ajoutés à la liste de configuration."
+            Case 4
+                Label3.Text = "As pastas do OneDrive dos utilizadores foram excluídas e serão adicionadas à lista de configuração."
         End Select
         Refresh()
         Me.DialogResult = System.Windows.Forms.DialogResult.OK
@@ -53,13 +57,17 @@ Public Class OneDriveExclusionDlg
                                 Label3.Text = "Excluyendo carpetas de OneDrive del usuario..."
                             Case "FRA"
                                 Label3.Text = "Exclusion des répertoires OneDrive de l'utilisateur en cours..."
+                            Case "PTB", "PTG"
+                                Label3.Text = "Excluir pastas do OneDrive dos utilizadores..."
                         End Select
                     Case 1
                         Label3.Text = "Excluding user OneDrive folders..."
                     Case 2
                         Label3.Text = "Excluyendo carpetas de OneDrive del usuario..."
                     Case 3
                         Label3.Text = "Exclusion des répertoires OneDrive de l'utilisateur en cours..."
+                    Case 4
+                        Label3.Text = "Excluir pastas do OneDrive dos utilizadores..."
                 End Select
                 Refresh()
                 ' Go through all User folders and exclude all OneDrive folders
@@ -113,6 +121,16 @@ Public Class OneDriveExclusionDlg
                         OK_Button.Text = "Exclure"
                         Cancel_Button.Text = "Annuler"
                         FolderBrowserDialog1.Description = "Choisissez un chemin qui contient des répertoires d'utilisateurs :"
+                    Case "PTB", "PTG"
+                        Text = "Excluir pastas do OneDrive do utilizador"
+                        Label1.Text = "Esta ferramenta irá ajudá-lo a excluir pastas do OneDrive de utilizadores na lista de configuração em que está a trabalhar. Basta especificar o caminho ao qual pretende aplicar o ficheiro da lista de configuração e clicar em Excluir." & CrLf & CrLf & _
+                                      "NOTA: depois de executar esta ferramenta e excluir as pastas do OneDrive dos utilizadores, não deve utilizar a lista de configuração numa imagem que não seja a que especificou aqui. Se quiser usar a lista de configuração em outras imagens, remova as pastas do OneDrive do usuário na lista de configuração e execute esta ferramenta novamente."
+                        Label2.Text = "Caminho para excluir as pastas do OneDrive de:"
+                        Label3.Text = "Quando estiver pronto, clique em Excluir."
+                        Button1.Text = "Navegar..."
+                        OK_Button.Text = "Excluir"
+                        Cancel_Button.Text = "Cancelar"
+                        FolderBrowserDialog1.Description = "Escolha um caminho que contenha pastas dos utilizadores:"
                 End Select
             Case 1
                 Text = "Exclude user OneDrive folders"
@@ -144,6 +162,16 @@ Public Class OneDriveExclusionDlg
                 OK_Button.Text = "Exclure"
                 Cancel_Button.Text = "Annuler"
                 FolderBrowserDialog1.Description = "Choisissez un chemin qui contient des répertoires d'utilisateurs :"
+            Case 4
+                Text = "Excluir pastas do OneDrive do utilizador"
+                Label1.Text = "Esta ferramenta irá ajudá-lo a excluir pastas do OneDrive de utilizadores na lista de configuração em que está a trabalhar. Basta especificar o caminho ao qual pretende aplicar o ficheiro da lista de configuração e clicar em Excluir." & CrLf & CrLf & _
+                              "NOTA: depois de executar esta ferramenta e excluir as pastas do OneDrive dos utilizadores, não deve utilizar a lista de configuração numa imagem que não seja a que especificou aqui. Se quiser usar a lista de configuração em outras imagens, remova as pastas do OneDrive do usuário na lista de configuração e execute esta ferramenta novamente."
+                Label2.Text = "Caminho para excluir as pastas do OneDrive de:"
+                Label3.Text = "Quando estiver pronto, clique em Excluir."
+                Button1.Text = "Navegar..."
+                OK_Button.Text = "Excluir"
+                Cancel_Button.Text = "Cancelar"
+                FolderBrowserDialog1.Description = "Escolha um caminho que contenha pastas dos utilizadores:"
         End Select
         If MainForm.BackColor = Color.FromArgb(48, 48, 48) Then
             BackColor = Color.FromArgb(31, 31, 31)