Changeset 210 for branches/highdpi/LocalPlayer/Rates.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/Rates.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/Rates.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ScreenTools, BaseWin, LCLIntf, LCLType,
+  UDpiControls, Protocol, ScreenTools, BaseWin, LCLIntf, LCLType,
 
   SysUtils, Classes, Graphics, Controls, Forms,
@@ -29 +29 @@
   RatesDlg: TRatesDlg;
 
-
 implementation
 
 uses
-  ClientTools, Term, Tribes, UDpiControls;
+  ClientTools, Term, Tribes;
 
 {$R *.lfm}
@@ -96 +95 @@
     GlowFrame(Offscreen, ClientWidth div 2 - xSizeBig div 2, 52, xSizeBig,
       ySizeBig, Tribe[me].Color);
-    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);
+    DpiBitCanvas(Offscreen.Canvas, ClientWidth div 2 - xSizeBig div 2, 52,
+      xSizeBig, ySizeBig, BigImp.Canvas, (woLiberty mod 7) * xSizeBig,
+      (woLiberty div 7 + SystemIconLines) * ySizeBig);
   end
   else
@@ -123 +122 @@
     begin
       for i := 0 to current div 8 - 1 do
-        DpiBitBlt(Handle, x + max - 8 - i * 8, y, 8, 7,
-          GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY);
-      DpiBitBlt(Handle, x + max - current, y, current - 8 * (current div 8), 7,
-        GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY);
+        DpiBitCanvas(Offscreen.Canvas, x + max - 8 - i * 8, y, 8, 7,
+          GrExt[HGrSystem].Data.Canvas, 104, 9 + 8 * 2);
+      DpiBitCanvas(Offscreen.Canvas, x + max - current, y, current - 8 * (current div 8), 7,
+        GrExt[HGrSystem].Data.Canvas, 104, 9 + 8 * 2);
       Brush.Color := $000000;
       FillRect(Rect(x, y, x + max - current, y + 7));