Changeset 459

Timestamp:

Nov 27, 2023, 6:56:56 PM (12 months ago)

Author:

chronos

Message:

• Fixed: Chinese language list selection in Settings window didn't work correctly.

Location:

trunk

Files:

• Packages/Common/Languages.pas (modified) (3 diffs)
• Packages/Common/Languages/Languages.cs.po (modified) (1 diff)
• Packages/Common/Languages/Languages.pot (modified) (1 diff)
• Start.pas (modified) (1 diff)

trunk/Packages/Common/Languages.pas

@@ -216 +216 @@
   SLang_za = 'Zhuang';
   SLang_zh = 'Chinese';
+  SLang_zh_Hans = 'Simplified Chinese';
+  SLang_zh_Hant = 'Traditional Chinese';
   SLang_zu = 'Zulu';
+
 
 implementation
@@ -228 +231 @@
 begin
   I := 0;
-  while (I < Count) and (TLanguage(Items[I]).Code < ACode) do Inc(I);
-  if I < Count then Result := TLanguage(Items[I])
+  while (I < Count) and (Items[I].Code <> ACode) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -439 +442 @@
   AddNew('za', SLang_za);
   AddNew('zh', SLang_zh);
+  AddNew('zh-Hant', SLang_zh_Hant);
+  AddNew('zh-Hans', SLang_zh_Hans);
   AddNew('zu', SLang_zu);
 end;

trunk/Packages/Common/Languages/Languages.cs.po

@@ -1040 +1040 @@
 msgstr "Čínština"
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
 #, fuzzy

trunk/Packages/Common/Languages/Languages.pot

@@ -776 +776 @@
 msgstr ""
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
 msgid "Zulu"

trunk/Start.pas

@@ -468 +468 @@
   Translator := TTranslator.Create(nil);
   with Translator, Languages do begin
-    AddNew('zh-Hant', 'Traditional Chinese');
-    AddNew('zh-Hans', 'Simplified Chinese');
     SearchByCode('').Available := True;