// Borland C++ Builder // Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved // (DO NOT EDIT: machine generated header) 'IPEdit.pas' rev: 6.00 #ifndef IPEditHPP #define IPEditHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Ipedit { //-- type declarations ------------------------------------------------------- class DELPHICLASS TIPByteEdit; class DELPHICLASS TIPEdit; class PASCALIMPLEMENTATION TIPEdit : public Extctrls::TCustomPanel { typedef Extctrls::TCustomPanel inherited; private: bool MyEnabled; bool InternalMove; Classes::TNotifyEvent MyChange; Classes::TNotifyEvent MyEnter; void __fastcall PanelEnter(System::TObject* Sender); void __fastcall MyResize(System::TObject* Sender); void __fastcall PanelClick(System::TObject* Sender); void __fastcall PanelDblClick(System::TObject* Sender); void __fastcall FilterKey(System::TObject* Sender, char &Key); void __fastcall ExitByteEdit(System::TObject* Sender); void __fastcall EditClick(System::TObject* Sender); void __fastcall EditChange(System::TObject* Sender); HIDESBASE AnsiString __fastcall GetText(); HIDESBASE void __fastcall SetText(AnsiString Value); unsigned __fastcall GetValue(void); void __fastcall SetValue(unsigned Value); void __fastcall Set_Enabled(bool TrueFalse); protected: TIPByteEdit* IPByteEdit[4]; Stdctrls::TLabel* Dots[4]; public: __fastcall virtual TIPEdit(Classes::TComponent* AOwner); __fastcall virtual ~TIPEdit(void); virtual void __fastcall Loaded(void); __published: __property Ctl3D = {stored=true}; __property Font ; __property AnsiString Text = {read=GetText, write=SetText, stored=true}; __property unsigned Value = {read=GetValue, write=SetValue, stored=true, nodefault}; __property Visible = {default=1}; __property Anchors = {default=3}; __property BorderStyle = {default=0}; __property Color = {default=-2147483633}; __property ShowHint ; __property bool Enabled = {read=MyEnabled, write=Set_Enabled, nodefault}; __property Classes::TNotifyEvent OnChange = {read=MyChange, write=MyChange}; __property OnClick ; __property OnDblClick ; __property Classes::TNotifyEvent OnEnter = {read=MyEnter, write=MyEnter}; __property OnExit ; __property TabOrder = {default=-1}; __property TabStop = {default=0}; public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TIPEdit(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { } #pragma option pop }; class PASCALIMPLEMENTATION TIPByteEdit : public Stdctrls::TEdit { typedef Stdctrls::TEdit inherited; private: Classes::TAlignment MyAlignment; void __fastcall SetAlignment(Classes::TAlignment Value); protected: virtual void __fastcall CreateParams(Controls::TCreateParams &Params); __published: TIPEdit* ParentPanel; __fastcall virtual TIPByteEdit(Classes::TComponent* AOwner); __property Classes::TAlignment Alignment = {read=MyAlignment, write=SetAlignment, nodefault}; public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TIPByteEdit(HWND ParentWindow) : Stdctrls::TEdit(ParentWindow) { } #pragma option pop #pragma option push -w-inl /* TWinControl.Destroy */ inline __fastcall virtual ~TIPByteEdit(void) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE void __fastcall Register(void); } /* namespace Ipedit */ using namespace Ipedit; #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // IPEdit