Changeset 380

Timestamp:

Jan 4, 2025, 12:07:24 AM (4 days ago)

Author:

chronos

Message:

• Fixed: Language translation on Windows was not working.
• Fixed: About dialog wrong layout.

Location:

trunk/Packages/Common

Files:

• Forms/FormAbout.lfm (modified) (3 diffs)
• Translator.pas (modified) (1 diff)

trunk/Packages/Common/Forms/FormAbout.lfm

@@ -13 +13 @@
   object LabelDescription: TLabel
     Left = 30
-    Height = 26
-    Top = 0
+    Height = 25
+    Top = 135
     Width = 654
     Align = alTop
@@ -27 +27 @@
   object LabelContent: TLabel
     Left = 30
-    Height = 26
-    Top = 221
+    Height = 25
+    Top = 190
     Width = 654
     Align = alTop
@@ -39 +39 @@
     Left = 0
     Height = 135
-    Top = 56
+    Top = 0
     Width = 714
     Align = alTop

trunk/Packages/Common/Translator.pas

@@ -322 +322 @@
     Result[I] := StringReplace(Result[I], '/', DirectorySeparator, [rfReplaceAll]);
     Result[I] := StringReplace(Result[I], '\', DirectorySeparator, [rfReplaceAll]);
-    if Copy(Result[I], 1, 1) <> DirectorySeparator then
+    if (Copy(Result[I], 1, 1) <> DirectorySeparator) and (Copy(Result[I], 2, 2) <> ':\') then
       Result[I] := ExtractFileDir(Application.ExeName) +
         DirectorySeparator + Result[I];