home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / exptintf.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  3KB  |  88 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) 'Exptintf.pas' rev: 5.00
  6.  
  7. #ifndef ExptintfHPP
  8. #define ExptintfHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ToolIntf.hpp>    // Pascal unit
  14. #include <VirtIntf.hpp>    // Pascal unit
  15. #include <Windows.hpp>    // Pascal unit
  16. #include <SysInit.hpp>    // Pascal unit
  17. #include <System.hpp>    // Pascal unit
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20.  
  21. namespace Exptintf
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. #pragma option push -b-
  25. enum TExpertStyle { esStandard, esForm, esProject, esAddIn };
  26. #pragma option pop
  27.  
  28. #pragma option push -b-
  29. enum Exptintf__1 { esEnabled, esChecked };
  30. #pragma option pop
  31.  
  32. typedef Set<Exptintf__1, esEnabled, esChecked>  TExpertState;
  33.  
  34. class DELPHICLASS TIExpert;
  35. class PASCALIMPLEMENTATION TIExpert : public Virtintf::TInterface 
  36. {
  37.     typedef Virtintf::TInterface inherited;
  38.     
  39. public:
  40.     virtual AnsiString __stdcall GetName(void) = 0 ;
  41.     virtual AnsiString __stdcall GetAuthor(void) = 0 ;
  42.     virtual AnsiString __stdcall GetComment(void) = 0 ;
  43.     virtual AnsiString __stdcall GetPage(void) = 0 ;
  44.     virtual HICON __stdcall GetGlyph(void) = 0 ;
  45.     virtual TExpertStyle __stdcall GetStyle(void) = 0 ;
  46.     virtual TExpertState __stdcall GetState(void) = 0 ;
  47.     virtual AnsiString __stdcall GetIDString(void) = 0 ;
  48.     virtual AnsiString __stdcall GetMenuText(void) = 0 ;
  49.     virtual void __stdcall Execute(void) = 0 ;
  50. public:
  51.     #pragma option push -w-inl
  52.     /* TInterface.Create */ inline __fastcall TIExpert(void) : Virtintf::TInterface() { }
  53.     #pragma option pop
  54.     
  55. public:
  56.     #pragma option push -w-inl
  57.     /* TObject.Destroy */ inline __fastcall virtual ~TIExpert(void) { }
  58.     #pragma option pop
  59.     
  60. };
  61.  
  62.  
  63. typedef bool __fastcall (*TExpertRegisterProc)(TIExpert* Expert);
  64.  
  65. typedef void __fastcall (*TExpertTerminateProc)(void);
  66.  
  67. typedef bool __stdcall (*TExpertInitProc)(Toolintf::TIToolServices* ToolServices, TExpertRegisterProc 
  68.     RegisterProc, TExpertTerminateProc &Terminate);
  69.  
  70. //-- var, const, procedure ---------------------------------------------------
  71. #define isExperts "Experts"
  72. #define ExpertEntryPoint "INITEXPERT0017"
  73. static const Shortint ValidExpertVersion = 0x3;
  74. extern PACKAGE TExpertRegisterProc LibraryExpertProc;
  75. extern PACKAGE Toolintf::TIToolServices* ToolServices;
  76. extern PACKAGE void __fastcall RegisterLibraryExpert(TIExpert* Expert);
  77.  
  78. }    /* namespace Exptintf */
  79. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  80. using namespace Exptintf;
  81. #endif
  82. #pragma option pop    // -w-
  83. #pragma option pop    // -Vx
  84.  
  85. #pragma delphiheader end.
  86. //-- end unit ----------------------------------------------------------------
  87. #endif    // Exptintf
  88.