//---------------------------------------------------------------------------- // kComp.hpp - dcc32 generated hdr (DO NOT EDIT) rev: 0 // From: kComp.pas //---------------------------------------------------------------------------- #ifndef kCompHPP #define kCompHPP //---------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include namespace Kcomp { //-- type declarations ------------------------------------------------------- class __declspec(delphiclass) TCounter; class __declspec(pascalimplementation) TCounter : public Extctrls::TPanel { typedef Extctrls::TPanel inherited; private: double FValue; int FDesim; protected: Extctrls::TPanel* FPanel; virtual Classes::TAlignment __fastcall GetAlignment(void); virtual void __fastcall SetAlignment(Classes::TAlignment p); virtual Graphics::TColor __fastcall GetColor(void); virtual void __fastcall SetColor(Graphics::TColor p); virtual Extctrls::TPanelBevel __fastcall GetBevelInner(void); virtual void __fastcall SetBevelInner(Extctrls::TPanelBevel p); virtual Extctrls::TPanelBevel __fastcall GetBevelOuter(void); virtual void __fastcall SetBevelOuter(Extctrls::TPanelBevel p); virtual int __fastcall GetBevelWidth(void); virtual void __fastcall SetBevelWidth(int p); virtual Classes::TNotifyEvent __fastcall GetOnClick(void); virtual void __fastcall SetOnClick(Classes::TNotifyEvent p); virtual Controls::TCursor __fastcall GetCursor(void); virtual void __fastcall SetCursor(Controls::TCursor p); virtual System::AnsiString __fastcall GetCaption(void); virtual void __fastcall SetCaption( System::AnsiString s); public: __fastcall virtual TCounter(Classes::TComponent* AOwner); __fastcall virtual ~TCounter(void); virtual void __fastcall SetValue(double d); virtual void __fastcall SetDesim(int i); virtual void __fastcall Inc(double d); __published: __property double Value = {read=FValue, write=SetValue}; __property int Desim = {read=FDesim, write=SetDesim, default=0}; __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, default=1}; __property Graphics::TColor Color = {read=GetColor, write=SetColor, default=8454143}; __property Extctrls::TPanelBevel BevelInner = {read=GetBevelInner, write=SetBevelInner, default=1}; __property Extctrls::TPanelBevel BevelOuter = {read=GetBevelOuter, write=SetBevelOuter, default=2}; __property int BevelWidth = {read=GetBevelWidth, write=SetBevelWidth, default=4}; __property Classes::TNotifyEvent OnClick = {read=GetOnClick, write=SetOnClick}; __property Controls::TCursor Cursor = {read=GetCursor, write=SetCursor, nodefault}; __property System::AnsiString Caption = {read=GetCaption, write=SetCaption, nodefault}; public: /* TWinControl.CreateParented */ __fastcall TCounter(HWND ParentWindow) : Extctrls::TPanel(ParentWindow ) { } }; class __declspec(delphiclass) TProgCounter; class __declspec(pascalimplementation) TProgCounter : public TCounter { typedef TCounter inherited; private: Gauges::TGauge* FGauge; double FMinValue; double FMaxValue; public: __fastcall virtual TProgCounter(Classes::TComponent* AOwner); __fastcall virtual ~TProgCounter(void); virtual void __fastcall SetValue(double d); virtual void __fastcall SetMaxValue(double d); virtual void __fastcall SetMinValue(double d); __property Gauges::TGauge* Gauge = {read=FGauge, nodefault}; __published: __property double Value = {read=FValue, write=SetValue}; __property double MinValue = {read=FMinValue, write=SetMinValue}; __property double MaxValue = {read=FMaxValue, write=SetMaxValue}; public: /* TWinControl.CreateParented */ __fastcall TProgCounter(HWND ParentWindow) : Kcomp::TCounter(ParentWindow ) { } }; //-- var, const, procedure --------------------------------------------------- extern void __fastcall Register(void); } /* namespace Kcomp */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Kcomp; #endif //-- end unit ---------------------------------------------------------------- #endif // kComp