// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ahmttimetrigger.pas' rev: 6.00

#ifndef ahmttimetriggerHPP
#define ahmttimetriggerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ExtCtrls.hpp>	// Pascal unit
#include <ahmsystemclass.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Ahmttimetrigger
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAHMTimeTrigger;
class PASCALIMPLEMENTATION TAHMTimeTrigger : public Ahmsystemclass::TAHMSystemComponent 
{
	typedef Ahmsystemclass::TAHMSystemComponent inherited;
	
private:
	Extctrls::TTimer* FCurrentTimer;
	AnsiString FCurrentTime;
	AnsiString FTriggerTime;
	AnsiString FCurrentDate;
	AnsiString FTriggerDate;
	Classes::TNotifyEvent FOnTrigger;
	Classes::TNotifyEvent FOnNewTime;
	Classes::TNotifyEvent FOnNewDate;
	AnsiString FOldTime;
	AnsiString FOldDate;
	bool FCheckForTrigger;
	void __fastcall SetCurrentTime(AnsiString Value);
	void __fastcall SetTriggerTime(AnsiString Value);
	void __fastcall SetCurrentDate(AnsiString Value);
	void __fastcall SetTriggerDate(AnsiString Value);
	void __fastcall SetCheckForTrigger(bool Value);
	
protected:
	void __fastcall TimerCheckForTrigger(System::TObject* Sender);
	
public:
	__fastcall virtual TAHMTimeTrigger(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMTimeTrigger(void);
	
__published:
	__property AnsiString CurrentTime = {read=FCurrentTime, write=SetCurrentTime};
	__property AnsiString CurrentDate = {read=FCurrentDate, write=SetCurrentDate};
	__property AnsiString TriggerDate = {read=FTriggerDate, write=SetTriggerDate};
	__property AnsiString TriggerTime = {read=FTriggerTime, write=SetTriggerTime};
	__property bool CheckForTrigger = {read=FCheckForTrigger, write=SetCheckForTrigger, default=0};
	__property Classes::TNotifyEvent OnTrigger = {read=FOnTrigger, write=FOnTrigger};
	__property Classes::TNotifyEvent OnNewTime = {read=FOnNewTime, write=FOnNewTime};
	__property Classes::TNotifyEvent OnNewDate = {read=FOnNewDate, write=FOnNewDate};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Ahmttimetrigger */
using namespace Ahmttimetrigger;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// ahmttimetrigger
