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

trunk/LocalPlayer/Nego.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, BaseWin, Protocol, LCLType, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonA, ButtonB, ButtonN;
+  ScreenTools, BaseWin, Protocol, LCLType, SysUtils, Classes, ButtonA, ButtonB,
+  ButtonN, System.UITypes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 const
@@ -432 +434 @@
     else
       FillRect(Rect(X, Y, X + 64, Y + 48));
-    Brush.Style := bsClear;
+    Brush.Style := TBrushStyle.bsClear;
     ScreenTools.Frame(Offscreen.Canvas, X - 1, Y - 1, X + 64, Y + 48, $000000, $000000);
   end
@@ -572 +574 @@
     FillRect(Rect(xText1 + PaperShade, yText1 + hText,
       xText1 + wText + PaperShade, yText1 + hText + PaperShade));
-    Brush.Style := bsClear;
+    Brush.Style := TBrushStyle.bsClear;
   end;