Changeset 244 for branches/highdpi/Start.pas

Timestamp:

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

Author:

chronos

Message:

• Added: TDpiPopupMenu and TDpiMenuItem support.

File:

• branches/highdpi/Start.pas (modified) (7 diffs)

branches/highdpi/Start.pas

@@ -61 +61 @@
 
   TStartDlg = class(TDrawDlg)
-    PopupMenu1: TPopupMenu;
+    PopupMenu1: TDpiPopupMenu;
     StartBtn: TButtonA;
     Down1Btn: TButtonC;
@@ -1299 +1299 @@
   if PlayerPopupIndex < 0 then
   begin // change default AI
-    BrainDefault := Brains[TMenuItem(Sender).Tag];
+    BrainDefault := Brains[TDpiMenuItem(Sender).Tag];
     SmartInvalidate(xDefault, yDefault, xDefault + 64, yDefault + 64);
   end
@@ -1306 +1306 @@
     if Assigned(PlayersBrain[PlayerPopupIndex]) then
       PlayersBrain[PlayerPopupIndex].Flags := PlayersBrain[PlayerPopupIndex].Flags and not fUsed;
-    if TMenuItem(Sender).Tag = -1 then begin
+    if TDpiMenuItem(Sender).Tag = -1 then begin
       PlayersBrain[PlayerPopupIndex] := nil;
       PlayerSlots[PlayerPopupIndex].DiffUpBtn.Visible := False;
@@ -1316 +1316 @@
       MultiControl := MultiControl and not (1 shl PlayerPopupIndex);
     end else begin
-      PlayersBrain[PlayerPopupIndex] := Brains[TMenuItem(Sender).Tag];
+      PlayersBrain[PlayerPopupIndex] := Brains[TDpiMenuItem(Sender).Tag];
       PlayerSlots[PlayerPopupIndex].DiffUpBtn.Visible := PlayersBrain[PlayerPopupIndex].Kind in [btTerm, btRandom, btAI];
       PlayerSlots[PlayerPopupIndex].DiffDownBtn.Visible := PlayersBrain[PlayerPopupIndex].Kind in [btTerm, btRandom, btAI];
@@ -1360 +1360 @@
 var
   J: Integer;
-  MenuItem: TMenuItem;
-begin
-  MenuItem := TMenuItem.Create(PopupMenu1);
+  MenuItem: TDpiMenuItem;
+begin
+  MenuItem := TDpiMenuItem.Create(PopupMenu1);
   if not Assigned(Brain) then MenuItem.Caption := Phrases.Lookup('NOMOD')
     else MenuItem.Caption := Brain.Name;
@@ -1381 +1381 @@
   I: Integer;
   FixedLines: integer;
-  MenuItem: TMenuItem;
+  MenuItem: TDpiMenuItem;
   AIBrains: TBrains;
 begin
@@ -1411 +1411 @@
       end;
     if PlayerPopupIndex > 0 then begin
-      MenuItem := TMenuItem.Create(PopupMenu1);
+      MenuItem := TDpiMenuItem.Create(PopupMenu1);
       MenuItem.Caption := '-';
       PopupMenu1.Items.Add(MenuItem);