i18n Complete

Author: XTsat

CompactGUI/Application.xaml.vb

@@ -32,7 +32,7 @@ Partial Public Class Application
     End Sub
 
     Private Sub Application_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
-        ' 启动时调用语言配置
+        ' Call the language configuration at startup
         LanguageHelper.Initialize()
 
     End Sub

CompactGUI/Components/Converters/IValueConverters.vb

@@ -102,7 +102,7 @@ Public Class RelativeDateConverter : Implements IValueConverter
         ElseIf ts > TimeSpan.FromMinutes(2) Then
             Return String.Format(LanguageHelper.GetString("Time_MinutesAgo"), ts.TotalMinutes)
         Else
-            Return LanguageHelper.GetString("Time_Now")
+            Return LanguageHelper.GetString("RelativeTimeJustNow")
         End If
     End Function
 
@@ -291,15 +291,15 @@ Public Class FolderStatusToStringConverter : Implements IValueConverter
         Dim status = CType(value, ActionState)
         Select Case status
             Case ActionState.Idle
-                Return "Awaiting Compression"
+                Return LanguageHelper.GetString("Status_AwaitingCompression")
             Case ActionState.Analysing
-                Return "Analysing"
+                Return LanguageHelper.GetString("Status_Analysing")
             Case ActionState.Working, ActionState.Paused
-                Return "Working"
+                Return LanguageHelper.GetString("Status_Working")
             Case ActionState.Results
-                Return "Compressed"
+                Return LanguageHelper.GetString("Status_Compressed")
             Case Else
-                Return "Unknown"
+                Return LanguageHelper.GetString("Status_Unknown")
         End Select
     End Function
     Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack

CompactGUI/LanguageHelper.vb

@@ -6,7 +6,7 @@ Imports System.Windows.Data
 Imports System.Reflection
 
 Public Class LanguageHelper
-    ' 支持的语言列表
+    ' Supported language list
     ' @i18n
     Private Shared ReadOnly SupportedCultures As String() = {"en-US", "zh-CN"}
     Private Shared resourceManager As ResourceManager = i18n.i18n.ResourceManager
@@ -49,7 +49,7 @@ Public Class LanguageHelper
                 Return rawValue
             End If
         Catch ex As Exception
-            Debug.WriteLine($"获取多语言文本失败：{key}，错误：{ex.Message}")
+            Debug.WriteLine($"Failed to get multilingual text：{key}，Error：{ex.Message}")
             Return key
         End Try
     End Function
@@ -62,7 +62,7 @@ Public Class LanguageHelper
             currentCulture = culture
 
         Catch ex As Exception
-            Debug.WriteLine($"应用语言失败：{cultureName}，错误：{ex.Message}")
+            Debug.WriteLine($"Application language failure：{cultureName}，Error：{ex.Message}")
             SetDefaultLanguage()
         End Try
     End Sub
@@ -79,31 +79,16 @@ Public Class LanguageHelper
     End Function
 
     Private Shared Sub SetDefaultLanguage()
-        ' 根据系统语言设置默认语言
+        ' Set the default language according to the system language.
         '@i18n
         Dim langMapping As New Dictionary(Of String, String) From {
         {"en", "en-US"},
         {"zh", "zh-CN"}
     }
-        '{"ja", "ja-JP"},
-        '{"ko", "ko-KR"},
-        '{"fr", "fr-FR"},
-        '{"de", "de-DE"},
-        '{"es", "es-ES"},
-        '{"ru", "ru-RU"}
 
         Dim systemLang As String = Thread.CurrentThread.CurrentUICulture.TwoLetterISOLanguageName.ToLower()
         Dim defaultLang As String = If(langMapping.ContainsKey(systemLang), langMapping(systemLang), "en-US")
 
-        ' 特殊处理中文简/繁
-        'If systemLang = "zh" Then
-        '    If Thread.CurrentThread.CurrentUICulture.Name.StartsWith("zh-TW") Then
-        '        defaultLang = "zh-TW"
-        '    ElseIf Thread.CurrentThread.CurrentUICulture.Name.StartsWith("zh-HK") Then
-        '        defaultLang = "zh-HK"
-        '    End If
-        'End If
-
         ApplyCulture(defaultLang)
         WriteAppConfig("language", defaultLang)
     End Sub
