TGLMovement

type TGLMovement = class(TGLBehaviour)

protected

  procedure WriteToFiler(); override;

  procedure ReadFromFiler(); override;

  procedure PathTravelStart();

  procedure PathTravelStop();

  function GetSceneObject;

public

  constructor Create(); override;

  destructor Destroy; override;

  function AddPath();

  procedure ClearPaths;

  function DeletePath();

  procedure Assign(); override;

  class function FriendlyName; override;

  class function FriendlyDescription; override;

  class function UniqueItem; override;

  procedure StartPathTravel;

  procedure StopPathTravel;

  procedure DoProgress(); override;

  function NextPath;

  function PrevPath;

  function FirstPath;

  function LastPath;

  property PathCount: Integer; [r]

  property OnAllPathTravelledOver: TNotifyEvent; [rw]

  property OnPathTravelStart: TPathTravelStartEvent; [rw]

  property OnPathTravelStop: TPathTravelStopEvent; [rw]

published

  property Paths: TGLMovementPaths; [r]

  property AutoStartNextPath: Boolean; [rw]

  property ActivePathIndex: Integer; [rw]

  property ActivePath: TGLMovementPath; [rw]

end;

TGLMovement

TObject