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

trunk/LocalPlayer/Select.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, ScreenTools, PVSB, BaseWin,
-  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-  ExtCtrls, ButtonB, ButtonBase, Menus, Types;
+  Protocol, ClientTools, ScreenTools, PVSB, BaseWin, System.UITypes,
+  LCLIntf, LCLType, Messages, SysUtils, Classes, ButtonB, ButtonBase, Types,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Menus{$ELSE}
+  Graphics, Controls, Forms, ExtCtrls, Menus{$ENDIF};
 
 const
@@ -118 +119 @@
   Layer2Btn.Hint := Phrases.Lookup('BTN_CLASSES');
   ScienceNationDotBuffer := TBitmap.Create;
-  ScienceNationDotBuffer.PixelFormat := pf24bit;
+  ScienceNationDotBuffer.PixelFormat := TPixelFormat.pf24bit;
   ScienceNationDotBuffer.SetSize(17, 17);
   ScienceNationDotBuffer.Canvas.FillRect(0, 0, ScienceNationDotBuffer.Width, ScienceNationDotBuffer.Height);
@@ -276 +277 @@
           Brush.Color := $FFFFFF;
           FillRect(rect(X - 4 - 12, Y, X - 4 + 12, Y + 20));
-          Brush.style := bsClear;
+          Brush.Style := TBrushStyle.bsClear;
           Font.Color := $000000;
           S := IntToStr(MyCity[lix].Size);
@@ -749 +750 @@
           FillRect(rect(104 - 33 + 14 + TechNameSpace + 24 * I + 1 * 2, 0,
             104 - 33 + 17 + TechNameSpace + 24 * I + 8 * 2, InnerHeight));
-          Brush.style := bsClear;
+          Brush.Style := TBrushStyle.bsClear;
         end
         else