Changeset 178 for branches/highdpi/LocalPlayer/Diagram.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/Diagram.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/Diagram.pas

@@ -6 +6 @@
 uses
   BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  ButtonB, Menus;
+  ButtonB, Menus, UDpiControls;
 
 type
@@ -34 +34 @@
   DiaDlg: TDiaDlg;
 
-procedure PaintColonyShip(canvas: TCanvas; Player, Left, Width, Top: integer);
+procedure PaintColonyShip(canvas: TDpiCanvas; Player, Left, Width, Top: integer);
 
 implementation
@@ -55 +55 @@
   yHab: array [0 .. 1] of integer = (-81, 1);
 
-procedure PaintColonyShip(canvas: TCanvas; Player, Left, Width, Top: integer);
+procedure PaintColonyShip(canvas: TDpiCanvas; Player, Left, Width, Top: integer);
 var
   i, x, r, nComp, nPow, nHab: integer;