Changeset 249 for trunk/UCore.pas

Timestamp:

Sep 22, 2018, 9:37:16 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Use different interface language if installed as deb Linux package.
• Fixed: Propagate status bar, toolbar visibilit, and toolbar icons size to client form.

File:

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

trunk/UCore.pas

@@ -228 +228 @@
   I: Integer;
 begin
-  {$ifdef DEBUG}
+  //{$ifdef DEBUG}
   with Core.ScaleDPI1 do begin
     //DesignDPI := Point(144, 144);
@@ -243 +243 @@
     end;
   end;
-  {$endif}
+  //{$endif}
 end;
 
@@ -433 +433 @@
   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;
 
@@ -637 +643 @@
 begin
   if not Core.Initialized then begin
-    {$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}
     FInitialized := True;