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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/MessgEx.pas (modified) (7 diffs)

branches/highdpi/LocalPlayer/MessgEx.pas

@@ -304 +304 @@
   ImageOp_BCC(LogoBuffer, Templates, 0, 0, xb, yb, wb, hb, clCover, clPage);
 
-  BitBlt(ca.Handle, x, y, wb, hb, LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
+  DpiBitBlt(ca.Handle, x, y, wb, hb, LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
 end;
 
@@ -328 +328 @@
       with MyRO.EnemyModel[emix], Tribe[Owner].ModelPicture[mix] do
       begin
-        BitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Mask.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Mask.Canvas.Handle,
           pix mod 10 * 65 + 1, pix div 10 * 49 + 1, SRCAND);
-        BitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Data.Canvas.Handle,
+        DpiBitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Data.Canvas.Handle,
           pix mod 10 * 65 + 1, pix div 10 * 49 + 1, SRCPAINT);
       end;
@@ -371 +371 @@
       begin
         p1 := MyRO.Wonder[IconIndex].EffectiveOwner;
-        BitBlt(Buffer.Canvas.Handle, 0, 0, xSizeBig + 2 * GlowRange,
+        DpiBitBlt(Buffer.Canvas.Handle, 0, 0, xSizeBig + 2 * GlowRange,
           ySizeBig + 2 * GlowRange, Canvas.Handle,
           ClientWidth div 2 - (28 + GlowRange), 24 - GlowRange, SRCCOPY);
-        BitBlt(Buffer.Canvas.Handle, GlowRange, GlowRange, xSizeBig, ySizeBig,
+        DpiBitBlt(Buffer.Canvas.Handle, GlowRange, GlowRange, xSizeBig, ySizeBig,
           BigImp.Canvas.Handle, IconIndex mod 7 * xSizeBig,
           (IconIndex + SystemIconLines * 7) div 7 * ySizeBig, SRCCOPY);
@@ -382 +382 @@
           GlowFrame(Buffer, GlowRange, GlowRange, xSizeBig, ySizeBig,
             Tribe[p1].Color);
-        BitBlt(Canvas.Handle, ClientWidth div 2 - (28 + GlowRange),
+        DpiBitBlt(Canvas.Handle, ClientWidth div 2 - (28 + GlowRange),
           24 - GlowRange, xSizeBig + 2 * GlowRange, ySizeBig + 2 * GlowRange,
           Buffer.Canvas.Handle, 0, 0, SRCCOPY);
@@ -400 +400 @@
         FrameImage(Canvas, BigImp, ClientWidth div 2 - 28, 24, xSizeBig,
           ySizeBig, 0, 0);
-        BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,
+        DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,
           GrExt[HGr].Mask.Canvas.Handle, pix mod 10 * 65 + 1,
           pix div 10 * 49 + 1, SRCAND);
-        BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,
+        DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,
           GrExt[HGr].Data.Canvas.Handle, pix mod 10 * 65 + 1,
           pix div 10 * 49 + 1, SRCPAINT);
@@ -415 +415 @@
         Frame(Canvas, ClientWidth div 2 - 32 - 1, 24 - 1,
           ClientWidth div 2 + 32, 24 + 48, $000000, $000000);
-        BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 24, 64, 48,
+        DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 24, 64, 48,
           GrExt[Tribe[IconIndex].faceHGr].Data.Canvas.Handle,
           1 + Tribe[IconIndex].facepix mod 10 * 65,
@@ -432 +432 @@
           (ClientWidth - 140) div 2, 24, SRCCOPY);
         ImageOp_BCC(Buffer, Templates, 0, 0, 1, 279, 140, 120, 0, $FFFFFF);
-        BitBlt(Canvas.Handle, (ClientWidth - 140) div 2, 24, 140, 120,
+        DpiBitBlt(Canvas.Handle, (ClientWidth - 140) div 2, 24, 140, 120,
           Buffer.Canvas.Handle, 0, 0, SRCCOPY);
       end;