Changeset 468 for trunk/LocalPlayer/UnitStat.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (6 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

• trunk/LocalPlayer/UnitStat.pas (modified) (5 diffs)

trunk/LocalPlayer/UnitStat.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
-  Classes, Graphics, Controls, Forms, ButtonB, ButtonC, IsoEngine;
+  Classes, ButtonB, ButtonC, IsoEngine,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -79 +81 @@
 
   Back := TBitmap.Create;
-  Back.PixelFormat := pf24bit;
+  Back.PixelFormat := TPixelFormat.pf24bit;
   Back.SetSize(5 * wCommon, hMax);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
-  Template.PixelFormat := pf24bit;
+  Template.PixelFormat := TPixelFormat.pf24bit;
   LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Unit.png',
     [gfNoGamma]);
@@ -343 +345 @@
               Brush.Color := $FFFFFF;
               FillRect(Rect(X - 3 + dx, Y + 2, X + W - 1 + dx, Y + 16));
-              Brush.Style := bsClear;
+              Brush.Style := TBrushStyle.bsClear;
               Textout(X - 3 + dx + 1, Y, S);
               Inc(dx, W + 1);
@@ -349 +351 @@
             Brush.Color := $C0C0C0;
             FrameRect(Rect(X - 3 + dx, Y + 2, X + 11 + dx, Y + 16));
-            Brush.Style := bsClear;
+            Brush.Style := TBrushStyle.bsClear;
             Sprite(dst, HGrSystem, X - 1 + dx, Y + 4, 10, 10,
               66 + I mod 11 * 11, 137 + I div 11 * 11);
@@ -512 +514 @@
             Offscreen.Canvas.FillRect(Rect(xView, yView, xView + 64,
               yView + 16));
-            Brush.Style := bsClear;
+            Brush.Style := TBrushStyle.bsClear;
           end;