Changeset 86 for trunk/Forms/UFormMain.pas

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
-
-{$mode delphi}{$H+}
 
 interface
@@ -68 +66 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 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;
+  UnixLanguagesDir = '/usr/share/BigMetro/languages';
+begin
+  {$IFDEF UNIX}
+  // If installed in UNIX system then use installation directory for po files
+  if not DirectoryExists(Translator1.POFilesFolder) and DirectoryExists(UnixLanguagesDir) then
+    Translator1.POFilesFolder := UnixLanguagesDir;
   {$ENDIF}
 
@@ -269 +267 @@
 end;
 
-
 end.