Changeset 237 for trunk/Forms/UFormClient.pas

Timestamp:

Sep 20, 2018, 4:39:37 PM (6 years ago)

Author:

chronos

Message:

• Modified: Drawing parts split to separate methods.
• Fixed: Draw correctly unit move arrows across map boundaries in cyclic mode.

File:

• trunk/Forms/UFormClient.pas (modified) (1 diff)

trunk/Forms/UFormClient.pas

@@ -217 +217 @@
           end;
         end;
+        for Y := 0 to CountP.Y do begin
+          for X := 0 to CountP.X do begin
+            TempView.Assign(View);
+            TempView.DestRect := TRect.Create(
+              TPoint.Create(
+                -StartP.X + R.Size.X * X,
+                -StartP.Y + R.Size.Y * Y
+              ),
+              TPoint.Create(
+                -StartP.X + R.Size.X * X + View.DestRect.Size.X,
+                -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y
+              )
+            );
+            Client.DrawArrows(PaintBox1.Canvas, TempView);
+          end;
+        end;
         TempView.Free;
       end else
       Client.Paint(PaintBox1.Canvas, View);
+      Client.DrawArrows(PaintBox1.Canvas, View);
     end;
   end;