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

branches/highdpi/LocalPlayer/UnitStat.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin,
+  Protocol, ClientTools, Term, ScreenTools, BaseWin, UDpiControls,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
   ButtonB, ButtonC;
@@ -41 +41 @@
     Kind: (dkOwnModel, dkOwnUnit, dkEnemyModel, dkEnemyUnit, dkEnemyCityDefense,
       dkEnemyCity);
-    Back, Template: TBitmap;
+    Back, Template: TDpiBitmap;
     procedure OffscreenPaint; override;
   end;
@@ -77 +77 @@
   InitButtons();
 
-  Back := TBitmap.Create;
+  Back := TDpiBitmap.Create;
   Back.PixelFormat := pf24bit;
   Back.SetSize(5 * wCommon, hMax);
   Back.Canvas.FillRect(0, 0, Back.Width,Back.Height);
-  Template := TBitmap.Create;
+  Template := TDpiBitmap.Create;
   Template.PixelFormat := pf24bit;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit.png', gfNoGamma);
@@ -300 +300 @@
   end;
 
-  procedure FeatureBar(dst: TBitmap; x, y: integer; const mi: TModelInfo;
+  procedure FeatureBar(dst: TDpiBitmap; x, y: integer; const mi: TModelInfo;
     const T: TTexture);
   var
@@ -367 +367 @@
   end; { featurebar }
 
-  procedure NumberBarS(dst: TBitmap; x, y: integer; Cap, s: string;
+  procedure NumberBarS(dst: TDpiBitmap; x, y: integer; Cap, s: string;
     const T: TTexture);
   begin