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

Timestamp:

May 9, 2020, 4:02:07 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/LocalPlayer/UnitStat.pas

@@ -5 +5 @@
 
 uses
-  Protocol, ClientTools, Term, ScreenTools, BaseWin, UDpiControls,
+  UDpiControls, Protocol, ClientTools, Term, ScreenTools, BaseWin,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
   ButtonB, ButtonC;
@@ -83 +83 @@
   Template := TDpiBitmap.Create;
   Template.PixelFormat := pf24bit;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit.png', gfNoGamma);
+  LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Unit.png', gfNoGamma);
 end;
 
@@ -97 +97 @@
   begin
     AgePrepared := MainTextureAge;
-    Dpibitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hOwnModel) div 2, SRCCOPY);
-    Dpibitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyModel) div 2, SRCCOPY);
-    Dpibitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyUnit) div 2, SRCCOPY);
-    Dpibitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyCityDefense) div 2, SRCCOPY);
-    Dpibitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity,
-      MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2,
-      (hMainTexture - hEnemyCity) div 2, SRCCOPY);
+    DpiBitCanvas(Back.Canvas, 0, 0, wCommon, hOwnModel,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hOwnModel) div 2);
+    DpiBitCanvas(Back.Canvas, wCommon, 0, wCommon, hEnemyModel,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyModel) div 2);
+    DpiBitCanvas(Back.Canvas, 2 * wCommon, 0, wCommon, hEnemyUnit,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyUnit) div 2);
+    DpiBitCanvas(Back.Canvas, 3 * wCommon, 0, wCommon, hEnemyCityDefense,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyCityDefense) div 2);
+    DpiBitCanvas(Back.Canvas, 4 * wCommon, 0, wCommon, hEnemyCity,
+      MainTexture.Image.Canvas, (wMainTexture - wCommon) div 2,
+      (hMainTexture - hEnemyCity) div 2);
     ImageOp_B(Back, Template, 0, 0, 0, 0, 5 * wCommon, hMax);
   end
@@ -387 +387 @@
     dkOwnModel:
       begin
-        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel,
-          Back.Canvas.Handle, 0, 0, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, 0, 0, wCommon, hOwnModel,
+          Back.Canvas, 0, 0);
         yView := 13;
         yTotal := 92;
@@ -394 +394 @@
     dkEnemyModel:
       begin
-        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel,
-          Back.Canvas.Handle, wCommon, 0, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyModel,
+          Back.Canvas, wCommon, 0);
         yView := 13;
         yTotal := 92;
@@ -401 +401 @@
     dkEnemyUnit, dkOwnUnit:
       begin
-        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit,
-          Back.Canvas.Handle, 2 * wCommon, 0, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyUnit,
+          Back.Canvas, 2 * wCommon, 0);
         yView := 13;
         yTotal := 123;
@@ -408 +408 @@
     dkEnemyCityDefense:
       begin
-        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense,
-          Back.Canvas.Handle, 3 * wCommon, 0, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyCityDefense,
+          Back.Canvas, 3 * wCommon, 0);
         yView := 171;
         yTotal := 231;
@@ -415 +415 @@
     dkEnemyCity:
       begin
-        Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity,
-          Back.Canvas.Handle, 4 * wCommon, 0, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, 0, 0, wCommon, hEnemyCity,
+          Back.Canvas, 4 * wCommon, 0);
       end;
   end;
@@ -445 +445 @@
           yImp + ySizeSmall, MainTexture.clBevelLight,
           MainTexture.clBevelShade);
-        Dpibitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall,
-          SmallImp.Canvas.Handle, j mod 7 * xSizeSmall,
-          (j + SystemIconLines * 7) div 7 * ySizeSmall, SRCCOPY);
+        DpiBitCanvas(offscreen.Canvas, x, yImp, xSizeSmall, ySizeSmall,
+          SmallImp.Canvas, j mod 7 * xSizeSmall,
+          (j + SystemIconLines * 7) div 7 * ySizeSmall);
         inc(x, xSizeSmall + 4)
       end;
@@ -564 +564 @@
                     * (yyt * 3 + 1));
               end;
-          Dpibitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32,
-            Buffer.Canvas.Handle, 1, 0, SRCCOPY);
+          DpiBitCanvas(offscreen.Canvas, xView, yView + 16, 64, 32,
+            Buffer.Canvas, 1, 0);
 
           // show unit, experience and health