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