home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Include / Vcl / MASKPROP.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  4.3 KB  |  132 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'MaskProp.pas' rev: 4.00
  6.  
  7. #ifndef MaskPropHPP
  8. #define MaskPropHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <Dialogs.hpp>    // Pascal unit
  13. #include <SysUtils.hpp>    // Pascal unit
  14. #include <Mask.hpp>    // Pascal unit
  15. #include <DsgnIntf.hpp>    // Pascal unit
  16. #include <Buttons.hpp>    // Pascal unit
  17. #include <ExtCtrls.hpp>    // Pascal unit
  18. #include <StdCtrls.hpp>    // Pascal unit
  19. #include <Controls.hpp>    // Pascal unit
  20. #include <Forms.hpp>    // Pascal unit
  21. #include <Graphics.hpp>    // Pascal unit
  22. #include <Classes.hpp>    // Pascal unit
  23. #include <Windows.hpp>    // Pascal unit
  24. #include <SysInit.hpp>    // Pascal unit
  25. #include <System.hpp>    // Pascal unit
  26.  
  27. //-- user supplied -----------------------------------------------------------
  28.  
  29. namespace Maskprop
  30. {
  31. //-- type declarations -------------------------------------------------------
  32. class DELPHICLASS TMaskProperty;
  33. #pragma pack(push, 4)
  34. class PASCALIMPLEMENTATION TMaskProperty : public Dsgnintf::TStringProperty 
  35. {
  36.     typedef Dsgnintf::TStringProperty inherited;
  37.     
  38. public:
  39.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  40.     virtual void __fastcall Edit(void);
  41. protected:
  42.     #pragma option push -w-inl
  43.     /* TPropertyEditor.Create */ inline __fastcall TMaskProperty(const Dsgnintf::_di_IFormDesigner ADesigner
  44.         , int APropCount) : Dsgnintf::TStringProperty(ADesigner, APropCount) { }
  45.     #pragma option pop
  46.     
  47. public:
  48.     #pragma option push -w-inl
  49.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TMaskProperty(void) { }
  50.     #pragma option pop
  51.     
  52. };
  53.  
  54. #pragma pack(pop)
  55.  
  56. class DELPHICLASS TMaskForm;
  57. #pragma pack(push, 4)
  58. class PASCALIMPLEMENTATION TMaskForm : public Forms::TForm 
  59. {
  60.     typedef Forms::TForm inherited;
  61.     
  62. __published:
  63.     Stdctrls::TEdit* InputMask;
  64.     Stdctrls::TLabel* Label1;
  65.     Stdctrls::TListBox* ListBox1;
  66.     Stdctrls::TLabel* Label2;
  67.     Stdctrls::TLabel* Label3;
  68.     Mask::TMaskEdit* TestEdit;
  69.     Stdctrls::TLabel* Label4;
  70.     Stdctrls::TEdit* Blanks;
  71.     Extctrls::TBevel* Bevel1;
  72.     Stdctrls::TCheckBox* SaveMaskCheck;
  73.     Stdctrls::TButton* Masks;
  74.     Dialogs::TOpenDialog* OpenDialog1;
  75.     Stdctrls::TButton* OKButton;
  76.     Stdctrls::TButton* CancelButton;
  77.     Stdctrls::TButton* HelpButton;
  78.     void __fastcall BlanksChange(System::TObject* Sender);
  79.     void __fastcall InputMaskChange(System::TObject* Sender);
  80.     void __fastcall ListDrawItem(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect, 
  81.         Stdctrls::TOwnerDrawState State);
  82.     void __fastcall ListBoxSelect(System::TObject* Sender);
  83.     void __fastcall FormCreate(System::TObject* Sender);
  84.     void __fastcall MasksClick(System::TObject* Sender);
  85.     void __fastcall HelpButtonClick(System::TObject* Sender);
  86.     
  87. private:
  88.     bool FInEditChange;
  89.     AnsiString __fastcall AddBlanks(AnsiString Value);
  90.     void __fastcall LoadMaskList(const AnsiString FileName);
  91.     
  92. protected:
  93.     AnsiString __fastcall GetListMaskValue(int Index);
  94.     AnsiString __fastcall GetMaskValue(const AnsiString Value);
  95.     virtual void __fastcall Loaded(void);
  96. public:
  97.     #pragma option push -w-inl
  98.     /* TCustomForm.Create */ inline __fastcall virtual TMaskForm(Classes::TComponent* AOwner) : Forms::TForm(
  99.         AOwner) { }
  100.     #pragma option pop
  101.     #pragma option push -w-inl
  102.     /* TCustomForm.CreateNew */ inline __fastcall virtual TMaskForm(Classes::TComponent* AOwner, int Dummy
  103.         ) : Forms::TForm(AOwner, Dummy) { }
  104.     #pragma option pop
  105.     #pragma option push -w-inl
  106.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TMaskForm(void) { }
  107.     #pragma option pop
  108.     
  109. public:
  110.     #pragma option push -w-inl
  111.     /* TWinControl.CreateParented */ inline __fastcall TMaskForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  112.         ) { }
  113.     #pragma option pop
  114.     
  115. };
  116.  
  117. #pragma pack(pop)
  118.  
  119. //-- var, const, procedure ---------------------------------------------------
  120. extern PACKAGE TMaskForm* MaskForm;
  121. extern PACKAGE bool __fastcall EditInputMask(AnsiString &InputMask, const AnsiString InitialDir);
  122.  
  123. }    /* namespace Maskprop */
  124. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  125. using namespace Maskprop;
  126. #endif
  127. #pragma option pop    // -w-
  128.  
  129. #pragma delphiheader end.
  130. //-- end unit ----------------------------------------------------------------
  131. #endif    // MaskProp
  132.