Merge pull request exilon#55 from turric4n/master

[QuickThreads] >> ITask <-> TTask >> Added Enable Disable methods.
DelphiPraxis · Nov 15, 2020 · e6f3f15 · e6f3f15
2 parents 0332033 + ec81447
commit e6f3f15
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/Quick.Threads.pas b/Quick.Threads.pas
@@ -233,6 +233,8 @@   ETaskSchedulerError = class(Exception);
     procedure DoExecute;
     procedure DoException(aException : Exception);
     procedure DoTerminate;
+    procedure Enable;
+    procedure Disable;
     {$IFNDEF FPC}
     property Param[index : Integer] : TFlexValue read GetParam write SetParam; default;
     property Param[const Name : string] : TFlexValue read GetParam write SetParam; default;
@@ -381,6 +383,8 @@   TTask = class(TInterfacedObject,ITask)
     function MaxRetries : Integer;
     function LastException : Exception;
     function CircuitBreaked : Boolean;
+    procedure Disable;
+    procedure Enable;
   end;
 
   TWorkTask = class(TTask,IWorkTask)
@@ -1133,6 +1137,11 @@ destructor TTask.Destroy;
   inherited;
 end;
 
+procedure TTask.Disable;
+begin
+  fEnabled := False;
+end;
+
 procedure TTask.DoException(aException : Exception);
 begin
   fTaskStatus := TWorkTaskStatus.wtsException;
@@ -1221,6 +1230,11 @@ procedure TTask.DoTerminate;
   if Assigned(fTerminateProc) then fTerminateProc(Self);
 end;
 
+procedure TTask.Enable;
+begin
+  fEnabled := True;
+end;
+
 function TTask.GetIdTask: Int64;
 begin
   Result := fIdTask;