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

Timestamp:

Mar 9, 2021, 9:19:49 AM (3 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

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

branches/highdpi/LocalPlayer/TechTree.pas

@@ -23 +23 @@
       Shift: TShiftState; X, Y: Integer);
     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure CloseBtnClick(Sender: TObject);
   private
@@ -133 +132 @@
   NewHeight: Integer;
 const
-  TransparentColor = $7F007F;
+  TransparentColor: Cardinal = $7F007F;
 begin
   if Image = nil then begin
     Image := TDpiBitmap.Create;
     Image.PixelFormat := pf24bit;
-    LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree.png', gfNoGamma);
+    LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree.png',
+      [gfNoGamma]);
 
     with Image.Canvas do begin
@@ -228 +228 @@
 end;
 
-procedure TTechTreeDlg.FormKeyDown(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
-begin
-  if Key = VK_ESCAPE then
-    Close;
-end;
-
 procedure TTechTreeDlg.CloseBtnClick(Sender: TObject);
 begin