TplTimer

type TplTimer = class(TComponent)

protected

  procedure Notification(); override;

  function StoreTimeMultiplier;

  procedure SetEnabled();

  procedure SetMode();

  procedure SetTimeReference();

  procedure SetTimeMultiplier();

  function GetRawReferenceTime;

  procedure RestartASAP;

  procedure Loaded; override;

  procedure OnIdleEvent();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Subscribe();

  procedure UnSubscribe();

  procedure Progress;

  function GetCurrentTime;

  function IsBusy;

  procedure Reset;

  property OriginTime: Double; [rw]

  property CurrentTime: Double; [rw]

published

  property Enabled: Boolean; [rw]

  property TimeReference: TplTimerTimeReference; [rw]

  property TimeMultiplier: Double; [rws]

  property MaxDeltaTime: Double; [rw]

  property MinDeltaTime: Double; [rw]

  property FixedDeltaTime: Double; [rw]

  property Mode: TplTimerMode; [rw]

  property SleepLength: Integer; [rw]

  property OnProgress: TplTimerProgressEvent; [rw]

end;

TplTimer

TObject