TCEFTimerWorkScheduler

type TCEFTimerWorkScheduler = class

protected

  FTimer: TTimer;

  FDepleteWorkCycles: Cardinal;

  FDepleteWorkDelay: Cardinal;

  FStopped: Boolean;

  FIsActive: Boolean;

  FReentrancyDetected: Boolean;

  FOnAllowDoWork: TOnAllowEvent;

  function GetIsTimerPending;

  procedure Timer_OnTimer();

  procedure Initialize;

  procedure CreateTimer;

  procedure DestroyTimer;

  procedure KillTimer;

  procedure SetTimer();

  procedure DoWork;

  function PerformMessageLoopWork;

  procedure DoMessageLoopWork;

  procedure OnScheduleWork();

  procedure DepleteWork;

  procedure OnScheduleWorkAsync();

public

  constructor Create;

  destructor Destroy; override;

  procedure StopScheduler;

  procedure ScheduleMessagePumpWork();

  property DepleteWorkCycles: Cardinal; [rw]

  property DepleteWorkDelay: Cardinal; [rw]

  property IsTimerPending: Boolean; [r]

  property OnAllowDoWork: TOnAllowEvent; [rw]

end;

TCEFTimerWorkScheduler

TObject