Changeset 178 for branches/highdpi/LocalPlayer/TechTree.pas

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

• branches/highdpi/LocalPlayer/TechTree.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/TechTree.pas

@@ -6 +6 @@
 uses
   ScreenTools, Messg, LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics,
-  Controls, Forms, ButtonBase, ButtonB, DrawDlg;
+  Controls, Forms, ButtonBase, ButtonB, DrawDlg, UDpiControls;
 
 type
@@ -23 +23 @@
   private
     xOffset, yOffset, xDown, yDown: Integer;
-    Image: TBitmap;
+    Image: TDpiBitmap;
     dragging: boolean;
   end;
@@ -30 +30 @@
   TechTreeDlg: TTechTreeDlg;
 
-
 implementation
 
 uses
-  Directories, PixelPointer;
+  Directories;
 
 {$R *.lfm}
@@ -126 +125 @@
   if Image = nil then
   begin
-    Image := TBitmap.Create;
+    Image := TDpiBitmap.Create;
     Image.PixelFormat := pf24bit;
     LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree.png', gfNoGamma);