@@ -117,7 +102,7 @@ Public Class LanguageHelper
             Dim config = System.Configuration.ConfigurationManager.OpenExeConfiguration(System.Configuration.ConfigurationUserLevel.None)
             Return If(config.AppSettings.Settings(key)?.Value, String.Empty)
         Catch ex As Exception
-            Debug.WriteLine($"读取配置失败：{key}，错误：{ex.Message}")
+            Debug.WriteLine($"Read configuration failed：{key}，Error：{ex.Message}")
             Return String.Empty
         End Try
     End Function
@@ -133,7 +118,7 @@ Public Class LanguageHelper
             config.Save(System.Configuration.ConfigurationSaveMode.Modified)
             System.Configuration.ConfigurationManager.RefreshSection("appSettings")
         Catch ex As Exception
-            Debug.WriteLine($"写入配置失败：{key}，错误：{ex.Message}")
+            Debug.WriteLine($"Write configuration failed：{key}，Error：{ex.Message}")
         End Try
     End Sub
 End Class

CompactGUI/MainWindow.xaml

@@ -259,8 +259,8 @@
                          FocusOnLeftClick="True" MenuOnRightClick="True" TooltipText="CompactGUI">
             <tray:NotifyIcon.Menu>
                 <ContextMenu x:Name="NotifyIconTrayMenu">
-                    <MenuItem Command="{Binding NotifyIconOpenCommand}" Header="Open" />
-                    <MenuItem Command="{Binding NotifyIconExitCommand}" Header="Exit" />
+                    <MenuItem Command="{Binding NotifyIconOpenCommand}" Header="{local:Localize UniOpen}" />
+                    <MenuItem Command="{Binding NotifyIconExitCommand}" Header="{local:Localize UniExit}" />
                 </ContextMenu>
             </tray:NotifyIcon.Menu>
         </tray:NotifyIcon>

CompactGUI/Services/CustomSnackBarService.vb

@@ -20,7 +20,7 @@ Public Class CustomSnackBarService
 
     Public Sub ShowCustom(message As UIElement, title As String, appearance As ControlAppearance, Optional icon As IconElement = Nothing, Optional timeout As TimeSpan = Nothing)
 
-        If GetSnackbarPresenter() Is Nothing Then Throw New InvalidOperationException("The SnackbarPresenter was never set")
+        If GetSnackbarPresenter() Is Nothing Then Throw New InvalidOperationException(LanguageHelper.GetString("SnackBar_SnackbarPresenter")) 'The SnackbarPresenter was never set
         If _snackbar Is Nothing Then _snackbar = New Snackbar(GetSnackbarPresenter())
 
         _snackbar.SetCurrentValue(Snackbar.TitleProperty, title)
@@ -52,20 +52,21 @@ Public Class CustomSnackBarService
 
     Public Sub ShowInsufficientPermission(folderName As String)
         Dim button = New Button With {
-            .Content = "Restart as Admin",
+            .Content = LanguageHelper.GetString("SnackBar_RestartAdmin"), '"Restart as Admin"
             .Command = New RelayCommand(Sub() RunAsAdmin(folderName)),
             .Margin = New Thickness(-3, 10, 0, 0)
         }
-        ShowCustom(button, "Insufficient permission to access this folder.", ControlAppearance.Danger, timeout:=TimeSpan.FromSeconds(60))
+        ShowCustom(button, LanguageHelper.GetString("SnackBar_RestartAdminTip"), ControlAppearance.Danger, timeout:=TimeSpan.FromSeconds(60)) '"Insufficient permission to access this folder."
     End Sub
 
     Public Sub ShowUpdateAvailable(newVersion As String, isPreRelease As Boolean)
         Dim textBlock = New TextBlock
-        textBlock.Text = "Click to download"
+        textBlock.Text = LanguageHelper.GetString("SnackBar_UpdateDownload") '"Click to download"
 
         ' Show the custom snackbar
         SnackbarServiceLog.ShowUpdateAvailable(logger, newVersion, isPreRelease)
