Changeset 468 for trunk/LocalPlayer/Draft.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (5 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/Draft.pas (modified) (5 diffs)

trunk/LocalPlayer/Draft.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils,
-  Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA, ButtonB, Area;
+  Classes, ButtonA, ButtonB, Area, System.UITypes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE}
+  Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 
 type
@@ -83 +85 @@
 
   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 + 'MiliRes.png',
     [gfNoGamma]);
@@ -156 +158 @@
               FrameRect(Rect(xTotal2 - 3 - dx, Y + 2,
                 xTotal2 + 11 - dx, Y + 16));
-              Brush.Style := bsClear;
+              Brush.Style := TBrushStyle.bsClear;
               Sprite(Offscreen, HGrSystem, xTotal2 - 1 - dx, Y + 4, 10, 10,
                 66 + I mod 11 * 11, 137 + I div 11 * 11);
@@ -167 +169 @@
                 FillRect(Rect(xTotal2 - 3 - dx, Y + 2,
                   xTotal2 + W - 1 - dx, Y + 16));
-                Brush.Style := bsClear;
+                Brush.Style := TBrushStyle.bsClear;
                 Textout(xTotal2 - 3 - dx + 1, Y, S);
               end;
@@ -508 +510 @@
   I, D: Integer;
 begin
-  if Button = mbLeft then
+  if Button = TMouseButton.mbLeft then
   begin
     for D := 0 to nDomains - 1 do