Class TMPTimerPool (unit MPTimer)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

if


Functions

function Add(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;


function AddOnce(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;


function AddTimes(aOnTrigger: TMPTriggerEvent; aInterval, aMaxTimes: longint): integer;

if

procedure Remove(Handle: integer);


procedure RemoveAll;


function CalcNewHandle: integer;


procedure DoOnAllTriggers;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CalcNewInterval;


function CheckHandle(Handle: integer): TComponent;


function ForEachEnabledTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;

for

function ForEachTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;


function GetElapsedTriggerTime(Handle: integer): longint;


function GetElapsedTriggerTimeSec(Handle: integer): longint;


function GetEnabledTriggerCount: integer;


function GetOnTrigger(Handle: integer): TMPTriggerEvent;


function GetOnTriggerDestroy(Handle: integer): TMPTriggerDestroyEvent;


function GetOnTriggerEnable(Handle: integer): TMPTriggerEnableEvent;


function GetTriggerCount: integer;


function GetTriggerEnabled(Handle: integer): boolean;


function GetTriggerInterval(Handle: integer): longint;


function GetTriggerTimes(Handle: integer): longint;


procedure SetOnTrigger(Handle: integer; Value: TMPTriggerEvent);


procedure SetOnTriggerDestroy(Handle: integer; Value: TMPTriggerDestroyEvent);


procedure SetOnTriggerEnable(Handle: integer; Value: TMPTriggerEnableEvent);


procedure SetTriggerEnabled(Handle: integer; Value: boolean);


procedure SetTriggerInterval(Handle: integer; Value: longint);


procedure SetTriggerTimes(Handle: integer; Value: longint);


procedure TimerEvent(Sender: TObject);


Properties

property DefEnabled : boolean


property Count : integer


property ElapsedSeconds : longint


property ElapsedTime : longint


property Enabled : boolean


property EnabledCount : integer


property Interval : longint


property Times : longint


Events

event OnAllTriggers : TMPTriggerEvent


event OnDestroy : TMPTriggerDestroyEvent


event OnEnable : TMPTriggerEnableEvent


event OnTrigger : TMPTriggerEvent


Variables

FDefEnabled : boolean;


FOnAllTriggers : TMPTriggerEvent;


FTimer : TTimer;



Constructors


constructor Create(AOwner: TComponent);

if


Functions


function Add(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;


function AddOnce(aOnTrigger: TMPTriggerEvent; aInterval: longint): integer;


function AddTimes(aOnTrigger: TMPTriggerEvent; aInterval, aMaxTimes: longint): integer;

if


procedure Remove(Handle: integer);


procedure RemoveAll;


function CalcNewHandle: integer;


procedure DoOnAllTriggers;


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CalcNewInterval;


function CheckHandle(Handle: integer): TComponent;


function ForEachEnabledTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;

for


function ForEachTrigger(Proc: TTriggerIterator; Data: pointer): TComponent;


function GetElapsedTriggerTime(Handle: integer): longint;


function GetElapsedTriggerTimeSec(Handle: integer): longint;


function GetEnabledTriggerCount: integer;


function GetOnTrigger(Handle: integer): TMPTriggerEvent;


function GetOnTriggerDestroy(Handle: integer): TMPTriggerDestroyEvent;


function GetOnTriggerEnable(Handle: integer): TMPTriggerEnableEvent;


function GetTriggerCount: integer;


function GetTriggerEnabled(Handle: integer): boolean;


function GetTriggerInterval(Handle: integer): longint;


function GetTriggerTimes(Handle: integer): longint;


procedure SetOnTrigger(Handle: integer; Value: TMPTriggerEvent);


procedure SetOnTriggerDestroy(Handle: integer; Value: TMPTriggerDestroyEvent);


procedure SetOnTriggerEnable(Handle: integer; Value: TMPTriggerEnableEvent);


procedure SetTriggerEnabled(Handle: integer; Value: boolean);


procedure SetTriggerInterval(Handle: integer; Value: longint);


procedure SetTriggerTimes(Handle: integer; Value: longint);


procedure TimerEvent(Sender: TObject);


Properties


property DefEnabled : boolean


property Count : integer


property ElapsedSeconds : longint


property ElapsedTime : longint


property Enabled : boolean


property EnabledCount : integer


property Interval : longint


property Times : longint


Events


event OnAllTriggers : TMPTriggerEvent


event OnDestroy : TMPTriggerDestroyEvent


event OnEnable : TMPTriggerEnableEvent


event OnTrigger : TMPTriggerEvent


Variables


FDefEnabled : boolean;


FOnAllTriggers : TMPTriggerEvent;


FTimer : TTimer;