rm_wawexcel.hpp

这是一个功能强大

	void __fastcall ResetMaxRangeLength(void);
	TwawXLSRange* __fastcall GetRangeSp(int xl, int yt, int xr, int yb);
	int __fastcall SeekTop(int Value);
	TwawXLSRange* __fastcall ScanGet(int Index, const Types::TRect &R, bool &RemoveFlag);
	
public:
	__property AnsiString Title = {read=FTitle, write=SetTitle};
	__property TwawXLSPageSetup* PageSetup = {read=FPageSetup};
	__property TwawXLSRange* Ranges[int xl][int yt][int xr][int yb] = {read=GetRangeSp/*, default*/};
	__property TwawXLSCol* Cols[int ColIndex] = {read=GetCol};
	__property TwawXLSRow* Rows[int RowIndex] = {read=GetRow};
	__property TwawXLSRange* RangeByIndex[int RangeIndex] = {read=GetXLSRange};
	__property int RangesCount = {read=GetRangesCount, nodefault};
	__property TwawXLSCol* ColByIndex[int ColIndex] = {read=GetColByIndex};
	__property int ColsCount = {read=GetColsCount, nodefault};
	__property TwawXLSRow* RowByIndex[int RowIndex] = {read=GetRowByIndex};
	__property int RowsCount = {read=GetRowsCount, nodefault};
	__property int IndexInWorkBook = {read=GetIndexInWorkBook, nodefault};
	__property TwawImages* Images = {read=FImages};
	__property int PageBreaks[int i] = {read=GetPageBreak};
	__property int PageBreaksCount = {read=GetPageBreaksCount, nodefault};
	__property TwawXLSWorkbook* Workbook = {read=FWorkbook};
	__property Types::TRect Dimensions = {read=FDimensions};
	int __fastcall GetDefaultColumnPixelWidth(void);
	int __fastcall GetDefaultRowPixelHeight(void);
	TwawXLSRow* __fastcall FindRow(int RowIndex);
	TwawXLSCol* __fastcall FindCol(int ColIndex);
	int __fastcall FindPageBreak(int RowNumber);
	TwawImage* __fastcall AddImage(int Left, int Top, int Right, int Bottom, Graphics::TPicture* Picture, bool OwnsImage);
	TwawImage* __fastcall AddImageWithOffsets(int Left, int LeftCO, int Top, int TopCO, int Right, int RightCO, int Bottom, int BottomCO, Graphics::TPicture* Picture, bool OwnsImage);
	TwawImage* __fastcall AddImageScaled(int Left, int LeftCO, int Top, int TopCO, int ScalePercentX, int ScalePercentY, Graphics::TPicture* Picture, bool OwnsImage);
	void __fastcall AddPageBreakAfterRow(int RowNumber);
	void __fastcall DeletePageBreakAfterRow(int RowNumber);
	__fastcall TwawXLSWorksheet(TwawXLSWorkbook* AWorkbook);
	__fastcall virtual ~TwawXLSWorksheet(void);
};


class PASCALIMPLEMENTATION TwawXLSRange : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TwawXLSWorksheet* FWorksheet;
	#pragma pack(push,1)
	Types::TRect FPlace;
	#pragma pack(pop)
	TwawXLSBorders* FBorders;
	Graphics::TFont* FFont;
	Rm_wawexcelfmt::TwawXLSHorizontalAlignmentType FHorizontalAlignment;
	Rm_wawexcelfmt::TwawXLSVerticalAlignmentType FVerticalAlignment;
	bool FWrapText;
	Byte FRotation;
	AnsiString FFormat;
	Variant FValue;
	Rm_wawexcelfmt::TwawXLSFillPattern FFillPattern;
	Graphics::TColor FForegroundFillPatternColor;
	Graphics::TColor FBackgroundFillPatternColor;
	AnsiString FFormula;
	void *FExportData;
	TwawXLSWorkbook* __fastcall GetWorkbook(void);
	Rm_wawexcelfmt::TwawCellDataType __fastcall GetCellDataType(void);
	void __fastcall SetValue(const Variant &Value);
	
