Changeset 240

Timestamp:

Sep 21, 2018, 1:19:30 PM (6 years ago)

Author:

chronos

Message:

• Fixed: An error on drawing of vertical unit move arrow.

File:

• trunk/UClientGUI.pas (modified) (1 diff)

trunk/UClientGUI.pas

@@ -241 +241 @@
       if Move.CountRepeat > 0 then Pen.Width := 2
         else Pen.Width := 1;
-      Angle := ArcTan((PosTo.Y - PosFrom.Y) / (PosTo.X - PosFrom.X));
+      Angle := ArcTan2(PosTo.Y - PosFrom.Y, PosTo.X - PosFrom.X);
       if (Angle > +Pi) or (Angle < -Pi) then
         raise Exception.Create(Format(SWrongArrowAngle, [FloatToStr(Angle)]));
 
-      if Sign(PosTo.X - PosFrom.X) = -1 then Angle := Angle + Pi;
       ArrowCenter := View.CellToCanvasPos(TPoint.Create(
         Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 2),