home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
CLASSES.HPP
< prev
next >
Wrap
C/C++ Source or Header
|
1997-02-28
|
59KB
|
1,335 lines
//----------------------------------------------------------------------------
// Classes.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
// From: Classes.pas
//----------------------------------------------------------------------------
#ifndef ClassesHPP
#define ClassesHPP
//----------------------------------------------------------------------------
#include <Windows.hpp>
#include <SysUtils.hpp>
#include <System.hpp>
#pragma warn -par
#pragma warn -hid
#pragma warn -inl
namespace Classes
{
//-- type declarations -------------------------------------------------------
enum TAlignment { taLeftJustify, taRightJustify, taCenter };
typedef TAlignment TLeftRight;
enum Classes_1 { ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble };
typedef Set<Classes_1, ssShift, ssDouble> TShiftState;
typedef int THelpContext;
typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);
typedef bool __fastcall (__closure *THelpEvent)(Word Command, long Data, bool &CallHelp);
typedef void __fastcall (__closure *TGetStrProc)(const System::AnsiString S);
class __declspec(delphiclass) EStreamError;
class __declspec(pascalimplementation) EStreamError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EStreamError(const System::AnsiString Msg) : Sysutils::Exception(
Msg) { }
/* Exception.CreateFmt */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EStreamError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EStreamError(const System::AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EStreamError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EStreamError(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EStreamError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EStreamError(void) { }
};
class __declspec(delphiclass) EFCreateError;
class __declspec(pascalimplementation) EFCreateError : public EStreamError
{
typedef EStreamError inherited;
public:
/* Exception.Create */ __fastcall EFCreateError(const System::AnsiString Msg) : Classes::EStreamError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EFCreateError(int Ident) : Classes::EStreamError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EFCreateError(const System::AnsiString Msg, int AHelpContext)
: Classes::EStreamError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EFCreateError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EFCreateError(int Ident, int AHelpContext) : Classes::EStreamError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EFCreateError(int Ident, const System::TVarRec * Args,
const int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EFCreateError(void) { }
};
class __declspec(delphiclass) EFOpenError;
class __declspec(pascalimplementation) EFOpenError : public EStreamError
{
typedef EStreamError inherited;
public:
/* Exception.Create */ __fastcall EFOpenError(const System::AnsiString Msg) : Classes::EStreamError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EFOpenError(int Ident) : Classes::EStreamError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EFOpenError(const System::AnsiString Msg, int AHelpContext) :
Classes::EStreamError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EFOpenError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EFOpenError(int Ident, int AHelpContext) : Classes::EStreamError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EFOpenError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EFOpenError(void) { }
};
class __declspec(delphiclass) EFilerError;
class __declspec(pascalimplementation) EFilerError : public EStreamError
{
typedef EStreamError inherited;
public:
/* Exception.Create */ __fastcall EFilerError(const System::AnsiString Msg) : Classes::EStreamError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EStreamError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EFilerError(int Ident) : Classes::EStreamError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EStreamError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EFilerError(const System::AnsiString Msg, int AHelpContext) :
Classes::EStreamError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EFilerError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EStreamError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EFilerError(int Ident, int AHelpContext) : Classes::EStreamError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EFilerError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Classes::EStreamError(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EFilerError(void) { }
};
class __declspec(delphiclass) EReadError;
class __declspec(pascalimplementation) EReadError : public EFilerError
{
typedef EFilerError inherited;
public:
/* Exception.Create */ __fastcall EReadError(const System::AnsiString Msg) : Classes::EFilerError(Msg
) { }
/* Exception.CreateFmt */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EReadError(int Ident) : Classes::EFilerError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const int
Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EReadError(const System::AnsiString Msg, int AHelpContext) :
Classes::EFilerError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EReadError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EReadError(int Ident, int AHelpContext) : Classes::EFilerError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EReadError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EReadError(void) { }
};
class __declspec(delphiclass) EWriteError;
class __declspec(pascalimplementation) EWriteError : public EFilerError
{
typedef EFilerError inherited;
public:
/* Exception.Create */ __fastcall EWriteError(const System::AnsiString Msg) : Classes::EFilerError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EWriteError(int Ident) : Classes::EFilerError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EWriteError(const System::AnsiString Msg, int AHelpContext) :
Classes::EFilerError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EWriteError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EWriteError(int Ident, int AHelpContext) : Classes::EFilerError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EWriteError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EWriteError(void) { }
};
class __declspec(delphiclass) EClassNotFound;
class __declspec(pascalimplementation) EClassNotFound : public EFilerError
{
typedef EFilerError inherited;
public:
/* Exception.Create */ __fastcall EClassNotFound(const System::AnsiString Msg) : Classes::EFilerError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EClassNotFound(int Ident) : Classes::EFilerError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, int AHelpContext
) : Classes::EFilerError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EClassNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EClassNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EClassNotFound(int Ident, const System::TVarRec * Args,
const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EClassNotFound(void) { }
};
class __declspec(delphiclass) EMethodNotFound;
class __declspec(pascalimplementation) EMethodNotFound : public EFilerError
{
typedef EFilerError inherited;
public:
/* Exception.Create */ __fastcall EMethodNotFound(const System::AnsiString Msg) : Classes::EFilerError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EMethodNotFound(int Ident) : Classes::EFilerError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, int AHelpContext
) : Classes::EFilerError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EMethodNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EMethodNotFound(int Ident, int AHelpContext) : Classes::EFilerError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EMethodNotFound(int Ident, const System::TVarRec * Args
, const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EMethodNotFound(void) { }
};
class __declspec(delphiclass) EInvalidImage;
class __declspec(pascalimplementation) EInvalidImage : public EFilerError
{
typedef EFilerError inherited;
public:
/* Exception.Create */ __fastcall EInvalidImage(const System::AnsiString Msg) : Classes::EFilerError(
Msg) { }
/* Exception.CreateFmt */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Classes::EFilerError(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EInvalidImage(int Ident) : Classes::EFilerError(Ident) { }
/* Exception.CreateResFmt */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args, const
int Args_Size) : Classes::EFilerError(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, int AHelpContext)
: Classes::EFilerError(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EInvalidImage(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Classes::EFilerError(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EInvalidImage(int Ident, int AHelpContext) : Classes::EFilerError(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EInvalidImage(int Ident, const System::TVarRec * Args,
const int Args_Size, int AHelpContext) : Classes::EFilerError(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EInvalidImage(void) { }
};
class __declspec(delphiclass) EResNotFound;
class __declspec(pascalimplementation) EResNotFound : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EResNotFound(const System::AnsiString Msg) : Sysutils::Exception(
Msg) { }
/* Exception.CreateFmt */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EResNotFound(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const
int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EResNotFound(const System::AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EResNotFound(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EResNotFound(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EResNotFound(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EResNotFound(void) { }
};
class __declspec(delphiclass) EListError;
class __declspec(pascalimplementation) EListError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EListError(const System::AnsiString Msg) : Sysutils::Exception(Msg
) { }
/* Exception.CreateFmt */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EListError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EListError(int Ident, const System::TVarRec * Args, const int
Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EListError(const System::AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EListError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EListError(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EListError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EListError(void) { }
};
class __declspec(delphiclass) EBitsError;
class __declspec(pascalimplementation) EBitsError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EBitsError(const System::AnsiString Msg) : Sysutils::Exception(Msg
) { }
/* Exception.CreateFmt */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EBitsError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const int
Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EBitsError(const System::AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EBitsError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EBitsError(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EBitsError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EBitsError(void) { }
};
class __declspec(delphiclass) EStringListError;
class __declspec(pascalimplementation) EStringListError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EStringListError(const System::AnsiString Msg) : Sysutils::Exception(
Msg) { }
/* Exception.CreateFmt */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EStringListError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EStringListError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EStringListError(const System::AnsiString Msg, int AHelpContext
) : Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EStringListError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EStringListError(int Ident, int AHelpContext) : Sysutils::
Exception(Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EStringListError(int Ident, const System::TVarRec * Args
, const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EStringListError(void) { }
};
class __declspec(delphiclass) EComponentError;
class __declspec(pascalimplementation) EComponentError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EComponentError(const System::AnsiString Msg) : Sysutils::Exception(
Msg) { }
/* Exception.CreateFmt */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EComponentError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EComponentError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EComponentError(const System::AnsiString Msg, int AHelpContext
) : Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EComponentError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EComponentError(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EComponentError(int Ident, const System::TVarRec * Args
, const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EComponentError(void) { }
};
class __declspec(delphiclass) EParserError;
class __declspec(pascalimplementation) EParserError : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EParserError(const System::AnsiString Msg) : Sysutils::Exception(
Msg) { }
/* Exception.CreateFmt */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EParserError(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const
int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EParserError(const System::AnsiString Msg, int AHelpContext) :
Sysutils::Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EParserError(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EParserError(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EParserError(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EParserError(void) { }
};
typedef void *TPointerList[134217727];
typedef TPointerList *PPointerList;
typedef int __fastcall (*TListSortCompare)(void * Item1, void * Item2);
class __declspec(delphiclass) TList;
class __declspec(pascalimplementation) TList : public System::TObject
{
typedef System::TObject inherited;
private:
TPointerList *FList;
int FCount;
int FCapacity;
protected:
virtual void __fastcall Error(void);
void * __fastcall Get(int Index);
virtual void __fastcall Grow(void);
void __fastcall Put(int Index, void * Item);
void __fastcall SetCapacity(int NewCapacity);
void __fastcall SetCount(int NewCount);
public:
__fastcall virtual ~TList(void);
int __fastcall Add(void * Item);
void __fastcall Clear(void);
void __fastcall Delete(int Index);
void __fastcall Exchange(int Index1, int Index2);
TList* __fastcall Expand(void);
void * __fastcall First(void);
int __fastcall IndexOf(void * Item);
void __fastcall Insert(int Index, void * Item);
void * __fastcall Last(void);
void __fastcall Move(int CurIndex, int NewIndex);
int __fastcall Remove(void * Item);
void __fastcall Pack(void);
void __fastcall Sort(TListSortCompare Compare);
__property int Capacity = {read=FCapacity, write=SetCapacity, nodefault};
__property int Count = {read=FCount, write=SetCount, nodefault};
__property void * Items[int Index] = {read=Get, write=Put/*, default*/};
__property PPointerList List = {read=FList, nodefault};
public:
/* TObject.Create */ __fastcall TList(void) : System::TObject() { }
};
class __declspec(delphiclass) TBits;
class __declspec(pascalimplementation) TBits : public System::TObject
{
typedef System::TObject inherited;
private:
int FSize;
void *FBits;
void __fastcall Error(void);
void __fastcall SetSize(int Value);
void __fastcall SetBit(int Index, bool Value);
bool __fastcall GetBit(int Index);
public:
__fastcall virtual ~TBits(void);
int __fastcall OpenBit(void);
__property bool Bits[int Index] = {read=GetBit, write=SetBit/*, default*/};
__property int Size = {read=FSize, write=SetSize, nodefault};
public:
/* TObject.Create */ __fastcall TBits(void) : System::TObject() { }
};
class __declspec(delphiclass) TPersistent;
class __declspec(delphiclass) TFiler;
class __declspec(pascalimplementation) TPersistent : public System::TObject
{
typedef System::TObject inherited;
private:
void __fastcall AssignError(TPersistent* Source);
protected:
virtual void __fastcall AssignTo(TPersistent* Dest);
virtual void __fastcall DefineProperties(TFiler* Filer);
public:
virtual void __fastcall Assign(TPersistent* Source);
public:
/* TObject.Create */ __fastcall TPersistent(void) : System::TObject() { }
/* TObject.Destroy */ __fastcall virtual ~TPersistent(void) { }
};
typedef System::TMetaClass*TPersistentClass;
class __declspec(delphiclass) TCollectionItem;
class __declspec(delphiclass) TCollection;
typedef System::TMetaClass*TCollectionItemClass;
class __declspec(pascalimplementation) TCollection : public TPersistent
{
typedef TPersistent inherited;
private:
System::TMetaClass*FItemClass;
TList* FItems;
int FUpdateCount;
int __fastcall GetCount(void);
void __fastcall InsertItem(TCollectionItem* Item);
void __fastcall RemoveItem(TCollectionItem* Item);
protected:
void __fastcall Changed(void);
TCollectionItem* __fastcall GetItem(int Index);
void __fastcall SetItem(int Index, TCollectionItem* Value);
virtual void __fastcall Update(TCollectionItem* Item);
public:
__fastcall TCollection(System::TMetaClass* ItemClass);
__fastcall virtual ~TCollection(void);
TCollectionItem* __fastcall Add(void);
virtual void __fastcall Assign(TPersistent* Source);
void __fastcall BeginUpdate(void);
void __fastcall Clear(void);
void __fastcall EndUpdate(void);
__property int Count = {read=GetCount, nodefault};
__property TCollectionItem* Items[int Index] = {read=GetItem, write=SetItem};
};
class __declspec(pascalimplementation) TCollectionItem : public TPersistent
{
typedef TPersistent inherited;
private:
TCollection* FCollection;
int __fastcall GetIndex(void);
void __fastcall SetCollection(TCollection* Value);
protected:
void __fastcall Changed(bool AllItems);
virtual void __fastcall SetIndex(int Value);
public:
__fastcall virtual TCollectionItem(TCollection* Collection);
__fastcall virtual ~TCollectionItem(void);
__property TCollection* Collection = {read=FCollection, write=SetCollection, nodefault};
__property int Index = {read=GetIndex, write=SetIndex, nodefault};
};
class __declspec(delphiclass) TStrings;
class __declspec(delphiclass) TReader;
class __declspec(delphiclass) TWriter;
class __declspec(delphiclass) TStream;
class __declspec(pascalimplementation) TStrings : public TPersistent
{
typedef TPersistent inherited;
private:
int FUpdateCount;
System::AnsiString __fastcall GetCommaText(void);
System::AnsiString __fastcall GetName(int Index);
System::AnsiString __fastcall GetValue(const System::AnsiString Name);
void __fastcall ReadData(TReader* Reader);
void __fastcall SetCommaText(const System::AnsiString Value);
void __fastcall SetValue(const System::AnsiString Name, const System::AnsiString Value);
void __fastcall WriteData(TWriter* Writer);
protected:
virtual void __fastcall DefineProperties(TFiler* Filer);
virtual System::AnsiString __fastcall Get(int Index) = 0;
virtual int __fastcall GetCount(void) = 0;
virtual System::TObject* __fastcall GetObject(int Index);
virtual System::AnsiString __fastcall GetTextStr(void);
virtual void __fastcall Put(int Index, const System::AnsiString S);
virtual void __fastcall PutObject(int Index, System::TObject* AObject);
virtual void __fastcall SetTextStr(const System::AnsiString Value);
virtual void __fastcall SetUpdateState(bool Updating);
public:
virtual int __fastcall Add(const System::AnsiString S);
virtual int __fastcall AddObject(const System::AnsiString S, System::TObject* AObject);
void __fastcall Append(const System::AnsiString S);
virtual void __fastcall AddStrings(TStrings* Strings);
virtual void __fastcall Assign(TPersistent* Source);
void __fastcall BeginUpdate(void);
virtual void __fastcall Clear(void) = 0;
virtual void __fastcall Delete(int Index) = 0;
void __fastcall EndUpdate(void);
bool __fastcall Equals(TStrings* Strings);
virtual void __fastcall Exchange(int Index1, int Index2);
virtual char * __fastcall GetText(void);
virtual int __fastcall IndexOf(const System::AnsiString S);
int __fastcall IndexOfName(const System::AnsiString Name);
int __fastcall IndexOfObject(System::TObject* AObject);
virtual void __fastcall Insert(int Index, const System::AnsiString S) = 0;
void __fastcall InsertObject(int Index, const System::AnsiString S, System::TObject* AObject);
virtual void __fastcall LoadFromFile(const System::AnsiString FileName);
virtual void __fastcall LoadFromStream(TStream* Stream);
virtual void __fastcall Move(int CurIndex, int NewIndex);
virtual void __fastcall SaveToFile(const System::AnsiString FileName);
virtual void __fastcall SaveToStream(TStream* Stream);
virtual void __fastcall SetText(char * Text);
__property System::AnsiString CommaText = {read=GetCommaText, write=SetCommaText, nodefault};
__property int Count = {read=GetCount, nodefault};
__property System::AnsiString Names[int Index] = {read=GetName};
__property System::TObject* Objects[int Index] = {read=GetObject, write=PutObject};
__property System::AnsiString Values[System::AnsiString Name] = {read=GetValue, write=SetValue};
__property System::AnsiString Strings[int Index] = {read=Get, write=Put/*, default*/};
__property System::AnsiString Text = {read=GetTextStr, write=SetTextStr, nodefault};
public:
/* TObject.Create */ __fastcall TStrings(void) : Classes::TPersistent() { }
/* TObject.Destroy */ __fastcall virtual ~TStrings(void) { }
};
enum TDuplicates { dupIgnore, dupAccept, dupError };
struct TStringItem;
typedef TStringItem *PStringItem;
struct TStringItem
{
System::AnsiString FString;
System::TObject* FObject;
} ;
typedef TStringItem TStringItemList[134217728];
typedef TStringItemList *PStringItemList;
class __declspec(delphiclass) TStringList;
class __declspec(pascalimplementation) TStringList : public TStrings
{
typedef TStrings inherited;
private:
TStringItemList *FList;
int FCount;
int FCapacity;
bool FSorted;
TDuplicates FDuplicates;
TNotifyEvent FOnChange;
TNotifyEvent FOnChanging;
void __fastcall ExchangeItems(int Index1, int Index2);
void __fastcall Grow(void);
void __fastcall QuickSort(int L, int R);
void __fastcall InsertItem(int Index, const System::AnsiString S);
void __fastcall SetCapacity(int NewCapacity);
void __fastcall SetSorted(bool Value);
protected:
virtual void __fastcall Changed(void);
virtual void __fastcall Changing(void);
virtual System::AnsiString __fastcall Get(int Index);
virtual int __fastcall GetCount(void);
virtual System::TObject* __fastcall GetObject(int Index);
virtual void __fastcall Put(int Index, const System::AnsiString S);
virtual void __fastcall PutObject(int Index, System::TObject* AObject);
virtual void __fastcall SetUpdateState(bool Updating);
public:
__fastcall virtual ~TStringList(void);
virtual int __fastcall Add(const System::AnsiString S);
virtual void __fastcall Clear(void);
virtual void __fastcall Delete(int Index);
virtual void __fastcall Exchange(int Index1, int Index2);
virtual bool __fastcall Find(const System::AnsiString S, int &Index);
virtual int __fastcall IndexOf(const System::AnsiString S);
virtual void __fastcall Insert(int Index, const System::AnsiString S);
virtual void __fastcall Sort(void);
__property TDuplicates Duplicates = {read=FDuplicates, write=FDuplicates, nodefault};
__property bool Sorted = {read=FSorted, write=SetSorted, nodefault};
__property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
__property TNotifyEvent OnChanging = {read=FOnChanging, write=FOnChanging};
public:
/* TObject.Create */ __fastcall TStringList(void) : Classes::TStrings() { }
};
class __declspec(delphiclass) TComponent;
class __declspec(pascalimplementation) TStream : public System::TObject
{
typedef System::TObject inherited;
private:
long __fastcall GetPosition(void);
void __fastcall SetPosition(long Pos);
long __fastcall GetSize(void);
public:
virtual long __fastcall Read(void *Buffer, long Count) = 0;
virtual long __fastcall Write(const void *Buffer, long Count) = 0;
virtual long __fastcall Seek(long Offset, Word Origin) = 0;
void __fastcall ReadBuffer(void *Buffer, long Count);
void __fastcall WriteBuffer(const void *Buffer, long Count);
long __fastcall CopyFrom(TStream* Source, long Count);
TComponent* __fastcall ReadComponent(TComponent* Instance);
TComponent* __fastcall ReadComponentRes(TComponent* Instance);
void __fastcall WriteComponent(TComponent* Instance);
void __fastcall WriteComponentRes(const System::AnsiString ResName, TComponent* Instance);
void __fastcall WriteDescendent(TComponent* Instance, TComponent* Ancestor);
void __fastcall WriteDescendentRes(const System::AnsiString ResName, TComponent* Instance, TComponent*
Ancestor);
void __fastcall ReadResHeader(void);
__property long Position = {read=GetPosition, write=SetPosition, nodefault};
__property long Size = {read=GetSize, nodefault};
public:
/* TObject.Create */ __fastcall TStream(void) : System::TObject() { }
/* TObject.Destroy */ __fastcall virtual ~TStream(void) { }
};
class __declspec(delphiclass) THandleStream;
class __declspec(pascalimplementation) THandleStream : public TStream
{
typedef TStream inherited;
private:
int FHandle;
public:
__fastcall THandleStream(int AHandle);
virtual long __fastcall Read(void *Buffer, long Count);
virtual long __fastcall Write(const void *Buffer, long Count);
virtual long __fastcall Seek(long Offset, Word Origin);
__property int Handle = {read=FHandle, nodefault};
public:
/* TObject.Destroy */ __fastcall virtual ~THandleStream(void) { }
};
class __declspec(delphiclass) TFileStream;
class __declspec(pascalimplementation) TFileStream : public THandleStream
{
typedef THandleStream inherited;
public:
__fastcall TFileStream(const System::AnsiString FileName, Word Mode);
__fastcall virtual ~TFileStream(void);
};
class __declspec(delphiclass) TCustomMemoryStream;
class __declspec(pascalimplementation) TCustomMemoryStream : public TStream
{
typedef TStream inherited;
private:
void *FMemory;
long FSize;
long FPosition;
protected:
void __fastcall SetPointer(void * Ptr, long Size);
public:
virtual long __fastcall Read(void *Buffer, long Count);
virtual long __fastcall Seek(long Offset, Word Origin);
void __fastcall SaveToStream(TStream* Stream);
void __fastcall SaveToFile(const System::AnsiString FileName);
__property void * Memory = {read=FMemory, nodefault};
public:
/* TObject.Create */ __fastcall TCustomMemoryStream(void) : Classes::TStream() { }
/* TObject.Destroy */ __fastcall virtual ~TCustomMemoryStream(void) { }
};
class __declspec(delphiclass) TMemoryStream;
class __declspec(pascalimplementation) TMemoryStream : public TCustomMemoryStream
{
typedef TCustomMemoryStream inherited;
private:
long FCapacity;
void __fastcall SetCapacity(long NewCapacity);
protected:
virtual void * __fastcall Realloc(long &NewCapacity);
__property long Capacity = {read=FCapacity, write=SetCapacity, nodefault};
public:
__fastcall virtual ~TMemoryStream(void);
void __fastcall Clear(void);
void __fastcall LoadFromStream(TStream* Stream);
void __fastcall LoadFromFile(const System::AnsiString FileName);
void __fastcall SetSize(long NewSize);
virtual long __fastcall Write(const void *Buffer, long Count);
public:
/* TObject.Create */ __fastcall TMemoryStream(void) : Classes::TCustomMemoryStream() { }
};
class __declspec(delphiclass) TResourceStream;
class __declspec(pascalimplementation) TResourceStream : public TCustomMemoryStream
{
typedef TCustomMemoryStream inherited;
private:
HRSRC HResInfo;
int HGlobal;
void __fastcall Initialize(int Instance, char * Name, char * ResType);
public:
__fastcall TResourceStream(int Instance, const System::AnsiString ResName, char * ResType);
__fastcall TResourceStream(int Instance, int ResID, char * ResType);
__fastcall virtual ~TResourceStream(void);
virtual long __fastcall Write(const void *Buffer, long Count);
};
enum TValueType { vaNull, vaList, vaInt8, vaInt16, vaInt32, vaExtended, vaString, vaIdent, vaFalse,
vaTrue, vaBinary, vaSet, vaLString, vaNil, vaCollection };
enum TFilerFlag { ffInherited, ffChildPos };
typedef Set<TFilerFlag, ffInherited, ffChildPos> TFilerFlags;
typedef void __fastcall (__closure *TReaderProc)(TReader* Reader);
typedef void __fastcall (__closure *TWriterProc)(TWriter* Writer);
typedef void __fastcall (__closure *TStreamProc)(TStream* Stream);
class __declspec(pascalimplementation) TFiler : public System::TObject
{
typedef System::TObject inherited;
private:
TStream* FStream;
void *FBuffer;
int FBufSize;
int FBufPos;
int FBufEnd;
TComponent* FRoot;
TPersistent* FAncestor;
bool FIgnoreChildren;
public:
__fastcall TFiler(TStream* Stream, int BufSize);
__fastcall virtual ~TFiler(void);
virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc
WriteData, bool HasData) = 0;
virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc
WriteData, bool HasData) = 0;
virtual void __fastcall FlushBuffer(void) = 0;
__property TComponent* Root = {read=FRoot, write=FRoot, nodefault};
__property TPersistent* Ancestor = {read=FAncestor, write=FAncestor, nodefault};
__property bool IgnoreChildren = {read=FIgnoreChildren, write=FIgnoreChildren, nodefault};
};
typedef void __fastcall (__closure *TFindMethodEvent)(TReader* Reader, const System::AnsiString MethodName
, void * &Address, bool &Error);
typedef void __fastcall (__closure *TSetNameEvent)(TReader* Reader, TComponent* Component, System::AnsiString &
Name);
typedef void __fastcall (__closure *TReadComponentsProc)(TComponent* Component);
typedef void __fastcall (__closure *TReaderError)(TReader* Reader, const System::AnsiString Message,
bool &Handled);
class __declspec(pascalimplementation) TReader : public TFiler
{
typedef TFiler inherited;
private:
TComponent* FOwner;
TComponent* FParent;
TList* FFixups;
TList* FLoaded;
TFindMethodEvent FOnFindMethod;
TSetNameEvent FOnSetName;
TReaderError FOnError;
bool FCanHandleExcepts;
System::AnsiString FPropName;
void __fastcall CheckValue(TValueType Value);
void __fastcall DoFixupReferences(void);
void __fastcall FreeFixups(void);
long __fastcall GetPosition(void);
void __fastcall PropertyError(void);
void __fastcall ReadBuffer(void);
void __fastcall ReadCollection(TCollection* Collection);
void __fastcall ReadData(TComponent* Instance);
void __fastcall ReadDataInner(TComponent* Instance);
void __fastcall ReadProperty(TPersistent* AInstance);
void __fastcall ReadPropValue(TPersistent* Instance, void * PropInfo);
int __fastcall ReadSet(void * SetType);
void __fastcall SetPosition(long Value);
void __fastcall SkipSetBody(void);
void __fastcall SkipValue(void);
void __fastcall SkipProperty(void);
void __fastcall SkipComponent(bool SkipHeader);
protected:
virtual bool __fastcall Error(const System::AnsiString Message);
virtual void * __fastcall FindMethod(TComponent* Root, const System::AnsiString MethodName);
TValueType __fastcall NextValue(void);
virtual void __fastcall SetName(TComponent* Component, System::AnsiString &Name);
public:
__fastcall virtual ~TReader(void);
void __fastcall BeginReferences(void);
virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc
WriteData, bool HasData);
virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc
WriteData, bool HasData);
bool __fastcall EndOfList(void);
void __fastcall EndReferences(void);
void __fastcall FixupReferences(void);
virtual void __fastcall FlushBuffer(void);
void __fastcall Read(void *Buf, long Count);
bool __fastcall ReadBoolean(void);
char __fastcall ReadChar(void);
TComponent* __fastcall ReadComponent(TComponent* Component);
void __fastcall ReadComponents(TComponent* AOwner, TComponent* AParent, TReadComponentsProc Proc);
Extended __fastcall ReadFloat(void);
System::AnsiString __fastcall ReadIdent(void);
long __fastcall ReadInteger(void);
void __fastcall ReadListBegin(void);
void __fastcall ReadListEnd(void);
void __fastcall ReadPrefix(TFilerFlags &Flags, int &AChildPos);
TComponent* __fastcall ReadRootComponent(TComponent* Root);
void __fastcall ReadSignature(void);
System::AnsiString __fastcall ReadStr(void);
System::AnsiString __fastcall ReadString(void);
TValueType __fastcall ReadValue(void);
__property TComponent* Owner = {read=FOwner, write=FOwner, nodefault};
__property TComponent* Parent = {read=FParent, write=FParent, nodefault};
__property long Position = {read=GetPosition, write=SetPosition, nodefault};
__property TReaderError OnError = {read=FOnError, write=FOnError};
__property TFindMethodEvent OnFindMethod = {read=FOnFindMethod, write=FOnFindMethod};
__property TSetNameEvent OnSetName = {read=FOnSetName, write=FOnSetName};
public:
/* TFiler.Create */ __fastcall TReader(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
) { }
};
class __declspec(pascalimplementation) TWriter : public TFiler
{
typedef TFiler inherited;
private:
TComponent* FRootAncestor;
System::AnsiString FPropPath;
TList* FAncestorList;
int FAncestorPos;
int FChildPos;
void __fastcall AddAncestor(TComponent* Component);
long __fastcall GetPosition(void);
void __fastcall SetPosition(long Value);
void __fastcall WriteBinary(TStreamProc WriteData);
void __fastcall WriteBuffer(void);
virtual void __fastcall WriteData(TComponent* Instance);
void __fastcall WritePrefix(TFilerFlags Flags, int AChildPos);
void __fastcall WriteProperty(TPersistent* Instance, void * PropInfo);
void __fastcall WriteProperties(TPersistent* Instance);
void __fastcall WritePropName(const System::AnsiString PropName);
void __fastcall WriteValue(TValueType Value);
public:
__fastcall virtual ~TWriter(void);
virtual void __fastcall DefineProperty(const System::AnsiString Name, TReaderProc ReadData, TWriterProc
WriteData, bool HasData);
virtual void __fastcall DefineBinaryProperty(const System::AnsiString Name, TStreamProc ReadData, TStreamProc
WriteData, bool HasData);
virtual void __fastcall FlushBuffer(void);
void __fastcall Write(const void *Buf, long Count);
void __fastcall WriteBoolean(bool Value);
void __fastcall WriteCollection(TCollection* Value);
void __fastcall WriteComponent(TComponent* Component);
void __fastcall WriteChar(char Value);
void __fastcall WriteDescendent(TComponent* Root, TComponent* AAncestor);
void __fastcall WriteFloat(Extended Value);
void __fastcall WriteIdent(const System::AnsiString Ident);
void __fastcall WriteInteger(long Value);
void __fastcall WriteListBegin(void);
void __fastcall WriteListEnd(void);
void __fastcall WriteRootComponent(TComponent* Root);
void __fastcall WriteSignature(void);
void __fastcall WriteStr(const System::AnsiString Value);
void __fastcall WriteString(const System::AnsiString Value);
__property long Position = {read=GetPosition, write=SetPosition, nodefault};
__property TComponent* RootAncestor = {read=FRootAncestor, write=FRootAncestor, nodefault};
public:
/* TFiler.Create */ __fastcall TWriter(TStream* Stream, int BufSize) : Classes::TFiler(Stream, BufSize
) { }
};
class __declspec(delphiclass) TParser;
class __declspec(pascalimplementation) TParser : public System::TObject
{
typedef System::TObject inherited;
private:
TStream* FStream;
long FOrigin;
char *FBuffer;
char *FBufPtr;
char *FBufEnd;
char *FSourcePtr;
char *FSourceEnd;
char *FTokenPtr;
char *FStringPtr;
int FSourceLine;
char FSaveChar;
char FToken;
void __fastcall ReadBuffer(void);
void __fastcall SkipBlanks(void);
public:
__fastcall TParser(TStream* Stream);
__fastcall virtual ~TParser(void);
void __fastcall CheckToken(char T);
void __fastcall CheckTokenSymbol(const System::AnsiString S);
void __fastcall Error(int Ident);
void __fastcall ErrorFmt(int Ident, const System::TVarRec * Args, const int Args_Size);
void __fastcall ErrorStr(const System::AnsiString Message);
void __fastcall HexToBinary(TStream* Stream);
char __fastcall NextToken(void);
long __fastcall SourcePos(void);
System::AnsiString __fastcall TokenComponentIdent(void);
Extended __fastcall TokenFloat(void);
long __fastcall TokenInt(void);
System::AnsiString __fastcall TokenString(void);
bool __fastcall TokenSymbolIs(const System::AnsiString S);
__property int SourceLine = {read=FSourceLine, nodefault};
__property char Token = {read=FToken, nodefault};
};
class __declspec(delphiclass) EThread;
class __declspec(pascalimplementation) EThread : public Sysutils::Exception
{
typedef Sysutils::Exception inherited;
public:
/* Exception.Create */ __fastcall EThread(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
/* Exception.CreateFmt */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec *
Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
/* Exception.CreateRes */ __fastcall EThread(int Ident) : Sysutils::Exception(Ident) { }
/* Exception.CreateResFmt */ __fastcall EThread(int Ident, const System::TVarRec * Args, const int
Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
/* Exception.CreateHelp */ __fastcall EThread(const System::AnsiString Msg, int AHelpContext) : Sysutils::
Exception(Msg, AHelpContext) { }
/* Exception.CreateFmtHelp */ __fastcall EThread(const System::AnsiString Msg, const System::TVarRec
* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
) { }
/* Exception.CreateResHelp */ __fastcall EThread(int Ident, int AHelpContext) : Sysutils::Exception(
Ident, AHelpContext) { }
/* Exception.CreateResFmtHelp */ __fastcall EThread(int Ident, const System::TVarRec * Args, const
int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
public:
/* TObject.Destroy */ __fastcall virtual ~EThread(void) { }
};
typedef void __fastcall (__closure *TThreadMethod)(void);
enum TThreadPriority { tpIdle, tpLowest, tpLower, tpNormal, tpHigher, tpHighest, tpTimeCritical };
class __declspec(delphiclass) TThread;
class __declspec(pascalimplementation) TThread : public System::TObject
{
typedef System::TObject inherited;
private:
int FHandle;
int FThreadID;
bool FTerminated;
bool FSuspended;
bool FMainThreadWaiting;
bool FFreeOnTerminate;
bool FFinished;
int FReturnValue;
TNotifyEvent FOnTerminate;
TThreadMethod FMethod;
System::TObject* FSynchronizeException;
void __fastcall CallOnTerminate(void);
TThreadPriority __fastcall GetPriority(void);
void __fastcall SetPriority(TThreadPriority Value);
void __fastcall SetSuspended(bool Value);
protected:
virtual void __fastcall DoTerminate(void);
virtual void __fastcall Execute(void) = 0;
void __fastcall Synchronize(TThreadMethod Method);
__property int ReturnValue = {read=FReturnValue, write=FReturnValue, nodefault};
__property bool Terminated = {read=FTerminated, nodefault};
public:
__fastcall TThread(bool CreateSuspended);
__fastcall virtual ~TThread(void);
void __fastcall Resume(void);
void __fastcall Suspend(void);
void __fastcall Terminate(void);
int __fastcall WaitFor(void);
__property bool FreeOnTerminate = {read=FFreeOnTerminate, write=FFreeOnTerminate, nodefault};
__property int Handle = {read=FHandle, nodefault};
__property TThreadPriority Priority = {read=GetPriority, write=SetPriority, nodefault};
__property bool Suspended = {read=FSuspended, write=SetSuspended, nodefault};
__property int ThreadID = {read=FThreadID, nodefault};
__property TNotifyEvent OnTerminate = {read=FOnTerminate, write=FOnTerminate};
};
enum TOperation { opInsert, opRemove };
enum Classes_63 { csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating,
csFixups };
typedef Set<Classes_63, csLoading, csFixups> TComponentState;
enum Classes_73 { csInheritable, csCheckPropAvail };
typedef Set<Classes_73, csInheritable, csCheckPropAvail> TComponentStyle;
typedef void __fastcall (__closure *TGetChildProc)(TComponent* Child);
typedef System::AnsiString TComponentName;
class __declspec(pascalimplementation) TComponent : public TPersistent
{
typedef TPersistent inherited;
private:
TComponent* FOwner;
System::AnsiString FName;
long FTag;
TList* FComponents;
TList* FFreeNotifies;
long FDesignInfo;
TComponentState FComponentState;
TComponent* __fastcall GetComponent(int AIndex);
int __fastcall GetComponentCount(void);
int __fastcall GetComponentIndex(void);
void __fastcall Insert(TComponent* AComponent);
void __fastcall ReadLeft(TReader* Reader);
void __fastcall ReadTop(TReader* Reader);
void __fastcall Remove(TComponent* AComponent);
void __fastcall SetComponentIndex(int Value);
void __fastcall SetReference(bool Enable);
void __fastcall WriteLeft(TWriter* Writer);
void __fastcall WriteTop(TWriter* Writer);
protected:
TComponentStyle FComponentStyle;
void __fastcall ChangeName(const System::AnsiString NewName);
virtual void __fastcall DefineProperties(TFiler* Filer);
virtual void __fastcall GetChildren(TGetChildProc Proc);
virtual TComponent* __fastcall GetChildOwner(void);
virtual TComponent* __fastcall GetChildParent(void);
virtual void __fastcall Loaded(void);
virtual void __fastcall Notification(TComponent* AComponent, TOperation Operation);
virtual void __fastcall ReadState(TReader* Reader);
void __fastcall SetAncestor(bool Value);
void __fastcall SetDesigning(bool Value);
virtual void __fastcall SetName(const System::AnsiString NewName);
virtual void __fastcall SetChildOrder(TComponent* Child, int Order);
virtual void __fastcall SetParentComponent(TComponent* Value);
virtual void __fastcall Updating(void);
virtual void __fastcall Updated(void);
virtual void __fastcall ValidateRename(TComponent* AComponent, const System::AnsiString CurName, const System::AnsiString
NewName);
virtual void __fastcall WriteState(TWriter* Writer);
public:
__fastcall virtual TComponent(TComponent* AOwner);
__fastcall virtual ~TComponent(void);
void __fastcall DestroyComponents(void);
void __fastcall Destroying(void);
TComponent* __fastcall FindComponent(const System::AnsiString AName);
virtual TComponent* __fastcall GetParentComponent(void);
virtual bool __fastcall HasParent(void);
void __fastcall FreeNotification(TComponent* AComponent);
void __fastcall InsertComponent(TComponent* AComponent);
void __fastcall RemoveComponent(TComponent* AComponent);
__property TComponent* Components[int Index] = {read=GetComponent};
__property int ComponentCount = {read=GetComponentCount, nodefault};
__property int ComponentIndex = {read=GetComponentIndex, write=SetComponentIndex, nodefault};
__property TComponentState ComponentState = {read=FComponentState, nodefault};
__property TComponentStyle ComponentStyle = {read=FComponentStyle, nodefault};
__property long DesignInfo = {read=FDesignInfo, write=FDesignInfo, nodefault};
__property TComponent* Owner = {read=FOwner, nodefault};
__published:
__property System::AnsiString Name = {read=FName, write=SetName, stored=false, nodefault};
__property long Tag = {read=FTag, write=FTag, default=0};
};
typedef System::TMetaClass*TComponentClass;
typedef bool __fastcall (*TIdentToInt)(const System::AnsiString Ident, long &Int);
typedef bool __fastcall (*TIntToIdent)(long Int, System::AnsiString &Ident);
typedef TComponent* __fastcall (*TFindGlobalComponent)(const System::AnsiString Name);
//-- var, const, procedure ---------------------------------------------------
#define MaxListSize (int)(134217727)
#define soFromBeginning (Byte)(0)
#define soFromCurrent (Byte)(1)
#define soFromEnd (Byte)(2)
#define fmCreate (int)(65535)
#define toEOF (char)(0)
#define toSymbol (char)(1)
#define toString (char)(2)
#define toInteger (char)(3)
#define toFloat (char)(4)
extern void __fastcall (*RegisterComponentsProc)(const System::AnsiString Page, System::TMetaClass*
const * ComponentClasses, const int ComponentClasses_Size);
extern void __fastcall (*RegisterNoIconProc)(System::TMetaClass* const * ComponentClasses, const int
ComponentClasses_Size);
extern int MainThreadID;
extern TFindGlobalComponent FindGlobalComponent;
extern POINT __fastcall Point(int AX, int AY);
extern Windows::TSmallPoint __fastcall SmallPoint(short AX, short AY);
extern Windows::TRect __fastcall Rect(int ALeft, int ATop, int ARight, int ABottom);
extern Windows::TRect __fastcall Bounds(int ALeft, int ATop, int AWidth, int AHeight);
extern System::TMetaClass* __fastcall GetClass(const System::AnsiString ClassName);
extern System::TMetaClass* __fastcall FindClass(const System::AnsiString ClassName);
extern void __fastcall RegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
);
extern void __fastcall RegisterClassAlias(System::TMetaClass* AClass, const System::AnsiString Alias
);
extern void __fastcall UnRegisterClass(System::TMetaClass* AClass);
extern void __fastcall UnRegisterClasses(System::TMetaClass* const * AClasses, const int AClasses_Size
);
extern void __fastcall RegisterComponents(const System::AnsiString Page, System::TMetaClass* const *
ComponentClasses, const int ComponentClasses_Size);
extern void __fastcall RegisterNoIcon(System::TMetaClass* const * ComponentClasses, const int ComponentClasses_Size
);
extern void __fastcall RegisterIntegerConsts(void * IntegerType, TIdentToInt IdentToInt, TIntToIdent
IntToIdent);
extern void __fastcall BeginGlobalLoading(void);
extern void __fastcall NotifyGlobalLoading(void);
extern void __fastcall EndGlobalLoading(void);
extern bool __fastcall InitInheritedComponent(TComponent* Instance, System::TMetaClass* RootAncestor
);
extern bool __fastcall InitComponentRes(const System::AnsiString ResName, TComponent* Instance);
extern TComponent* __fastcall ReadComponentRes(const System::AnsiString ResName, TComponent* Instance
);
extern TComponent* __fastcall ReadComponentResFile(const System::AnsiString FileName, TComponent* Instance
);
extern void __fastcall WriteComponentResFile(const System::AnsiString FileName, TComponent* Instance
);
extern bool __fastcall CollectionsEqual(TCollection* C1, TCollection* C2);
extern char * __fastcall LineStart(char * Buffer, char * BufPos);
extern void __fastcall GlobalFixupReferences(void);
extern void __fastcall GetFixupReferenceNames(TComponent* Root, TStrings* Names);
extern void __fastcall RedirectFixupReferences(TComponent* Root, const System::AnsiString OldRootName
, const System::AnsiString NewRootName);
extern void __fastcall RemoveFixupReferences(TComponent* Root, const System::AnsiString RootName);
extern void __fastcall GetFixupInstanceNames(TComponent* Root, const System::AnsiString ReferenceRootName
, TStrings* Names);
extern void __fastcall ObjectBinaryToText(TStream* Input, TStream* Output);
extern void __fastcall ObjectTextToBinary(TStream* Input, TStream* Output);
extern void __fastcall ObjectResourceToText(TStream* Input, TStream* Output);
extern void __fastcall ObjectTextToResource(TStream* Input, TStream* Output);
extern void __fastcall finalization(void);
//-- template instantiations -------------------------------------------------
template class TComponentStyle ;
template class TComponentState ;
template class TFilerFlags ;
template class TShiftState ;
} /* namespace Classes */
#pragma warn .par
#pragma warn .hid
#pragma warn .inl
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Classes;
#endif
//-- end unit ----------------------------------------------------------------
#endif // Classes