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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/LocalPlayer/Battle.pas

@@ -107 +107 @@
     VLightGradient(ca, xm - 8, ym + 8 + LABaseDamage, LADamage - LABaseDamage,
       FanaticColor);
-  BitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,
+  DpiBitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,
     GrExt[HGrSystem].Mask.Canvas.Handle, 26, 146, SRCAND);
-  BitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,
+  DpiBitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,
     GrExt[HGrSystem].Data.Canvas.Handle, 26, 146, SRCPAINT);
 
@@ -132 +132 @@
   if Forecast.EndHealthDef <= 0 then
   begin
-    BitBlt(ca.Handle, xm + 9 + LDDamage - 7, ym - 6, 14, 17,
+    DpiBitBlt(ca.Handle, xm + 9 + LDDamage - 7, ym - 6, 14, 17,
       GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND);
-    BitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
+    DpiBitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
       GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND);
-    BitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
+    DpiBitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,
       GrExt[HGrSystem].Data.Canvas.Handle, 51, 153, SRCPAINT);
   end;
@@ -152 +152 @@
   if Forecast.EndHealthAtt <= 0 then
   begin
-    BitBlt(ca.Handle, xm - 6, ym + 9 + LADamage - 7, 14, 17,
+    DpiBitBlt(ca.Handle, xm - 6, ym + 9 + LADamage - 7, 14, 17,
       GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND);
-    BitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,
+    DpiBitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,
       GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND);
-    BitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,
+    DpiBitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,
       GrExt[HGrSystem].Data.Canvas.Handle, 51, 153, SRCPAINT);
   end;
@@ -173 +173 @@
 
   NoMap.SetOutput(Buffer);
-  BitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm + 8 + 4,
+  DpiBitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm + 8 + 4,
     ym - 8 - 12 - 48, SRCCOPY);
   { if TerrType<fForest then
@@ -185 +185 @@
     end; }
   NoMap.PaintUnit(1, 0, UnitInfo, 0);
-  BitBlt(ca.Handle, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas.Handle,
+  DpiBitBlt(ca.Handle, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas.Handle,
     0, 0, SRCCOPY);
 
-  BitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm - 8 - 4 - 66,
+  DpiBitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm - 8 - 4 - 66,
     ym + 8 + 12, SRCCOPY);
   MakeUnitInfo(me, MyUn[uix], UnitInfo);
   UnitInfo.Flags := UnitInfo.Flags and not unFortified;
   NoMap.PaintUnit(1, 0, UnitInfo, 0);
-  BitBlt(ca.Handle, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas.Handle,
+  DpiBitBlt(ca.Handle, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas.Handle,
     0, 0, SRCCOPY);
 end; { PaintBattleOutcome }