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