Changeset 210 for branches/highdpi/LocalPlayer/Enhance.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/LocalPlayer/Enhance.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType,
+  UDpiControls, ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType,
 
   SysUtils, Classes, Graphics, Controls, Forms,
@@ -45 +45 @@
   EnhanceDlg: TEnhanceDlg;
 
-
 implementation
 
-uses
-  Help, UDpiControls;
+uses Help;
 
 {$R *.lfm}
@@ -98 +96 @@
   for i := 0 to ControlCount - 1 do
     if Controls[i] is TButtonC then
-      DpiBitBlt(Canvas.Handle, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8,
-        GrExt[HGrSystem].Data.Canvas.Handle, 121 + Controls[i].Tag mod 7 * 9,
-        1 + Controls[i].Tag div 7 * 9, SRCCOPY);
+      DpiBitCanvas(Canvas, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8,
+        GrExt[HGrSystem].Data.Canvas, 121 + Controls[i].Tag mod 7 * 9,
+        1 + Controls[i].Tag div 7 * 9);
 end;