TCEFWorkSchedulerQueueThread

type TCEFWorkSchedulerQueueThread = class(TThread)

protected

  FQueueCS: TCriticalSection;

  FEvent: TEvent;

  FWaiting: Boolean;

  FStop: Boolean;

  FReady: Boolean;

  FValues: TValuesArray;

  FOnPulse: TOnPulseEvent;

  function GetAvailableValue;

  function GetHasPendingValue;

  function Lock;

  procedure Unlock;

  function CanContinue;

  procedure ReadAllPendingValues;

  procedure DoOnPulse;

  procedure Execute; override;

  property AvailableValue: Integer; [r]

  property HasPendingValue: Boolean; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure AfterConstruction; override;

  procedure StopThread;

  procedure EnqueueValue();

  property Ready: Boolean; [r]

  property OnPulse: TOnPulseEvent; [rw]

end;

TCEFWorkSchedulerQueueThread

TObject