Class TAlarmFromTo (unit SPAlarm) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
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);
property ActiveBegin : Boolean
property ActiveEnd : Boolean
property AlarmTimeBegin : string
property AlarmTimeEnd : string
property Interval : Cardinal
property MiliSeconds : Boolean
property ShowObjectBegin : TControl
property ShowObjectEnd : TControl
event OnAlarmBegin : TNotifyEvent
event OnAlarmEnd : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
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);
property ActiveBegin : Boolean
property ActiveEnd : Boolean
property AlarmTimeBegin : string
property AlarmTimeEnd : string
property Interval : Cardinal
property MiliSeconds : Boolean
property ShowObjectBegin : TControl
property ShowObjectEnd : TControl
event OnAlarmBegin : TNotifyEvent
event OnAlarmEnd : TNotifyEvent
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;