[Quick.Thread.TScheduledTask] >> Added milliseconds measure (maybe no…

…t precise)
DelphiPraxis · Jul 30, 2019 · 5e5c62d · 5e5c62d
1 parent 9110a60
commit 5e5c62d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Quick.Threads.pas b/Quick.Threads.pas
@@ -183,7 +183,7 @@   TAnonymousThread = class(TInterfacedObject,IAnonymousThread)
 
   TScheduleMode = (smRunOnce, smRepeatMode);
 
-  TTimeMeasure = (tmDays, tmHours, tmMinutes, tmSeconds);
+  TTimeMeasure = (tmDays, tmHours, tmMinutes, tmSeconds, tmMilliseconds);
 
   ITask = interface
   ['{0182FD36-5A7C-4C00-BBF8-7CFB1E3F9BB1}']
@@ -1401,6 +1401,7 @@ function TScheduledTask.CheckSchedule: Boolean;
         tmHours : fNextExecution := IncHour(fNextExecution,fTimeInterval);
         tmMinutes : fNextExecution := IncMinute(fNextExecution,fTimeInterval);
         tmSeconds : fNextExecution := IncSecond(fNextExecution,fTimeInterval);
+        tmMilliseconds : fNextExecution := IncMilliSecond(fNextExecution, fTimeInterval);
       end;
 
       if Now() > fNextExecution then Result := False //avoid execution if system time was altered