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

branches/highdpi/LocalPlayer/MessgEx.pas

@@ -5 +5 @@
 
 uses
-  Messg, Protocol, ScreenTools, Platform, DateUtils,
+  Messg, Protocol, ScreenTools, Platform, DateUtils, UDpiControls,
   LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
   ButtonB, StdCtrls, DrawDlg;
@@ -32 +32 @@
   private
     MovieCancelled: boolean;
-    procedure PaintBook(ca: TCanvas; x, y, clPage, clCover: integer);
+    procedure PaintBook(ca: TDpiCanvas; x, y, clPage, clCover: integer);
     procedure PaintMyArmy;
     procedure PaintEnemyArmy;
@@ -73 +73 @@
 
 uses
-  ClientTools, BaseWin, Term, Help, UnitStat, Tribes, PixelPointer,
-  IsoEngine, Diagram, Sound;
+  ClientTools, BaseWin, Term, Help, UnitStat, Tribes,
+  IsoEngine, Diagram;
 
 {$R *.lfm}
@@ -226 +226 @@
 end;
 
-procedure TMessgExDlg.PaintBook(ca: TCanvas; x, y, clPage, clCover: integer);
+procedure TMessgExDlg.PaintBook(ca: TDpiCanvas; x, y, clPage, clCover: integer);
 const
   xScrewed = 77;