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

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/LocalPlayer/Enhance.pas

@@ -45 +45 @@
   EnhanceDlg: TEnhanceDlg;
 
+
 implementation
 
-uses Help;
+uses
+  Help, UDpiControls;
 
 {$R *.lfm}
@@ -96 +98 @@
   for i := 0 to ControlCount - 1 do
     if Controls[i] is TButtonC then
-      BitBlt(Canvas.Handle, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8,
+      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);