tmsuescherrecords.hpp

TMS Component Pack V5.0包含了超过 280 个为 Delphi 以及 C++Builder 设计的 TMS 生产控件

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Tmsuescherrecords.pas' rev: 10.00

#ifndef TmsuescherrecordsHPP
#define TmsuescherrecordsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Tmsxlsmessages.hpp>	// Pascal unit
#include <Tmsuflxmessages.hpp>	// Pascal unit
#include <Tmsuxlsbaserecords.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Tmsuxlsbaseclientdata.hpp>	// Pascal unit
#include <Tmsubreaklist.hpp>	// Pascal unit
#include <Tmsuxlsbaselist.hpp>	// Pascal unit
#include <Tmsuole2impl.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Tmsuescherrecords
{
//-- type declarations -------------------------------------------------------
#pragma pack(push,1)
struct TEscherRecordHeader
{
	
public:
	Word Pre;
	Word Id;
	int Size;
} ;
#pragma pack(pop)

class DELPHICLASS TEscherRecordCache;
class DELPHICLASS TEscherRecord;
class PASCALIMPLEMENTATION TEscherRecordCache : public Tmsuxlsbaselist::TBaseList 
{
	typedef Tmsuxlsbaselist::TBaseList inherited;
	
public:
	TEscherRecord* operator[](int index) { return Items[index]; }
	
private:
	TEscherRecord* __fastcall GetItems(int index);
	void __fastcall SetItems(int index, const TEscherRecord* Value);
	
public:
	__property TEscherRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherRecord* aRecord);
	__fastcall TEscherRecordCache(void);
	void __fastcall ArrangeInsertRowsAndCols(const int aRowPos, const int aRowCount, const int aColPos, const int aColCount, const Tmsxlsmessages::TSheetInfo &SheetInfo, const bool Forced, const System::TObject* dSheet);
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherRecordCache(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherObjCache;
class DELPHICLASS TEscherClientDataRecord;
class PASCALIMPLEMENTATION TEscherObjCache : public TEscherRecordCache 
{
	typedef TEscherRecordCache inherited;
	
public:
	TEscherClientDataRecord* operator[](int index) { return Items[index]; }
	
private:
	HIDESBASE TEscherClientDataRecord* __fastcall GetItems(int index);
	HIDESBASE void __fastcall SetItems(int index, const TEscherClientDataRecord* Value);
	
public:
	__property TEscherClientDataRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherClientDataRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherClientDataRecord* aRecord);
	void __fastcall ArrangeCopySheet(const Tmsxlsmessages::TSheetInfo &SheetInfo);
public:
	#pragma option push -w-inl
	/* TEscherRecordCache.Create */ inline __fastcall TEscherObjCache(void) : TEscherRecordCache() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherObjCache(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherAnchorCache;
class DELPHICLASS TEscherClientAnchorRecord;
class PASCALIMPLEMENTATION TEscherAnchorCache : public TEscherRecordCache 
{
	typedef TEscherRecordCache inherited;
	
public:
	TEscherClientAnchorRecord* operator[](int index) { return Items[index]; }
	
private:
	HIDESBASE TEscherClientAnchorRecord* __fastcall GetItems(int index);
	HIDESBASE void __fastcall SetItems(int index, const TEscherClientAnchorRecord* Value);
	
public:
	__property TEscherClientAnchorRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherClientAnchorRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherClientAnchorRecord* aRecord);
public:
	#pragma option push -w-inl
	/* TEscherRecordCache.Create */ inline __fastcall TEscherAnchorCache(void) : TEscherRecordCache() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherAnchorCache(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherShapeCache;
class DELPHICLASS TEscherSPRecord;
class PASCALIMPLEMENTATION TEscherShapeCache : public TEscherRecordCache 
{
	typedef TEscherRecordCache inherited;
	
public:
	TEscherSPRecord* operator[](int index) { return Items[index]; }
	
private:
	HIDESBASE TEscherSPRecord* __fastcall GetItems(int index);
	HIDESBASE void __fastcall SetItems(int index, const TEscherSPRecord* Value);
	
public:
	__property TEscherSPRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherSPRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherSPRecord* aRecord);
	
private:
	bool Sorted;
	
public:
	bool __fastcall Find(const unsigned aItem, int &Index);
	HIDESBASE void __fastcall Sort(void);
public:
	#pragma option push -w-inl
	/* TEscherRecordCache.Create */ inline __fastcall TEscherShapeCache(void) : TEscherRecordCache() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherShapeCache(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherOPTCache;
class DELPHICLASS TEscherOPTRecord;
class PASCALIMPLEMENTATION TEscherOPTCache : public TEscherRecordCache 
{
	typedef TEscherRecordCache inherited;
	
public:
	TEscherOPTRecord* operator[](int index) { return Items[index]; }
	
private:
	HIDESBASE TEscherOPTRecord* __fastcall GetItems(int index);
	HIDESBASE void __fastcall SetItems(int index, const TEscherOPTRecord* Value);
	
public:
	__property TEscherOPTRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherOPTRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherOPTRecord* aRecord);
	
private:
	bool Sorted;
	
public:
	bool __fastcall Find(const int aItem, int &Index);
	HIDESBASE void __fastcall Sort(void);
public:
	#pragma option push -w-inl
	/* TEscherRecordCache.Create */ inline __fastcall TEscherOPTCache(void) : TEscherRecordCache() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherOPTCache(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherDgRecord;
class DELPHICLASS TEscherDataRecord;
class DELPHICLASS TEscherContainerRecord;
struct TEscherDwgCache;
typedef TEscherDwgCache *PEscherDwgCache;

struct TEscherDwgGroupCache;
typedef TEscherDwgGroupCache *PEscherDwgGroupCache;

typedef TMetaClass* ClassOfTEscherRecord;

class DELPHICLASS TEscherSpgrContainerRecord;
class PASCALIMPLEMENTATION TEscherRecord : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TEscherContainerRecord* FParent;
	void __fastcall IncNextPos(int &NextPos, const int Size, int &RealSize, const Tmsubreaklist::TBreakList* BreakList);
	void __fastcall CheckSplit(const Tmsuole2impl::TOle2File* DataStream, const Tmsubreaklist::TBreakList* BreakList);
	void __fastcall WriteNewRecord(const Tmsuole2impl::TOle2File* DataStream, const Tmsubreaklist::TBreakList* BreakList);
	
protected:
	TEscherDwgCache *DwgCache;
	TEscherDwgGroupCache *DwgGroupCache;
	
public:
	Word Pre;
	Word Id;
	int TotalDataSize;
	int LoadedDataSize;
	TEscherRecord* CopiedTo;
	
protected:
	virtual TEscherRecord* __fastcall DoCopyTo(const PEscherDwgCache NewDwgCache, const int RowOfs, const int ColOfs, const System::TObject* dSheet);
	Word __fastcall Instance(void);
	Word __fastcall Version(void);
	
public:
	__fastcall virtual TEscherRecord(const TEscherRecordHeader &aEscherHeader, const PEscherDwgGroupCache aDwgGroupCache, const PEscherDwgCache aDwgCache, const TEscherContainerRecord* aParent);
	virtual void __fastcall AfterCreate(void);
	virtual void __fastcall Load(Tmsuxlsbaserecords::TBaseRecord* &aRecord, int &aPos) = 0 ;
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* DataStream, const Tmsubreaklist::TBreakList* BreakList);
	TEscherRecord* __fastcall CopyTo(const PEscherDwgCache NewDwgCache, const int RowOfs, const int ColOfs, const System::TObject* dSheet);
	virtual __int64 __fastcall TotalSizeNoSplit(void);
	virtual bool __fastcall Loaded(void);
	bool __fastcall IsContainer(const Word aPre);
	virtual bool __fastcall WaitingClientData(/* out */ TMetaClass* &ClientType);
	virtual void __fastcall AssignClientData(const Tmsuxlsbaseclientdata::TBaseClientData* aClientData);
	virtual void __fastcall SplitRecords(int &NextPos, int &RealSize, int &NextDwg, const Tmsubreaklist::TBreakList* BreakList);
	virtual void __fastcall ArrangeInsertRowsAndCols(const int aRowPos, const int aRowCount, const int aColPos, const int aColCount, const Tmsxlsmessages::TSheetInfo &SheetInfo, const bool Forced, const System::TObject* dSheet);
	virtual void __fastcall ClearCopiedTo(void);
	TEscherRecord* __fastcall FindRoot(void);
	virtual TEscherRecord* __fastcall FindRec(const TMetaClass* RecClass);
	TEscherSpgrContainerRecord* __fastcall Patriarch(void);
	TEscherRecord* __fastcall CopyDwg(const int RowOfs, const int ColOfs, const System::TObject* dSheet);
	virtual int __fastcall CompareRec(const TEscherRecord* aRecord);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TEscherRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEscherRecordList;
class PASCALIMPLEMENTATION TEscherRecordList : public Tmsuxlsbaselist::TBaseList 
{
	typedef Tmsuxlsbaselist::TBaseList inherited;
	
public:
	TEscherRecord* operator[](int index) { return Items[index]; }
	
private:
	TEscherRecord* __fastcall GetItems(int index);
	void __fastcall SetItems(int index, const TEscherRecord* Value);
	
public:
	__property TEscherRecord* Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(TEscherRecord* aRecord);
	HIDESBASE void __fastcall Insert(int Index, TEscherRecord* aRecord);
	
private:
	bool Sorted;
	
public:
	bool __fastcall Find(const TEscherRecord* aItem, int &Index);
	HIDESBASE void __fastcall Sort(void);
	void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* DataStream, const Tmsubreaklist::TBreakList* BreakList);
	void __fastcall CopyFrom(const TEscherRecordList* aEscherRecordList, const PEscherDwgCache NewDwgCache, const int RowOfs, const int ColOfs, const System::TObject* dSheet);
	__int64 __fastcall TotalSizeNoSplit(void);
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TEscherRecordList(void)/* overload */ : Tmsuxlsbaselist::TBaseList() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TEscherRecordList(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TEscherContainerRecord : public TEscherRecord 
{
	typedef TEscherRecord inherited;
	
protected:
	TEscherRecordList* FContainedRecords;
	virtual TEscherRecord* __fastcall DoCopyTo(const PEscherDwgCache NewDwgCache, const int RowOfs, const int ColOfs, const System::TObject* dSheet);
	
public:
	__property TEscherRecordList* ContainedRecords = {read=FContainedRecords};
	__fastcall virtual TEscherContainerRecord(const TEscherRecordHeader &aEscherHeader, const PEscherDwgGroupCache aDwgGroupCache, const PEscherDwgCache aDwgCache, const TEscherContainerRecord* aParent);
	__fastcall virtual ~TEscherContainerRecord(void);
	virtual void __fastcall Load(Tmsuxlsbaserecords::TBaseRecord* &aRecord, int &aPos);
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* DataStream, const Tmsubreaklist::TBreakList* BreakList);
	virtual __int64 __fastcall TotalSizeNoSplit(void);
	virtual bool __fastcall WaitingClientData(/* out */ TMetaClass* &ClientType);
	virtual void __fastcall AssignClientData(const Tmsuxlsbaseclientdata::TBaseClientData* aClientData);
	TEscherRecord* __fastcall LastRecord(void);
	virtual void __fastcall SplitRecords(int &NextPos, int &RealSize, int &NextDwg, const Tmsubreaklist::TBreakList* BreakList);
	virtual void __fastcall ArrangeInsertRowsAndCols(const int aRowPos, const int aRowCount, const int aColPos, const int aColCount, const Tmsxlsmessages::TSheetInfo &SheetInfo, const bool Forced, const System::TObject* dSheet);
	virtual void __fastcall ClearCopiedTo(void);
	virtual TEscherRecord* __fastcall FindRec(const TMetaClass* RecClass);
};



class PASCALIMPLEMENTATION TEscherDataRecord : public TEscherRecord 
{
	typedef TEscherRecord inherited;
	
protected: