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

trunk/LocalPlayer/NatStat.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
-  Classes, Graphics, Controls, Forms, ButtonB, ButtonC, Menus, EOTButton;
+  Classes, ButtonB, ButtonC, EOTButton,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Menus{$ELSE}
+  Graphics, Controls, Forms, Menus{$ENDIF};
 
 type
@@ -86 +88 @@
 
   Back := TBitmap.Create;
-  Back.PixelFormat := pf24bit;
+  Back.PixelFormat := TPixelFormat.pf24bit;
   Back.SetSize(Width, Height);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
-  Template.PixelFormat := pf24bit;
+  Template.PixelFormat := TPixelFormat.pf24bit;
   LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Nation.png',
     [gfNoGamma]);
@@ -359 +361 @@
         FillRect(Rect(xReport + PaperShade, yReport + hReport,
           xReport + wReport + PaperShade, yReport + hReport + PaperShade));
-        Brush.Style := bsClear;
+        Brush.Style := TBrushStyle.bsClear;
       end;