tmsuxlsbaserecords.hpp

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

	#pragma option pop
	
};


class DELPHICLASS TDefRowHeightRecord;
class PASCALIMPLEMENTATION TDefRowHeightRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
public:
	Word __fastcall Height(void);
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TDefRowHeightRecord(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 ~TDefRowHeightRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPageHeaderFooterRecord;
class PASCALIMPLEMENTATION TPageHeaderFooterRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	WideString __fastcall GetText();
	void __fastcall SetText(const WideString Value);
	
public:
	__property WideString Text = {read=GetText, write=SetText};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TPageHeaderFooterRecord(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 ~TPageHeaderFooterRecord(void) { }
	#pragma option pop
	
};


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


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


class DELPHICLASS TPrintGridLinesRecord;
class PASCALIMPLEMENTATION TPrintGridLinesRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetValue(void);
	void __fastcall SetValue(const bool Value);
	
public:
	__property bool Value = {read=GetValue, write=SetValue, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TPrintGridLinesRecord(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 ~TPrintGridLinesRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMarginRecord;
class PASCALIMPLEMENTATION TMarginRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	double __fastcall GetValue(void);
	void __fastcall SetValue(const double Value);
	
public:
	__property double Value = {read=GetValue, write=SetValue};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TMarginRecord(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 ~TMarginRecord(void) { }
	#pragma option pop
	
};


#pragma pack(push,1)
struct TSetupRec
{
	
public:
	Word PaperSize;
	Word Scale;
	Word PageStart;
	Word FitWidth;
	Word FitHeight;
	Word GrBit;
	Word Resolution;
	Word VResolution;
	double HeaderMargin;
	double FooterMargin;
	Word Copies;
} ;
#pragma pack(pop)

typedef TSetupRec *PSetupRec;

class DELPHICLASS TSetupRecord;
class PASCALIMPLEMENTATION TSetupRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	TSetupRec __fastcall GetValue();
	void __fastcall SetValue(const TSetupRec &Value);
	Word __fastcall GetScale(void);
	void __fastcall SetScale(const Word Value);
	Word __fastcall GetFitHeight(void);
	Word __fastcall GetFitWidth(void);
	void __fastcall SetFitHeight(const Word Value);
	void __fastcall SetFitWidth(const Word Value);
	Extended __fastcall GetFooterMargin(void);
	Extended __fastcall GetHeaderMargin(void);
	void __fastcall SetFooterMargin(const Extended Value);
	void __fastcall SetHeaderMargin(const Extended Value);
	Word __fastcall GetPrintOptions(void);
	void __fastcall SetPrintOptions(const Word Value);
	int __fastcall GetPrintCopies(void);
	int __fastcall GetPrintPaperSize(void);
	int __fastcall GetPrintXResolution(void);
	int __fastcall GetPrintYResolution(void);
	void __fastcall SetPrintCopies(const int Value);
	void __fastcall SetPrintPaperSize(const int Value);
	void __fastcall SetPrintXResolution(const int Value);
	void __fastcall SetPrintYResolution(const int Value);
	
public:
	__property TSetupRec Value = {read=GetValue, write=SetValue};
	__property Word Scale = {read=GetScale, write=SetScale, nodefault};
	__property Word PrintOptions = {read=GetPrintOptions, write=SetPrintOptions, nodefault};
	__property Word FitWidth = {read=GetFitWidth, write=SetFitWidth, nodefault};
	__property Word FitHeight = {read=GetFitHeight, write=SetFitHeight, nodefault};
	__property int PrintPaperSize = {read=GetPrintPaperSize, write=SetPrintPaperSize, nodefault};
	__property int PrintCopies = {read=GetPrintCopies, write=SetPrintCopies, nodefault};
	__property int PrintXResolution = {read=GetPrintXResolution, write=SetPrintXResolution, nodefault};
	__property int PrintYResolution = {read=GetPrintYResolution, write=SetPrintYResolution, nodefault};
	__property Extended HeaderMargin = {read=GetHeaderMargin, write=SetHeaderMargin};
	__property Extended FooterMargin = {read=GetFooterMargin, write=SetFooterMargin};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TSetupRecord(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 ~TSetupRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlsRecord;
class PASCALIMPLEMENTATION TPlsRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	Tmsuflxmessages::TPrinterDriverSettings __fastcall GetPrinterDriverSettings();
	void __fastcall SetPrinterDriverSettings(const Tmsuflxmessages::TPrinterDriverSettings &Value);
	
public:
	__fastcall TPlsRecord(const Tmsuflxmessages::TPrinterDriverSettings &aPrinterData);
	__property Tmsuflxmessages::TPrinterDriverSettings PrinterData = {read=GetPrinterDriverSettings, write=SetPrinterDriverSettings};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TPlsRecord(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 ~TPlsRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPrintCenteredRecord;
class PASCALIMPLEMENTATION TPrintCenteredRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetCentered(void);
	void __fastcall SetCentered(const bool Value);
	
public:
	__property bool Centered = {read=GetCentered, write=SetCentered, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TPrintCenteredRecord(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 ~TPrintCenteredRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TWsBoolRecord;
class PASCALIMPLEMENTATION TWsBoolRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	Word __fastcall GetValue(void);
	void __fastcall SetValue(const Word Value);
	bool __fastcall GetFitToPage(void);
	void __fastcall SetFitToPage(const bool Value);
	bool __fastcall GetOutlineSummaryColsRightOfDetail(void);
	bool __fastcall GetOutlineSummaryRowsBelowDetail(void);
	bool __fastcall GetOutlineAutomaticStyles(void);
	void __fastcall SetOutlineRightOfDetail(const bool Value);
	void __fastcall SetOutlineSummaryRowsBelowDetail(const bool Value);
	void __fastcall SetOutlineAutomaticStyles(const bool Value);
	
public:
	__property Word Value = {read=GetValue, write=SetValue, nodefault};
	__property bool FitToPage = {read=GetFitToPage, write=SetFitToPage, nodefault};
	__property bool OutlineSummaryRowsBelowDetail = {read=GetOutlineSummaryRowsBelowDetail, write=SetOutlineSummaryRowsBelowDetail, nodefault};
	__property bool OutlineSummaryColsRightOfDetail = {read=GetOutlineSummaryColsRightOfDetail, write=SetOutlineRightOfDetail, nodefault};
	__property bool OutlineAutomaticStyles = {read=GetOutlineAutomaticStyles, write=SetOutlineAutomaticStyles, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TWsBoolRecord(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 ~TWsBoolRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS T1904Record;
class PASCALIMPLEMENTATION T1904Record : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetIs1904(void);
	void __fastcall SetIs1904(const bool Value);
	
public:
	__property bool Is1904 = {read=GetIs1904, write=SetIs1904, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual T1904Record(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 ~T1904Record(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRefModeRecord;
class PASCALIMPLEMENTATION TRefModeRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetIsR1C1(void);
	void __fastcall SetIsR1C1(const bool Value);
	
public:
	__property bool IsR1C1 = {read=GetIsR1C1, write=SetIsR1C1, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TRefModeRecord(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 ~TRefModeRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPrecisionRecord;
class PASCALIMPLEMENTATION TPrecisionRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetPrecisionAsDisplayed(void);
	void __fastcall SetPrecisionAsDisplayed(const bool Value);
	
public:
	__property bool PrecisionAsDisplayed = {read=GetPrecisionAsDisplayed, write=SetPrecisionAsDisplayed, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TPrecisionRecord(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 ~TPrecisionRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TBookBoolRecord;
class PASCALIMPLEMENTATION TBookBoolRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	bool __fastcall GetSaveExternalLinkValues(void);
	void __fastcall SetSaveExternalLinkValues(const bool Value);
	
public:
	__property bool SaveExternalLinkValues = {read=GetSaveExternalLinkValues, write=SetSaveExternalLinkValues, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TBookBoolRecord(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 ~TBookBoolRecord(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAutoFilterInfoRecord;
class PASCALIMPLEMENTATION TAutoFilterInfoRecord : public TBaseRecord 
{
	typedef TBaseRecord inherited;
	
private:
	int __fastcall Get_DropDownCount(void);
	void __fastcall Set_DropDownCount(const int value);
	
public:
	__property int DropDownCount = {read=Get_DropDownCount, write=Set_DropDownCount, nodefault};
public:
	#pragma option push -w-inl
	/* TBaseRecord.Create */ inline __fastcall virtual TAutoFilterInfoRecord(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 ~TAutoFilterInfoRecord(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall ReadMem(TBaseRecord* &aRecord, int &aPos, const int aSize, const void * pResult);
extern PACKAGE void __fastcall ReadStr(TBaseRecord* &aRecord, int &aPos, AnsiString &ShortData, WideString &WideData, Byte &OptionFlags, Byte &ActualOptionFlags, int &DestPos, const int StrLen);
extern PACKAGE TBaseRecord* __fastcall LoadRecords(const Tmsuole2impl::TOle2File* DataStream, Tmsxlsmessages::TRecordHeader &RecordHeader);

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

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