Class TARProtector (unit ARProtector)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions

destructor Destroy;


procedure AppOnMessage(var Msg : TMsg; var Handled: Boolean);

Protected declarations

procedure POnTimer(Sender: TObject);


procedure PSetVEnabled(Value: Boolean);


procedure PSetVMinutes(Value: integer);


procedure PSetVSeconds(Value: integer);


procedure SetTimeOff;


Properties

property Author : TAboutProperty

Published declarations

property Enabled : Boolean


property IdleMinutes : integer


property IdleSeconds : integer


Events

event OnIdle : TNotifyEvent


Variables

VAbout : TAboutProperty;


VAppOnMessage : TMessageEvent;

Private declarations

VEnabled : boolean;

Visible Properties

VHooked : boolean;


VMinutes : integer;


VOnHook : TNotifyEvent;


VSeconds : integer;


VTimeOff : TTime;


VTimer : TTimer;

VLabel : TLabel; {For Test the Object


Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions


destructor Destroy;


procedure AppOnMessage(var Msg : TMsg; var Handled: Boolean);

Protected declarations


procedure POnTimer(Sender: TObject);


procedure PSetVEnabled(Value: Boolean);


procedure PSetVMinutes(Value: integer);


procedure PSetVSeconds(Value: integer);


procedure SetTimeOff;


Properties


property Author : TAboutProperty

Published declarations


property Enabled : Boolean


property IdleMinutes : integer


property IdleSeconds : integer


Events


event OnIdle : TNotifyEvent


Variables


VAbout : TAboutProperty;


VAppOnMessage : TMessageEvent;

Private declarations


VEnabled : boolean;

Visible Properties


VHooked : boolean;


VMinutes : integer;


VOnHook : TNotifyEvent;


VSeconds : integer;


VTimeOff : TTime;


VTimer : TTimer;

VLabel : TLabel; {For Test the Object