home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / CLASSES.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  59KB  |  1,335 lines
  1. //----------------------------------------------------------------------------
  2. // Classes.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Classes.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ClassesHPP
  6. #define ClassesHPP
  7. //----------------------------------------------------------------------------
  8. #include <Windows.hpp>
  9. #include <SysUtils.hpp>
  10. #include <System.hpp>
  11. #pragma warn -par
  12. #pragma warn -hid 
  13. #pragma warn -inl
  14.  
  15. namespace Classes
  16. {
  17. //-- type declarations -------------------------------------------------------
  18. enum TAlignment { taLeftJustify, taRightJustify, taCenter };
  19.  
  20. typedef TAlignment TLeftRight;
  21.  
  22. enum Classes_1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble };
  23.  
  24. typedef Set<Classes_1, ssShift, ssDouble>  TShiftState;
  25.  
  26. typedef int THelpContext;
  27.  
  28. typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);
  29.  
  30. typedef bool __fastcall (__closure *THelpEvent)(Word Command, long Data, bool &CallHelp);
  31.  
  32. typedef void __fastcall (__closure *TGetStrProc)(const System::AnsiString S);
  33.  
  34. class __declspec(delphiclass) EStreamError;
  35. class __declspec(pascalimplementation) EStreamError : public Sysutils::Exception
  36. {
  37.     typedef Sysutils::Exception inherited;
  38.     
  39. public:
  40.     /* Exception.Create */ __fastcall EStreamError(const System::AnsiString Msg) : Sysutils::Exception(
  41.         Msg) { }
  42.     /* Exception.CreateFmt */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec 
  43.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  44.     /* Exception.CreateRes */ __fastcall EStreamError(int Ident) : Sysutils::Exception(Ident) { }
  45.     /* Exception.CreateResFmt */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const 
  46.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  47.     /* Exception.CreateHelp */ __fastcall EStreamError(const System::AnsiString Msg, int AHelpContext) : 
  48.         Sysutils::Exception(Msg, AHelpContext) { }
  49.     /* Exception.CreateFmtHelp */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec 
  50.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  51.         ) { }
  52.     /* Exception.CreateResHelp */ __fastcall EStreamError(int Ident, int AHelpContext) : Sysutils::Exception(
  53.         Ident, AHelpContext) { }
  54.     /* Exception.CreateResFmtHelp */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const 
  55.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  56.     
  57. public:
  58.     /* TObject.Destroy */ __fastcall virtual ~EStreamError(void) { }
  59.     
  60. };
  61.  
  62. class __declspec(delphiclass) EFCreateError;
  63. class __declspec(pascalimplementation) EFCreateError : public EStreamError
  64. {
  65.     typedef EStreamError inherited;
  66.     
  67. public:
  68.     /* Exception.Create */ __fastcall EFCreateError(const System::AnsiString Msg) : Classes::EStreamError(
  69.         Msg) { }
  70.     /* Exception.CreateFmt */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec 
  71.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  72.     /* Exception.CreateRes */ __fastcall EFCreateError(int Ident) : Classes::EStreamError(Ident) { }
  73.     /* Exception.CreateResFmt */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args, const 
  74.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  75.     /* Exception.CreateHelp */ __fastcall EFCreateError(const System::AnsiString Msg, int AHelpContext)
  76.          : Classes::EStreamError(Msg, AHelpContext) { }
  77.     /* Exception.CreateFmtHelp */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec 
  78.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  79.         ) { }
  80.     /* Exception.CreateResHelp */ __fastcall EFCreateError(int Ident, int AHelpContext) : Classes::EStreamError(
  81.         Ident, AHelpContext) { }
  82.     /* Exception.CreateResFmtHelp */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args, 
  83.         const int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext
  84.         ) { }
  85.     
  86. public:
  87.     /* TObject.Destroy */ __fastcall virtual ~EFCreateError(void) { }
  88.     
  89. };
  90.  
  91. class __declspec(delphiclass) EFOpenError;
  92. class __declspec(pascalimplementation) EFOpenError : public EStreamError
  93. {
  94.     typedef EStreamError inherited;
  95.     
  96. public:
  97.     /* Exception.Create */ __fastcall EFOpenError(const System::AnsiString Msg) : Classes::EStreamError(
  98.         Msg) { }
  99.     /* Exception.CreateFmt */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec 
  100.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  101.     /* Exception.CreateRes */ __fastcall EFOpenError(int Ident) : Classes::EStreamError(Ident) { }
  102.     /* Exception.CreateResFmt */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const 
  103.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  104.     /* Exception.CreateHelp */ __fastcall EFOpenError(const System::AnsiString Msg, int AHelpContext) : 
  105.         Classes::EStreamError(Msg, AHelpContext) { }
  106.     /* Exception.CreateFmtHelp */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec 
  107.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  108.         ) { }
  109.     /* Exception.CreateResHelp */ __fastcall EFOpenError(int Ident, int AHelpContext) : Classes::EStreamError(
  110.         Ident, AHelpContext) { }
  111.     /* Exception.CreateResFmtHelp */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const 
  112.         int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
  113.         
  114. public:
  115.     /* TObject.Destroy */ __fastcall virtual ~EFOpenError(void) { }
  116.     
  117. };
  118.  
  119. class __declspec(delphiclass) EFilerError;
  120. class __declspec(pascalimplementation) EFilerError : public EStreamError
  121. {
  122.     typedef EStreamError inherited;
  123.     
  124. public:
  125.     /* Exception.Create */ __fastcall EFilerError(const System::AnsiString Msg) : Classes::EStreamError(
  126.         Msg) { }
  127.     /* Exception.CreateFmt */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec 
  128.         * Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
  129.     /* Exception.CreateRes */ __fastcall EFilerError(int Ident) : Classes::EStreamError(Ident) { }
  130.     /* Exception.CreateResFmt */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const 
  131.         int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
  132.     /* Exception.CreateHelp */ __fastcall EFilerError(const System::AnsiString Msg, int AHelpContext) : 
  133.         Classes::EStreamError(Msg, AHelpContext) { }
  134.     /* Exception.CreateFmtHelp */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec 
  135.         * Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
  136.         ) { }
  137.     /* Exception.CreateResHelp */ __fastcall EFilerError(int Ident, int AHelpContext) : Classes::EStreamError(
  138.         Ident, AHelpContext) { }
  139.     /* Exception.CreateResFmtHelp */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const 
  140.         int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
  141.         
  142. public:
  143.     /* TObject.Destroy */ __fastcall virtual ~EFilerError(void) { }
  144.     
  145. };
  146.  
  147. class __declspec(delphiclass) EReadError;
  148. class __declspec(pascalimplementation) EReadError : public EFilerError
  149. {
  150.     typedef EFilerError inherited;
  151.     
  152. public:
  153.     /* Exception.Create */ __fastcall EReadError(const System::AnsiString Msg) : Classes::EFilerError(Msg
  154.         ) { }
  155.     /* Exception.CreateFmt */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec 
  156.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  157.     /* Exception.CreateRes */ __fastcall EReadError(int Ident) : Classes::EFilerError(Ident) { }
  158.     /* Exception.CreateResFmt */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const int 
  159.         Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  160.     /* Exception.CreateHelp */ __fastcall EReadError(const System::AnsiString Msg, int AHelpContext) : 
  161.         Classes::EFilerError(Msg, AHelpContext) { }
  162.     /* Exception.CreateFmtHelp */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec 
  163.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  164.         ) { }
  165.     /* Exception.CreateResHelp */ __fastcall EReadError(int Ident, int AHelpContext) : Classes::EFilerError(
  166.         Ident, AHelpContext) { }
  167.     /* Exception.CreateResFmtHelp */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const 
  168.         int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
  169.     
  170. public:
  171.     /* TObject.Destroy */ __fastcall virtual ~EReadError(void) { }
  172.     
  173. };
  174.  
  175. class __declspec(delphiclass) EWriteError;
  176. class __declspec(pascalimplementation) EWriteError : public EFilerError
  177. {
  178.     typedef EFilerError inherited;
  179.     
  180. public:
  181.     /* Exception.Create */ __fastcall EWriteError(const System::AnsiString Msg) : Classes::EFilerError(
  182.         Msg) { }
  183.     /* Exception.CreateFmt */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec 
  184.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  185.     /* Exception.CreateRes */ __fastcall EWriteError(int Ident) : Classes::EFilerError(Ident) { }
  186.     /* Exception.CreateResFmt */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const 
  187.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  188.     /* Exception.CreateHelp */ __fastcall EWriteError(const System::AnsiString Msg, int AHelpContext) : 
  189.         Classes::EFilerError(Msg, AHelpContext) { }
  190.     /* Exception.CreateFmtHelp */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec 
  191.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  192.         ) { }
  193.     /* Exception.CreateResHelp */ __fastcall EWriteError(int Ident, int AHelpContext) : Classes::EFilerError(
  194.         Ident, AHelpContext) { }
  195.     /* Exception.CreateResFmtHelp */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const 
  196.         int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
  197.     
  198. public:
  199.     /* TObject.Destroy */ __fastcall virtual ~EWriteError(void) { }
  200.     
  201. };
  202.  
  203. class __declspec(delphiclass) EClassNotFound;
  204. class __declspec(pascalimplementation) EClassNotFound : public EFilerError
  205. {
  206.     typedef EFilerError inherited;
  207.     
  208. public:
  209.     /* Exception.Create */ __fastcall EClassNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  210.         Msg) { }
  211.     /* Exception.CreateFmt */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec 
  212.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  213.     /* Exception.CreateRes */ __fastcall EClassNotFound(int Ident) : Classes::EFilerError(Ident) { }
  214.     /* Exception.CreateResFmt */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args, const 
  215.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  216.     /* Exception.CreateHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, int AHelpContext
  217.         ) : Classes::EFilerError(Msg, AHelpContext) { }
  218.     /* Exception.CreateFmtHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec 
  219.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  220.         ) { }
  221.     /* Exception.CreateResHelp */ __fastcall EClassNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
  222.         Ident, AHelpContext) { }
  223.     /* Exception.CreateResFmtHelp */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args, 
  224.         const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  225.         ) { }
  226.     
  227. public:
  228.     /* TObject.Destroy */ __fastcall virtual ~EClassNotFound(void) { }
  229.     
  230. };
  231.  
  232. class __declspec(delphiclass) EMethodNotFound;
  233. class __declspec(pascalimplementation) EMethodNotFound : public EFilerError
  234. {
  235.     typedef EFilerError inherited;
  236.     
  237. public:
  238.     /* Exception.Create */ __fastcall EMethodNotFound(const System::AnsiString Msg) : Classes::EFilerError(
  239.         Msg) { }
  240.     /* Exception.CreateFmt */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec 
  241.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  242.     /* Exception.CreateRes */ __fastcall EMethodNotFound(int Ident) : Classes::EFilerError(Ident) { }
  243.     /* Exception.CreateResFmt */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args, const 
  244.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  245.     /* Exception.CreateHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, int AHelpContext
  246.         ) : Classes::EFilerError(Msg, AHelpContext) { }
  247.     /* Exception.CreateFmtHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec 
  248.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  249.         ) { }
  250.     /* Exception.CreateResHelp */ __fastcall EMethodNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
  251.         Ident, AHelpContext) { }
  252.     /* Exception.CreateResFmtHelp */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args
  253.         , const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  254.         ) { }
  255.     
  256. public:
  257.     /* TObject.Destroy */ __fastcall virtual ~EMethodNotFound(void) { }
  258.     
  259. };
  260.  
  261. class __declspec(delphiclass) EInvalidImage;
  262. class __declspec(pascalimplementation) EInvalidImage : public EFilerError
  263. {
  264.     typedef EFilerError inherited;
  265.     
  266. public:
  267.     /* Exception.Create */ __fastcall EInvalidImage(const System::AnsiString Msg) : Classes::EFilerError(
  268.         Msg) { }
  269.     /* Exception.CreateFmt */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec 
  270.         * Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
  271.     /* Exception.CreateRes */ __fastcall EInvalidImage(int Ident) : Classes::EFilerError(Ident) { }
  272.     /* Exception.CreateResFmt */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args, const 
  273.         int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
  274.     /* Exception.CreateHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, int AHelpContext)
  275.          : Classes::EFilerError(Msg, AHelpContext) { }
  276.     /* Exception.CreateFmtHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec 
  277.         * Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
  278.         ) { }
  279.     /* Exception.CreateResHelp */ __fastcall EInvalidImage(int Ident, int AHelpContext) : Classes::EFilerError(
  280.         Ident, AHelpContext) { }
  281.     /* Exception.CreateResFmtHelp */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args, 
  282.         const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
  283.         ) { }
  284.     
  285. public:
  286.     /* TObject.Destroy */ __fastcall virtual ~EInvalidImage(void) { }
  287.     
  288. };
  289.  
  290. class __declspec(delphiclass) EResNotFound;
  291. class __declspec(pascalimplementation) EResNotFound : public Sysutils::Exception
  292. {
  293.     typedef Sysutils::Exception inherited;
  294.     
  295. public:
  296.     /* Exception.Create */ __fastcall EResNotFound(const System::AnsiString Msg) : Sysutils::Exception(
  297.         Msg) { }
  298.     /* Exception.CreateFmt */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec 
  299.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  300.     /* Exception.CreateRes */ __fastcall EResNotFound(int Ident) : Sysutils::Exception(Ident) { }
  301.     /* Exception.CreateResFmt */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const 
  302.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  303.     /* Exception.CreateHelp */ __fastcall EResNotFound(const System::AnsiString Msg, int AHelpContext) : 
  304.         Sysutils::Exception(Msg, AHelpContext) { }
  305.     /* Exception.CreateFmtHelp */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec 
  306.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  307.         ) { }
  308.     /* Exception.CreateResHelp */ __fastcall EResNotFound(int Ident, int AHelpContext) : Sysutils::Exception(
  309.         Ident, AHelpContext) { }
  310.     /* Exception.CreateResFmtHelp */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const 
  311.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  312.     
  313. public:
  314.     /* TObject.Destroy */ __fastcall virtual ~EResNotFound(void) { }
  315.     
  316. };
  317.  
  318. class __declspec(delphiclass) EListError;
  319. class __declspec(pascalimplementation) EListError : public Sysutils::Exception
  320. {
  321.     typedef Sysutils::Exception inherited;
  322.     
  323. public:
  324.     /* Exception.Create */ __fastcall EListError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  325.         ) { }
  326.     /* Exception.CreateFmt */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec 
  327.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  328.     /* Exception.CreateRes */ __fastcall EListError(int Ident) : Sysutils::Exception(Ident) { }
  329.     /* Exception.CreateResFmt */ __fastcall EListError(int Ident, const System::TVarRec * Args, const int 
  330.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  331.     /* Exception.CreateHelp */ __fastcall EListError(const System::AnsiString Msg, int AHelpContext) : 
  332.         Sysutils::Exception(Msg, AHelpContext) { }
  333.     /* Exception.CreateFmtHelp */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec 
  334.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  335.         ) { }
  336.     /* Exception.CreateResHelp */ __fastcall EListError(int Ident, int AHelpContext) : Sysutils::Exception(
  337.         Ident, AHelpContext) { }
  338.     /* Exception.CreateResFmtHelp */ __fastcall EListError(int Ident, const System::TVarRec * Args, const 
  339.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  340.     
  341. public:
  342.     /* TObject.Destroy */ __fastcall virtual ~EListError(void) { }
  343.     
  344. };
  345.  
  346. class __declspec(delphiclass) EBitsError;
  347. class __declspec(pascalimplementation) EBitsError : public Sysutils::Exception
  348. {
  349.     typedef Sysutils::Exception inherited;
  350.     
  351. public:
  352.     /* Exception.Create */ __fastcall EBitsError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  353.         ) { }
  354.     /* Exception.CreateFmt */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec 
  355.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  356.     /* Exception.CreateRes */ __fastcall EBitsError(int Ident) : Sysutils::Exception(Ident) { }
  357.     /* Exception.CreateResFmt */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const int 
  358.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  359.     /* Exception.CreateHelp */ __fastcall EBitsError(const System::AnsiString Msg, int AHelpContext) : 
  360.         Sysutils::Exception(Msg, AHelpContext) { }
  361.     /* Exception.CreateFmtHelp */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec 
  362.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  363.         ) { }
  364.     /* Exception.CreateResHelp */ __fastcall EBitsError(int Ident, int AHelpContext) : Sysutils::Exception(
  365.         Ident, AHelpContext) { }
  366.     /* Exception.CreateResFmtHelp */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const 
  367.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  368.     
  369. public:
  370.     /* TObject.Destroy */ __fastcall virtual ~EBitsError(void) { }
  371.     
  372. };
  373.  
  374. class __declspec(delphiclass) EStringListError;
  375. class __declspec(pascalimplementation) EStringListError : public Sysutils::Exception
  376. {
  377.     typedef Sysutils::Exception inherited;
  378.     
  379. public:
  380.     /* Exception.Create */ __fastcall EStringListError(const System::AnsiString Msg) : Sysutils::Exception(
  381.         Msg) { }
  382.     /* Exception.CreateFmt */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec 
  383.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  384.     /* Exception.CreateRes */ __fastcall EStringListError(int Ident) : Sysutils::Exception(Ident) { }
  385.     /* Exception.CreateResFmt */ __fastcall EStringListError(int Ident, const System::TVarRec * Args, const 
  386.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  387.     /* Exception.CreateHelp */ __fastcall EStringListError(const System::AnsiString Msg, int AHelpContext
  388.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  389.     /* Exception.CreateFmtHelp */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec 
  390.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  391.         ) { }
  392.     /* Exception.CreateResHelp */ __fastcall EStringListError(int Ident, int AHelpContext) : Sysutils::
  393.         Exception(Ident, AHelpContext) { }
  394.     /* Exception.CreateResFmtHelp */ __fastcall EStringListError(int Ident, const System::TVarRec * Args
  395.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  396.         ) { }
  397.     
  398. public:
  399.     /* TObject.Destroy */ __fastcall virtual ~EStringListError(void) { }
  400.     
  401. };
  402.  
  403. class __declspec(delphiclass) EComponentError;
  404. class __declspec(pascalimplementation) EComponentError : public Sysutils::Exception
  405. {
  406.     typedef Sysutils::Exception inherited;
  407.     
  408. public:
  409.     /* Exception.Create */ __fastcall EComponentError(const System::AnsiString Msg) : Sysutils::Exception(
  410.         Msg) { }
  411.     /* Exception.CreateFmt */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec 
  412.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  413.     /* Exception.CreateRes */ __fastcall EComponentError(int Ident) : Sysutils::Exception(Ident) { }
  414.     /* Exception.CreateResFmt */ __fastcall EComponentError(int Ident, const System::TVarRec * Args, const 
  415.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  416.     /* Exception.CreateHelp */ __fastcall EComponentError(const System::AnsiString Msg, int AHelpContext
  417.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  418.     /* Exception.CreateFmtHelp */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec 
  419.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  420.         ) { }
  421.     /* Exception.CreateResHelp */ __fastcall EComponentError(int Ident, int AHelpContext) : Sysutils::Exception(
  422.         Ident, AHelpContext) { }
  423.     /* Exception.CreateResFmtHelp */ __fastcall EComponentError(int Ident, const System::TVarRec * Args
  424.         , const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  425.         ) { }
  426.     
  427. public:
  428.     /* TObject.Destroy */ __fastcall virtual ~EComponentError(void) { }
  429.     
  430. };
  431.  
  432. class __declspec(delphiclass) EParserError;
  433. class __declspec(pascalimplementation) EParserError : public Sysutils::Exception
  434. {
  435.     typedef Sysutils::Exception inherited;
  436.     
  437. public:
  438.     /* Exception.Create */ __fastcall EParserError(const System::AnsiString Msg) : Sysutils::Exception(
  439.         Msg) { }
  440.     /* Exception.CreateFmt */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec 
  441.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  442.     /* Exception.CreateRes */ __fastcall EParserError(int Ident) : Sysutils::Exception(Ident) { }
  443.     /* Exception.CreateResFmt */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const 
  444.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  445.     /* Exception.CreateHelp */ __fastcall EParserError(const System::AnsiString Msg, int AHelpContext) : 
  446.         Sysutils::Exception(Msg, AHelpContext) { }
  447.     /* Exception.CreateFmtHelp */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec 
  448.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  449.         ) { }
  450.     /* Exception.CreateResHelp */ __fastcall EParserError(int Ident, int AHelpContext) : Sysutils::Exception(
  451.         Ident, AHelpContext) { }
  452.     /* Exception.CreateResFmtHelp */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const 
  453.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  454.     
  455. public:
  456.     /* TObject.Destroy */ __fastcall virtual ~EParserError(void) { }
  457.     
  458. };
  459.  
  460. typedef void *TPointerList[134217727];
  461.  
  462. typedef TPointerList *PPointerList;
  463.  
  464. typedef int __fastcall (*TListSortCompare)(void * Item1, void * Item2);
  465.  
  466. class __declspec(delphiclass) TList;
  467. class __declspec(pascalimplementation) TList : public System::TObject
  468. {
  469.     typedef System::TObject inherited;
  470.     
  471. private:
  472.     TPointerList *FList;
  473.     int FCount;
  474.     int FCapacity;
  475.     
  476. protected:
  477.     virtual void __fastcall Error(void);
  478.     void * __fastcall Get(int Index);
  479.     virtual void __fastcall Grow(void);
  480.     void __fastcall Put(int Index, void * Item);
  481.     void __fastcall SetCapacity(int NewCapacity);
  482.     void __fastcall SetCount(int NewCount);
  483.     
  484. public:
  485.     __fastcall virtual ~TList(void);
  486.     int __fastcall Add(void * Item);
  487.     void __fastcall Clear(void);
  488.     void __fastcall Delete(int Index);
  489.     void __fastcall Exchange(int Index1, int Index2);
  490.     TList* __fastcall Expand(void);
  491.     void * __fastcall First(void);
  492.     int __fastcall IndexOf(void * Item);
  493.     void __fastcall Insert(int Index, void * Item);
  494.     void * __fastcall Last(void);
  495.     void __fastcall Move(int CurIndex, int NewIndex);
  496.     int __fastcall Remove(void * Item);
  497.     void __fastcall Pack(void);
  498.     void __fastcall Sort(TListSortCompare Compare);
  499.     __property int Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  500.     __property int Count = {read=FCount, write=SetCount, nodefault};
  501.     __property void * Items[int Index] = {read=Get, write=Put/*, default*/};
  502.     __property PPointerList List = {read=FList, nodefault};
  503. public:
  504.     /* TObject.Create */ __fastcall TList(void) : System::TObject() { }
  505.     
  506. };
  507.  
  508. class __declspec(delphiclass) TBits;
  509. class __declspec(pascalimplementation) TBits : public System::TObject
  510. {
  511.     typedef System::TObject inherited;
  512.     
  513. private:
  514.     int FSize;
  515.     void *FBits;
  516.     void __fastcall Error(void);
  517.     void __fastcall SetSize(int Value);
  518.     void __fastcall SetBit(int Index, bool Value);
  519.     bool __fastcall GetBit(int Index);
  520.     
  521. public:
  522.     __fastcall virtual ~TBits(void);
  523.     int __fastcall OpenBit(void);
  524.     __property bool Bits[int Index] = {read=GetBit, write=SetBit/*, default*/};
  525.     __property int Size = {read=FSize, write=SetSize, nodefault};
  526. public:
  527.     /* TObject.Create */ __fastcall TBits(void) : System::TObject() { }
  528.     
  529. };
  530.  
  531. class __declspec(delphiclass) TPersistent;
  532. class __declspec(delphiclass) TFiler;
  533. class __declspec(pascalimplementation) TPersistent : public System::TObject
  534. {
  535.     typedef System::TObject inherited;
  536.     
  537. private:
  538.     void __fastcall AssignError(TPersistent* Source);
  539.     
  540. protected:
  541.     virtual void __fastcall AssignTo(TPersistent* Dest);
  542.     virtual void __fastcall DefineProperties(TFiler* Filer);
  543.     
  544. public:
  545.     virtual void __fastcall Assign(TPersistent* Source);
  546. public:
  547.     /* TObject.Create */ __fastcall TPersistent(void) : System::TObject() { }
  548.     /* TObject.Destroy */ __fastcall virtual ~TPersistent(void) { }
  549.     
  550. };
  551.  
  552. typedef System::TMetaClass*TPersistentClass;
  553.  
  554. class __declspec(delphiclass) TCollectionItem;
  555. class __declspec(delphiclass) TCollection;
  556. typedef System::TMetaClass*TCollectionItemClass;
  557.  
  558. class __declspec(pascalimplementation) TCollection : public TPersistent
  559. {
  560.     typedef TPersistent inherited;
  561.     
  562. private:
  563.     System::TMetaClass*FItemClass;
  564.     TList* FItems;
  565.     int FUpdateCount;
  566.     int __fastcall GetCount(void);
  567.     void __fastcall InsertItem(TCollectionItem* Item);
  568.     void __fastcall RemoveItem(TCollectionItem* Item);
  569.     
  570. protected:
  571.     void __fastcall Changed(void);
  572.     TCollectionItem* __fastcall GetItem(int Index);
  573.     void __fastcall SetItem(int Index, TCollectionItem* Value);
  574.     virtual void __fastcall Update(TCollectionItem* Item);
  575.     
  576. public:
  577.     __fastcall TCollection(System::TMetaClass* ItemClass);
  578.     __fastcall virtual ~TCollection(void);
  579.     TCollectionItem* __fastcall Add(void);
  580.     virtual void __fastcall Assign(TPersistent* Source);
  581.     void __fastcall BeginUpdate(void);
  582.     void __fastcall Clear(void);
  583.     void __fastcall EndUpdate(void);
  584.     __property int Count = {read=GetCount, nodefault};
  585.     __property TCollectionItem* Items[int Index] = {read=GetItem, write=SetItem};
  586. };
  587.  
  588. class __declspec(pascalimplementation) TCollectionItem : public TPersistent
  589. {
  590.     typedef TPersistent inherited;
  591.     
  592. private:
  593.     TCollection* FCollection;
  594.     int __fastcall GetIndex(void);
  595.     void __fastcall SetCollection(TCollection* Value);
  596.     
  597. protected:
  598.     void __fastcall Changed(bool AllItems);
  599.     virtual void __fastcall SetIndex(int Value);
  600.     
  601. public:
  602.     __fastcall virtual TCollectionItem(TCollection* Collection);
  603.     __fastcall virtual ~TCollectionItem(void);
  604.     __property TCollection* Collection = {read=FCollection, write=SetCollection, nodefault};
  605.     __property int Index = {read=GetIndex, write=SetIndex, nodefault};
  606. };
  607.  
  608. class __declspec(delphiclass) TStrings;
  609. class __declspec(delphiclass) TReader;
  610. class __declspec(delphiclass) TWriter;
  611. class __declspec(delphiclass) TStream;
  612. class __declspec(pascalimplementation) TStrings : public TPersistent
  613. {
  614.     typedef TPersistent inherited;
  615.     
  616. private:
  617.     int FUpdateCount;
  618.     System::AnsiString __fastcall GetCommaText(void);
  619.     System::AnsiString __fastcall GetName(int Index);
  620.     System::AnsiString __fastcall GetValue(const System::AnsiString Name);
  621.     void __fastcall ReadData(TReader* Reader);
  622.     void __fastcall SetCommaText(const System::AnsiString Value);
  623.     void __fastcall SetValue(const System::AnsiString Name, const System::AnsiString Value);
  624.     void __fastcall WriteData(TWriter* Writer);
  625.     
  626. protected:
  627.     virtual void __fastcall DefineProperties(TFiler* Filer);
  628.     virtual System::AnsiString __fastcall Get(int Index) = 0;
  629.     virtual int __fastcall GetCount(void) = 0;
  630.     virtual System::TObject* __fastcall GetObject(int Index);
  631.     virtual System::AnsiString __fastcall GetTextStr(void);
  632.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  633.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  634.     virtual void __fastcall SetTextStr(const System::AnsiString Value);
  635.     virtual void __fastcall SetUpdateState(bool Updating);
  636.     
  637. public:
  638.     virtual int __fastcall Add(const System::AnsiString S);
  639.     virtual int __fastcall AddObject(const System::AnsiString S, System::TObject* AObject);
  640.     void __fastcall Append(const System::AnsiString S);
  641.     virtual void __fastcall AddStrings(TStrings* Strings);
  642.     virtual void __fastcall Assign(TPersistent* Source);
  643.     void __fastcall BeginUpdate(void);
  644.     virtual void __fastcall Clear(void) = 0;
  645.     virtual void __fastcall Delete(int Index) = 0;
  646.     void __fastcall EndUpdate(void);
  647.     bool __fastcall Equals(TStrings* Strings);
  648.     virtual void __fastcall Exchange(int Index1, int Index2);
  649.     virtual char * __fastcall GetText(void);
  650.     virtual int __fastcall IndexOf(const System::AnsiString S);
  651.     int __fastcall IndexOfName(const System::AnsiString Name);
  652.     int __fastcall IndexOfObject(System::TObject* AObject);
  653.     virtual void __fastcall Insert(int Index, const System::AnsiString S) = 0;
  654.     void __fastcall InsertObject(int Index, const System::AnsiString S, System::TObject* AObject);
  655.     virtual void __fastcall LoadFromFile(const System::AnsiString FileName);
  656.     virtual void __fastcall LoadFromStream(TStream* Stream);
  657.     virtual void __fastcall Move(int CurIndex, int NewIndex);
  658.     virtual void __fastcall SaveToFile(const System::AnsiString FileName);
  659.     virtual void __fastcall SaveToStream(TStream* Stream);
  660.     virtual void __fastcall SetText(char * Text);
  661.     __property System::AnsiString CommaText = {read=GetCommaText, write=SetCommaText, nodefault};
  662.     __property int Count = {read=GetCount, nodefault};
  663.     __property System::AnsiString Names[int Index] = {read=GetName};
  664.     __property System::TObject* Objects[int Index] = {read=GetObject, write=PutObject};
  665.     __property System::AnsiString Values[System::AnsiString Name] = {read=GetValue, write=SetValue};
  666.     __property System::AnsiString Strings[int Index] = {read=Get, write=Put/*, default*/};
  667.     __property System::AnsiString Text = {read=GetTextStr, write=SetTextStr, nodefault};
  668. public:
  669.     /* TObject.Create */ __fastcall TStrings(void) : Classes::TPersistent() { }
  670.     /* TObject.Destroy */ __fastcall virtual ~TStrings(void) { }
  671.     
  672. };
  673.  
  674. enum TDuplicates { dupIgnore, dupAccept, dupError };
  675.  
  676. struct TStringItem;
  677. typedef TStringItem *PStringItem;
  678.  
  679. struct TStringItem
  680. {
  681.     System::AnsiString FString;
  682.     System::TObject* FObject;
  683. } ;
  684.  
  685. typedef TStringItem TStringItemList[134217728];
  686.  
  687. typedef TStringItemList *PStringItemList;
  688.  
  689. class __declspec(delphiclass) TStringList;
  690. class __declspec(pascalimplementation) TStringList : public TStrings
  691. {
  692.     typedef TStrings inherited;
  693.     
  694. private:
  695.     TStringItemList *FList;
  696.     int FCount;
  697.     int FCapacity;
  698.     bool FSorted;
  699.     TDuplicates FDuplicates;
  700.     TNotifyEvent FOnChange;
  701.     TNotifyEvent FOnChanging;
  702.     void __fastcall ExchangeItems(int Index1, int Index2);
  703.     void __fastcall Grow(void);
  704.     void __fastcall QuickSort(int L, int R);
  705.     void __fastcall InsertItem(int Index, const System::AnsiString S);
  706.     void __fastcall SetCapacity(int NewCapacity);
  707.     void __fastcall SetSorted(bool Value);
  708.     
  709. protected:
  710.     virtual void __fastcall Changed(void);
  711.     virtual void __fastcall Changing(void);
  712.     virtual System::AnsiString __fastcall Get(int Index);
  713.     virtual int __fastcall GetCount(void);
  714.     virtual System::TObject* __fastcall GetObject(int Index);
  715.     virtual void __fastcall Put(int Index, const System::AnsiString S);
  716.     virtual void __fastcall PutObject(int Index, System::TObject* AObject);
  717.     virtual void __fastcall SetUpdateState(bool Updating);
  718.     
  719. public:
  720.     __fastcall virtual ~TStringList(void);
  721.     virtual int __fastcall Add(const System::AnsiString S);
  722.     virtual void __fastcall Clear(void);
  723.     virtual void __fastcall Delete(int Index);
  724.     virtual void __fastcall Exchange(int Index1, int Index2);
  725.     virtual bool __fastcall Find(const System::AnsiString S, int &Index);
  726.     virtual int __fastcall IndexOf(const System::AnsiString S);
  727.     virtual void __fastcall Insert(int Index, const System::AnsiString S);
  728.     virtual void __fastcall Sort(void);
  729.     __property TDuplicates Duplicates = {read=FDuplicates, write=FDuplicates, nodefault};
  730.     __property bool Sorted = {read=FSorted, write=SetSorted, nodefault};
  731.     __property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  732.     __property TNotifyEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  733. public:
  734.     /* TObject.Create */ __fastcall TStringList(void) : Classes::TStrings() { }
  735.     
  736. };
  737.  
  738. class __declspec(delphiclass) TComponent;
  739. class __declspec(pascalimplementation) TStream : public System::TObject
  740. {
  741.     typedef System::TObject inherited;
  742.     
  743. private:
  744.     long __fastcall GetPosition(void);
  745.     void __fastcall SetPosition(long Pos);
  746.     long __fastcall GetSize(void);
  747.     
  748. public:
  749.     virtual long __fastcall Read(void *Buffer, long Count) = 0;
  750.     virtual long __fastcall Write(const void *Buffer, long Count) = 0;
  751.     virtual long __fastcall Seek(long Offset, Word Origin) = 0;
  752.     void __fastcall ReadBuffer(void *Buffer, long Count);
  753.     void __fastcall WriteBuffer(const void *Buffer, long Count);
  754.     long __fastcall CopyFrom(TStream* Source, long Count);
  755.     TComponent* __fastcall ReadComponent(TComponent* Instance);
  756.     TComponent* __fastcall ReadComponentRes(TComponent* Instance);
  757.     void __fastcall WriteComponent(TComponent* Instance);
  758.     void __fastcall WriteComponentRes(const System::AnsiString ResName, TComponent* Instance);
  759.     void __fastcall WriteDescendent(TComponent* Instance, TComponent* Ancestor);
  760.     void __fastcall WriteDescendentRes(const System::AnsiString ResName, TComponent* Instance, TComponent* 
  761.         Ancestor);
  762.     void __fastcall ReadResHeader(void);
  763.     __property long Position = {read=GetPosition, write=SetPosition, nodefault};
  764.     __property long Size = {read=GetSize, nodefault};
  765. public:
  766.     /* TObject.Create */ __fastcall TStream(void) : System::TObject() { }
  767.     /* TObject.Destroy */ __fastcall virtual ~TStream(void) { }
  768.     
  769. };
  770.  
  771. class __declspec(delphiclass) THandleStream;
  772. class __declspec(pascalimplementation) THandleStream : public TStream
  773. {
  774.     typedef TStream inherited;
  775.     
  776. private:
  777.     int FHandle;
  778.     
  779. public:
  780.     __fastcall THandleStream(int AHandle);
  781.     virtual long __fastcall Read(void *Buffer, long Count);
  782.     virtual long __fastcall Write(const void *Buffer, long Count);
  783.     virtual long __fastcall Seek(long Offset, Word Origin);
  784.     __property int Handle = {read=FHandle, nodefault};
  785. public:
  786.     /* TObject.Destroy */ __fastcall virtual ~THandleStream(void) { }
  787.     
  788. };
  789.  
  790. class __declspec(delphiclass) TFileStream;
  791. class __declspec(pascalimplementation) TFileStream : public THandleStream
  792. {
  793.     typedef THandleStream inherited;
  794.     
  795. public:
  796.     __fastcall TFileStream(const System::AnsiString FileName, Word Mode);
  797.     __fastcall virtual ~TFileStream(void);
  798. };
  799.  
  800. class __declspec(delphiclass) TCustomMemoryStream;
  801. class __declspec(pascalimplementation) TCustomMemoryStream : public TStream
  802. {
  803.     typedef TStream inherited;
  804.     
  805. private:
  806.     void *FMemory;
  807.     long FSize;
  808.     long FPosition;
  809.     
  810. protected:
  811.     void __fastcall SetPointer(void * Ptr, long Size);
  812.     
  813. public:
  814.     virtual long __fastcall Read(void *Buffer, long Count);
  815.     virtual long __fastcall Seek(long Offset, Word Origin);
  816.     void __fastcall SaveToStream(TStream* Stream);
  817.     void __fastcall SaveToFile(const System::AnsiString FileName);
  818.     __property void * Memory = {read=FMemory, nodefault};
  819. public:
  820.     /* TObject.Create */ __fastcall TCustomMemoryStream(void) : Classes::TStream() { }
  821.     /* TObject.Destroy */ __fastcall virtual ~TCustomMemoryStream(void) { }
  822.     
  823. };
  824.  
  825. class __declspec(delphiclass) TMemoryStream;
  826. class __declspec(pascalimplementation) TMemoryStream : public TCustomMemoryStream
  827. {
  828.     typedef TCustomMemoryStream inherited;
  829.     
  830. private:
  831.     long FCapacity;
  832.     void __fastcall SetCapacity(long NewCapacity);
  833.     
  834. protected:
  835.     virtual void * __fastcall Realloc(long &NewCapacity);
  836.     __property long Capacity = {read=FCapacity, write=SetCapacity, nodefault};
  837.     
  838. public:
  839.     __fastcall virtual ~TMemoryStream(void);
  840.     void __fastcall Clear(void);
  841.     void __fastcall LoadFromStream(TStream* Stream);
  842.     void __fastcall LoadFromFile(const System::AnsiString FileName);
  843.     void __fastcall SetSize(long NewSize);
  844.     virtual long __fastcall Write(const void *Buffer, long Count);
  845. public:
  846.     /* TObject.Create */ __fastcall TMemoryStream(void) : Classes::TCustomMemoryStream() { }
  847.     
  848. };
  849.  
  850. class __declspec(delphiclass) TResourceStream;
  851. class __declspec(pascalimplementation) TResourceStream : public TCustomMemoryStream
  852. {
  853.     typedef TCustomMemoryStream inherited;
  854.     
  855. private:
  856.     HRSRC HResInfo;
  857.     int HGlobal;
  858.     void __fastcall Initialize(int Instance, char * Name, char * ResType);
  859.     
  860. public:
  861.     __fastcall TResourceStream(int Instance, const System::AnsiString ResName, char * ResType);
  862.     __fastcall TResourceStream(int Instance, int ResID, char * ResType);
  863.     __fastcall virtual ~TResourceStream(void);
  864.     virtual long __fastcall Write(const void *Buffer, long Count);
  865. };
  866.  
  867. enum TValueType { vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended, vaString, vaIdent, vaFalse, 
  868.     vaTrue, vaBinary, vaSet, vaLString, vaNil, vaCollection };
  869.  
  870. enum TFilerFlag { ffInherited, ffChildPos };
  871.  
  872. typedef Set<TFilerFlag, ffInherited, ffChildPos>  TFilerFlags;
  873.  
  874. typedef void __fastcall (__closure *TReaderProc)(TReader* Reader);
  875.  
  876. typedef void __fastcall (__closure *TWriterProc)(TWriter* Writer);
  877.  
  878. typedef void __fastcall (__closure *TStreamProc)(TStream* Stream);
  879.  
  880. class __declspec(pascalimplementation) TFiler : public System::TObject
  881. {
  882.     typedef System::TObject inherited;
  883.     
  884. private:
  885.     TStream* FStream;
  886.     void *FBuffer;
  887.     int FBufSize;
  888.     int FBufPos;
  889.     int FBufEnd;
  890.     TComponent* FRoot;
  891.     TPersistent* FAncestor;
  892.     bool FIgnoreChildren;
  893.     
  894. public:
  895.     __fastcall TFiler(TStream* Stream, int BufSize);
  896.     __fastcall virtual ~TFiler(void);
  897.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  898.         WriteData, bool HasData) = 0;
  899.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  900.         WriteData, bool HasData) = 0;
  901.     virtual void __fastcall FlushBuffer(void) = 0;
  902.     __property TComponent* Root = {read=FRoot, write=FRoot, nodefault};
  903.     __property TPersistent* Ancestor = {read=FAncestor, write=FAncestor, nodefault};
  904.     __property bool IgnoreChildren = {read=FIgnoreChildren, write=FIgnoreChildren, nodefault};
  905. };
  906.  
  907. typedef void __fastcall (__closure *TFindMethodEvent)(TReader* Reader, const System::AnsiString MethodName
  908.     , void * &Address, bool &Error);
  909.  
  910. typedef void __fastcall (__closure *TSetNameEvent)(TReader* Reader, TComponent* Component,  System::AnsiString &
  911.     Name);
  912.  
  913. typedef void __fastcall (__closure *TReadComponentsProc)(TComponent* Component);
  914.  
  915. typedef void __fastcall (__closure *TReaderError)(TReader* Reader, const System::AnsiString Message, 
  916.     bool &Handled);
  917.  
  918. class __declspec(pascalimplementation) TReader : public TFiler
  919. {
  920.     typedef TFiler inherited;
  921.     
  922. private:
  923.     TComponent* FOwner;
  924.     TComponent* FParent;
  925.     TList* FFixups;
  926.     TList* FLoaded;
  927.     TFindMethodEvent FOnFindMethod;
  928.     TSetNameEvent FOnSetName;
  929.     TReaderError FOnError;
  930.     bool FCanHandleExcepts;
  931.     System::AnsiString FPropName;
  932.     void __fastcall CheckValue(TValueType Value);
  933.     void __fastcall DoFixupReferences(void);
  934.     void __fastcall FreeFixups(void);
  935.     long __fastcall GetPosition(void);
  936.     void __fastcall PropertyError(void);
  937.     void __fastcall ReadBuffer(void);
  938.     void __fastcall ReadCollection(TCollection* Collection);
  939.     void __fastcall ReadData(TComponent* Instance);
  940.     void __fastcall ReadDataInner(TComponent* Instance);
  941.     void __fastcall ReadProperty(TPersistent* AInstance);
  942.     void __fastcall ReadPropValue(TPersistent* Instance, void * PropInfo);
  943.     int __fastcall ReadSet(void * SetType);
  944.     void __fastcall SetPosition(long Value);
  945.     void __fastcall SkipSetBody(void);
  946.     void __fastcall SkipValue(void);
  947.     void __fastcall SkipProperty(void);
  948.     void __fastcall SkipComponent(bool SkipHeader);
  949.     
  950. protected:
  951.     virtual bool __fastcall Error(const System::AnsiString Message);
  952.     virtual void * __fastcall FindMethod(TComponent* Root, const System::AnsiString MethodName);
  953.     TValueType __fastcall NextValue(void);
  954.     virtual void __fastcall SetName(TComponent* Component,  System::AnsiString &Name);
  955.     
  956. public:
  957.     __fastcall virtual ~TReader(void);
  958.     void __fastcall BeginReferences(void);
  959.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  960.         WriteData, bool HasData);
  961.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  962.         WriteData, bool HasData);
  963.     bool __fastcall EndOfList(void);
  964.     void __fastcall EndReferences(void);
  965.     void __fastcall FixupReferences(void);
  966.     virtual void __fastcall FlushBuffer(void);
  967.     void __fastcall Read(void *Buf, long Count);
  968.     bool __fastcall ReadBoolean(void);
  969.     char __fastcall ReadChar(void);
  970.     TComponent* __fastcall ReadComponent(TComponent* Component);
  971.     void __fastcall ReadComponents(TComponent* AOwner, TComponent* AParent, TReadComponentsProc Proc);
  972.     Extended __fastcall ReadFloat(void);
  973.     System::AnsiString __fastcall ReadIdent(void);
  974.     long __fastcall ReadInteger(void);
  975.     void __fastcall ReadListBegin(void);
  976.     void __fastcall ReadListEnd(void);
  977.     void __fastcall ReadPrefix(TFilerFlags &Flags, int &AChildPos);
  978.     TComponent* __fastcall ReadRootComponent(TComponent* Root);
  979.     void __fastcall ReadSignature(void);
  980.     System::AnsiString __fastcall ReadStr(void);
  981.     System::AnsiString __fastcall ReadString(void);
  982.     TValueType __fastcall ReadValue(void);
  983.     __property TComponent* Owner = {read=FOwner, write=FOwner, nodefault};
  984.     __property TComponent* Parent = {read=FParent, write=FParent, nodefault};
  985.     __property long Position = {read=GetPosition, write=SetPosition, nodefault};
  986.     __property TReaderError OnError = {read=FOnError, write=FOnError};
  987.     __property TFindMethodEvent OnFindMethod = {read=FOnFindMethod, write=FOnFindMethod};
  988.     __property TSetNameEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  989. public:
  990.     /* TFiler.Create */ __fastcall TReader(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
  991.         ) { }
  992.     
  993. };
  994.  
  995. class __declspec(pascalimplementation) TWriter : public TFiler
  996. {
  997.     typedef TFiler inherited;
  998.     
  999. private:
  1000.     TComponent* FRootAncestor;
  1001.     System::AnsiString FPropPath;
  1002.     TList* FAncestorList;
  1003.     int FAncestorPos;
  1004.     int FChildPos;
  1005.     void __fastcall AddAncestor(TComponent* Component);
  1006.     long __fastcall GetPosition(void);
  1007.     void __fastcall SetPosition(long Value);
  1008.     void __fastcall WriteBinary(TStreamProc WriteData);
  1009.     void __fastcall WriteBuffer(void);
  1010.     virtual void __fastcall WriteData(TComponent* Instance);
  1011.     void __fastcall WritePrefix(TFilerFlags Flags, int AChildPos);
  1012.     void __fastcall WriteProperty(TPersistent* Instance, void * PropInfo);
  1013.     void __fastcall WriteProperties(TPersistent* Instance);
  1014.     void __fastcall WritePropName(const System::AnsiString PropName);
  1015.     void __fastcall WriteValue(TValueType Value);
  1016.     
  1017. public:
  1018.     __fastcall virtual ~TWriter(void);
  1019.     virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc 
  1020.         WriteData, bool HasData);
  1021.     virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc 
  1022.         WriteData, bool HasData);
  1023.     virtual void __fastcall FlushBuffer(void);
  1024.     void __fastcall Write(const void *Buf, long Count);
  1025.     void __fastcall WriteBoolean(bool Value);
  1026.     void __fastcall WriteCollection(TCollection* Value);
  1027.     void __fastcall WriteComponent(TComponent* Component);
  1028.     void __fastcall WriteChar(char Value);
  1029.     void __fastcall WriteDescendent(TComponent* Root, TComponent* AAncestor);
  1030.     void __fastcall WriteFloat(Extended Value);
  1031.     void __fastcall WriteIdent(const System::AnsiString Ident);
  1032.     void __fastcall WriteInteger(long Value);
  1033.     void __fastcall WriteListBegin(void);
  1034.     void __fastcall WriteListEnd(void);
  1035.     void __fastcall WriteRootComponent(TComponent* Root);
  1036.     void __fastcall WriteSignature(void);
  1037.     void __fastcall WriteStr(const System::AnsiString Value);
  1038.     void __fastcall WriteString(const System::AnsiString Value);
  1039.     __property long Position = {read=GetPosition, write=SetPosition, nodefault};
  1040.     __property TComponent* RootAncestor = {read=FRootAncestor, write=FRootAncestor, nodefault};
  1041. public:
  1042.     /* TFiler.Create */ __fastcall TWriter(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
  1043.         ) { }
  1044.     
  1045. };
  1046.  
  1047. class __declspec(delphiclass) TParser;
  1048. class __declspec(pascalimplementation) TParser : public System::TObject
  1049. {
  1050.     typedef System::TObject inherited;
  1051.     
  1052. private:
  1053.     TStream* FStream;
  1054.     long FOrigin;
  1055.     char *FBuffer;
  1056.     char *FBufPtr;
  1057.     char *FBufEnd;
  1058.     char *FSourcePtr;
  1059.     char *FSourceEnd;
  1060.     char *FTokenPtr;
  1061.     char *FStringPtr;
  1062.     int FSourceLine;
  1063.     char FSaveChar;
  1064.     char FToken;
  1065.     void __fastcall ReadBuffer(void);
  1066.     void __fastcall SkipBlanks(void);
  1067.     
  1068. public:
  1069.     __fastcall TParser(TStream* Stream);
  1070.     __fastcall virtual ~TParser(void);
  1071.     void __fastcall CheckToken(char T);
  1072.     void __fastcall CheckTokenSymbol(const System::AnsiString S);
  1073.     void __fastcall Error(int Ident);
  1074.     void __fastcall ErrorFmt(int Ident, const System::TVarRec * Args, const int Args_Size);
  1075.     void __fastcall ErrorStr(const System::AnsiString Message);
  1076.     void __fastcall HexToBinary(TStream* Stream);
  1077.     char __fastcall NextToken(void);
  1078.     long __fastcall SourcePos(void);
  1079.     System::AnsiString __fastcall TokenComponentIdent(void);
  1080.     Extended __fastcall TokenFloat(void);
  1081.     long __fastcall TokenInt(void);
  1082.     System::AnsiString __fastcall TokenString(void);
  1083.     bool __fastcall TokenSymbolIs(const System::AnsiString S);
  1084.     __property int SourceLine = {read=FSourceLine, nodefault};
  1085.     __property char Token = {read=FToken, nodefault};
  1086. };
  1087.  
  1088. class __declspec(delphiclass) EThread;
  1089. class __declspec(pascalimplementation) EThread : public Sysutils::Exception
  1090. {
  1091.     typedef Sysutils::Exception inherited;
  1092.     
  1093. public:
  1094.     /* Exception.Create */ __fastcall EThread(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  1095.         
  1096.     /* Exception.CreateFmt */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec * 
  1097.         Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1098.     /* Exception.CreateRes */ __fastcall EThread(int Ident) : Sysutils::Exception(Ident) { }
  1099.     /* Exception.CreateResFmt */ __fastcall EThread(int Ident, const System::TVarRec * Args, const int 
  1100.         Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1101.     /* Exception.CreateHelp */ __fastcall EThread(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  1102.         Exception(Msg, AHelpContext) { }
  1103.     /* Exception.CreateFmtHelp */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec 
  1104.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1105.         ) { }
  1106.     /* Exception.CreateResHelp */ __fastcall EThread(int Ident, int AHelpContext) : Sysutils::Exception(
  1107.         Ident, AHelpContext) { }
  1108.     /* Exception.CreateResFmtHelp */ __fastcall EThread(int Ident, const System::TVarRec * Args, const 
  1109.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  1110.     
  1111. public:
  1112.     /* TObject.Destroy */ __fastcall virtual ~EThread(void) { }
  1113.     
  1114. };
  1115.  
  1116. typedef void __fastcall (__closure *TThreadMethod)(void);
  1117.  
  1118. enum TThreadPriority { tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, tpTimeCritical };
  1119.  
  1120. class __declspec(delphiclass) TThread;
  1121. class __declspec(pascalimplementation) TThread : public System::TObject
  1122. {
  1123.     typedef System::TObject inherited;
  1124.     
  1125. private:
  1126.     int FHandle;
  1127.     int FThreadID;
  1128.     bool FTerminated;
  1129.     bool FSuspended;
  1130.     bool FMainThreadWaiting;
  1131.     bool FFreeOnTerminate;
  1132.     bool FFinished;
  1133.     int FReturnValue;
  1134.     TNotifyEvent FOnTerminate;
  1135.     TThreadMethod FMethod;
  1136.     System::TObject* FSynchronizeException;
  1137.     void __fastcall CallOnTerminate(void);
  1138.     TThreadPriority __fastcall GetPriority(void);
  1139.     void __fastcall SetPriority(TThreadPriority Value);
  1140.     void __fastcall SetSuspended(bool Value);
  1141.     
  1142. protected:
  1143.     virtual void __fastcall DoTerminate(void);
  1144.     virtual void __fastcall Execute(void) = 0;
  1145.     void __fastcall Synchronize(TThreadMethod Method);
  1146.     __property int ReturnValue = {read=FReturnValue, write=FReturnValue, nodefault};
  1147.     __property bool Terminated = {read=FTerminated, nodefault};
  1148.     
  1149. public:
  1150.     __fastcall TThread(bool CreateSuspended);
  1151.     __fastcall virtual ~TThread(void);
  1152.     void __fastcall Resume(void);
  1153.     void __fastcall Suspend(void);
  1154.     void __fastcall Terminate(void);
  1155.     int __fastcall WaitFor(void);
  1156.     __property bool FreeOnTerminate = {read=FFreeOnTerminate, write=FFreeOnTerminate, nodefault};
  1157.     __property int Handle = {read=FHandle, nodefault};
  1158.     __property TThreadPriority Priority = {read=GetPriority, write=SetPriority, nodefault};
  1159.     __property bool Suspended = {read=FSuspended, write=SetSuspended, nodefault};
  1160.     __property int ThreadID = {read=FThreadID, nodefault};
  1161.     __property TNotifyEvent OnTerminate = {read=FOnTerminate, write=FOnTerminate};
  1162. };
  1163.  
  1164. enum TOperation { opInsert, opRemove };
  1165.  
  1166. enum Classes_63 { csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, 
  1167.     csFixups };
  1168.  
  1169. typedef Set<Classes_63, csLoading, csFixups>  TComponentState;
  1170.  
  1171. enum Classes_73 { csInheritable, csCheckPropAvail };
  1172.  
  1173. typedef Set<Classes_73, csInheritable, csCheckPropAvail>  TComponentStyle;
  1174.  
  1175. typedef void __fastcall (__closure *TGetChildProc)(TComponent* Child);
  1176.  
  1177. typedef System::AnsiString TComponentName;
  1178.  
  1179. class __declspec(pascalimplementation) TComponent : public TPersistent
  1180. {
  1181.     typedef TPersistent inherited;
  1182.     
  1183. private:
  1184.     TComponent* FOwner;
  1185.     System::AnsiString FName;
  1186.     long FTag;
  1187.     TList* FComponents;
  1188.     TList* FFreeNotifies;
  1189.     long FDesignInfo;
  1190.     TComponentState FComponentState;
  1191.     TComponent* __fastcall GetComponent(int AIndex);
  1192.     int __fastcall GetComponentCount(void);
  1193.     int __fastcall GetComponentIndex(void);
  1194.     void __fastcall Insert(TComponent* AComponent);
  1195.     void __fastcall ReadLeft(TReader* Reader);
  1196.     void __fastcall ReadTop(TReader* Reader);
  1197.     void __fastcall Remove(TComponent* AComponent);
  1198.     void __fastcall SetComponentIndex(int Value);
  1199.     void __fastcall SetReference(bool Enable);
  1200.     void __fastcall WriteLeft(TWriter* Writer);
  1201.     void __fastcall WriteTop(TWriter* Writer);
  1202.     
  1203. protected:
  1204.     TComponentStyle FComponentStyle;
  1205.     void __fastcall ChangeName(const System::AnsiString NewName);
  1206.     virtual void __fastcall DefineProperties(TFiler* Filer);
  1207.     virtual void __fastcall GetChildren(TGetChildProc Proc);
  1208.     virtual TComponent* __fastcall GetChildOwner(void);
  1209.     virtual TComponent* __fastcall GetChildParent(void);
  1210.     virtual void __fastcall Loaded(void);
  1211.     virtual void __fastcall Notification(TComponent* AComponent, TOperation Operation);
  1212.     virtual void __fastcall ReadState(TReader* Reader);
  1213.     void __fastcall SetAncestor(bool Value);
  1214.     void __fastcall SetDesigning(bool Value);
  1215.     virtual void __fastcall SetName(const System::AnsiString NewName);
  1216.     virtual void __fastcall SetChildOrder(TComponent* Child, int Order);
  1217.     virtual void __fastcall SetParentComponent(TComponent* Value);
  1218.     virtual void __fastcall Updating(void);
  1219.     virtual void __fastcall Updated(void);
  1220.     virtual void __fastcall ValidateRename(TComponent* AComponent, const System::AnsiString CurName, const System::AnsiString 
  1221.         NewName);
  1222.     virtual void __fastcall WriteState(TWriter* Writer);
  1223.     
  1224. public:
  1225.     __fastcall virtual TComponent(TComponent* AOwner);
  1226.     __fastcall virtual ~TComponent(void);
  1227.     void __fastcall DestroyComponents(void);
  1228.     void __fastcall Destroying(void);
  1229.     TComponent* __fastcall FindComponent(const System::AnsiString AName);
  1230.     virtual TComponent* __fastcall GetParentComponent(void);
  1231.     virtual bool __fastcall HasParent(void);
  1232.     void __fastcall FreeNotification(TComponent* AComponent);
  1233.     void __fastcall InsertComponent(TComponent* AComponent);
  1234.     void __fastcall RemoveComponent(TComponent* AComponent);
  1235.     __property TComponent* Components[int Index] = {read=GetComponent};
  1236.     __property int ComponentCount = {read=GetComponentCount, nodefault};
  1237.     __property int ComponentIndex = {read=GetComponentIndex, write=SetComponentIndex, nodefault};
  1238.     __property TComponentState ComponentState = {read=FComponentState, nodefault};
  1239.     __property TComponentStyle ComponentStyle = {read=FComponentStyle, nodefault};
  1240.     __property long DesignInfo = {read=FDesignInfo, write=FDesignInfo, nodefault};
  1241.     __property TComponent* Owner = {read=FOwner, nodefault};
  1242.     
  1243. __published:
  1244.     __property System::AnsiString Name = {read=FName, write=SetName, stored=false, nodefault};
  1245.     __property long Tag = {read=FTag, write=FTag, default=0};
  1246. };
  1247.  
  1248. typedef System::TMetaClass*TComponentClass;
  1249.  
  1250. typedef bool __fastcall (*TIdentToInt)(const System::AnsiString Ident, long &Int);
  1251.  
  1252. typedef bool __fastcall (*TIntToIdent)(long Int,  System::AnsiString &Ident);
  1253.  
  1254. typedef TComponent* __fastcall (*TFindGlobalComponent)(const System::AnsiString Name);
  1255.  
  1256. //-- var, const, procedure ---------------------------------------------------
  1257. #define MaxListSize (int)(134217727)
  1258. #define soFromBeginning (Byte)(0)
  1259. #define soFromCurrent (Byte)(1)
  1260. #define soFromEnd (Byte)(2)
  1261. #define fmCreate (int)(65535)
  1262. #define toEOF (char)(0)
  1263. #define toSymbol (char)(1)
  1264. #define toString (char)(2)
  1265. #define toInteger (char)(3)
  1266. #define toFloat (char)(4)
  1267. extern void __fastcall (*RegisterComponentsProc)(const System::AnsiString Page, System::TMetaClass* 
  1268.     const * ComponentClasses, const int ComponentClasses_Size);
  1269. extern void __fastcall (*RegisterNoIconProc)(System::TMetaClass* const * ComponentClasses, const int 
  1270.     ComponentClasses_Size);
  1271. extern int MainThreadID;
  1272. extern TFindGlobalComponent FindGlobalComponent;
  1273. extern POINT __fastcall Point(int AX, int AY);
  1274. extern Windows::TSmallPoint __fastcall SmallPoint(short AX, short AY);
  1275. extern Windows::TRect __fastcall Rect(int ALeft, int ATop, int ARight, int ABottom);
  1276. extern Windows::TRect __fastcall Bounds(int ALeft, int ATop, int AWidth, int AHeight);
  1277. extern System::TMetaClass* __fastcall GetClass(const System::AnsiString ClassName);
  1278. extern System::TMetaClass* __fastcall FindClass(const System::AnsiString ClassName);
  1279. extern void __fastcall RegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
  1280.     );
  1281. extern void __fastcall RegisterClassAlias(System::TMetaClass* AClass, const System::AnsiString Alias
  1282.     );
  1283. extern void __fastcall UnRegisterClass(System::TMetaClass* AClass);
  1284. extern void __fastcall UnRegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
  1285.     );
  1286. extern void __fastcall RegisterComponents(const System::AnsiString Page, System::TMetaClass* const * 
  1287.     ComponentClasses, const int ComponentClasses_Size);
  1288. extern void __fastcall RegisterNoIcon(System::TMetaClass* const * ComponentClasses, const int ComponentClasses_Size
  1289.     );
  1290. extern void __fastcall RegisterIntegerConsts(void * IntegerType, TIdentToInt IdentToInt, TIntToIdent 
  1291.     IntToIdent);
  1292. extern void __fastcall BeginGlobalLoading(void);
  1293. extern void __fastcall NotifyGlobalLoading(void);
  1294. extern void __fastcall EndGlobalLoading(void);
  1295. extern bool __fastcall InitInheritedComponent(TComponent* Instance, System::TMetaClass* RootAncestor
  1296.     );
  1297. extern bool __fastcall InitComponentRes(const System::AnsiString ResName, TComponent* Instance);
  1298. extern TComponent* __fastcall ReadComponentRes(const System::AnsiString ResName, TComponent* Instance
  1299.     );
  1300. extern TComponent* __fastcall ReadComponentResFile(const System::AnsiString FileName, TComponent* Instance
  1301.     );
  1302. extern void __fastcall WriteComponentResFile(const System::AnsiString FileName, TComponent* Instance
  1303.     );
  1304. extern bool __fastcall CollectionsEqual(TCollection* C1, TCollection* C2);
  1305. extern char * __fastcall LineStart(char * Buffer, char * BufPos);
  1306. extern void __fastcall GlobalFixupReferences(void);
  1307. extern void __fastcall GetFixupReferenceNames(TComponent* Root, TStrings* Names);
  1308. extern void __fastcall RedirectFixupReferences(TComponent* Root, const System::AnsiString OldRootName
  1309.     , const System::AnsiString NewRootName);
  1310. extern void __fastcall RemoveFixupReferences(TComponent* Root, const System::AnsiString RootName);
  1311. extern void __fastcall GetFixupInstanceNames(TComponent* Root, const System::AnsiString ReferenceRootName
  1312.     , TStrings* Names);
  1313. extern void __fastcall ObjectBinaryToText(TStream* Input, TStream* Output);
  1314. extern void __fastcall ObjectTextToBinary(TStream* Input, TStream* Output);
  1315. extern void __fastcall ObjectResourceToText(TStream* Input, TStream* Output);
  1316. extern void __fastcall ObjectTextToResource(TStream* Input, TStream* Output);
  1317. extern void __fastcall finalization(void);
  1318. //-- template instantiations -------------------------------------------------
  1319. template class TComponentStyle ;
  1320. template class TComponentState ;
  1321. template class TFilerFlags ;
  1322. template class TShiftState ;
  1323.  
  1324. }    /* namespace Classes */
  1325.  
  1326. #pragma warn .par
  1327. #pragma warn .hid 
  1328. #pragma warn .inl
  1329.  
  1330. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1331. using namespace Classes;
  1332. #endif
  1333. //-- end unit ----------------------------------------------------------------
  1334. #endif    // Classes
  1335.