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

trunk/LocalPlayer/TechTree.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonB, DrawDlg;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, ButtonB, DrawDlg,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE}
+  Graphics, Controls, Forms{$ENDIF};
 
 type
@@ -132 +133 @@
   if Image = nil then begin
     Image := TBitmap.Create;
-    Image.PixelFormat := pf24bit;
+    Image.PixelFormat := TPixelFormat.pf24bit;
     LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree.png',
       [gfNoGamma]);
@@ -140 +141 @@
       Font.Assign(UniFont[ftSmall]);
       Font.Color := clBlack;
-      Brush.Style := bsClear;
+      Brush.Style := TBrushStyle.bsClear;
       for X := 0 to (Image.Width - xStart) div xPitch do
         for Y := 0 to (Image.Height - yStart) div yPitch do
@@ -186 +187 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  if Button = mbLeft then
+  if Button = TMouseButton.mbLeft then
   begin
     Dragging := True;