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

trunk/MiniMap.pas

@@ -5 +5 @@
 
 uses
-  Classes, SysUtils, Graphics, Protocol, ClientTools;
+  Classes, SysUtils, Protocol, ClientTools,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Common{$ELSE}Graphics{$ENDIF};
 
 type
@@ -37 +38 @@
 
 uses
-  ScreenTools, PixelPointer, Global, GameServer, IsoEngine, Tribes;
+  {$IFDEF DPI}Dpi.PixelPointer,{$ELSE}PixelPointer,{$ENDIF}
+  ScreenTools, Global, GameServer, IsoEngine, Tribes;
 
 const
@@ -169 +171 @@
   Size := WorldSize;
 
-  Bitmap.PixelFormat := pf24bit;
+  Bitmap.PixelFormat := TPixelFormat.pf24bit;
   Bitmap.SetSize(Size.X * 2, Size.Y);
   Bitmap.BeginUpdate;
@@ -199 +201 @@
   OwnColor := HGrSystem.Data.Canvas.Pixels[95, 67];
   EnemyColor := HGrSystem.Data.Canvas.Pixels[96, 67];
-  Bitmap.PixelFormat := pf24bit;
+  Bitmap.PixelFormat := TPixelFormat.pf24bit;
   Bitmap.SetSize(Size.X * 2, Size.Y);
   if Mode = mmPicture then begin
@@ -261 +263 @@
     FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
   end;
-  Bitmap.PixelFormat := pf24bit;
+  Bitmap.PixelFormat := TPixelFormat.pf24bit;
   Bitmap.SetSize(Size.X * 2, Size.Y);
   Bitmap.BeginUpdate;