Changeset 309 for trunk/UCore.pas

Timestamp:

Aug 18, 2021, 12:37:33 PM (3 years ago)

Author:

chronos

Message:

• Added: Snapcraft definition file for creation of Ubuntu snap packages.
• Added: Screenshot images.
• Modified: Detect language files independent of executable location.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -130 +130 @@
 
 uses
-  UFormMain, UFormNew, UFormSettings, UFormAbout, UClientAI, UFormKeyShortcuts,
+  UFormMain, UFormNew, UFormSettings, UClientAI, UFormKeyShortcuts,
   UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI;
 
@@ -475 +475 @@
 
 procedure TCore.DataModuleCreate(Sender: TObject);
-begin
-  GameSystems := TGameSystems.Create;
+const
+  LinuxLanguagesDir = '/usr/share/xtactics/languages';
+begin
+  {$IFDEF Linux}
+  // If installed in Linux system then use installation directory for po files
+  if not DirectoryExists(CoolTranslator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then
+    CoolTranslator1.POFilesFolder := LinuxLanguagesDir;
+  {$ENDIF}
+  
+    GameSystems := TGameSystems.Create;
   Server := TServer.Create;
   LocalClients := TClients.Create;
@@ -493 +501 @@
   FormClients := TFPGObjectList<TFormClient>.Create;
   ServerList := TServerList.Create;
-
-  {$IFDEF Linux}
-  // If installed in Linux system then use installation directory for po files
-  if Application.ExeName = '/usr/bin/xtactics' then
-    CoolTranslator1.POFilesFolder := '/usr/share/xtactics/languages';
-  {$ENDIF}
 end;