TGLMovementPath

type TGLMovementPath = class(TCollectionItem)

protected

  procedure WriteToFiler();

  procedure ReadFromFiler();

  function CanTravel;

  function GetCollection;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  function GetMovement;

  function AddNode();

  function AddNodeFromObject();

  function InsertNodeFromObject();

  function InsertNode();

  function DeleteNode();

  procedure ClearNodes;

  procedure UpdatePathLine;

  function NodeDistance();

  procedure CalculateState();

  procedure TravelPath();

  property NodeCount: Integer; [r]

  property CurrentNode: TGLPathNode; [r]

  property InTravel: Boolean; [r]

  function PrevNode;

  function NextNode;

  property CurrentNodeIndex: Integer; [rw]

  property OnTravelStart: TNotifyEvent; [rw]

  property OnTravelStop: TNotifyEvent; [rw]

published

  property Name: string; [rw]

  property PathSplineMode: TGLLineSplineMode; [rw]

  property RotationMode: TGLMovementRotationMode; [rw]

  property StartTime: Double; [rw]

  property EstimateTime: Double; [r]

  property Looped: Boolean; [rw]

  property Nodes: TGLPathNodes; [r]

  property ShowPath: Boolean; [rw]

end;

TGLMovementPath

TObject