dbgridehimpexp.hpp

最新的 DBGRIDEH4.0

// CodeGear C++ Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Dbgridehimpexp.pas' rev: 11.00

#ifndef DbgridehimpexpHPP
#define DbgridehimpexpHPP

#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 <Windows.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Gridseh.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Ehlibvcl.hpp>	// Pascal unit
#include <Dbgrideh.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit

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

namespace Dbgridehimpexp
{
//-- type declarations -------------------------------------------------------
typedef DynamicArray<System::Currency >  TFooterValues;

class DELPHICLASS TDBGridEhExport;
class PASCALIMPLEMENTATION TDBGridEhExport : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Dbgrideh::TColCellParamsEh* FColCellParamsEh;
	Dbgrideh::TCustomDBGridEh* FDBGridEh;
	Dbgrideh::TColumnsEhList* FExpCols;
	Classes::TStream* FStream;
	AnsiString __fastcall GetFooterValue(int Row, int Col);
	void __fastcall CalcFooterValues(void);
	
protected:
	DynamicArray<System::Currency >  FooterValues;
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooter(Dbgrideh::TColumnsEhList* ColumnsList, int FooterNo);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
	__property Classes::TStream* Stream = {read=FStream, write=FStream};
	__property Dbgrideh::TColumnsEhList* ExpCols = {read=FExpCols, write=FExpCols};
	
public:
	__fastcall virtual TDBGridEhExport(void);
	__fastcall virtual ~TDBGridEhExport(void);
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, bool IsExportAll);
	virtual void __fastcall ExportToFile(AnsiString FileName, bool IsExportAll);
	__property Dbgrideh::TCustomDBGridEh* DBGridEh = {read=FDBGridEh, write=FDBGridEh};
};


typedef TMetaClass* TDBGridEhExportClass;

class DELPHICLASS TDBGridEhExportAsText;
class PASCALIMPLEMENTATION TDBGridEhExportAsText : public TDBGridEhExport 
{
	typedef TDBGridEhExport inherited;
	
private:
	bool FirstRec;
	bool FirstCell;
	
protected:
	virtual void __fastcall CheckFirstRec(void);
	virtual void __fastcall CheckFirstCell(void);
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteFooter(Dbgrideh::TColumnsEhList* ColumnsList, int FooterNo);
	virtual void __fastcall WriteRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
	
public:
	virtual void __fastcall ExportToStream(Classes::TStream* Stream, bool IsExportAll);
public:
	#pragma option push -w-inl
	/* TDBGridEhExport.Create */ inline __fastcall virtual TDBGridEhExportAsText(void) : TDBGridEhExport() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsText(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhExportAsCSV;
class PASCALIMPLEMENTATION TDBGridEhExportAsCSV : public TDBGridEhExportAsText 
{
	typedef TDBGridEhExportAsText inherited;
	
private:
	char FSeparator;
	
protected:
	virtual void __fastcall CheckFirstCell(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
	
public:
	__fastcall virtual TDBGridEhExportAsCSV(void);
	__property char Separator = {read=FSeparator, write=FSeparator, nodefault};
public:
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsCSV(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhExportAsHTML;
class PASCALIMPLEMENTATION TDBGridEhExportAsHTML : public TDBGridEhExport 
{
	typedef TDBGridEhExport inherited;
	
private:
	AnsiString __fastcall GetAlignment(Classes::TAlignment Alignment);
	AnsiString __fastcall GetColor(Graphics::TColor Color);
	void __fastcall PutText(Graphics::TFont* Font, AnsiString Text);
	void __fastcall Put(AnsiString Text);
	void __fastcall PutL(AnsiString Text);
	
protected:
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooter(Dbgrideh::TColumnsEhList* ColumnsList, int FooterNo);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
public:
	#pragma option push -w-inl
	/* TDBGridEhExport.Create */ inline __fastcall virtual TDBGridEhExportAsHTML(void) : TDBGridEhExport() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsHTML(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhExportAsRTF;
class PASCALIMPLEMENTATION TDBGridEhExportAsRTF : public TDBGridEhExport 
{
	typedef TDBGridEhExport inherited;
	
private:
	Ehlibvcl::TMemoryStreamEh* FCacheStream;
	Classes::TStrings* ColorTblList;
	Classes::TStrings* FontTblList;
	int __fastcall GetFontIndex(AnsiString FontName);
	int __fastcall GetColorIndex(Graphics::TColor Color);
	AnsiString __fastcall GetAlignment(Classes::TAlignment Alignment);
	Graphics::TColor __fastcall GetDataCellColor(Dbgrideh::TColumnsEhList* ColumnsList, int ColIndex);
	Graphics::TColor __fastcall GetFooterCellColor(Dbgrideh::TColumnsEhList* ColumnsList, int ColIndex, int FooterNo);
	void __fastcall PutText(Graphics::TFont* Font, AnsiString Text, Graphics::TColor Background);
	void __fastcall Put(AnsiString Text);
	void __fastcall PutL(AnsiString Text);
	
protected:
	void __fastcall WriteCellBorder(bool LeftBorder, bool TopBorder, bool BottomBorder, bool RightBorder);
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteRecord(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooter(Dbgrideh::TColumnsEhList* ColumnsList, int FooterNo);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
	
public:
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, bool IsExportAll);
public:
	#pragma option push -w-inl
	/* TDBGridEhExport.Create */ inline __fastcall virtual TDBGridEhExportAsRTF(void) : TDBGridEhExport() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhExport.Destroy */ inline __fastcall virtual ~TDBGridEhExportAsRTF(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhExportAsXLS;
class PASCALIMPLEMENTATION TDBGridEhExportAsXLS : public TDBGridEhExport 
{
	typedef TDBGridEhExport inherited;
	
private:
	Word FCol;
	Word FRow;
	void __fastcall WriteBlankCell(void);
	void __fastcall WriteIntegerCell(const int AValue);
	void __fastcall WriteFloatCell(const double AValue);
	void __fastcall WriteStringCell(const AnsiString AValue);
	void __fastcall IncColRow(void);
	
protected:
	virtual void __fastcall WritePrefix(void);
	virtual void __fastcall WriteSuffix(void);
	virtual void __fastcall WriteTitle(Dbgrideh::TColumnsEhList* ColumnsList);
	virtual void __fastcall WriteDataCell(Dbgrideh::TColumnEh* Column, Dbgrideh::TColCellParamsEh* FColCellParamsEh);
	virtual void __fastcall WriteFooterCell(int DataCol, int Row, Dbgrideh::TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor Background, Classes::TAlignment Alignment, AnsiString Text);
	
public:
	virtual void __fastcall ExportToStream(Classes::TStream* AStream, bool IsExportAll);
public: