Changeset 178 for branches/highdpi/LocalPlayer/Nego.pas

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/LocalPlayer/Nego.pas

@@ -6 +6 @@
 uses
   ScreenTools, BaseWin, Protocol, Term, LCLType, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonA, ButtonB, ButtonN;
+  Controls, Forms, ButtonA, ButtonB, ButtonN, UDpiControls;
 
 const
@@ -15 +15 @@
 type
   THistory = record
-    n: Integer;
-    Text: array[0 .. MaxHistory - 1] of ansistring;
-  end;
-
-  TCommandAllowedEnum = scDipNoticeStart..scDipBreakStart;
+    n: integer;
+    Text: array [0 .. MaxHistory - 1] of ansistring;
+  end;
+
+  TCommandAllowedEnum = scDipNoticeStart .. scDipBreakStart;
 
   { TNegoDlg }
@@ -83 +83 @@
     CommandAllowed: set of TCommandAllowedEnum;
     History: array [0 .. nPl - 1] of THistory;
-    RomanFont: TFont;
+    RomanFont: TDpiFont;
     Costs, Delivers: array [0 .. 11] of cardinal;
     procedure ResetCurrentOffer;
@@ -161 +161 @@
 
   fillchar(History, sizeof(History), 0);
-  RomanFont := TFont.Create;
+  RomanFont := TDpiFont.Create;
   RomanFont.Name := 'Times New Roman';
   RomanFont.Size := Round(144 * 72 / RomanFont.PixelsPerInch);