public:
	__property TwawXLSWorksheet* Worksheet = {read=FWorksheet};
	__property TwawXLSWorkbook* Workbook = {read=GetWorkbook};
	__property Types::TRect Place = {read=FPlace};
	__property TwawXLSBorders* Borders = {read=FBorders};
	__property Graphics::TFont* Font = {read=FFont};
	__property Rm_wawexcelfmt::TwawXLSHorizontalAlignmentType HorizontalAlignment = {read=FHorizontalAlignment, write=FHorizontalAlignment, nodefault};
	__property Rm_wawexcelfmt::TwawXLSVerticalAlignmentType VerticalAlignment = {read=FVerticalAlignment, write=FVerticalAlignment, nodefault};
	__property Variant Value = {read=FValue, write=SetValue};
	__property bool WrapText = {read=FWrapText, write=FWrapText, nodefault};
	__property Byte Rotation = {read=FRotation, write=FRotation, nodefault};
	__property AnsiString Format = {read=FFormat, write=FFormat};
	__property Rm_wawexcelfmt::TwawXLSFillPattern FillPattern = {read=FFillPattern, write=FFillPattern, nodefault};
	__property Graphics::TColor ForegroundFillPatternColor = {read=FForegroundFillPatternColor, write=FForegroundFillPatternColor, nodefault};
	__property Graphics::TColor BackgroundFillPatternColor = {read=FBackgroundFillPatternColor, write=FBackgroundFillPatternColor, nodefault};
	__property void * ExportData = {read=FExportData, write=FExportData};
	__property Rm_wawexcelfmt::TwawCellDataType CellDataType = {read=GetCellDataType, nodefault};
	__property AnsiString Formula = {read=FFormula, write=FFormula};
	__fastcall TwawXLSRange(TwawXLSWorksheet* AWorksheet);
	__fastcall virtual ~TwawXLSRange(void);
};


class PASCALIMPLEMENTATION TwawXLSRow : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FInd;
	int FHeight;
	int __fastcall GetPixelHeight(void);
	void __fastcall SetPixelHeight(int value);
	double __fastcall GetInchHeight(void);
	void __fastcall SetInchHeight(double value);
	double __fastcall GetCentimeterHeight(void);
	void __fastcall SetCentimeterHeight(double value);
	double __fastcall GetExcelHeight(void);
	void __fastcall SetExcelHeight(double value);
	
