Changeset 153 for trunk/Forms/FormMain.pas

Timestamp:

Jan 14, 2025, 12:18:07 PM (7 days ago)

Author:

chronos

Message:

• Fixed: Detection of languages directory on Linux.
• Fixed: Top left menu alignment.
• Modified: Improved debian control script.

File:

• trunk/Forms/FormMain.pas (modified) (1 diff)

trunk/Forms/FormMain.pas

@@ -62 +62 @@
 {$IFDEF UNIX}
 const
-  UnixLanguagesDir = '/usr/share/TransLines/languages';
-  {$ENDIF}
-begin
+  UnixLanguagesDir = '../share/TransLines';
+  LanguagesDirName = 'Languages';
+var
+  NewDir: string;
+  BaseDir: string;
+{$ENDIF}
+begin
+  BaseDir := ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
+  Core.Core.Translator1.POFilesFolder := BaseDir + DirectorySeparator + LanguagesDirName;
+
   {$IFDEF UNIX}
   // If installed in UNIX system then use installation directory for po files
-  if not DirectoryExists(Core.Core.Translator1.POFilesFolder) and DirectoryExists(UnixLanguagesDir) then
-    Core.Core.Translator1.POFilesFolder := UnixLanguagesDir;
+  NewDir := BaseDir + DirectorySeparator + UnixLanguagesDir + DirectorySeparator +
+    LanguagesDirName;
+  if not DirectoryExists(Core.Core.Translator1.POFilesFolder) and DirectoryExists(NewDir) then
+    Core.Core.Translator1.POFilesFolder := NewDir;
   {$ENDIF}