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

Timestamp:

Apr 24, 2019, 2:43:03 PM (6 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.0.0 and newer.
• Modified: Older .lrt files replaced by .lrj files.

File:

• trunk/Packages/CoolTranslator/UCoolTranslator.pas (modified) (5 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
@@ -197 +200 @@
   PropInfo: PPropInfo;
   PropList: PPropList;
+  Excludes: TComponentExcludes;
 begin
   Count := GetTypeData(Component.ClassInfo)^.PropCount;
@@ -294 +298 @@
   Result := FPOFilesFolder;
   if Copy(Result, 1, 1) <> DirectorySeparator then
-    Result := ExtractFileDir(UTF8Encode(Application.ExeName)) +
+    Result := ExtractFileDir(Application.ExeName) +
       DirectorySeparator + Result;
 end;
@@ -428 +432 @@
 function TCoolTranslator.FindLocaleFileName(LCExt: string): string;
 var
+  T: string;
   Lang: string;
 begin