TGLSmoothNavigator

type TGLSmoothNavigator = class(TGLNavigator)

protected

  procedure Notification(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetObject(); override;

  procedure TurnHorizontal(); virtual;

  procedure TurnVertical(); virtual;

  procedure FlyForward(); virtual;

  procedure MoveForward(); virtual;

  procedure StrafeHorizontal(); virtual;

  procedure StrafeVertical(); virtual;

  function MoveAroundTarget();

  function MoveObjectAround();

  function AdjustDistanceToPoint();

  function AdjustDistanceToTarget();

  function AdjustDistanceToPointEx();

  function AdjustDistanceToTargetEx();

  procedure AnimateCustomItems(); virtual;

  procedure ScaleParameters(); virtual;

  procedure AutoScaleParameters(); virtual;

  procedure AutoScaleParametersUp(); virtual;

published

  property MaxExpectedDeltaTime: Double; [rws]

  property InertiaParams: TGLNavigatorInertiaParameters; [rw]

  property GeneralParams: TGLNavigatorGeneralParameters; [rw]

  property MoveAroundParams: TGLNavigatorMoveAroundParameters; [rw]

  property AdjustDistanceParams: TGLNavigatorAdjustDistanceParameters; [rw]

  property AdjustDistanceParamsEx: TGLNavigatorAdjustDistanceParametersEx; [rw]

  property CustomAnimatedItems: TGLNavigatorSmoothChangeItems; [rw]

end;

TGLSmoothNavigator

TGLNavigator

TObject