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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/Select.pas (modified) (5 diffs)

branches/highdpi/LocalPlayer/Select.pas

@@ -196 +196 @@
       if pix and cpType = 0 then
         if (pix and cpIndex = imPalace) and (MyRO.Government <> gAnarchy) then
-          BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
+          DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
             ySizeSmall, SmallImp.Canvas.Handle, (MyRO.Government - 1) *
             xSizeSmall, ySizeSmall, SRCCOPY)
         else
-          BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
+          DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
             ySizeSmall, SmallImp.Canvas.Handle, pix and cpIndex mod 7 *
             xSizeSmall, (pix and cpIndex + SystemIconLines * 7) div 7 *
             ySizeSmall, SRCCOPY)
       else
-        BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
+        DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,
           ySizeSmall, SmallImp.Canvas.Handle, (3 + pix and cpIndex) *
           xSizeSmall, 0, SRCCOPY)
@@ -567 +567 @@
                   MainTexture.clBevelLight, MainTexture.clBevelShade);
                 if AdvIcon[lix] < 84 then
-                  BitBlt(offscreen.Canvas.Handle, (8 + 16), y0, xSizeSmall,
+                  DpiBitBlt(offscreen.Canvas.Handle, (8 + 16), y0, xSizeSmall,
                     ySizeSmall, SmallImp.Canvas.Handle,
                     (AdvIcon[lix] + SystemIconLines * 7) mod 7 * xSizeSmall,
@@ -577 +577 @@
                     295 + (AdvIcon[lix] - 84) div 8 * 21);
                 j := AdvValue[lix] div 1000;
-                BitBlt(Handle, (8 + 16 - 4), y0 + 2, 14, 14,
+                DpiBitBlt(Handle, (8 + 16 - 4), y0 + 2, 14, 14,
                   GrExt[HGrSystem].Mask.Canvas.Handle, 127 + j * 15,
                   85, SRCAND);
@@ -672 +672 @@
               8 + 16 + xSizeSmall, y0 - 15 + (16 - 1 + ySizeSmall),
               MainTexture.clBevelLight, MainTexture.clBevelShade);
-            BitBlt(offscreen.Canvas.Handle, 8 + 16, y0 - 15 + (16 - 1),
+            DpiBitBlt(offscreen.Canvas.Handle, 8 + 16, y0 - 15 + (16 - 1),
               xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
               (lix - 1) * xSizeSmall, ySizeSmall, SRCCOPY);
@@ -819 +819 @@
         ImageOp_BCC(ScienceNationDot, Templates, 0, 0, 114, 211, 17, 17,
           MainTexture.clBevelShade, Tribe[ScienceNation].Color);
-        BitBlt(Canvas.Handle, xScreen - 10, ClientHeight - 27, 17, 17,
+        DpiBitBlt(Canvas.Handle, xScreen - 10, ClientHeight - 27, 17, 17,
           ScienceNationDot.Canvas.Handle, 0, 0, SRCCOPY);
       end;