Changeset 86 for trunk/UMenu.pas

Timestamp:

Jun 21, 2022, 5:04:48 PM (23 months ago)

Author:

chronos

Message:

• Fixed: Calculation of tracks end.
• Modified: Updated Common package to version 0.10.
• Modified: Build with Lazarus 2.2.2.
• Modified: Used Generics.Collections instead of fgl for generic lists.

File:

• trunk/UMenu.pas (modified) (2 diffs)

trunk/UMenu.pas

@@ -1 +1 @@
 unit UMenu;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, Graphics, Controls, fgl, UControls;
+  Classes, SysUtils, Graphics, Controls, Generics.Collections, UControls;
 
 type
@@ -60 +58 @@
   { TMenuItems }
 
-  TMenuItems = class(TFPGObjectList<TMenuItem>)
+  TMenuItems = class(TObjectList<TMenuItem>)
     function AddButton(Text: string; OnClick: TNotifyEvent): TMenuItemButton;
     function AddCheckBox(Text: string; OnChanged: TNotifyEvent): TMenuItemCheckBox;