Class TAlarmFromTo (unit SPAlarm)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

if FAlarmTimeBegin = '' then FAlarmTimeBegin := TimeToStr(Time); if FAlarmTimeEnd = '' then FAlarmTimeEnd := TimeToStr(Time);

procedure AlarmBegin;


procedure AlarmEnd;

strInfo := strHour + ':' + strMin + ':' + strSec; strInfo := Format('%0.

procedure RunAlarm(Sender: TObject);


procedure SetActiveBegin(State: Boolean);


procedure SetActiveEnd(State: Boolean);


procedure SetAlarmTime(Tm: string);


procedure SetAlarmTimeEnd(Tm: string);


procedure SetInterval(Inter: Cardinal);


procedure SetMSec(State: Boolean);


Properties

property ActiveBegin : Boolean


property ActiveEnd : Boolean


property AlarmTimeBegin : string


property AlarmTimeEnd : string


property Interval : Cardinal


property MiliSeconds : Boolean


property ShowObjectBegin : TControl


property ShowObjectEnd : TControl


Events

event OnAlarmBegin : TNotifyEvent


event OnAlarmEnd : TNotifyEvent


Variables

FActiveBegin : Boolean;


FActiveEnd : Boolean;


FAlarmTimeBegin : string;


FAlarmTimeEnd : string;


FFormat : string;


FHour : Word;


FInterval : Cardinal;


FMin : Word;


FMlSec : Word;


FMSec : Boolean;


FOnAlarmBegin : TNotifyEvent;


FOnAlarmEnd : TNotifyEvent;


FSec : Word;


FShowObjectBegin : TControl;


FShowObjectEnd : TControl;


FTimer : TTimer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

if FAlarmTimeBegin = '' then FAlarmTimeBegin := TimeToStr(Time); if FAlarmTimeEnd = '' then FAlarmTimeEnd := TimeToStr(Time);


procedure AlarmBegin;


procedure AlarmEnd;

strInfo := strHour + ':' + strMin + ':' + strSec; strInfo := Format('%0.2d:%0.2d:%0.2d:%0.3d',[FHour,FMin,FSec,MSec]);


procedure RunAlarm(Sender: TObject);


procedure SetActiveBegin(State: Boolean);


procedure SetActiveEnd(State: Boolean);


procedure SetAlarmTime(Tm: string);


procedure SetAlarmTimeEnd(Tm: string);


procedure SetInterval(Inter: Cardinal);


procedure SetMSec(State: Boolean);


Properties


property ActiveBegin : Boolean


property ActiveEnd : Boolean


property AlarmTimeBegin : string


property AlarmTimeEnd : string


property Interval : Cardinal


property MiliSeconds : Boolean


property ShowObjectBegin : TControl


property ShowObjectEnd : TControl


Events


event OnAlarmBegin : TNotifyEvent


event OnAlarmEnd : TNotifyEvent


Variables


FActiveBegin : Boolean;


FActiveEnd : Boolean;


FAlarmTimeBegin : string;


FAlarmTimeEnd : string;


FFormat : string;


FHour : Word;


FInterval : Cardinal;


FMin : Word;


FMlSec : Word;


FMSec : Boolean;


FOnAlarmBegin : TNotifyEvent;


FOnAlarmEnd : TNotifyEvent;


FSec : Word;


FShowObjectBegin : TControl;


FShowObjectEnd : TControl;


FTimer : TTimer;