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

Timestamp:

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

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/LocalPlayer/NatStat.pas (modified) (5 diffs)

branches/highdpi/LocalPlayer/NatStat.pas

@@ -16 +16 @@
     ToggleBtn: TButtonB;
     CloseBtn: TButtonB;
-    Popup: TPopupMenu;
+    Popup: TDpiPopupMenu;
     ScrollUpBtn: TButtonC;
     ScrollDownBtn: TButtonC;
@@ -435 +435 @@
 var
   p1, StartCount: integer;
-  m: TMenuItem;
+  m: TDpiMenuItem;
   ExtinctPart: boolean;
 begin
@@ -443 +443 @@
   if G.Difficulty[me] <> 0 then
   begin
-    m := TMenuItem.Create(Popup);
+    m := TDpiMenuItem.Create(Popup);
     m.RadioItem := true;
     m.Caption := Tribe[me].TPhrase('TITLE_NATION');
@@ -462 +462 @@
         (1 shl p1 and MyRO.Alive <> 0) and (MyRO.Treaty[p1] >= trNone) then
       begin
-        m := TMenuItem.Create(Popup);
+        m := TDpiMenuItem.Create(Popup);
         m.RadioItem := true;
         m.Caption := Tribe[p1].TPhrase('TITLE_NATION');
@@ -475 +475 @@
     if (StartCount > 0) and (Popup.Items.Count > StartCount) then
     begin // seperator
-      m := TMenuItem.Create(Popup);
+      m := TDpiMenuItem.Create(Popup);
       m.Caption := '-';
       Popup.Items.Insert(StartCount, m);