| Class TRxTimerList (unit TimerLst) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Activate;
function Add(AOnTimer: TNotifyEvent; AInterval: Longint;
ACycled: Boolean): Longint;
function AddItem(Item: TRxTimerEvent): Longint;
procedure Clear;
procedure Deactivate;
procedure Delete(AHandle: Longint);
destructor Destroy;
function ItemByHandle(AHandle: Longint): TRxTimerEvent;
function ItemIndexByHandle(AHandle: Longint): Integer;
procedure DoTimer(Event: TRxTimerEvent);
procedure GetChildren(Proc: TGetChildProc
);
function NextHandle: Longint;
procedure CalculateInterval(StartTicks: Longint);
function CreateNewEvent: TRxTimerEvent;
function GetCount: Integer;
function GetEnabledCount: Integer;
function ProcessEvents: Boolean;
procedure RemoveItem(Item: TRxTimerEvent);
procedure SetActive(Value: Boolean);
procedure SetEvents(StartTicks: Longint);
procedure Sort;
procedure TimerWndProc(var Msg: TMessage);
procedure UpdateTimer;| Properties |
property Active : Boolean
property Events : TList
property Count : Integer
property EnabledCount : Integer| Events |
event OnFinish : TNotifyEvent
event OnTimers : TAllTimersEvent| Variables |
FActive : Boolean;
FEvents : TList;
FInterval : Longint;
FOnFinish : TNotifyEvent;
FOnTimers : TAllTimersEvent;
FSequence : Longint;
FStartInterval : Longint;
FWndHandle : hWnd;| Constructors |
constructor Create(AOwner: TComponent);TRxTimerList
| Functions |
procedure Activate;
function Add(AOnTimer: TNotifyEvent; AInterval: Longint;
ACycled: Boolean): Longint;Create a new timer event and returns a handle
function AddItem(Item: TRxTimerEvent): Longint;
procedure Clear;
procedure Deactivate;
procedure Delete(AHandle: Longint);
destructor Destroy;
function ItemByHandle(AHandle: Longint): TRxTimerEvent;
function ItemIndexByHandle(AHandle: Longint): Integer;invalid handle
procedure DoTimer(Event: TRxTimerEvent);
procedure GetChildren(Proc: TGetChildProc
);
function NextHandle: Longint;
procedure CalculateInterval(StartTicks: Longint);
function CreateNewEvent: TRxTimerEvent;
function GetCount: Integer;
function GetEnabledCount: Integer;
function ProcessEvents: Boolean;
procedure RemoveItem(Item: TRxTimerEvent);
procedure SetActive(Value: Boolean);
procedure SetEvents(StartTicks: Longint);
procedure Sort;
procedure TimerWndProc(var Msg: TMessage);
procedure UpdateTimer;| Properties |
property Active : Boolean
property Events : TList
property Count : Integer
property EnabledCount : Integer| Events |
event OnFinish : TNotifyEvent
event OnTimers : TAllTimersEvent| Variables |
FActive : Boolean;
FEvents : TList;
FInterval : Longint;
FOnFinish : TNotifyEvent;
FOnTimers : TAllTimersEvent;
FSequence : Longint;
FStartInterval : Longint;
FWndHandle : hWnd;