//---------------------------------------------------------------------------- // krndcol.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0 // From: krndcol.pas //---------------------------------------------------------------------------- #ifndef krndcolHPP #define krndcolHPP //---------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include namespace Krndcol { //-- type declarations ------------------------------------------------------- class __declspec(delphiclass) TFormRndLedColor; class __declspec(pascalimplementation) TFormRndLedColor : public Forms::TForm { typedef Forms::TForm inherited; __published: Krndled::TkRndLed* kRndLedOff; Krndled::TkRndLed* kRndLedOn; Stdctrls::TLabel* Label1; Stdctrls::TEdit* EditRate; Stdctrls::TButton* ButtonOK; Stdctrls::TButton* ButtonCancel; Krndled::TkRndLed* kRndLedBlink; Krndled::TkRndLed* kRndLedNeg; Stdctrls::TLabel* Label2; Stdctrls::TLabel* Label3; Stdctrls::TLabel* Label4; void __fastcall FormShow(System::TObject* Sender); void __fastcall EditRateChange(System::TObject* Sender); void __fastcall ButtonOKClick(System::TObject* Sender); void __fastcall kRndLedOnDblClick(System::TObject* Sender); void __fastcall kRndLedBlinkClick(System::TObject* Sender); private: Krndled::TkRndLed* ThisLed; Krndled::TkRndLed* ActiveLed; Krndled::TkRndLed* leds[8][2]; virtual void __fastcall LedClick(System::TObject* Sender); virtual void __fastcall DoLed(int i, int j); public: void __fastcall EditColor(Krndled::TkRndLed* led); public: /* TForm.Create */ __fastcall virtual TFormRndLedColor(Classes::TComponent* AOwner) : Forms::TForm( AOwner) { } /* TForm.CreateNew */ __fastcall TFormRndLedColor(Classes::TComponent* AOwner, int Dummy) : Forms:: TForm(AOwner, Dummy) { } /* TForm.Destroy */ __fastcall virtual ~TFormRndLedColor(void) { } public: /* TWinControl.CreateParented */ __fastcall TFormRndLedColor(HWND ParentWindow) : Forms::TForm(ParentWindow ) { } }; //-- var, const, procedure --------------------------------------------------- extern TFormRndLedColor* FormRndLedColor; } /* namespace Krndcol */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Krndcol; #endif //-- end unit ---------------------------------------------------------------- #endif // krndcol