rm_e_main.hpp

这是一个功能强大

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

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

#ifndef Rm_e_mainHPP
#define Rm_e_mainHPP

#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 <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Rm_class.hpp>	// Pascal unit
#include <Jpeg.hpp>	// Pascal unit

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

namespace Rm_e_main
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TRMEFImageFormat { ifGIF, ifJPG, ifBMP };
#pragma option pop

struct TRMEFTextRec;
typedef TRMEFTextRec *PRMEFTextRec;

#pragma pack(push,1)
struct TRMEFTextRec
{
	
public:
	int Left;
	int Top;
	AnsiString Text;
	int TextWidth;
	int TextHeight;
} ;
#pragma pack(pop)

class DELPHICLASS TRMIEMCellStyle;
class PASCALIMPLEMENTATION TRMIEMCellStyle : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Graphics::TFont* FFont;
	Rm_class::TRMHAlign FHAlign;
	Rm_class::TRMVAlign FVAlign;
	Graphics::TColor FFillColor;
	Rm_class::TRMFrameLine* FLeftFrame;
	Rm_class::TRMFrameLine* FTopFrame;
	Rm_class::TRMFrameLine* FRightFrame;
	Rm_class::TRMFrameLine* FBottomFrame;
	#pragma pack(push,1)
	Rm_class::TRMFormat FDisplayFormat;
	#pragma pack(pop)
	
public:
	__fastcall TRMIEMCellStyle(void);
	__fastcall virtual ~TRMIEMCellStyle(void);
	bool __fastcall IsEqual(TRMIEMCellStyle* aSource);
	__property Graphics::TFont* Font = {read=FFont, write=FFont};
	__property Rm_class::TRMHAlign HAlign = {read=FHAlign, write=FHAlign, nodefault};
	__property Rm_class::TRMVAlign VAlign = {read=FVAlign, write=FVAlign, nodefault};
	__property Graphics::TColor FillColor = {read=FFillColor, write=FFillColor, nodefault};
	__property Rm_class::TRMFrameLine* LeftFrame = {read=FLeftFrame, write=FLeftFrame};
	__property Rm_class::TRMFrameLine* TopFrame = {read=FTopFrame, write=FTopFrame};
	__property Rm_class::TRMFrameLine* RightFrame = {read=FRightFrame, write=FRightFrame};
	__property Rm_class::TRMFrameLine* BottomFrame = {read=FBottomFrame, write=FBottomFrame};
	__property Rm_class::TRMFormat DisplayFormat = {read=FDisplayFormat, write=FDisplayFormat};
};


class DELPHICLASS TRMIEMData;
class PASCALIMPLEMENTATION TRMIEMData : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TList* FTextList;
	int FStartCol;
	int FStartRow;
	int FEndCol;
	int FEndRow;
	Rm_jclwidestrings::TWStringList* FMemo;
	int FStyleIndex;
	int FCounter;
	bool FExportAsNum;
	Classes::TList* __fastcall GetTextList(void);
	void __fastcall ClearTextList(void);
	int __fastcall GetTextListCount(void);
	Rm_jclwidestrings::TWStringList* __fastcall GetMemo(void);
	Graphics::TGraphic* __fastcall GetGraphic(void);
	
protected:
	Graphics::TGraphic* FGraphic;
	
public:
	int Left;
	int Top;
	int Width;
	int Height;
	Rm_class::TRMReportView* Obj;
	Rm_common::TRMExportMode ObjType;
	int BmpWidth;
	int BmpHeight;
	int TextWidth;
	int ViewIndex;
	__fastcall TRMIEMData(void);
	__fastcall virtual ~TRMIEMData(void);
	__property Classes::TList* TextList = {read=GetTextList};
	__property int TextListCount = {read=GetTextListCount, nodefault};
	__property int StartCol = {read=FStartCol, write=FStartCol, nodefault};
	__property int StartRow = {read=FStartRow, write=FStartRow, nodefault};
	__property int EndCol = {read=FEndCol, write=FEndCol, nodefault};
	__property int EndRow = {read=FEndRow, write=FEndRow, nodefault};
	__property Rm_jclwidestrings::TWStringList* Memo = {read=GetMemo};
	__property int StyleIndex = {read=FStyleIndex, nodefault};
	__property Graphics::TGraphic* Graphic = {read=GetGraphic};
	__property int Counter = {read=FCounter, write=FCounter, nodefault};
	__property bool ExportAsNum = {read=FExportAsNum, write=FExportAsNum, nodefault};
};


typedef DynamicArray<int >  RM_e_main__4;

typedef DynamicArray<DynamicArray<int > >  RM_e_main__5;

typedef DynamicArray<int >  RM_e_main__6;

