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

branches/highdpi/LocalPlayer/Draft.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin,
-
+  Protocol, ClientTools, Term, ScreenTools, BaseWin, UDpiControls,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
   ButtonA,
@@ -35 +34 @@
       IncCap, DecCap: integer;
     code: array [0 .. nFeature - 1] of integer;
-    Template, Back: TBitmap;
+    Template, Back: TDpiBitmap;
     function IsFeatureInList(d, i: integer): boolean;
     procedure SetDomain(d: integer);
@@ -86 +85 @@
   end;
 
-  Back := TBitmap.Create;
+  Back := TDpiBitmap.Create;
   Back.PixelFormat := pf24bit;
   Back.SetSize(Width, Height);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
-  Template := TBitmap.Create;
+  Template := TDpiBitmap.Create;
   Template.PixelFormat := pf24bit;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes.png', gfNoGamma);