//----------------------------------------------------------------------------
// kRndled.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0
// From: kRndled.pas
//----------------------------------------------------------------------------
#ifndef kRndledHPP
#define kRndledHPP
//----------------------------------------------------------------------------
#include <DsgnIntf.hpp>
#include <ExtCtrls.hpp>
#include <Dialogs.hpp>
#include <Forms.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <Messages.hpp>
#include <Windows.hpp>
#include <Windows.hpp>
#include <SysUtils.hpp>
#include <System.hpp>
namespace Krndled
{
//-- type declarations -------------------------------------------------------
enum TLedStatus { lsOff, lsOn, lsBlink };

enum TLedOnColors { lcSilver, lcRed, lcLime, lcYellow, lcBlue, lcFuchsia, lcAqua, lcWhite };

enum TLedOffColors { lcBlack, lcMaroon, lcGreen, lcOlive, lcNavy, lcPurple, lcTeal, lcGray };

typedef Graphics::TColor TActualColors[8];

class __declspec(delphiclass) TkRndLed;
class __declspec(pascalimplementation) TkRndLed : public Controls::TCustomControl
{
	typedef Controls::TCustomControl inherited;
	
private:
	Graphics::TBitmap* FLedPiccy;
	Extctrls::TTimer* FLedTimer;
	bool FLedIsOn;
	Windows::TRect FLedRect;
	Windows::TRect FLedBulbRect;
	bool FAutoSelectColor;
	TLedOnColors FLedOnColor;
	TLedOffColors FLedOffColor;
	Graphics::TColor FLedOnRealColor;
	Graphics::TColor FLedOffRealColor;
	Graphics::TColor FLedNegRealColor;
	WORD FBlinkRate;
	TLedStatus FLedStatus;
	System::AnsiString FIniName;
	System::AnsiString FIniSection;
	bool FBlinking;
	int FValue;
	bool FAllowEdit;
	void __fastcall SetLedOffColor(TLedOffColors value);
	void __fastcall SetLedOnColor(TLedOnColors value);
	void __fastcall SetLedOffRealColor(Graphics::TColor value);
	void __fastcall SetLedOnRealColor(Graphics::TColor value);
	void __fastcall SetLedNegRealColor(Graphics::TColor value);
	void __fastcall SetLedStatus(TLedStatus value);
	void __fastcall SetBlinkRate(WORD value);
	void __fastcall DrawColor(void);
	void __fastcall SetColor(void);
	void __fastcall WriteIniFile(void);
	bool __fastcall GetLedOn(void);
	void __fastcall SetLedOn(bool value);
	void __fastcall SetBlinking(bool value);
	void __fastcall SetIntRate(int value);
	int __fastcall GetIntRate(void);
	void __fastcall SetValue(int value);
	void __fastcall CheckState(void);
	
protected:
	virtual void __fastcall Paint(void);
	MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	void __fastcall BlinkTimeLimit(System::TObject* Sender);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall MouseUp(Controls::TMouseButton Button,  Classes::TShiftState Shift, int X, 
		int Y);
	
public:
	__fastcall virtual TkRndLed(Classes::TComponent* AOwner);
	__fastcall virtual ~TkRndLed(void);
	void __fastcall ReadIniFile(void);
	
__published:
	__property bool AllowEdit = {read=FAllowEdit, write=FAllowEdit, default=1};
	__property bool AutoSelectColor = {read=FAutoSelectColor, write=FAutoSelectColor, default=1};
	__property TLedOnColors LedOnColor = {read=FLedOnColor, write=SetLedOnColor, default=1};
	__property TLedOffColors LedOffColor = {read=FLedOffColor, write=SetLedOffColor, default=1};
	__property Graphics::TColor LedOnRealColor = {read=FLedOnRealColor, write=SetLedOnRealColor, nodefault
		};
	__property Graphics::TColor LedOffRealColor = {read=FLedOffRealColor, write=SetLedOffRealColor, nodefault
		};
	__property Graphics::TColor LedNegRealColor = {read=FLedNegRealColor, write=SetLedNegRealColor, nodefault
		};
	__property WORD BlinkRate = {read=FBlinkRate, write=SetBlinkRate, default=1000};
	__property TLedStatus LedStatus = {read=FLedStatus, write=SetLedStatus, default=0};
	__property System::AnsiString IniName = {read=FIniName, write=FIniName, nodefault};
	__property System::AnsiString IniSection = {read=FIniSection, write=FIniSection, nodefault};
	__property bool LedOn = {read=GetLedOn, write=SetLedOn, default=0};
	__property int Value = {read=FValue, write=SetValue, default=0};
	__property bool Blinking = {read=FBlinking, write=SetBlinking, default=0};
	__property int IntBlinkRate = {read=GetIntRate, write=SetIntRate, nodefault};
	__property OnClick ;
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnDblClick ;
	__property Visible ;
public:
	/* TWinControl.CreateParented */ __fastcall TkRndLed(HWND ParentWindow) : Controls::TCustomControl(
		ParentWindow) { }
	
};

//-- var, const, procedure ---------------------------------------------------
#define MAXLCCOLOR (BYTE)(7)
extern Graphics::TColor ActualOnColors[8];
extern Graphics::TColor ActualOffColors[8];

}	/* namespace Krndled */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Krndled;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// kRndled