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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/Help.pas (modified) (6 diffs)

branches/highdpi/LocalPlayer/Help.pas

@@ -315 +315 @@
       ca.FrameRect(rect(x+1,i*24+1,x+24-1,i*24+24-1));
       ca.Brush.Style:=bsClear; }
-    BitBlt(ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1,
+    DpiBitBlt(ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1,
       146, SRCCOPY);
     BiColorTextOut(ca, $FFFFFF, $7F007F, x + 10 - ca.Textwidth(s[1]) div 2,
@@ -456 +456 @@
           if 4 + i * 24 + yl > InnerHeight then
             yl := InnerHeight - (4 + i * 24);
-          BitBlt(Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle,
+          DpiBitBlt(Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle,
             0, 0, SRCCOPY);
         end;
@@ -497 +497 @@
                 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
               if HelpLineInfo.Picpix = imPalace then
-                BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
+                DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
                   xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
                   0 * xSizeSmall, 1 * ySizeSmall, SRCCOPY)
               else
-                BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
+                DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
                   xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
                   HelpLineInfo.Picpix mod 7 * xSizeSmall,
@@ -564 +564 @@
                 $000000, $000000);
               if AdvIcon[HelpLineInfo.Picpix] < 84 then
-                BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
+                DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,
                   xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle,
                   (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 7) mod 7 *
@@ -574 +574 @@
                   295 + (AdvIcon[HelpLineInfo.Picpix] - 84) div 8 * 21);
               j := AdvValue[HelpLineInfo.Picpix] div 1000;
-              BitBlt(Handle, x0[i] + 4, 4 + i * 24, 14, 14,
+              DpiBitBlt(Handle, x0[i] + 4, 4 + i * 24, 14, 14,
                 GrExt[HGrSystem].Mask.Canvas.Handle, 127 + j * 15, 85, SRCAND);
               Sprite(OffScreen, HGrSystem, x0[i] + 3, 3 + i * 24, 14, 14,
@@ -751 +751 @@
               ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24,
                 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000);
-              BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,
+              DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,
                 ySizeSmall, SmallImp.Canvas.Handle, (HelpLineInfo.Picpix - 1) *
                 xSizeSmall, ySizeSmall, SRCCOPY);