-        ShowCustom(textBlock, $"Update Available ▸ Version {newVersion}", If(isPreRelease, ControlAppearance.Info, ControlAppearance.Success), timeout:=TimeSpan.FromSeconds(10))
+        Dim title As String = String.Format(LanguageHelper.GetString("SnackBar_UpdateAvailable"), newVersion) 'Update Available ▸ Version {newVersion}
+        ShowCustom(textBlock, title, If(isPreRelease, ControlAppearance.Info, ControlAppearance.Success), timeout:=TimeSpan.FromSeconds(10))
 
         Dim handler As MouseButtonEventHandler = Nothing
         Dim closedHandler As TypedEventHandler(Of Snackbar, RoutedEventArgs) = Nothing
@@ -86,37 +87,49 @@ Public Class CustomSnackBarService
     End Sub
 
     Public Sub ShowFailedToSubmitToWiki()
-        Show("Failed to submit to wiki", "Please check your internet connection and try again", Wpf.Ui.Controls.ControlAppearance.Danger, Nothing, TimeSpan.FromSeconds(5))
+        Show(LanguageHelper.GetString("SnackBar_SubmitWikiFailed"), LanguageHelper.GetString("SnackBar_SubmitWikiFailedTip"), Wpf.Ui.Controls.ControlAppearance.Danger, Nothing, TimeSpan.FromSeconds(5))
+        '"Failed to submit to wiki", "Please check your internet connection and try again"
         SnackbarServiceLog.ShowFailedToSubmitToWiki(logger)
     End Sub
 
     Public Sub ShowSubmittedToWiki(steamsubmitdata As SteamSubmissionData, compressionMode As Integer)
-        Show("Submitted to wiki", $"UID: {steamsubmitdata.UID}{vbCrLf}Game: {steamsubmitdata.GameName}{vbCrLf}SteamID: {steamsubmitdata.SteamID}{vbCrLf}Compression: {[Enum].GetName(GetType(Core.WOFCompressionAlgorithm), Core.WOFHelper.WOFConvertCompressionLevel(compressionMode))}", Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(10))
+        Dim compressionName As String = [Enum].GetName(GetType(Core.WOFCompressionAlgorithm), Core.WOFHelper.WOFConvertCompressionLevel(compressionMode))
+        Dim message As String = $"{LanguageHelper.GetString("SnackBar_SubmitWiki_UID")}: {steamsubmitdata.UID}{vbCrLf}" &
+                           $"{LanguageHelper.GetString("SnackBar_SubmitWiki_Game")}: {steamsubmitdata.GameName}{vbCrLf}" &
+                           $"{LanguageHelper.GetString("SnackBar_SubmitWiki_SteamID")}: {steamsubmitdata.SteamID}{vbCrLf}" &
+                           $"{LanguageHelper.GetString("SnackBar_SubmitWiki_Compression")}: {compressionName}"
+        'Show("Submitted to wiki", $"UID: {0}{1}Game: {2}{1}SteamID: {3}{1}Compression: {4}
+
+        Show(LanguageHelper.GetString("SnackBar_SubmitWiki"), message, Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(10))
         SnackbarServiceLog.ShowSubmittedToWiki(logger, steamsubmitdata.UID, steamsubmitdata.GameName, steamsubmitdata.SteamID, steamsubmitdata.CompressionMode)
     End Sub
 
 
     Public Sub ShowAppliedToAllFolders()
-        Show("Applied to all folders", "Compression options have been applied to all folders", Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(5))
+        Show(LanguageHelper.GetString("SnackBar_AppliedAllFolders"), LanguageHelper.GetString("SnackBar_AppliedAllFoldersTip"), Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(5))
+        '"Applied to all folders", "Compression options have been applied to all folders"
         SnackbarServiceLog.ShowAppliedToAllFolders(logger)
     End Sub
 
     Public Sub ShowCannotRemoveFolder()
-        Show("Cannot remove folder", "Please wait until the current operation is finished", Wpf.Ui.Controls.ControlAppearance.Caution, Nothing, TimeSpan.FromSeconds(5))
+        Show(LanguageHelper.GetString("SnackBar_CannotRemoveFolder"), LanguageHelper.GetString("SnackBar_CannotRemoveFolderTip"), Wpf.Ui.Controls.ControlAppearance.Caution, Nothing, TimeSpan.FromSeconds(5))
+        '"Cannot remove folder", "Please wait until the current operation is finished"
         SnackbarServiceLog.ShowCannotRemoveFolder(logger)
     End Sub
 
     Public Sub ShowAddedToQueue()
