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

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/UnitStat.pas (modified) (8 diffs)

branches/highdpi/LocalPlayer/UnitStat.pas

@@ -97 +97 @@
   begin
     AgePrepared := MainTextureAge;
-    bitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel,
+    Dpibitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel,
       MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
       (hMainTexture - hOwnModel) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel,
+    Dpibitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel,
       MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
       (hMainTexture - hEnemyModel) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit,
+    Dpibitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit,
       MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
       (hMainTexture - hEnemyUnit) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
+    Dpibitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
       MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
       (hMainTexture - hEnemyCityDefense) div 2, SRCCOPY);
-    bitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity,
+    Dpibitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity,
       MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
       (hMainTexture - hEnemyCity) div 2, SRCCOPY);
@@ -387 +387 @@
     dkOwnModel:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel,
+        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel,
           Back.Canvas.Handle, 0, 0, SRCCOPY);
         yView := 13;
@@ -394 +394 @@
     dkEnemyModel:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel,
+        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel,
           Back.Canvas.Handle, wCommon, 0, SRCCOPY);
         yView := 13;
@@ -401 +401 @@
     dkEnemyUnit, dkOwnUnit:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit,
+        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit,
           Back.Canvas.Handle, 2 * wCommon, 0, SRCCOPY);
         yView := 13;
@@ -408 +408 @@
     dkEnemyCityDefense:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense,
+        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense,
           Back.Canvas.Handle, 3 * wCommon, 0, SRCCOPY);
         yView := 171;
@@ -415 +415 @@
     dkEnemyCity:
       begin
-        bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity,
+        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity,
           Back.Canvas.Handle, 4 * wCommon, 0, SRCCOPY);
       end;
@@ -445 +445 @@
           yImp + ySizeSmall, MainTexture.clBevelLight,
           MainTexture.clBevelShade);
-        bitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall,
+        Dpibitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall,
           SmallImp.Canvas.Handle, j mod 7 * xSizeSmall,
           (j + SystemIconLines * 7) div 7 * ySizeSmall, SRCCOPY);
@@ -564 +564 @@
                     * (yyt * 3 + 1));
               end;
-          bitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32,
+          Dpibitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32,
             Buffer.Canvas.Handle, 1, 0, SRCCOPY);