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

Timestamp:

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

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/LocalPlayer/Select.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/Select.pas

@@ -27 +27 @@
     Layer0Btn: TButtonB;
     ToggleBtn: TButtonB;
-    Popup: TPopupMenu;
+    Popup: TDpiPopupMenu;
     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
       WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
@@ -1773 +1773 @@
 var
   p1: integer;
-  m: TMenuItem;
+  m: TDpiMenuItem;
 begin
   case Kind of
@@ -1796 +1796 @@
         if G.Difficulty[me] > 0 then
         begin
-          m := TMenuItem.Create(Popup);
+          m := TDpiMenuItem.Create(Popup);
           m.RadioItem := true;
           m.Caption := Tribe[me].TPhrase('SHORTNAME');
@@ -1809 +1809 @@
             (MyRO.EnemyReport[p1].TurnOfMilReport >= 0) then
           begin
-            m := TMenuItem.Create(Popup);
+            m := TDpiMenuItem.Create(Popup);
             m.RadioItem := true;
             m.Caption := Tribe[p1].TPhrase('SHORTNAME');