Changeset 127 for trunk/UMetroPassenger.pas

Timestamp:

Apr 25, 2023, 10:52:20 PM (13 months ago)

Author:

chronos

Message:

• Added: Configurable station styles.
• Added: Configurable map visual styles.
• Added: Metro lines can be configured to be not movable.

File:

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

trunk/UMetroPassenger.pas

@@ -7 +7 @@
 
 type
-  TStationShape = (ssCircle, ssSquare, ssTriangle, ssStar, ssPlus, ssPentagon,
+  TDestinationShape = (ssCircle, ssSquare, ssTriangle, ssStar, ssPlus, ssPentagon,
     ssDiamond, ssQuarterCircle, ssHexagon, ssCross, ssHalfCircle, ssHeptagon);
-  TStationShapeSet = set of TStationShape;
+  TDestinationShapeSet = set of TDestinationShape;
+  TDestinationIndex = Integer;
+  TDestinationIndices = array of TDestinationIndex;
 
   { TMetroPassenger }
 
   TMetroPassenger = class
-    Shape: TStationShape;
+    DestinationIndex: TDestinationIndex;
   end;