home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / MASKPROP.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  3.8 KB  |  138 lines
  1. //----------------------------------------------------------------------------
  2. // MaskProp.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: MaskProp.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef MaskPropHPP
  6. #define MaskPropHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef DialogsHPP
  9. #include <Dialogs.hpp>
  10. #endif
  11.  
  12. #ifndef SysUtilsHPP
  13. #include <SysUtils.hpp>
  14. #endif
  15.  
  16. #ifndef MaskHPP
  17. #include <Mask.hpp>
  18. #endif
  19.  
  20. #ifndef DsgnIntfHPP
  21. #include <DsgnIntf.hpp>
  22. #endif
  23.  
  24. #ifndef ButtonsHPP
  25. #include <Buttons.hpp>
  26. #endif
  27.  
  28. #ifndef ExtCtrlsHPP
  29. #include <ExtCtrls.hpp>
  30. #endif
  31.  
  32. #ifndef StdCtrlsHPP
  33. #include <StdCtrls.hpp>
  34. #endif
  35.  
  36. #ifndef ControlsHPP
  37. #include <Controls.hpp>
  38. #endif
  39.  
  40. #ifndef FormsHPP
  41. #include <Forms.hpp>
  42. #endif
  43.  
  44. #ifndef GraphicsHPP
  45. #include <Graphics.hpp>
  46. #endif
  47.  
  48. #ifndef ClassesHPP
  49. #include <Classes.hpp>
  50. #endif
  51.  
  52. #ifndef WindowsHPP
  53. #include <Windows.hpp>
  54. #endif
  55.  
  56. #ifndef SystemHPP
  57. #include <System.hpp>
  58. #endif
  59.  
  60. namespace Maskprop
  61. {
  62. //-- type declarations -------------------------------------------------------
  63. class __declspec(delphiclass) TMaskProperty;
  64. class __declspec(pascalimplementation) TMaskProperty : public Dsgnintf::TStringProperty
  65. {
  66.     typedef TMaskProperty ThisClass;
  67.     typedef Dsgnintf::TStringProperty inherited;
  68.     
  69. public:
  70.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  71.     virtual void __fastcall Edit(void);
  72. public:
  73.     /* !! TPropertyEditor.Destroy */ __fastcall virtual ~TMaskProperty(void) { }
  74.     
  75. public:
  76.     /* !! TObject.Create */ __fastcall TMaskProperty(void) : Dsgnintf::TStringProperty() { }
  77.     
  78. };
  79.  
  80. class __declspec(delphiclass) TMaskForm;
  81. class __declspec(pascalimplementation) TMaskForm : public Forms::TForm
  82. {
  83.     typedef TMaskForm ThisClass;
  84.     typedef Forms::TForm inherited;
  85.     
  86. __published:
  87.     Stdctrls::TEdit *InputMask;
  88.     Stdctrls::TLabel *Label1;
  89.     Stdctrls::TListBox *ListBox1;
  90.     Stdctrls::TLabel *Label2;
  91.     Stdctrls::TLabel *Label3;
  92.     Mask::TMaskEdit *TestEdit;
  93.     Stdctrls::TLabel *Label4;
  94.     Stdctrls::TEdit *Blanks;
  95.     Extctrls::TBevel *Bevel1;
  96.     Stdctrls::TCheckBox *SaveMaskCheck;
  97.     Stdctrls::TButton *Masks;
  98.     Dialogs::TOpenDialog *OpenDialog1;
  99.     Stdctrls::TButton *OKButton;
  100.     Stdctrls::TButton *CancelButton;
  101.     Stdctrls::TButton *HelpButton;
  102.     void __fastcall BlanksChange(System::TObject *Sender);
  103.     void __fastcall InputMaskChange(System::TObject *Sender);
  104.     void __fastcall ListDrawItem(Controls::TWinControl *Control, System::Integer Index, const Windows::TRect 
  105.         &Rect,  Stdctrls::TOwnerDrawState State);
  106.     void __fastcall ListBoxSelect(System::TObject *Sender);
  107.     void __fastcall FormCreate(System::TObject *Sender);
  108.     void __fastcall MasksClick(System::TObject *Sender);
  109.     void __fastcall HelpButtonClick(System::TObject *Sender);
  110.     
  111. private:
  112.     System::Boolean FInEditChange;
  113.     System::AnsiString __fastcall AddBlanks( System::AnsiString Value);
  114.     void __fastcall LoadMaskList(const System::AnsiString FileName);
  115.     
  116. protected:
  117.     System::AnsiString __fastcall GetListMaskValue(System::Integer Index);
  118.     System::AnsiString __fastcall GetMaskValue(const System::AnsiString Value);
  119.     virtual void __fastcall Loaded(void);
  120. public:
  121.     /* !! TForm.Create */ __fastcall virtual TMaskForm(Classes::TComponent *AOwner) : Forms::TForm(AOwner
  122.         ) { }
  123.     /* !! TForm.CreateNew */ __fastcall TMaskForm(Classes::TComponent *AOwner, System::Integer Dummy) : Forms::TForm(
  124.         AOwner, Dummy) { }
  125.     /* !! TForm.Destroy */ __fastcall virtual ~TMaskForm(void) { }
  126.     
  127. };
  128.  
  129. //-- var, const, procedure ---------------------------------------------------
  130. extern TMaskForm *MaskForm;
  131.  
  132. }    /* namespace Maskprop */
  133. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  134. using namespace Maskprop;
  135. #endif
  136. //-- end unit ----------------------------------------------------------------
  137. #endif    // MaskProp
  138.