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

trunk/LocalPlayer/Help.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType,
-  Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
-  ButtonB, PVSB, Types, Generics.Collections, IsoEngine;
+  Protocol, ScreenTools, BaseWin, StringTables, Math, LCLIntf, LCLType, System.UITypes,
+  Messages, SysUtils, Classes, ButtonB, PVSB, Types, Generics.Collections, IsoEngine,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Common{$ELSE}
+  Graphics, Controls, Forms, ExtCtrls{$ENDIF};
 
 const
@@ -151 +152 @@
 
 uses
-  Directories, ClientTools, Term, Tribes, Inp, Messg, PixelPointer, Global,
-  KeyBindings;
+  {$IFDEF DPI}Dpi.PixelPointer,{$ELSE}PixelPointer,{$ENDIF}
+  Directories, ClientTools, Term, Tribes, Inp, Messg, Global, KeyBindings;
 
 {$R *.lfm}
@@ -293 +294 @@
   CaptionFont := Font.Create;
   CaptionFont.Assign(UniFont[ftNormal]);
-  CaptionFont.Style := CaptionFont.Style + [fsItalic, fsBold];
+  CaptionFont.Style := CaptionFont.Style + [TFontStyle.fsItalic, TFontStyle.fsBold];
   InitButtons;
 
@@ -302 +303 @@
   ExtPic := TBitmap.Create;
   TerrIcon := TBitmap.Create;
-  TerrIcon.PixelFormat := pf24bit;
+  TerrIcon.PixelFormat := TPixelFormat.pf24bit;
   TerrIcon.SetSize(xSizeBig, ySizeBig);
   TerrIcon.Canvas.FillRect(0, 0, TerrIcon.Width, TerrIcon.Height);
@@ -699 +700 @@
                 FrameRect(Rect(ofs, 1 + 23 + I * 24, ofs + 14,
                   15 + 23 + I * 24));
-                Brush.Style := bsClear;
+                Brush.Style := TBrushStyle.bsClear;
                 Sprite(OffScreen, HGrSystem, ofs + 2, 3 + 23 + I * 24, 10, 10,
                   66 + HelpLineInfo.Picpix mod 11 * 11,