home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / STFILSYS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  7.0 KB  |  194 lines
  1. //----------------------------------------------------------------------------
  2. // StFilSys.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: StFilSys.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef StFilSysHPP
  6. #define StFilSysHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef TypInfoHPP
  9. #include <TypInfo.hpp>
  10. #endif
  11.  
  12. #ifndef FileIntfHPP
  13. #include <FileIntf.hpp>
  14. #endif
  15.  
  16. #ifndef EditIntfHPP
  17. #include <EditIntf.hpp>
  18. #endif
  19.  
  20. #ifndef ExptintfHPP
  21. #include <Exptintf.hpp>
  22. #endif
  23.  
  24. #ifndef IStreamsHPP
  25. #include <IStreams.hpp>
  26. #endif
  27.  
  28. #ifndef VirtIntfHPP
  29. #include <VirtIntf.hpp>
  30. #endif
  31.  
  32. #ifndef SysUtilsHPP
  33. #include <SysUtils.hpp>
  34. #endif
  35.  
  36. #ifndef ClassesHPP
  37. #include <Classes.hpp>
  38. #endif
  39.  
  40. #ifndef SystemHPP
  41. #include <System.hpp>
  42. #endif
  43.  
  44. namespace Stfilsys
  45. {
  46. //-- type declarations -------------------------------------------------------
  47. class __declspec(delphiclass) TModuleNotifier;
  48. class __declspec(delphiclass) TActiveTStringsProperty;
  49. class __declspec(pascalimplementation) TActiveTStringsProperty : public Classes::TComponent
  50. {
  51.     typedef TActiveTStringsProperty ThisClass;
  52.     typedef Classes::TComponent inherited;
  53.     
  54. private:
  55.     Classes::TComponent *FComponent;
  56.     System::AnsiString FPropertyName;
  57.     Editintf::TIModuleInterface *FModuleInterface;
  58.     Editintf::TIModuleInterface *FFormModuleInterface;
  59.     TModuleNotifier *FModuleNotifier;
  60.     TModuleNotifier *FFormModuleNotifier;
  61.     System::Integer FIndex;
  62.     System::Longint FDiskAge;
  63.     void __fastcall SetModuleInterface(Editintf::TIModuleInterface *Value);
  64.     void __fastcall SetComponent(Classes::TComponent *Value);
  65.     
  66. protected:
  67.     virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
  68.         );
  69.     
  70. public:
  71.     __fastcall TActiveTStringsProperty(Classes::TComponent *AOwner, Classes::TComponent *AComponent, const System::AnsiString 
  72.         APropertyName);
  73.     __fastcall virtual ~TActiveTStringsProperty(void);
  74.     void __fastcall RenameComponent(const System::AnsiString OldName, const System::AnsiString NewName)
  75.         ;
  76.     __property Editintf::TIModuleInterface * ModuleInterface = {read=FModuleInterface, write=SetModuleInterface
  77.         , nodefault};
  78.     __property Classes::TComponent * Component = {read=FComponent, write=SetComponent, nodefault};
  79.     __property System::AnsiString PropertyName = {read=FPropertyName, write=FPropertyName, nodefault};
  80.     __property System::Longint DiskAge = {read=FDiskAge, write=FDiskAge, nodefault};
  81. public:
  82.     /* !! TComponent.Create */ __fastcall virtual TActiveTStringsProperty(Classes::TComponent *AOwner) : Classes::TComponent(
  83.         AOwner) { }
  84.     
  85. };
  86.  
  87. class __declspec(pascalimplementation) TModuleNotifier : public Editintf::TIModuleNotifier
  88. {
  89.     typedef TModuleNotifier ThisClass;
  90.     typedef Editintf::TIModuleNotifier inherited;
  91.     
  92. private:
  93.     TActiveTStringsProperty *FOwner;
  94.     __fastcall TModuleNotifier(TActiveTStringsProperty *AOwner);
  95.     
  96. public:
  97.     virtual void __stdcall Notify(Editintf::TNotifyCode NotifyCode);
  98.     virtual void __stdcall ComponentRenamed(System::Pointer ComponentHandle, const System::AnsiString OldName
  99.         , const System::AnsiString NewName);
  100. public:
  101.     /* !! TInterface.Create */ __fastcall TModuleNotifier(void) : Editintf::TIModuleNotifier() { }
  102.     
  103. public:
  104.     /* !! TObject.Destroy */ __fastcall virtual ~TModuleNotifier(void) { }
  105.     
  106. };
  107.  
  108. class __declspec(delphiclass) TFormModuleNotifier;
  109. class __declspec(pascalimplementation) TFormModuleNotifier : public TModuleNotifier
  110. {
  111.     typedef TFormModuleNotifier ThisClass;
  112.     typedef TModuleNotifier inherited;
  113.     
  114. public:
  115.     virtual void __stdcall Notify(Editintf::TNotifyCode NotifyCode);
  116.     virtual void __stdcall ComponentRenamed(System::Pointer ComponentHandle, const System::AnsiString OldName
  117.         , const System::AnsiString NewName);
  118. public:
  119.     /* !! TInterface.Create */ __fastcall TFormModuleNotifier(void) : Stfilsys::TModuleNotifier() { }
  120.     
  121. public:
  122.     /* !! TObject.Destroy */ __fastcall virtual ~TFormModuleNotifier(void) { }
  123.     
  124. };
  125.  
  126. class __declspec(delphiclass) TStringsStream;
  127. class __declspec(pascalimplementation) TStringsStream : public Virtintf::TIStream
  128. {
  129.     typedef TStringsStream ThisClass;
  130.     typedef Virtintf::TIStream inherited;
  131.     
  132. private:
  133.     Classes::TComponent *FComponent;
  134.     Classes::TStrings *FStringsProperty;
  135.     TActiveTStringsProperty *FActiveTStringsProperty;
  136.     Classes::TMemoryStream *FMemoryStream;
  137.     System::Boolean FModified;
  138.     System::Longint FFileAge;
  139.     __fastcall TStringsStream(TActiveTStringsProperty *ActiveTStringsProperty, Classes::TComponent *AComponent
  140.         , const System::AnsiString APropName, System::Integer Mode);
  141.     __fastcall virtual ~TStringsStream(void);
  142.     void __fastcall SetDesignerModified(void);
  143.     
  144. public:
  145.     virtual System::Longint __stdcall Read(void *Buffer, System::Longint Count);
  146.     virtual System::Longint __stdcall Write(const void *Buffer, System::Longint Count);
  147.     virtual System::Longint __stdcall Seek(System::Longint Offset, System::Word Origin);
  148.     virtual System::Longint __stdcall GetModifyTime(void);
  149.     virtual void __stdcall SetModifyTime(System::Longint Time);
  150. public:
  151.     /* !! TInterface.Create */ __fastcall TStringsStream(void) : Virtintf::TIStream() { }
  152.     
  153. };
  154.  
  155. class __declspec(delphiclass) TStringsFileSystem;
  156. class __declspec(pascalimplementation) TStringsFileSystem : public Fileintf::TIVirtualFileSystem
  157. {
  158.     typedef TStringsFileSystem ThisClass;
  159.     typedef Fileintf::TIVirtualFileSystem inherited;
  160.     
  161. private:
  162.     Classes::TStringList *FActiveTStringsProperties;
  163.     
  164. public:
  165.     __fastcall TStringsFileSystem(void);
  166.     __fastcall virtual ~TStringsFileSystem(void);
  167.     TActiveTStringsProperty *__fastcall GetTStringsProperty(const System::AnsiString IDent, Classes::TComponent *
  168.         AComponent, const System::AnsiString APropertyName);
  169.     virtual Virtintf::TIStream *__stdcall GetFileStream(const System::AnsiString FileName, System::Integer 
  170.         Mode);
  171.     virtual System::Longint __stdcall FileAge(const System::AnsiString FileName);
  172.     virtual System::Boolean __stdcall RenameFile(const System::AnsiString OldName, const System::AnsiString 
  173.         NewName);
  174.     virtual System::Boolean __stdcall IsReadonly(const System::AnsiString FileName);
  175.     virtual System::Boolean __stdcall IsFileBased(void);
  176.     virtual System::Boolean __stdcall DeleteFile(const System::AnsiString FileName);
  177.     virtual System::Boolean __stdcall FileExists(const System::AnsiString FileName);
  178.     virtual System::AnsiString __stdcall GetTempFileName(const System::AnsiString FileName);
  179.     virtual System::AnsiString __stdcall GetBackupFileName(const System::AnsiString FileName);
  180.     virtual System::AnsiString __stdcall GetIDString(void);
  181. };
  182.  
  183. //-- var, const, procedure ---------------------------------------------------
  184. #define sTStringsFileSystem "Delphi.TStringsFileSystem"
  185. extern TStringsFileSystem *StringsFileSystem;
  186. extern void __fastcall Register(void);
  187.  
  188. }    /* namespace Stfilsys */
  189. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  190. using namespace Stfilsys;
  191. #endif
  192. //-- end unit ----------------------------------------------------------------
  193. #endif    // StFilSys
  194.