Changeset 208 for trunk/UCore.pas

Timestamp:

Sep 20, 2021, 11:36:06 AM (3 years ago)

Author:

chronos

Message:

• Modified: Show items without active filter text active by default to show supported acronyms immediatelly after application start.
• Added: Snap package definition file.

File:

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

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, UAcronym, UTranslator, UPersistentForm,
   UJobProgressView, UScaleDPI, Forms, Controls, ExtCtrls, Menus, LazFileUtils,
-  URegistry, UApplicationInfo, Registry, UTheme, UAboutDialog;
+  URegistry, UApplicationInfo, Registry, UTheme;
 
 type
@@ -82 +82 @@
 
 procedure TCore.DataModuleCreate(Sender: TObject);
-begin
+const
+  LinuxLanguagesDir = '/usr/share/AcronymDecoder/Languages';
+begin
+  {$IFDEF Linux}
+  // If installed in Linux system then use installation directory for po files
+  if not DirectoryExists(Translator.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then
+    Translator.POFilesFolder := LinuxLanguagesDir;
+  {$ENDIF}
+
   AcronymDb := nil;
   InitializeStarted := False;