Changeset 23 for trunk

Timestamp:

Apr 9, 2015, 9:52:15 AM (9 years ago)

Author:

chronos

Message:

• Added: Two more metro lines with different colors.

Location:

trunk

Files:

• BigMetro.lpi (modified) (1 diff)
• UEngine.pas (modified) (2 diffs)

trunk/BigMetro.lpi

@@ -90 +90 @@
         <Filename Value="UGeometric.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UGeometric"/>
       </Unit3>
     </Units>

trunk/UEngine.pas

@@ -212 +212 @@
 
 const
-  clDarkYellow = TColor($00eeee);
-  LineColors: array[0..5] of TColor = (clBlue, clRed, clDarkYellow, clGreen,
-    clPurple, clGray);
+  clDarkYellow = TColor($00dede);
+  clOrange = TColor($0080ff);
+  clBrown = TColor($003090);
+  LineColors: array[0..7] of TColor = (clBlue, clRed, clDarkYellow, clGreen,
+    clPurple, clGray, clOrange, clBrown);
   StationSize = 30;
   PassengerSize = 15;
@@ -1336 +1338 @@
   end;
 
-  for I := 0 to 5 do begin
+  for I := 0 to 7 do begin
     Lines.AddNew;
     NewTrain := TMetroTrain.Create;