Changeset 286 for trunk/Packages/CoolTranslator/UCoolTranslator.pas

Timestamp:

Mar 23, 2019, 2:01:55 PM (6 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.0.0.

File:

• trunk/Packages/CoolTranslator/UCoolTranslator.pas (modified) (2 diffs)

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -127 +127 @@
   I, J: Integer;
   Po: TPoFile;
+  Item: TPOFileItem;
 begin
   TranslateComponentRecursive(Application);
@@ -136 +137 @@
     with TPoFile(FPoFiles[I]) do
       for J := 0 to Items.Count - 1 do
-      with TPoFileItem(Items[J]) do
-        Po.Add(IdentifierLow, Original, Translation, Comments, Context,
+      with TPoFileItem(Items[J]) do begin
+        Item := nil;
+        Po.FillItem(Item, IdentifierLow, Original, Translation, Comments, Context,
           Flags, PreviousID);
+      end;
     Translations.TranslateResourceStrings(Po);
   finally