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

trunk/LocalPlayer/Battle.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Protocol, ButtonBase, ButtonA, Types, LCLIntf, LCLType,
-  SysUtils, Classes, Graphics, Controls, Forms, DrawDlg, IsoEngine;
+  ScreenTools, Protocol, ButtonBase, ButtonA, Types, LCLIntf, LCLType, UITypes,
+  SysUtils, Classes, DrawDlg, IsoEngine,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -236 +238 @@
     Brush.Color := 0;
     FillRect(Rect(0, 0, ClientWidth, ClientHeight));
-    Brush.Style := bsClear;
+    Brush.Style := TBrushStyle.bsClear;
     PaintBackground(self, 3 + Border, 3 + Border,
       ClientWidth - (6 + 2 * Border), ClientHeight - (6 + 2 * Border));