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

trunk/LocalPlayer/Wonders.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, BaseWin, Protocol, LCLIntf, LCLType, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonB;
+  ScreenTools, BaseWin, Protocol, LCLIntf, LCLType, SysUtils, Classes, ButtonB,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.Common{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -35 +36 @@
 
 uses
-  Term, ClientTools, Help, Tribes, PixelPointer;
+  {$IFDEF DPI}Dpi.PixelPointer,{$ELSE}PixelPointer,{$ENDIF}
+  Term, ClientTools, Help, Tribes;
 
 {$R *.lfm}
@@ -67 +69 @@
 begin
   Canvas.Font.Assign(UniFont[ftNormal]);
-  Canvas.Brush.Style := bsClear;
+  Canvas.Brush.Style := TBrushStyle.bsClear;
   InitButtons;
 end;