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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/LocalPlayer/Rates.pas

@@ -29 +29 @@
   RatesDlg: TRatesDlg;
 
+
 implementation
 
 uses
-  ClientTools, Term, Tribes;
+  ClientTools, Term, Tribes, UDpiControls;
 
 {$R *.lfm}
@@ -95 +96 @@
     GlowFrame(Offscreen, ClientWidth div 2 - xSizeBig div 2, 52, xSizeBig,
       ySizeBig, Tribe[me].Color);
-    BitBlt(Offscreen.Canvas.Handle, ClientWidth div 2 - xSizeBig div 2, 52,
+    DpiBitBlt(Offscreen.Canvas.Handle, ClientWidth div 2 - xSizeBig div 2, 52,
       xSizeBig, ySizeBig, BigImp.Canvas.Handle, (woLiberty mod 7) * xSizeBig,
       (woLiberty div 7 + SystemIconLines) * ySizeBig, SRCCOPY);
@@ -122 +123 @@
     begin
       for i := 0 to current div 8 - 1 do
-        BitBlt(Handle, x + max - 8 - i * 8, y, 8, 7,
+        DpiBitBlt(Handle, x + max - 8 - i * 8, y, 8, 7,
           GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY);
-      BitBlt(Handle, x + max - current, y, current - 8 * (current div 8), 7,
+      DpiBitBlt(Handle, x + max - current, y, current - 8 * (current div 8), 7,
         GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY);
       Brush.Color := $000000;