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/LocalPlayer/Enhance.pas

    r210 r244  
    1515
    1616  TEnhanceDlg = class(TFramedDlg)
    17     MenuItem1: TMenuItem;
     17    MenuItem1: TDpiMenuItem;
    1818    ToggleBtn: TButtonB;
    1919    CloseBtn: TButtonB;
    … …  
    2626    job6: TButtonC;
    2727    job9: TButtonC;
    28     Popup: TPopupMenu;
     28    Popup: TDpiPopupMenu;
    2929    procedure FormCreate(Sender: TObject);
    3030    procedure FormPaint(Sender: TObject);
    … …  
    5454var
    5555  TerrType: integer;
    56   m: TMenuItem;
     56  m: TDpiMenuItem;
    5757begin
    5858  inherited;
    … …  
    6767    if TerrType <> fJungle then
    6868    begin
    69       m := TMenuItem.Create(Popup);
     69      m := TDpiMenuItem.Create(Popup);
    7070      m.RadioItem := true;
    7171      if TerrType = fGrass then
Note: See TracChangeset for help on using the changeset viewer.