Changeset 244 for branches/highdpi/LocalPlayer/Diagram.pas

Timestamp:

May 21, 2020, 6:42:45 PM (4 years ago)

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/LocalPlayer/Diagram.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/Diagram.pas

@@ -12 +12 @@
     CloseBtn: TButtonB;
     ToggleBtn: TButtonB;
-    Popup: TPopupMenu;
+    Popup: TDpiPopupMenu;
     procedure CloseBtnClick(Sender: TObject);
     procedure FormPaint(Sender: TObject);
@@ -330 +330 @@
 var
   p1: integer;
-  m: TMenuItem;
+  m: TDpiMenuItem;
 begin
   if Kind = dkChart then
@@ -345 +345 @@
         MyRO.Ship[p1].Parts[spHab] > 0 then
       begin
-        m := TMenuItem.Create(Popup);
+        m := TDpiMenuItem.Create(Popup);
         m.RadioItem := true;
         m.Caption := Tribe[p1].TPhrase('SHORTNAME');