Changeset 25 for trunk/Packages/Common/UTranslator.pas

Timestamp:

Oct 5, 2019, 3:04:36 PM (5 years ago)

Author:

chronos

Message:

• Added: Release notes file.
• Fixed: Build under older Lazarus version.

File:

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

trunk/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
@@ -138 +139 @@
       for J := 0 to Items.Count - 1 do
       with TPoFileItem(Items[J]) do begin
+        {$if (lcl_major<2)}
+        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
+          Flags, PreviousID);
+        {$else}
         Item := nil;
         Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context,
           Flags, PreviousID);
+        {$endif}
       end;
     Translations.TranslateResourceStrings(Po);