tmsuxlsbaserecords.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) 'Tmsuxlsbaserecords.pas' rev: 10.00

#ifndef TmsuxlsbaserecordsHPP
#define TmsuxlsbaserecordsHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Tmsxlsmessages.hpp>	// Pascal unit
#include <Tmsuflxmessages.hpp>	// Pascal unit
#include <Tmsuole2impl.hpp>	// Pascal unit

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

namespace Tmsuxlsbaserecords
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TBaseRecord;
class DELPHICLASS TContinueRecord;
class PASCALIMPLEMENTATION TBaseRecord : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Word Id;
	Byte *Data;
	Word DataSize;
	TContinueRecord* Continue;
	void __fastcall SaveDataToStream(const Tmsuole2impl::TOle2File* Workbook, const Tmsxlsmessages::PArrayOfByte aData);
	
protected:
	virtual TBaseRecord* __fastcall DoCopyTo(void);
	
public:
	__fastcall virtual TBaseRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize);
	__fastcall virtual ~TBaseRecord(void);
	void __fastcall AddContinue(const TContinueRecord* aContinue);
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* Workbook);
	TBaseRecord* __fastcall CopyTo(void);
	virtual int __fastcall TotalSize(void);
	virtual int __fastcall TotalSizeNoHeaders(void);
};


class PASCALIMPLEMENTATION TContinueRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TContinueRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TContinueRecord(void) { }
	#pragma option pop
	
};



typedef TMetaClass* ClassOfTBaseRecord;

class DELPHICLASS TIgnoreRecord;
class PASCALIMPLEMENTATION TIgnoreRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	virtual int __fastcall TotalSize(void);
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* Workbook);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TIgnoreRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TIgnoreRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSubListRecord;
class PASCALIMPLEMENTATION TSubListRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	Contnrs::TObjectList* FSubList;
	
protected:
	virtual TBaseRecord* __fastcall DoCopyTo(void);
	
public:
	__fastcall TSubListRecord(const Contnrs::TObjectList* aSubList);
	virtual int __fastcall TotalSize(void);
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* Workbook);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TSubListRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TSubListRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TBaseRowColRecord;
class PASCALIMPLEMENTATION TBaseRowColRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	Word __fastcall GetColumn(void);
	Word __fastcall GetRow(void);
	void __fastcall SetColumn(Word Value);
	void __fastcall SetRow(Word Value);
	
public:
	__property Word Row = {read=GetRow, write=SetRow, nodefault};
	__property Word Column = {read=GetColumn, write=SetColumn, nodefault};
	virtual void __fastcall ArrangeInsertRowsAndCols(const int aRowPos, const int aRowCount, const int aColPos, const int aColCount, const Tmsxlsmessages::TSheetInfo &SheetInfo);
	virtual void __fastcall ArrangeCopyRowsAndCols(const int RowOffset, const int ColOffset);
	__fastcall virtual TBaseRowColRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize);
	virtual __int64 __fastcall FixTotalSize(const bool NeedsRecalc);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TBaseRowColRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCellRecord;
class PASCALIMPLEMENTATION TCellRecord : public TBaseRowColRecord 
{
	typedef TBaseRowColRecord inherited;
	
private:
	Word __fastcall GetXF(void);
	void __fastcall SetXF(const Word Value);
	
protected:
	virtual Variant __fastcall GetValue();
	virtual void __fastcall SetValue(const Variant &Value);
	
public:
	__property Word XF = {read=GetXF, write=SetXF, nodefault};
	__property Variant Value = {read=GetValue, write=SetValue};
	__fastcall TCellRecord(const Word aId, const Word aDataSize, const Word aRow, const Word aCol, const Word aXF);
	virtual bool __fastcall CanJoinNext(const TCellRecord* NextRecord, const int MaxCol);
	virtual void __fastcall SaveFirstMul(const Tmsuole2impl::TOle2File* Workbook, const Word JoinedRecordSize);
	virtual void __fastcall SaveMidMul(const Tmsuole2impl::TOle2File* Workbook);
	virtual void __fastcall SaveLastMul(const Tmsuole2impl::TOle2File* Workbook);
	virtual int __fastcall TotalSizeFirst(void);
	virtual int __fastcall TotalSizeMid(void);
	virtual int __fastcall TotalSizeLast(void);
public:
	#pragma option push -w-inl
	/* TBaseRowColRecord.Create */ inline __fastcall virtual TCellRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRowColRecord(aId, aData, aDataSize) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TCellRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRowRecord;
class PASCALIMPLEMENTATION TRowRecord : public TBaseRowColRecord 
{
	typedef TBaseRowColRecord inherited;
	
private:
	Word __fastcall GetHeight(void);
	Word __fastcall GetMaxCol(void);
	Word __fastcall GetMinCol(void);
	Word __fastcall GetXF(void);
	void __fastcall SetHeight(const Word Value);
	void __fastcall SetMaxCol(const Word Value);
	void __fastcall SetMinCol(const Word Value);
	void __fastcall SetXF(const Word Value);
	Word __fastcall GetOptions(void);
	void __fastcall SetOptions(const Word Value);
	
public:
	__fastcall virtual TRowRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize);
	__fastcall TRowRecord(const Word Row);
	HIDESBASE Word __fastcall GetRow(void);
	__property Word MaxCol = {read=GetMaxCol, write=SetMaxCol, nodefault};
	__property Word MinCol = {read=GetMinCol, write=SetMinCol, nodefault};
	__property Word Height = {read=GetHeight, write=SetHeight, nodefault};
	__property Word XF = {read=GetXF, write=SetXF, nodefault};
	bool __fastcall IsFormatted(void);
	bool __fastcall IsModified(void);
	__property Word Options = {read=GetOptions, write=SetOptions, nodefault};
	void __fastcall ManualHeight(void);
	void __fastcall AutoHeight(void);
	void __fastcall Hide(const bool value);
	bool __fastcall IsAutoHeight(void);
	bool __fastcall IsHidden(void);
	void __fastcall SaveRangeToStream(const Tmsuole2impl::TOle2File* DataStream, const int aMinCol, const int aMaxCol);
	void __fastcall SetRowOutlineLevel(const int Level);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TRowRecord(void) { }
	#pragma option pop
	
};


