tmsuxlssst.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) 'Tmsuxlssst.pas' rev: 10.00

#ifndef TmsuxlssstHPP
#define TmsuxlssstHPP

#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 <Tmsxlsmessages.hpp>	// Pascal unit
#include <Tmsuxlsbaserecords.hpp>	// Pascal unit
#include <Tmsuxlsotherrecords.hpp>	// Pascal unit
#include <Tmsuxlsstrings.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Tmsuflxmessages.hpp>	// Pascal unit
#include <Tmsuole2impl.hpp>	// Pascal unit

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

namespace Tmsuxlssst
{
//-- type declarations -------------------------------------------------------
#pragma pack(push,1)
struct TExtraData
{
	
public:
	Word Refs;
	unsigned AbsStreamPos;
	Word RecordStreamPos;
	unsigned PosInTable;
} ;
#pragma pack(pop)

typedef TExtraData *PExtraData;

typedef int TiSSTEntry;

typedef Byte *PiSSTEntry;

typedef DynamicArray<Byte >  tmsUXlsSST__1;

struct TMemSST
{
	
public:
	int UsedSize;
	DynamicArray<Byte >  Buffer;
} ;

class DELPHICLASS TSST;
class PASCALIMPLEMENTATION TSST : public Classes::TList 
{
	typedef Classes::TList inherited;
	
public:
	int operator[](int index) { return Items[index]; }
	
private:
	int __fastcall GetItems(int index);
	void __fastcall SetItems(int index, const int Value);
	
public:
	__property int Items[int index] = {read=GetItems, write=SetItems/*, default*/};
	HIDESBASE int __fastcall Add(int aRecord);
	HIDESBASE void __fastcall Insert(int Index, int aRecord);
	
private:
	TMemSST MemSST;
	void __fastcall QuickSort(int L, int R);
	__int64 __fastcall SSTRecordSize(void);
	__int64 __fastcall ExtSSTRecordSize(void);
	
public:
	__fastcall TSST(void);
	bool __fastcall Find(const Tmsxlsmessages::PArrayOfByte s, int &Index);
	void __fastcall Load(const Tmsuxlsotherrecords::TSSTRecord* aSSTRecord);
	void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* DataStream);
	void __fastcall WriteExtSST(const Tmsuole2impl::TOle2File* DataStream);
	int __fastcall AddString(const WideString s, const Tmsuflxmessages::TRTFRunList RTFRuns);
	HIDESBASE void __fastcall Sort(void);
	__int64 __fastcall TotalSize(void);
	void __fastcall FixRefs(void);
	Tmsxlsmessages::PArrayOfByte __fastcall GetEntry(const int aEntry);
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TSST(void) { }
	#pragma option pop
	
};


class DELPHICLASS TLabelSSTRecord;
class PASCALIMPLEMENTATION TLabelSSTRecord : public Tmsuxlsbaserecords::TCellRecord 
{
	typedef Tmsuxlsbaserecords::TCellRecord inherited;
	
private:
	int pSSTEntry;
	TSST* SST;
	WideString __fastcall GetAsString();
	void __fastcall SetAsString(const WideString Value);
	WideString __fastcall GetAsRTF();
	void __fastcall SetAsRTF(const WideString Value);
	Tmsuflxmessages::TRichString __fastcall GetAsRichString();
	void __fastcall SetAsRichString(const Tmsuflxmessages::TRichString &Value);
	
protected:
	virtual Variant __fastcall GetValue();
	virtual void __fastcall SetValue(const Variant &Value);
	virtual Tmsuxlsbaserecords::TBaseRecord* __fastcall DoCopyTo(void);
	
public:
	__fastcall virtual TLabelSSTRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize);
	__fastcall TLabelSSTRecord(const Word aRow, const Word aCol, const Word aXF, const TSST* aSST);
	void __fastcall AttachToSST(const TSST* aSST);
	virtual void __fastcall SaveToStream(const Tmsuole2impl::TOle2File* Workbook);
	__fastcall virtual ~TLabelSSTRecord(void);
	__property WideString AsString = {read=GetAsString, write=SetAsString};
	__property Tmsuflxmessages::TRichString AsRichString = {read=GetAsRichString, write=SetAsRichString};
	__property WideString AsRTF = {read=GetAsRTF, write=SetAsRTF};
};


class DELPHICLASS TLabelRecord;
class PASCALIMPLEMENTATION TLabelRecord : public Tmsuxlsbaserecords::TCellRecord 
{
	typedef Tmsuxlsbaserecords::TCellRecord inherited;
	
public:
	virtual Variant __fastcall GetValue();
public:
	#pragma option push -w-inl
	/* TCellRecord.CreateFromData */ inline __fastcall TLabelRecord(const Word aId, const Word aDataSize, const Word aRow, const Word aCol, const Word aXF) : Tmsuxlsbaserecords::TCellRecord(aId, aDataSize, aRow, aCol, aXF) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TBaseRowColRecord.Create */ inline __fastcall virtual TLabelRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : Tmsuxlsbaserecords::TCellRecord(aId, aData, aDataSize) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TLabelRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRStringRecord;
class PASCALIMPLEMENTATION TRStringRecord : public Tmsuxlsbaserecords::TCellRecord 
{
	typedef Tmsuxlsbaserecords::TCellRecord inherited;
	
private:
	Tmsuflxmessages::TRichString __fastcall GetAsRichString();
	
public:
	virtual Variant __fastcall GetValue();
	__property Tmsuflxmessages::TRichString AsRichString = {read=GetAsRichString};
public:
	#pragma option push -w-inl
	/* TCellRecord.CreateFromData */ inline __fastcall TRStringRecord(const Word aId, const Word aDataSize, const Word aRow, const Word aCol, const Word aXF) : Tmsuxlsbaserecords::TCellRecord(aId, aDataSize, aRow, aCol, aXF) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TBaseRowColRecord.Create */ inline __fastcall virtual TRStringRecord(const Word aId, const Tmsxlsmessages::PArrayOfByte aData, const int aDataSize) : Tmsuxlsbaserecords::TCellRecord(aId, aData, aDataSize) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TBaseRecord.Destroy */ inline __fastcall virtual ~TRStringRecord(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Tmsuxlssst */
using namespace Tmsuxlssst;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Tmsuxlssst