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

trunk/LocalPlayer/IsoEngine.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils,
-  Classes, Graphics, PixelPointer, GraphicSet;
+  Classes, GraphicSet,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.PixelPointer, Dpi.Common{$ELSE}
+  Graphics, PixelPointer{$ENDIF};
 
 const
@@ -215 +217 @@
 begin
   LandPatch := TBitmap.Create;
-  LandPatch.PixelFormat := pf24bit;
+  LandPatch.PixelFormat := TPixelFormat.pf24bit;
   OceanPatch := TBitmap.Create;
-  OceanPatch.PixelFormat := pf24bit;
+  OceanPatch.PixelFormat := TPixelFormat.pf24bit;
   Borders := TBitmap.Create;
-  Borders.PixelFormat := pf24bit;
+  Borders.PixelFormat := TPixelFormat.pf24bit;
   HGrTerrain := nil;
   HGrCities := nil;
@@ -251 +253 @@
   Mask24 := TBitmap.Create;
   Mask24.Assign(HGrTerrain.Mask);
-  Mask24.PixelFormat := pf24bit;
+  Mask24.PixelFormat := TPixelFormat.pf24bit;
   Mask24.BeginUpdate;
   for ySrc := 0 to TerrainIconLines - 1 do begin
@@ -344 +346 @@
   OceanPatch.Canvas.FillRect(0, 0, OceanPatch.Width, OceanPatch.Height);
   LandMore := TBitmap.Create;
-  LandMore.PixelFormat := pf24bit;
+  LandMore.PixelFormat := TPixelFormat.pf24bit;
   LandMore.Canvas.Brush.Color := 0;
   LandMore.SetSize(xxt * 18, yyt * 9);
   LandMore.Canvas.FillRect(0, 0, LandMore.Width, LandMore.Height);
   OceanMore := TBitmap.Create;
-  OceanMore.PixelFormat := pf24bit;
+  OceanMore.PixelFormat := TPixelFormat.pf24bit;
   OceanMore.Canvas.Brush.Color := 0;
   OceanMore.SetSize(xxt * 8, yyt * 4);
   OceanMore.Canvas.FillRect(0, 0, OceanMore.Width, OceanMore.Height);
   DitherMask := TBitmap.Create;
-  DitherMask.PixelFormat := pf24bit;
+  DitherMask.PixelFormat := TPixelFormat.pf24bit;
   DitherMask.SetSize(xxt * 2, yyt * 2);
   DitherMask.Canvas.FillRect(0, 0, DitherMask.Width, DitherMask.Height);
@@ -584 +586 @@
   FOutput.Canvas.Brush.Color := Color;
   FOutput.Canvas.FillRect(Rect(X, Y, X + Width, Y + Height));
-  FOutput.Canvas.Brush.Style := bsClear;
+  FOutput.Canvas.Brush.Style := TBrushStyle.bsClear;
 end;
 
@@ -1080 +1082 @@
       xs := X + xxt - (W + 1) div 2;
       if IsCapital then
-        FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style + [fsUnderline];
+        FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style + [TFontStyle.fsUnderline];
       Textout(xs + 1, Y - 9, $000000, S);
       Textout(xs, Y - 10, $FFFFFF, S);
       if IsCapital then
-        FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style - [fsUnderline];
+        FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style - [TFontStyle.fsUnderline];
     end;
   end;
@@ -1509 +1511 @@
     Brush.Color := $000000;
     FillRect(Rect(FLeft, RealTop, FRight, RealBottom));
-    Brush.Style := bsClear;
+    Brush.Style := TBrushStyle.bsClear;
   end;