Changeset 78 for trunk/Forms/UFormMain.pas

Timestamp:

Jun 2, 2021, 6:27:13 PM (3 years ago)

Author:

chronos

Message:

• Added: Snap package definition file.
• Added: Detect language files in different system location.
• Added: Two screenshots.
• Fixed: Missing parallel track line ending shift.
• Modified: Various small typos.

File:

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

trunk/Forms/UFormMain.pas

@@ -67 +67 @@
 
 procedure TFormMain.FormCreate(Sender: TObject);
-begin
+const
+  LinuxLanguagesDir = '/usr/share/BigMetro/languages';
+begin
+  {$IFDEF Linux}
+  // If installed in Linux system then use installation directory for po files
+  if not DirectoryExists(Translator1.POFilesFolder) and DirectoryExists(LinuxLanguagesDir) then
+    Translator1.POFilesFolder := LinuxLanguagesDir;
+  {$ENDIF}
+
   Engine := TEngine.Create;
   LoadConfig;