Changeset 416 for trunk/Start.pas

Timestamp:

Nov 17, 2021, 10:47:48 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Use Common package translator to solve duplicate ULanguages unit name.
• Modified: Also automatically detect new localizations in Localization directory.
• Fixed: Use localization files with first capital letter to work correctly on Linux.

File:

• trunk/Start.pas (modified) (7 diffs)

trunk/Start.pas

@@ -7 +7 @@
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
-  Menus, Registry,  DrawDlg, fgl, Protocol, UMiniMap, UBrain;
+  Menus, Registry,  DrawDlg, fgl, Protocol, UMiniMap, UBrain, UTranslator;
 
 type
@@ -133 +133 @@
     procedure LoadConfig;
     procedure SaveConfig;
+    procedure LoadLanguages;
     procedure LoadAiBrainsPictures;
     procedure UpdateInterface;
@@ -138 +139 @@
   public
     EmptyPicture: TBitmap;
+    Translator: TTranslator;
     procedure UpdateFormerGames;
     procedure UpdateMaps;
@@ -149 +151 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UKeyBindings;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Settings, UKeyBindings,
+  ULanguages;
 
 {$R *.lfm}
@@ -226 +229 @@
   LoadConfig;
   LoadAssets;
+  LoadLanguages;
 
   ActionsOffered := [maConfig, maManual, maCredits, maWeb];
@@ -325 +329 @@
 begin
   SaveConfig;
+  FreeAndNil(Translator);
   FreeAndNil(FormerGames);
   FreeAndNil(Maps);
@@ -454 +459 @@
 
   KeyBindings.SaveToRegistry(HKEY_CURRENT_USER, AppRegistryKey + '\KeyBindings');
+end;
+
+procedure TStartDlg.LoadLanguages;
+var
+  I: Integer;
+begin
+  Translator := TTranslator.Create(nil);
+  with Translator, Languages do begin
+    AddNew('zh-Hant', 'Traditional Chinese');
+    AddNew('zh-Hans', 'Simplified Chinese');
+    SearchByCode('').Available := True;
+
+    for I := 1 to Languages.Count - 1 do
+    with Languages[I] do begin
+      Available := DirectoryExists(HomeDir + 'Localization' + DirectorySeparator + Code) or (Code = 'en');
+    end;
+  end;
 end;