class DELPHICLASS TRMIEMList;
class PASCALIMPLEMENTATION TRMIEMList : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Rm_class::TRMExportFilter* FExportComp;
	int FTopOffset;
	int FMaxHeight;
	Classes::TList* FCols;
	Classes::TList* FRows;
	DynamicArray<DynamicArray<int > >  FCells;
	Classes::TList* FObjList;
	Classes::TList* FStyleList;
	DynamicArray<int >  FAryPageBreak;
	int FExportPrecision;
	bool FDrawFrame;
	bool FExportImage;
	bool FExportRtf;
	bool FExportHighQualityPicture;
	void __fastcall AddValue(Classes::TList* aList, int aValue);
	int __fastcall GetRowCount(void);
	int __fastcall GetColCount(void);
	int __fastcall GetRowHeight(int aIndex);
	int __fastcall GetColWidth(int aIndex);
	TRMIEMData* __fastcall GetCell(int aCol, int aRow);
	TRMIEMCellStyle* __fastcall GetCellStyle(TRMIEMData* aCell);
	int __fastcall GetPageBreak(int Index);
	
public:
	__fastcall TRMIEMList(Rm_class::TRMExportFilter* aExportComponent);
	__fastcall virtual ~TRMIEMList(void);
	void __fastcall Clear(bool aClearStyle);
	void __fastcall AddObject(Rm_class::TRMReportView* aReportView);
	void __fastcall EndPage(void);
	void __fastcall Prepare(void);
	int __fastcall GetCellRowPos(int aIndex);
	int __fastcall GetCellColPos(int aIndex);
	__property Classes::TList* StyleList = {read=FStyleList};
	__property int RowCount = {read=GetRowCount, nodefault};
	__property int ColCount = {read=GetColCount, nodefault};
	__property int RowHeight[int Index] = {read=GetRowHeight};
	__property int ColWidth[int Index] = {read=GetColWidth};
	__property TRMIEMData* Cells[int Col][int Row] = {read=GetCell};
	__property TRMIEMCellStyle* CellStyle[TRMIEMData* aCell] = {read=GetCellStyle};
	__property int ExportPrecision = {read=FExportPrecision, write=FExportPrecision, nodefault};
	__property int PageBreak[int Index] = {read=GetPageBreak};
	__property bool DrawFrame = {read=FDrawFrame, write=FDrawFrame, nodefault};
	__property bool ExportImage = {read=FExportImage, write=FExportImage, nodefault};
	__property bool ExportRtf = {read=FExportRtf, write=FExportRtf, nodefault};
	__property bool ExportHighQualityPicture = {read=FExportHighQualityPicture, write=FExportHighQualityPicture, nodefault};
};


class DELPHICLASS TRMMainExportFilter;
typedef void __fastcall (__closure *TBeforeSaveGraphicEvent)(TRMMainExportFilter* Sender, AnsiString AViewName, bool &UniqueImage, int &ReuseImageIndex, AnsiString AAltText);

typedef void __fastcall (__closure *TAfterSaveGraphicEvent)(TRMMainExportFilter* Sender, AnsiString AViewName, int ObjectImageIndex);

class PASCALIMPLEMENTATION TRMMainExportFilter : public Rm_class::TRMExportFilter 
{
	typedef Rm_class::TRMExportFilter inherited;
	
private:
	double FScaleX;
	double FScaleY;
	bool FExportFrames;
	bool FExportImages;
	Jpeg::TJPEGQualityRange FJPEGQuality;
	Classes::TStringList* FViewNames;
	Graphics::TPixelFormat FPixelFormat;
	TRMIEMData* FNowDataRec;
	
protected:
	bool CanMangeRotationText;
	Classes::TList* FDataList;
	int FPageNo;
	int FPageWidth;
	int FPageHeight;
	TRMEFImageFormat FExportImageFormat;
	void __fastcall SaveBitmapToPicture(Graphics::TBitmap* aBmp, TRMEFImageFormat aImgFormat, Jpeg::TJPEGQualityRange aJPEGQuality, Graphics::TPicture* &aPicture);
	virtual void __fastcall OnBeginDoc(void);
	virtual void __fastcall OnEndDoc(void);
	virtual void __fastcall OnBeginPage(void);
	virtual void __fastcall OnEndPage(void);
	virtual void __fastcall OnExportPage(const Rm_class::TRMEndPage* aPage);
	virtual void __fastcall InternalOnePage(Rm_class::TRMEndPage* aPage);
	virtual void __fastcall OnText(const Types::TRect &aDrawRect, int x, int y, const AnsiString aText, Rm_class::TRMView* View);
	void __fastcall ClearDataList(void);
	__property Graphics::TPixelFormat PixelFormat = {read=FPixelFormat, write=FPixelFormat, default=6};
	
public:
	__fastcall virtual TRMMainExportFilter(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMMainExportFilter(void);
	
__published:
	__property double ScaleX = {read=FScaleX, write=FScaleX};
	__property double ScaleY = {read=FScaleY, write=FScaleY};
	__property bool ExportImages = {read=FExportImages, write=FExportImages, default=1};
	__property bool ExportFrames = {read=FExportFrames, write=FExportFrames, default=1};
	__property TRMEFImageFormat ExportImageFormat = {read=FExportImageFormat, write=FExportImageFormat, nodefault};
	__property Jpeg::TJPEGQualityRange JPEGQuality = {read=FJPEGQuality, write=FJPEGQuality, default=100};
};


typedef AnsiString RM_e_main__8[3];

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString ImageFormats[3];
extern PACKAGE AnsiString __fastcall RMColorToHtmlColor(Graphics::TColor aColor);

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

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