v1.4.2 Fixed zh- language detection error.

torum · Oct 2, 2024 · f58ac02 · f58ac02
1 parent 55f3337
commit f58ac02
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 6 deletions.
diff --git a/src/ImageViewer.lpi b/src/ImageViewer.lpi
@@ -28,7 +28,7 @@
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="4"/>
-      <BuildNr Value="2"/>
+      <RevisionNr Value="2"/>
       <StringTable FileDescription="Image Viewer" InternalName="ImageViewer" LegalCopyright="torum" OriginalFilename="ImageViewer.exe" ProductName="Simple Image Viewer"/>
     </VersionInfo>
     <BuildModes Count="1">

diff --git a/src/ImageViewer.lpr b/src/ImageViewer.lpr
@@ -35,20 +35,21 @@ procedure TranslateLCL;
   if (strLanguageCode = 'en') or (strLanguageID = 'en_US') then
     strLang := 'en';
 
-  if (strLanguageCode = 'ja') or (strLanguageID = 'ja_jp') or (strLanguageID = 'jp_JP') then
+  if (strLanguageCode = 'ja') or (strLanguageID = 'jp_JP') then
     strLang := 'ja';//'ja_JP';
 
   if (strLanguageCode = 'ru') or (strLanguageID = 'ru_RU') then
     strLang := 'ru';//'ru_RU';
 
   if (strLanguageCode = 'zh') then begin
-    if (strLanguageID = 'zh-Hant') then begin
+    if (strLanguageID = 'zh_Hant') then begin
        strLang := 'zh-Hant';
     end else
-    if (strLanguageID = 'zh-CN') then begin
+    if (strLanguageID = 'zh_CN') then begin
        strLang := 'zh-CN';
     end else begin
-       //
+       // Defaults to traditional for now.
+       strLang := 'zh-Hant';
     end;
   end;
 

diff --git a/src/ImageViewer.res b/src/ImageViewer.res
diff --git a/src/umain.pas b/src/umain.pas
@@ -304,7 +304,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   i,f:integer;
   configFile:string;
 begin
-  FstrAppVer:='1.4.0.2';
+  FstrAppVer:='1.4.2.0';
 
   // Init Main form properties.
   self.Caption:=ReplaceStr(ExtractFileName(ParamStr(0)),ExtractFileExt(ParamStr(0)),'');