Changeset 424 for trunk/Packages/CevoComponents

Timestamp:

Apr 25, 2022, 6:22:53 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update Common package to version 0.10.
• Modified: fgl unit replaced by Generics.Collections.

Location:

trunk/Packages/CevoComponents

Files:

• ScreenTools.pas (modified) (1 diff)
• Sound.pas (modified) (3 diffs)
• UGraphicSet.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -8 +8 @@
   {$ENDIF}
   StringTables, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Math,
-  Forms, Menus, GraphType, fgl, UGraphicSet, LazFileUtils, UTexture;
+  Forms, Menus, GraphType, UGraphicSet, LazFileUtils, UTexture;
 
 type

trunk/Packages/CevoComponents/Sound.pas

@@ -4 +4 @@
 
 uses
-  SysUtils, Classes, Graphics, Controls, Forms, fgl, FileUtil,
+  SysUtils, Classes, Graphics, Controls, Forms, Generics.Collections, FileUtil,
   StringTables, Directories, LCLType
   {$IFDEF WINDOWS}, MMSystem, Windows{$ENDIF}
@@ -55 +55 @@
   SoundMode: TSoundMode;
   SoundPlayer: TSoundPlayer;
-  SoundList: TFPGObjectList<TSound>;
+  SoundList: TObjectList<TSound>;
   PlayingSound: TSound;
 
@@ -333 +333 @@
 procedure UnitInit;
 begin
-  SoundList := TFPGObjectList<TSound>.Create;
+  SoundList := TObjectList<TSound>.Create;
   PlayingSound := nil;
   SoundPlayer := nil;

trunk/Packages/CevoComponents/UGraphicSet.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Graphics, fgl, LCLType, UPixelPointer, DOM, XMLRead,
-  XMLWrite, UXMLUtils;
+  Classes, SysUtils, Graphics, Generics.Collections, LCLType, UPixelPointer, DOM,
+  XMLRead, XMLWrite, UXMLUtils;
 
 type
@@ -31 +31 @@
   { TGraphicSetItems }
 
-  TGraphicSetItems = class(TFPGObjectList<TGraphicSetItem>)
+  TGraphicSetItems = class(TObjectList<TGraphicSetItem>)
     GraphicSet: TGraphicSet;
     function SearchByName(Name: string): TGraphicSetItem;
@@ -59 +59 @@
   { TGraphicSets }
 
-  TGraphicSets = class(TFPGObjectList<TGraphicSet>)
+  TGraphicSets = class(TObjectList<TGraphicSet>)
     function SearchByName(Name: string): TGraphicSet;
     function AddNew(Name: string): TGraphicSet;