Changeset 512 for trunk/Packages

Timestamp:

Jan 1, 2024, 10:55:36 AM (5 months ago)

Author:

chronos

Message:

• Modified: Clear menu optimisation.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -253 +253 @@
   MenuItem: TMenuItem;
 begin
+  if Keep = 0 then MenuItems.Clear
+  else
   while MenuItems.Count > Keep do begin
     MenuItem := MenuItems[MenuItems.Count - 1];