#pragma pack(push,1)
struct TDimensionsRec
{
	
public:
	unsigned FirstRow;
	unsigned LastRow;
	Word FirstCol;
	Word LastCol;
	Word Extra;
} ;
#pragma pack(pop)

typedef TDimensionsRec *PDimensionsRec;

class DELPHICLASS TDimensionsRecord;
class PASCALIMPLEMENTATION TDimensionsRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	PDimensionsRec __fastcall Dim(void);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TDimensionsRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TDimensionsRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringRecord;
class PASCALIMPLEMENTATION TStringRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* Workbook);
	virtual int __fastcall TotalSize(void);
	WideString __fastcall Value();
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TStringRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TStringRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TWindow1Record;
class PASCALIMPLEMENTATION TWindow1Record : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	int __fastcall GetActiveSheet(void);
	void __fastcall SetActiveSheet(const int Value);
	int __fastcall GetFirstSheetVisible(void);
	void __fastcall SetFirstSheetVisible(const int Value);
	
public:
	__property int ActiveSheet = {read=GetActiveSheet, write=SetActiveSheet, nodefault};
	__property int FirstSheetVisible = {read=GetFirstSheetVisible, write=SetFirstSheetVisible, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TWindow1Record(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TWindow1Record(void) { }
	#pragma option pop
	
};


class DELPHICLASS TWindow2Record;
class PASCALIMPLEMENTATION TWindow2Record : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetSelected(void);
	void __fastcall SetSelected(const bool Value);
	bool __fastcall GetShowGridLines(void);
	void __fastcall SetShowGridLines(const bool Value);
	bool __fastcall GetShowGridHeaders(void);
	void __fastcall SetShowGridHeaders(const bool Value);
	void __fastcall SetSheetZoom(const int Value);
	int __fastcall GetSheetZoom(void);
	bool __fastcall GetIsFrozen(void);
	bool __fastcall GetIsFrozenButNoSplit(void);
	void __fastcall SetIsFrozen(const bool value);
	void __fastcall SetIsFrozenButNoSplit(const bool value);
	
protected:
	virtual TBaseRecord* __fastcall DoCopyTo(void);
	
public:
	__property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
	__property bool ShowGridLines = {read=GetShowGridLines, write=SetShowGridLines, nodefault};
	__property bool ShowGridHeaders = {read=GetShowGridHeaders, write=SetShowGridHeaders, nodefault};
	__property int SheetZoom = {read=GetSheetZoom, write=SetSheetZoom, nodefault};
	__property bool IsFrozen = {read=GetIsFrozen, write=SetIsFrozen, nodefault};
	__property bool IsFrozenButNoSplit = {read=GetIsFrozenButNoSplit, write=SetIsFrozenButNoSplit, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TWindow2Record(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TWindow2Record(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSCLRecord;
class PASCALIMPLEMENTATION TSCLRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	int __fastcall GetZoom(void);
	void __fastcall SetZoom(const int Value);
	
public:
	__fastcall TSCLRecord(const int aZoom);
	__property int Zoom = {read=GetZoom, write=SetZoom, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TSCLRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TSCLRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDefColWidthRecord;
class PASCALIMPLEMENTATION TDefColWidthRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	Word __fastcall Width(void);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TDefColWidthRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TDefColWidthRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStandardWidthRecord;
class PASCALIMPLEMENTATION TStandardWidthRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	Word __fastcall Width(void);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TStandardWidthRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : TBaseRecord(aId, aData, aDataSize) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TStandardWidthRecord(void) { }