rm_wawwriters.hpp

这是一个功能强大

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

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

#ifndef Rm_wawwritersHPP
#define Rm_wawwritersHPP

#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 <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Axctrls.hpp>	// Pascal unit
#include <Activex.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_wawconsts.hpp>	// Pascal unit
#include <Rm_wawexcelfmt.hpp>	// Pascal unit
#include <Rm_wawexcel.hpp>	// Pascal unit
#include <Rm_wawformula.hpp>	// Pascal unit
#include <Rm_wawbiff8.hpp>	// Pascal unit

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

namespace Rm_wawwriters
{
//-- type declarations -------------------------------------------------------
struct TwawHtmlCell
{
	
public:
	Rm_wawexcel::TwawImage* Image;
	Rm_wawexcel::TwawXLSRange* Range;
	Word StyleId;
	Word Hide;
	int ImageNum;
	Word BordersStyleId;
} ;

typedef TwawHtmlCell THtmlCells[1];

typedef THtmlCells *PHtmlCells;

class DELPHICLASS TwawHTMLWriter;
class PASCALIMPLEMENTATION TwawHTMLWriter : public Rm_wawexcel::TwawCustomWriter 
{
	typedef Rm_wawexcel::TwawCustomWriter inherited;
	
private:
	Classes::TFileStream* FileStream;
	AnsiString FFileName;
	AnsiString FilesDir;
	AnsiString FName;
	AnsiString FileExt;
	AnsiString DirName;
	Rm_wawexcel::TwawXLSWorkbook* FWorkBook;
	THtmlCells *HtmlCells;
	int MinPos;
	int RowCount;
	int ColCount;
	Classes::TStrings* Styles;
	bool SpansPresent;
	AnsiString __fastcall GetBackgroundColor(Rm_wawexcel::TwawXLSRange* Range);
	AnsiString __fastcall GetBorders(Rm_wawexcel::TwawXLSRange* Range);
	void __fastcall CheckBounds(Rm_wawexcel::TwawImages* Images);
	void __fastcall AddImage(Rm_wawexcel::TwawXLSWorksheet* Sheet, Rm_wawexcel::TwawImage* Image, AnsiString FileName, int ImageNum);
	void __fastcall AddRange(Rm_wawexcel::TwawXLSRange* Range);
	void __fastcall SaveBmpToFile(Graphics::TPicture* Picture, AnsiString FileName);
	AnsiString __fastcall GenStyle(Rm_wawexcel::TwawXLSRange* Range);
	AnsiString __fastcall GenCellStyle(Rm_wawexcel::TwawXLSRange* Range);
	void __fastcall SaveHeadFiles(void);
	void __fastcall SaveMainFile(void);
	void __fastcall SaveHeadFile(void);
	void __fastcall WriteStyles(void);
	void __fastcall WriteRowTag(Rm_wawexcel::TwawXLSWorksheet* Sheet, int RowIndex, int Level);
	void __fastcall WriteCellTag(Rm_wawexcel::TwawXLSWorksheet* Sheet, int RowIndex, int ColumnIndex, int Level);
	AnsiString __fastcall GetSheetFileName(int SheetNumber);
	AnsiString __fastcall GetCellTagString(Rm_wawexcel::TwawXLSRange* Range);
	AnsiString __fastcall GetCellTagStringImg(Rm_wawexcel::TwawImage* Image);
	void __fastcall InitStrings(void);
	int __fastcall CalcTableWidth(Rm_wawexcel::TwawXLSWorksheet* Sheet);
	int __fastcall CalcTableHeight(Rm_wawexcel::TwawXLSWorksheet* Sheet);
	AnsiString __fastcall GetTableTag(Rm_wawexcel::TwawXLSWorksheet* Sheet);
	AnsiString __fastcall GetImgStyle(Rm_wawexcel::TwawImage* Image);
	
public:
	__fastcall TwawHTMLWriter(void);
	__fastcall virtual ~TwawHTMLWriter(void);
	void __fastcall SaveSheet(Rm_wawexcel::TwawXLSWorksheet* Sheet, AnsiString FileName);
	virtual void __fastcall Save(Rm_wawexcel::TwawXLSWorkbook* WorkBook, AnsiString FileName);
};


struct rXLSRangeRec
{
	
public:
	int iXF;
	int iSST;
	int iFont;
	int iFormat;
	char *Ptgs;
	int PtgsSize;
} ;

typedef rXLSRangeRec *pXLSRangeRec;

typedef rXLSRangeRec rXLSRangesRec[1];

typedef rXLSRangesRec *pXLSRangesRec;

struct rXLSSheetRec
{
	
public:
	int StreamBOFOffset;
	int StreamBOFOffsetPosition;
} ;

typedef rXLSSheetRec rXLSSheetsRecs[1];

typedef rXLSSheetsRecs *pXLSSheetsRecs;

struct rXLSImageRec
{
	
public:
	int BorderLineColorIndex;
	int ForegroundFillPatternColorIndex;
	int BackgroundFillPatternColorIndex;
} ;

typedef rXLSImageRec *pXLSImageRec;

typedef rXLSImageRec rXLSImagesRecs[1];

typedef rXLSImagesRecs *pXLSImagesRecs;

class DELPHICLASS TwawExcelWriter;
class PASCALIMPLEMENTATION TwawExcelWriter : public Rm_wawexcel::TwawCustomWriter 
{
	typedef Rm_wawexcel::TwawCustomWriter inherited;
	
private:
	int FBOFOffs;
	Rm_wawexcel::TwawXLSWorkbook* FWorkBook;
	Classes::TList* FUsedColors;
	rXLSRangesRec *FRangesRecs;
	Graphics::TColor FColorPalette[56];
	bool FPaletteModified;
	rXLSSheetsRecs *FSheetsRecs;
	rXLSImagesRecs *FImagesRecs;
	Rm_wawformula::TwawExcelFormulaCompiler* FCompiler;
	int __fastcall GetColorPaletteIndex(Graphics::TColor Color);
	void __fastcall BuildFontList(Classes::TList* l);
	void __fastcall BuildFormatList(Classes::TStringList* sl);
	void __fastcall BuildXFRecord(Rm_wawexcel::TwawXLSRange* Range, Rm_wawbiff8::rb8XF &XF, pXLSRangeRec prr);
	void __fastcall BuildXFList(Classes::TList* l);
	void __fastcall BuildFormulas(void);
	void __fastcall BuildImagesColorsIndexes(void);
	void __fastcall WriteRangeToStream(Classes::TStream* Stream, Rm_wawexcel::TwawXLSRange* Range, int CurrentRow, int &IndexInCellsOffsArray, Word * CellsOffs);
	void __fastcall WriteSheetToStream(Classes::TStream* Stream, Rm_wawexcel::TwawXLSWorksheet* Sheet);
	void __fastcall WriteSheetImagesToStream(Classes::TStream* Stream, Rm_wawexcel::TwawXLSWorksheet* Sheet);
	
public:
	__fastcall TwawExcelWriter(void);
	__fastcall virtual ~TwawExcelWriter(void);
	void __fastcall SaveAsBIFFToStream(Rm_wawexcel::TwawXLSWorkbook* WorkBook, Classes::TStream* Stream);
	virtual void __fastcall Save(Rm_wawexcel::TwawXLSWorkbook* WorkBook, AnsiString FileName);
};


typedef AnsiString RM_wawWriters__3[4];

typedef AnsiString RM_wawWriters__4[14];

typedef AnsiString RM_wawWriters__5[9];

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Graphics::TColor aDefaultColorPalette[56];
extern PACKAGE int aDefaultColors[16];
extern PACKAGE AnsiString aHtmlCellBorders[4];
extern PACKAGE AnsiString aBorderLineStyles[14];
extern PACKAGE AnsiString aBorderImageLineStyles[9];

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

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