Changeset 303 for Common/UDelay.pas


Ignore:
Timestamp:
Dec 5, 2011, 2:21:38 PM (13 years ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/UDelay.pas

    r118 r303  
    1616    function GetEnabled:Boolean;
    1717    function GetOwerflowed:Boolean;
     18    function GetRunning: Boolean;
    1819    procedure SetEnabled(const AValue: Boolean);
    1920  public
     
    2425    constructor Create;
    2526    property Overflowed: Boolean read GetOwerflowed;
     27    property Running: Boolean read GetRunning;
    2628    property Enabled: Boolean read GetEnabled write SetEnabled;
    2729  end;
     
    4042begin
    4143  Result := ((Now - StartTime) > (Duration * OneMillisecond)) and FEnabled;
     44end;
     45
     46function TDelay.GetRunning: Boolean;
     47begin
     48  Result := ((Now - StartTime) <= (Duration * OneMillisecond)) and FEnabled;
    4249end;
    4350
Note: See TracChangeset for help on using the changeset viewer.