Changeset 608 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Aug 26, 2024, 6:30:43 PM (3 months ago)

Author:

chronos

Message:

• Fixed: Build without DPI define.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (8 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -373 +373 @@
   DitherMask.SetSize(xxt * 2, yyt * 2);
   DitherMask.Canvas.FillRect(0, 0, DitherMask.Width, DitherMask.Height);
-  BitBltBitmap(DitherMask, 0, 0, xxt * 2, yyt * 2,
+  BitBltBitmapPrecise(DitherMask, 0, 0, xxt * 2, yyt * 2,
     HGrTerrain.Mask, 1 + 7 * (xxt * 2 + 1),
     1 + yyt + 15 * (yyt * 3 + 1), SRCAND, True);
@@ -390 +390 @@
     end;
     for Y := -1 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt,
         xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc, SRCCOPY, True);
     for Y := -2 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
         yyt, HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT, True);
     for Y := -2 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
         xxt, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT, True);
     for Y := -2 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt, xxt,
         yyt, DitherMask, xxt, yyt, SRCAND, True);
     for Y := -2 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2) + xxt, (Y + 2) * yyt,
         xxt, yyt, DitherMask, 0, yyt, SRCAND, True);
   end;
@@ -419 +419 @@
     end;
     for X := -2 to 6 do
-      BitBltBitmap(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
         xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc, SRCCOPY, True);
