Changeset 424 for trunk/LocalPlayer/UKeyBindings.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/UKeyBindings.pas (modified) (4 diffs)

trunk/LocalPlayer/UKeyBindings.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, fgl, LCLProc, LCLType, Menus, Registry;
+  Classes, SysUtils, Generics.Collections, Generics.Defaults, LCLProc, LCLType,
+  Menus, Registry;
 
 type
@@ -24 +25 @@
   { TKeyBindings }
 
-  TKeyBindings = class(TFPGObjectList<TKeyBinding>)
+  TKeyBindings = class(TObjectList<TKeyBinding>)
   private
   public
@@ -290 +291 @@
 end;
 
-function CompareAlpha(const Item1, Item2: TKeyBinding): Integer;
+function CompareAlpha(constref Item1, Item2: TKeyBinding): Integer;
 begin
   Result := CompareStr(Item1.FullName, Item2.FullName);
@@ -297 +298 @@
 procedure TKeyBindings.SortAlpha;
 begin
-  Sort(CompareAlpha);
+  Sort(TComparer<TKeyBinding>.Construct(CompareAlpha));
 end;