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

trunk/LocalPlayer/CityScreen.pas

@@ -7 +7 @@
   {$IFDEF UNIX}LMessages,{$ENDIF}
   Protocol, ClientTools, ScreenTools, IsoEngine, BaseWin, LCLIntf, LCLType,
-  Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA,
-  ButtonC, Area, GraphType, Texture;
+  Messages, SysUtils, Classes, ButtonA, ButtonC, Area, GraphType, Texture,
+  System.UITypes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE}
+  Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 
 const
@@ -224 +226 @@
 
   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 + 'City.png',
     [gfNoGamma]);
   CityMapTemplate := TBitmap.Create;
-  CityMapTemplate.PixelFormat := pf24bit;
+  CityMapTemplate.PixelFormat := TPixelFormat.pf24bit;
   LoadGraphicFile(CityMapTemplate, GetGraphicsDir + DirectorySeparator + 'BigCityMap.png',
     [gfNoGamma]);
   SmallCityMapTemplate := TBitmap.Create;
-  SmallCityMapTemplate.PixelFormat := pf24bit;
+  SmallCityMapTemplate.PixelFormat := TPixelFormat.pf24bit;
   LoadGraphicFile(SmallCityMapTemplate, GetGraphicsDir + DirectorySeparator + 'SmallCityMap.png',
     [gfNoGamma]);
   SmallCityMap := TBitmap.Create;
-  SmallCityMap.PixelFormat := pf24bit;
+  SmallCityMap.PixelFormat := TPixelFormat.pf24bit;
   SmallCityMap.SetSize(98, 74);
   SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height);
   ZoomCityMap := TBitmap.Create;
-  ZoomCityMap.PixelFormat := pf24bit;
+  ZoomCityMap.PixelFormat := TPixelFormat.pf24bit;
   ZoomCityMap.SetSize(228, 124);
   ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height);
@@ -362 +364 @@
       end;
     end;
-    Brush.style := bsClear;
+    Brush.style := TBrushStyle.bsClear;
   end;
 end;
@@ -537 +539 @@
     Brush.Color := $FFFFFF;
     FillRect(Rect(8, 7, 36, 32));
-    Brush.style := bsClear;
+    Brush.style := TBrushStyle.bsClear;
     Font.Color := $000000;
     S := IntToStr(C.Size);
@@ -810 +812 @@
     Offscreen.Canvas.Brush.Color := MainTexture.ColorMark;
     Offscreen.Canvas.FillRect(Rect(X - 27, Y - 6, X + 27, Y + 6));
-    Offscreen.Canvas.Brush.style := bsClear;
+    Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear;
   end;
   Sprite(Offscreen, HGrSystem, X - 16, Y - 5, 10, 10, 88, 115);
@@ -985 +987 @@
         FillRect(Rect(xView + 9, yView + 5, xView + 1 + 72 - 8,
           yView + 5 + 40));
-        Brush.style := bsClear;
+        Brush.Style := TBrushStyle.bsClear;
       end;
     end
@@ -1624 +1626 @@
         FillRect(Rect(xView + 9, yView + 5, xView + 1 + 72 - 8,
           yView + 5 + 40));
-        Brush.style := bsClear;
+        Brush.Style := TBrushStyle.bsClear;
       end
     else if BlinkTime = 6 then