Changeset 24

Timestamp:

Oct 5, 2019, 2:56:55 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Build of translator unit under older Lazarus.

File:

• tags/1.0/Packages/Common/UTranslator.pas (modified) (2 diffs)

tags/1.0/Packages/Common/UTranslator.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, ExtCtrls, Controls, Contnrs, LazFileUtils, LazUTF8,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType;
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
+  LCLVersion;
 
 type
@@ -139 +140 @@
       with TPoFileItem(Items[J]) do begin
         Item := nil;
+        {$if (lcl_major<2)}
+        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
+          Flags, PreviousID);
+        {$else}
         Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context,
           Flags, PreviousID);
+        {$endif}
       end;
     Translations.TranslateResourceStrings(Po);