public:
	__property int Ind = {read=FInd, nodefault};
	__property int Height = {read=FHeight, write=FHeight, nodefault};
	__property int PixelHeight = {read=GetPixelHeight, write=SetPixelHeight, nodefault};
	__property double InchHeight = {read=GetInchHeight, write=SetInchHeight};
	__property double CentimeterHeight = {read=GetCentimeterHeight, write=SetCentimeterHeight};
	__property double ExcelHeight = {read=GetExcelHeight, write=SetExcelHeight};
	__fastcall TwawXLSRow(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwawXLSRow(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TwawXLSCol : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FInd;
	int FWidth;
	void __fastcall SetWidth(int Value);
	int __fastcall GetPixelWidth(void);
	void __fastcall SetPixelWidth(int value);
	double __fastcall GetInchWidth(void);
	void __fastcall SetInchWidth(double value);
	double __fastcall GetCentimeterWidth(void);
	void __fastcall SetCentimeterWidth(double value);
	double __fastcall GetExcelWidth(void);
	void __fastcall SetExcelWidth(double value);
	
public:
	__property int Ind = {read=FInd, write=FInd, nodefault};
	__property int Width = {read=FWidth, write=SetWidth, nodefault};
	__property int PixelWidth = {read=GetPixelWidth, write=SetPixelWidth, nodefault};
	__property double InchWidth = {read=GetInchWidth, write=SetInchWidth};
	__property double CentimeterWidht = {read=GetCentimeterWidth, write=SetCentimeterWidth};
	__property double ExcelWidth = {read=GetExcelWidth, write=SetExcelWidth};
	__fastcall TwawXLSCol(void);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwawXLSCol(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TwawImage : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FLeft;
	int FLeftCO;
	int FTop;
	int FTopCO;
	int FRight;
	int FRightCO;
	int FBottom;
	int FBottomCO;
	Graphics::TPicture* FPicture;
	bool FOwnsImage;
	Graphics::TColor FBorderLineColor;
	Rm_wawexcelfmt::TwawXLSImageBorderLineStyle FBorderLineStyle;
	Rm_wawexcelfmt::TwawXLSImageBorderLineWeight FBorderLineWeight;
	int FScalePercentX;
	int FScalePercentY;
	
public:
	__property int Left = {read=FLeft, write=FLeft, nodefault};
	__property int LeftCO = {read=FLeftCO, write=FLeftCO, nodefault};
	__property int Top = {read=FTop, write=FTop, nodefault};
	__property int TopCO = {read=FTopCO, write=FTopCO, nodefault};
	__property int Right = {read=FRight, write=FRight, nodefault};
	__property int RightCO = {read=FRightCO, write=FRightCO, nodefault};
	__property int Bottom = {read=FBottom, write=FBottom, nodefault};
	__property int BottomCO = {read=FBottomCO, write=FBottomCO, nodefault};
	__property Graphics::TPicture* Picture = {read=FPicture};
	__property Graphics::TColor BorderLineColor = {read=FBorderLineColor, write=FBorderLineColor, nodefault};
	__property Rm_wawexcelfmt::TwawXLSImageBorderLineStyle BorderLineStyle = {read=FBorderLineStyle, write=FBorderLineStyle, nodefault};
	__property Rm_wawexcelfmt::TwawXLSImageBorderLineWeight BorderLineWeight = {read=FBorderLineWeight, write=FBorderLineWeight, nodefault};
	__property int ScalePercentX = {read=FScalePercentX, write=FScalePercentX, nodefault};
	__property int ScalePercentY = {read=FScalePercentY, write=FScalePercentY, nodefault};
	__fastcall TwawImage(int _Left, int _Top, int _Right, int _Bottom, Graphics::TPicture* _Picture, bool _OwnsImage);
	__fastcall TwawImage(int _Left, int _LeftCO, int _Top, int _TopCO, int _ScalePercentX, int _ScalePercentY, Graphics::TPicture* _Picture, bool _OwnsImage);
	__fastcall TwawImage(int _Left, int _LeftCO, int _Top, int _TopCO, int _Right, int _RightCO, int _Bottom, int _BottomCO, Graphics::TPicture* _Picture, bool _OwnsImage);
	__fastcall virtual ~TwawImage(void);
};


class DELPHICLASS TwawCustomWriter;
class PASCALIMPLEMENTATION TwawCustomWriter : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	virtual void __fastcall Save(TwawXLSWorkbook* WorkBook, AnsiString FileName);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TwawCustomWriter(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TwawCustomWriter(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
#define sDefaultFontName "Arial"
#define sXLSWorksheetTitlePrefix "Sheet"
static const Word XLSDefaultRowHeight = 0x11d;
static const Shortint XLSDefaultColumnWidthInChars = 0x8;
static const Shortint MaxDefaultColors = 0x10;
static const Word MaxBiffRecordSize = 0x2024;
static const Word mergeBlockItemsCount = 0x400;
#define sErrorInvalidPictureFormat "Invalid picture format"
extern PACKAGE bool __fastcall PointInRect(int X, int Y, Types::TRect &R);
extern PACKAGE bool __fastcall RectOverRect(Types::TRect &r1, Types::TRect &r2);

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

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