home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmsyscm / _setup.1 / AHMTHolders.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-12  |  1.9 KB  |  68 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTHolders.pas' rev: 3.00
  6.  
  7. #ifndef AHMTHoldersHPP
  8. #define AHMTHoldersHPP
  9. #include <AHMSystem.hpp>
  10. #include <Classes.hpp>
  11. #include <Windows.hpp>
  12. #include <SysInit.hpp>
  13. #include <System.hpp>
  14.  
  15. //-- user supplied -----------------------------------------------------------
  16.  
  17. namespace Ahmtholders
  18. {
  19. //-- type declarations -------------------------------------------------------
  20. class DELPHICLASS TAHMStringHolder;
  21. class PASCALIMPLEMENTATION TAHMStringHolder : public Ahmsystem::TAHMSystemsComponent 
  22. {
  23.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  24.     
  25. private:
  26.     Classes::TStrings* FItems;
  27.     
  28. protected:
  29.     void __fastcall SetStrings(Classes::TStrings* sItems);
  30.     
  31. public:
  32.     __fastcall virtual TAHMStringHolder(Classes::TComponent* AOwner);
  33.     __fastcall virtual ~TAHMStringHolder(void);
  34.     
  35. __published:
  36.     __property Classes::TStrings* Items = {read=FItems, write=SetStrings};
  37. };
  38.  
  39. class DELPHICLASS TAHMJokeHolder;
  40. class PASCALIMPLEMENTATION TAHMJokeHolder : public Ahmsystem::TAHMSystemsComponent 
  41. {
  42.     typedef Ahmsystem::TAHMSystemsComponent inherited;
  43.     
  44. private:
  45.     Classes::TStrings* FStrings;
  46.     
  47. protected:
  48.     void __fastcall SetStrings(Classes::TStrings* sStrings);
  49.     
  50. public:
  51.     __fastcall virtual TAHMJokeHolder(Classes::TComponent* AOwner);
  52.     __fastcall virtual ~TAHMJokeHolder(void);
  53.     
  54. __published:
  55.     __property Classes::TStrings* Items = {read=FStrings, write=SetStrings};
  56.     System::AnsiString __fastcall Getany(void);
  57.     System::AnsiString __fastcall Getone(int which);
  58. };
  59.  
  60. //-- var, const, procedure ---------------------------------------------------
  61.  
  62. }    /* namespace Ahmtholders */
  63. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  64. using namespace Ahmtholders;
  65. #endif
  66. //-- end unit ----------------------------------------------------------------
  67. #endif    // AHMTHolders
  68.