Ignore:
Timestamp:
May 21, 2020, 6:42:45 PM (4 years ago)
Author:
chronos
Message:
  • Added: TDpiPopupMenu and TDpiMenuItem support.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/highdpi/Packages/CevoComponents/ScreenTools.pas

    r210 r244  
    2121{$ENDIF}
    2222procedure RestoreResolution;
    23 procedure EmptyMenu(MenuItems: TMenuItem; Keep: Integer = 0);
     23procedure EmptyMenu(MenuItems: TDpiMenuItem; Keep: Integer = 0);
    2424function TurnToYear(Turn: integer): integer;
    2525function TurnToString(Turn: integer): string;
    … …  
    248248end;
    249249
    250 procedure EmptyMenu(MenuItems: TMenuItem; Keep: Integer = 0);
    251 var
    252   MenuItem: TMenuItem;
     250procedure EmptyMenu(MenuItems: TDpiMenuItem; Keep: Integer = 0);
     251var
     252  MenuItem: TDpiMenuItem;
    253253begin
    254254  while MenuItems.Count > Keep do begin
Note: See TracChangeset for help on using the changeset viewer.