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

Timestamp:

Dec 24, 2022, 7:17:24 PM (23 months ago)

Author:

chronos

Message:

• Modified: Updated Common package to latest version.
• Modified: Build with Lazarus 2.2.4.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/Common/UTranslator.pas (modified) (3 diffs)

trunk

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+

trunk/Packages/Common/UTranslator.pas

@@ -1 +1 @@
 unit UTranslator;
 
-{$mode delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, Forms, ExtCtrls, Controls, fgl, LazFileUtils, LazUTF8,
+  Classes, SysUtils, Forms, ExtCtrls, Controls, LazFileUtils, LazUTF8,
   Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
-  LCLVersion;
+  LCLVersion, Generics.Collections;
 
 type
   THandleStringEvent = function (AValue: string): string of object;
 
-  TPoFiles = class(TFPGObjectList<TPOFile>)
+  TPoFiles = class(TObjectList<TPOFile>)
   end;
 
@@ -27 +25 @@
   { TComponentExcludesList }
 
-  TComponentExcludesList = class(TFPGObjectList<TComponentExcludes>)
+  TComponentExcludesList = class(TObjectList<TComponentExcludes>)
     function FindByClassType(AClassType: TClass): TComponentExcludes;
     procedure DumpToStrings(Strings: TStrings);
@@ -290 +288 @@
   Item := Component.ClassType;
   while Assigned(Item) do begin
-    //ShowMessage(Component.Name + ', ' + Component.ClassName + ', ' + Item.ClassName + ', ' + PropertyName);
     Excludes := ComponentExcludes.FindByClassType(Item.ClassType);
     if Assigned(Excludes) then begin

@@ -6 +6 @@
 Tunneler.dbg
 tunneler.lps
+*.res
 heaptrclog.trc
 Components/Common/Languages/*.mo
-Components/CoolTranslator/Demo/lib
+