Changeset 512


Ignore:
Timestamp:
Jan 1, 2024, 10:55:36 AM (12 months ago)
Author:
chronos
Message:
  • Modified: Clear menu optimisation.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Term.pas

    r508 r512  
    24722472                    begin
    24732473                      ok := False;
    2474                       Break
     2474                      Break;
    24752475                    end;
    24762476                  end

  • trunk/Packages/CevoComponents/ScreenTools.pas

    r506 r512  
    253253  MenuItem: TMenuItem;
    254254begin
     255  if Keep = 0 then MenuItems.Clear
     256  else
    255257  while MenuItems.Count > Keep do begin
    256258    MenuItem := MenuItems[MenuItems.Count - 1];
Note: See TracChangeset for help on using the changeset viewer.