-        Show("Success", "Added to Queue", Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(5))
+        Show(LanguageHelper.GetString("SnackBar_Success"), LanguageHelper.GetString("SnackBar_SuccessTip"), Wpf.Ui.Controls.ControlAppearance.Success, Nothing, TimeSpan.FromSeconds(5))
+        '"Success", "Added to Queue"
         SnackbarServiceLog.ShowAddedToQueue(logger)
     End Sub
 
     Public Sub ShowDirectStorageWarning(displayName As String)
         Show(displayName,
-            "This game uses DirectStorage technology. If you are using this feature, you should not compress this game.",
+            LanguageHelper.GetString("SnackBar_DirectStorageTechnology"),
             Wpf.Ui.Controls.ControlAppearance.Info,
             Nothing,
             TimeSpan.FromSeconds(20))
+        '"This game uses DirectStorage technology. If you are using this feature, you should not compress this game.",
         SnackbarServiceLog.ShowDirectStorageWarning(logger, displayName)
     End Sub
 End Class

CompactGUI/Services/WindowService.vb

@@ -33,8 +33,8 @@ Public Class WindowService
                .Title = title,
                .Content = content,
                .IsPrimaryButtonEnabled = True,
-               .PrimaryButtonText = "Yes",
-               .CloseButtonText = "Cancel"
+               .PrimaryButtonText = LanguageHelper.GetString("UniYes"),
+               .CloseButtonText = LanguageHelper.GetString("UniCancel")
            }
         Dim result = Await msgBox.ShowDialogAsync()
         Return result = Wpf.Ui.Controls.MessageBoxResult.Primary

CompactGUI/ViewModels/FolderViewModel.vb

@@ -58,10 +58,10 @@ Public NotInheritable Class FolderViewModel : Inherits ObservableObject : Implem
     Public ReadOnly Property CompressionDisplayLevel As String
         Get
             If Folder.AnalysisResults Is Nothing OrElse
-                Not Folder.AnalysisResults.Any(Function(x) x.CompressionMode <> Core.WOFCompressionAlgorithm.NO_COMPRESSION) Then
-                Return "Not Compressed"
+            Not Folder.AnalysisResults.Any(Function(x) x.CompressionMode <> Core.WOFCompressionAlgorithm.NO_COMPRESSION) Then
+                Return LanguageHelper.GetString("Status_NotCompressed") 'Not Compressed
             End If
-            Return "Compressed"
+            Return LanguageHelper.GetString("Status_Compressed") 'Compressed
         End Get
     End Property
 

CompactGUI/ViewModels/MainWindowViewModel.vb

@@ -39,7 +39,8 @@ Partial Public Class MainWindowViewModel : Inherits ObservableRecipient : Implem
     <RelayCommand>
     Private Async Function NotifyIconExit() As Task
         If _watcher.WatchedFolders.Count = 0 Then Application.Current.Shutdown()
-        Dim confirmed = Await _windowService.ShowMessageBox("CompactGUI", $"You currently have {_watcher.WatchedFolders.Count} folders being watched. Closing CompactGUI will stop them from being monitored.{Environment.NewLine}{Environment.NewLine}Are you sure you want to exit?")
+        Dim message As String = String.Format(LanguageHelper.GetString("MessageBox_ExitText"), _watcher.WatchedFolders.Count)
+        Dim confirmed = Await _windowService.ShowMessageBox(LanguageHelper.GetString("Title_CompactGUI"), message)
         If Not confirmed Then Return
         _watcher.WriteToFile()
         Application.Current.Shutdown()

CompactGUI/Views/Components/CompressionMode_Radio.xaml

@@ -33,7 +33,7 @@
                     <ui:TextBlock x:Name="Mode_Text"
                                   Text="{Binding CompressionMode, FallbackValue=XPRESS4K, RelativeSource={RelativeSource TemplatedParent}}"
                                   HorizontalAlignment="Left" VerticalAlignment="Center"
-                                  FontSize="15" FontWeight="SemiBold">
+                                  FontSize="14" FontWeight="SemiBold">
                         <ui:TextBlock.RenderTransform>
                             <TranslateTransform x:Name="ModeTextTransform" Y="0" />
                         </ui:TextBlock.RenderTransform>