Changeset 73 for trunk

Timestamp:

Nov 30, 2020, 11:49:22 AM (4 years ago)

Author:

chronos

Message:

• Fixed: Build with Lazarus 2.0.6.

File:

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

trunk/UEngine.pas

@@ -2140 +2140 @@
       Angle := GetAngle;
 
-      Points := [
-        RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
-        RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
-        RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle),
-        RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle)
-      ];
+      SetLength(Points, 4);
+      Points[0] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
+      Points[1] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
+      Points[2] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
+      Points[3] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
       Canvas.Polygon(Points);
       Canvas.Brush.Color := clWhite;