Class TTimeStop (unit NTimestp)

Inherits from

TComponent

Renamed Neil Tarvin's Timestop.pas 6/7/1998 Paul Rice to avoid conflict with others' work.

Constructors


constructor Create( AOwner : TComponent );

Protected declarations


Functions

procedure Loaded;

Private declarations

-------------------------------------------------------------------------


procedure SetDay( Value: integer );

-------------------------------------------------------------------------

procedure SetMonth( Value: integer );

-------------------------------------------------------------------------

procedure SetYear( Value: integer );

-------------------------------------------------------------------------

Properties

property Day : integer

Public declarations

property Month : integer


property ShowExpireMessage : boolean


property Text : string


property Year : integer


Events

event OnExpire : TNotifyEvent


Variables

FDay : integer;


FMessage : string;


FMonth : integer;


FOnExpire : TNotifyEvent;


FShowExpireMessage : boolean;


FYear : integer;



Constructors


constructor Create( AOwner : TComponent );

Protected declarations


Functions


procedure Loaded;

Private declarations

-------------------------------------------------------------------------


procedure SetDay( Value: integer );

-------------------------------------------------------------------------


procedure SetMonth( Value: integer );

-------------------------------------------------------------------------


procedure SetYear( Value: integer );

-------------------------------------------------------------------------


Properties


property Day : integer

Public declarations


property Month : integer


property ShowExpireMessage : boolean


property Text : string


property Year : integer


Events


event OnExpire : TNotifyEvent


Variables


FDay : integer;


FMessage : string;


FMonth : integer;


FOnExpire : TNotifyEvent;


FShowExpireMessage : boolean;


FYear : integer;