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

branches/highdpi/LocalPlayer/NatStat.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin,
-
+  Protocol, ClientTools, Term, ScreenTools, BaseWin, UDpiControls,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
   ButtonB, ButtonC, Menus, EOTButton;
@@ -45 +44 @@
     SelfReport, CurrentReport: PEnemyReport;
     ShowContact, ContactEnabled: boolean;
-    Back, Template: TBitmap;
+    Back, Template: TDpiBitmap;
     ReportText: TStringList;
     procedure GenerateReportText;
@@ -87 +86 @@
   ContactBtn.Hint := Phrases.Lookup('BTN_DIALOG');
 
-  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 + 'Nation.png', gfNoGamma);