//---------------------------------------------------------------------------- // KParam.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0 // From: KParam.pas //---------------------------------------------------------------------------- #ifndef KParamHPP #define KParamHPP //---------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include #include namespace Kparam { //-- type declarations ------------------------------------------------------- class __declspec(delphiclass) TkParam; class __declspec(pascalimplementation) TkParam : public Kcomp::TCounter { typedef Kcomp::TCounter inherited; private: System::AnsiString FPrompt; System::AnsiString FSaveName; double FMinValue; double FMaxValue; Extctrls::TPanel* FLabel; int FLabelWidth; protected: void __fastcall ParamClick(System::TObject* Sender); virtual System::AnsiString __fastcall GetCaption(void); virtual void __fastcall SetCaption( System::AnsiString p); virtual void __fastcall SetLabelWidth(int p); public: __fastcall virtual TkParam(Classes::TComponent* AOwner); __fastcall virtual ~TkParam(void); bool __fastcall Ask(void); virtual void __fastcall SetName(const System::AnsiString NewName); __published: __property double MinValue = {read=FMinValue, write=FMinValue}; __property double MaxValue = {read=FMaxValue, write=FMaxValue}; __property System::AnsiString Prompt = {read=FPrompt, write=FPrompt, nodefault}; __property System::AnsiString SaveName = {read=FSaveName, write=FSaveName, nodefault}; __property BevelWidth ; __property System::AnsiString Caption = {read=GetCaption, write=SetCaption, nodefault}; __property int LabelWidth = {read=FLabelWidth, write=SetLabelWidth, default=30}; public: /* TWinControl.CreateParented */ __fastcall TkParam(HWND ParentWindow) : Kcomp::TCounter(ParentWindow ) { } }; //-- var, const, procedure --------------------------------------------------- extern void __fastcall Register(void); } /* namespace Kparam */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Kparam; #endif //-- end unit ---------------------------------------------------------------- #endif // KParam