-    BitBltBitmap(LandMore, xxt * 2, (Y + 2) * yyt, xxt, yyt,
+    BitBltBitmapPrecise(LandMore, xxt * 2, (Y + 2) * yyt, xxt, yyt,
       HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT, True);
     for X := 0 to 7 do
-      BitBltBitmap(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
         xxt * 2, yyt, HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT, True);
     for X := -2 to 6 do
-      BitBltBitmap(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandMore, (X + 2) * (xxt * 2), (Y + 2) * yyt,
         xxt * 2, yyt, DitherMask, 0, 0, SRCAND, True);
   end;
@@ -438 +438 @@
       ySrc := 1 + yyt;
       if (X >= 1) = (Y >= 2) then
-        BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
+        BitBltBitmapPrecise(OceanPatch, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
           HGrTerrain.Data, xSrc, ySrc, SRCCOPY, True);
       if (X >= 1) and ((Y < 2) or (X >= 2)) then
       begin
-        BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
+        BitBltBitmapPrecise(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT, True);
-        BitBltBitmap(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
+        BitBltBitmapPrecise(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT, True);
       end;
-      BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
+      BitBltBitmapPrecise(OceanPatch, X * (xxt * 2), Y * yyt, xxt, yyt,
         DitherMask, xxt, yyt, SRCAND, True);
-      BitBltBitmap(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
+      BitBltBitmapPrecise(OceanPatch, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
         DitherMask, 0, yyt, SRCAND, True);
     end;
@@ -461 +461 @@
       ySrc := 1 + yyt;
       if (X < 1) or (Y >= 2) then
-        BitBltBitmap(OceanMore, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
+        BitBltBitmapPrecise(OceanMore, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
           HGrTerrain.Data, xSrc, ySrc, SRCCOPY, True);
       if (X = 1) and (Y < 2) or (X >= 2) and (Y >= 1) then
       begin
-        BitBltBitmap(OceanMore, X * (xxt * 2), Y * yyt, xxt, yyt,
+        BitBltBitmapPrecise(OceanMore, X * (xxt * 2), Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc + xxt, ySrc + yyt, SRCPAINT, True);
-        BitBltBitmap(OceanMore, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
+        BitBltBitmapPrecise(OceanMore, X * (xxt * 2) + xxt, Y * yyt, xxt, yyt,
           HGrTerrain.Data, xSrc, ySrc + yyt, SRCPAINT, True);
       end;
-      BitBltBitmap(OceanMore, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
+      BitBltBitmapPrecise(OceanMore, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
         DitherMask, 0, 0, SRCAND, True);
     end;
   end;
 
-  BitBltBitmap(DitherMask, 0, 0, xxt * 2, yyt * 2,
+  BitBltBitmapPrecise(DitherMask, 0, 0, xxt * 2, yyt * 2,
     DitherMask, 0, 0, DSTINVERT, True); { invert dither mask }
-  BitBltBitmap(DitherMask, 0, 0, xxt * 2, yyt * 2,
+  BitBltBitmapPrecise(DitherMask, 0, 0, xxt * 2, yyt * 2,
     HGrTerrain.Mask, 1, 1 + yyt, SRCPAINT, True);
 
   for X := -1 to 6 do
     for Y := -2 to 6 do
-      BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2), (Y + 2) * yyt,
         xxt * 2, yyt, DitherMask, 0, 0, SRCAND, True);
 
   for Y := -1 to 6 do
     for X := -2 to 7 do
-      BitBltBitmap(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
+      BitBltBitmapPrecise(LandMore, (X + 2) * (xxt * 2) - xxt, (Y + 2) * yyt,
         xxt * 2, yyt, DitherMask, 0, yyt, SRCAND, True);
 
-  BitBltBitmap(LandPatch, 0, 0, (xxt * 2) * 9, yyt * 9,
+  BitBltBitmapPrecise(LandPatch, 0, 0, (xxt * 2) * 9, yyt * 9,
     LandMore, 0, 0, SRCPAINT, True);
 
   for X := 0 to 3 do
     for Y := 0 to 3 do
-      BitBltBitmap(OceanPatch, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
+      BitBltBitmapPrecise(OceanPatch, X * (xxt * 2), Y * yyt, xxt * 2, yyt,
         DitherMask, 0, 0, SRCAND, True);
 
   for Y := 0 to 3 do
     for X := 0 to 4 do
-      BitBltBitmap(OceanMore, X * (xxt * 2) - xxt, Y * yyt, xxt * 2,
+      BitBltBitmapPrecise(OceanMore, X * (xxt * 2) - xxt, Y * yyt, xxt * 2,
         yyt, DitherMask, 0, yyt, SRCAND, True);
 
-  BitBltBitmap(OceanPatch, 0, 0, (xxt * 2) * 4, yyt * 4, OceanMore, 0, 0,
+  BitBltBitmapPrecise(OceanPatch, 0, 0, (xxt * 2) * 4, yyt * 4, OceanMore, 0, 0,
     SRCPAINT, True);
 
@@ -510 +510 @@
     FillRect(Rect(0, 0, xxt * 2, yyt));
   end;
-  BitBltBitmap(DitherMask, 0, 0, xxt * 2, yyt, HGrTerrain.Mask, 1, 1 + yyt,
+  BitBltBitmapPrecise(DitherMask, 0, 0, xxt * 2, yyt, HGrTerrain.Mask, 1, 1 + yyt,
     SRCCOPY, True);
 
   for X := 0 to 6 do
-    BitBltBitmap(LandPatch, (X + 2) * (xxt * 2), yyt, xxt * 2, yyt,
+    BitBltBitmapPrecise(LandPatch, (X + 2) * (xxt * 2), yyt, xxt * 2, yyt,
       DitherMask, 0, 0, SRCAND, True);
-  BitBltBitmap(DitherMask, 0, 0, xxt * 2, yyt, DitherMask, 0, 0, DSTINVERT, True);
+  BitBltBitmapPrecise(DitherMask, 0, 0, xxt * 2, yyt, DitherMask, 0, 0, DSTINVERT, True);
 
   for Y := 0 to 6 do
-    BitBltBitmap(LandPatch, xxt * 2, (Y + 2) * yyt, xxt * 2, yyt,
+    BitBltBitmapPrecise(LandPatch, xxt * 2, (Y + 2) * yyt, xxt * 2, yyt,
       DitherMask, 0, 0, SRCAND, True);
 
@@ -626 +626 @@
 
   {$IFDEF DPI}
-  BitBltBitmap(FOutput, X, Y, Width, Height, Src, xSrc, ySrc, Rop, Precise);
+  BitBltBitmapPrecise(FOutput, X, Y, Width, Height, Src, xSrc, ySrc, Rop, Precise);
   {$ELSE}
   BitBltCanvas(FOutput.Canvas, X, Y, Width, Height, Src.Canvas, xSrc, ySrc, Rop);
@@ -669 +669 @@
     Exit;
 
-  BitBltBitmap(FOutput, xDst, yDst, Width, Height, HGrTerrain.Mask, xSrc, ySrc, SRCAND, Precise);
+  BitBltBitmapPrecise(FOutput, xDst, yDst, Width, Height, HGrTerrain.Mask, xSrc, ySrc, SRCAND, Precise);
   if not PureBlack then
-    BitBltBitmap(FOutput, xDst, yDst, Width, Height, HGrTerrain.Data, xSrc, ySrc, SRCPAINT, Precise);
+    BitBltBitmapPrecise(FOutput, xDst, yDst, Width, Height, HGrTerrain.Data, xSrc, ySrc, SRCPAINT, Precise);
 end;