Class TRxTimerList (unit TimerLst)

Inherits from

TComponent

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;



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;