Changeset 303 for Common/UDelay.pas

Timestamp:

Dec 5, 2011, 2:21:38 PM (13 years ago)

Author:

chronos

Message:

• Added: Assign menthod for VarBlockSerializer and VarBlockIndexed.

File:

• Common/UDelay.pas (modified) (3 diffs)

Common/UDelay.pas

@@ -16 +16 @@
     function GetEnabled:Boolean;
     function GetOwerflowed:Boolean;
+    function GetRunning: Boolean;
     procedure SetEnabled(const AValue: Boolean);
   public
@@ -24 +25 @@
     constructor Create;
     property Overflowed: Boolean read GetOwerflowed;
+    property Running: Boolean read GetRunning;
     property Enabled: Boolean read GetEnabled write SetEnabled;
   end;
@@ -40 +42 @@
 begin
   Result := ((Now - StartTime) > (Duration * OneMillisecond)) and FEnabled;
+end;
+
+function TDelay.GetRunning: Boolean;
+begin
+  Result := ((Now - StartTime) <= (Duration * OneMillisecond)) and FEnabled;
 end;