Changeset 5 for trunk

Timestamp:

Mar 26, 2015, 12:20:05 PM (10 years ago)

Author:

chronos

Message:

• Added: Show passengers inside train.

File:

• trunk/UEngine.pas (modified) (2 diffs)

trunk/UEngine.pas

@@ -151 +151 @@
 
 const
-  LineColors: array[0..5] of TColor = (clBlue, clRed, clYellow, clGreen,
+  clDarkYellow = TColor($00eeee);
+  LineColors: array[0..5] of TColor = (clBlue, clRed, clDarkYellow, clGreen,
     clPurple, clGray);
   StationSize = 30;
@@ -785 +786 @@
       Canvas.Rectangle(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 2,
         Pos.X + TrainSize div 2, Pos.Y + TrainSize div 2);
+      Canvas.Brush.Color := clWhite;
+      for P := 0 to Passengers.Count - 1 do
+      with TMetroPassenger(Passengers[P]) do begin
+        DrawShape(Canvas, Point(Pos.X - Trunc(TrainSize div 3 * 1) + (P mod 3) * TrainSize div 3,
+          Pos.Y - Trunc(TrainSize div 3 * 1) + (P div 3) * TrainSize div 3), Shape, TrainSize div 3);
+      end;
     end;
   end;