home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / proxies.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  2KB  |  47 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) 'Proxies.pas' rev: 5.00
  6.  
  7. #ifndef ProxiesHPP
  8. #define ProxiesHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <SysInit.hpp>    // Pascal unit
  14. #include <System.hpp>    // Pascal unit
  15.  
  16. //-- user supplied -----------------------------------------------------------
  17.  
  18. namespace Proxies
  19. {
  20. //-- type declarations -------------------------------------------------------
  21. //-- var, const, procedure ---------------------------------------------------
  22. extern PACKAGE void __fastcall CreateSubClass(System::TObject* Instance, const AnsiString ClassName, 
  23.     const AnsiString UnitName, TMetaClass* Ancestor)/* overload */;
  24. extern PACKAGE void __fastcall CreateSubClass(System::TObject* Instance, const AnsiString ClassName, 
  25.     TMetaClass* Ancestor)/* overload */;
  26. extern PACKAGE void __fastcall ChangeToProxyClass(System::TObject* Instance, TMetaClass* Proxy);
  27. extern PACKAGE void __fastcall DestroySubClass(System::TObject* Instance);
  28. extern PACKAGE void __fastcall RenameSubClass(System::TObject* Instance, const AnsiString ClassName, 
  29.     const AnsiString UnitName);
  30. extern PACKAGE void * __fastcall CreateSubClassMethod(System::TObject* Instance, const AnsiString MethodName
  31.     );
  32. extern PACKAGE void __fastcall RenameSubClassMethod(System::TObject* Instance, void * Method, const 
  33.     AnsiString MethodName);
  34. extern PACKAGE void __fastcall DestroySubClassMethod(System::TObject* Instance, void * Method);
  35. extern PACKAGE bool __fastcall IsProxyClass(TMetaClass* ClassType);
  36.  
  37. }    /* namespace Proxies */
  38. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  39. using namespace Proxies;
  40. #endif
  41. #pragma option pop    // -w-
  42. #pragma option pop    // -Vx
  43.  
  44. #pragma delphiheader end.
  45. //-- end unit ----------------------------------------------------------------
  46. #endif    // Proxies
  47.