Changeset 73


Ignore:
Timestamp:
Nov 30, 2020, 11:49:22 AM (3 years ago)
Author:
chronos
Message:
  • Fixed: Build with Lazarus 2.0.6.
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tags/1.1.0/UEngine.pas

    r72 r73  
    21402140      Angle := GetAngle;
    21412141
    2142       Points := [
    2143         RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
    2144         RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
    2145         RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle),
    2146         RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle)
    2147       ];
     2142      SetLength(Points, 4);
     2143      Points[0] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
     2144      Points[1] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
     2145      Points[2] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
     2146      Points[3] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
    21482147      Canvas.Polygon(Points);
    21492148      Canvas.Brush.Color := clWhite;

  • trunk/UEngine.pas

    r72 r73  
    21402140      Angle := GetAngle;
    21412141
    2142       Points := [
    2143         RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
    2144         RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle),
    2145         RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle),
    2146         RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle)
    2147       ];
     2142      SetLength(Points, 4);
     2143      Points[0] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
     2144      Points[1] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
     2145      Points[2] := RotatePoint(Pos, Point(Pos.X + TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
     2146      Points[3] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y + TrainSize div 3), Angle);
    21482147      Canvas.Polygon(Points);
    21492148      Canvas.Brush.Color := clWhite;
Note: See TracChangeset for help on using the changeset viewer.