Changeset 23 for trunk/UEngine.pas
- Timestamp:
- Apr 9, 2015, 9:52:15 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UEngine.pas
r20 r23 212 212 213 213 const 214 clDarkYellow = TColor($00eeee); 215 LineColors: array[0..5] of TColor = (clBlue, clRed, clDarkYellow, clGreen, 216 clPurple, clGray); 214 clDarkYellow = TColor($00dede); 215 clOrange = TColor($0080ff); 216 clBrown = TColor($003090); 217 LineColors: array[0..7] of TColor = (clBlue, clRed, clDarkYellow, clGreen, 218 clPurple, clGray, clOrange, clBrown); 217 219 StationSize = 30; 218 220 PassengerSize = 15; … … 1336 1338 end; 1337 1339 1338 for I := 0 to 5do begin1340 for I := 0 to 7 do begin 1339 1341 Lines.AddNew; 1340 1342 NewTrain := TMetroTrain.Create;
Note:
See TracChangeset
for help on using the changeset viewer.