Changeset 548 for trunk/LocalPlayer/Battle.pas

Timestamp:

Apr 21, 2024, 10:57:18 AM (4 weeks ago)

Author:

chronos

Message:

• Fixed: Bad unit drawing in battle dialog.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Battle.pas (modified) (2 diffs)

trunk/LocalPlayer/Battle.pas

@@ -169 +169 @@
 
   IsoMap.SetOutput(Buffer);
-  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm + 8 + 4,
-    ym - 8 - 12 - 48);
+  UnshareBitmap(Buffer);
+  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm + 8 + 4, ym - 8 - 12 - 48);
   { if TerrType<fForest then
     Sprite(Buffer,HGrTerrain,0,16,66,32,1+TerrType*(xxt*2+1),1+yyt)
@@ -181 +181 @@
     end; }
   IsoMap.PaintUnit(1, 0, UnitInfo, 0);
-  BitBltCanvas(ca, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas,
-    0, 0);
-
-  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm - 8 - 4 - 66,
-    ym + 8 + 12);
+  BitBltCanvas(ca, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas, 0, 0);
+
+  UnshareBitmap(Buffer);
+  BitBltCanvas(Buffer.Canvas, 0, 0, 66, 48, ca, xm - 8 - 4 - 66, ym + 8 + 12);
   MakeUnitInfo(Me, MyUn[uix], UnitInfo);
   UnitInfo.Flags := UnitInfo.Flags and not unFortified;