rm_class.hpp

这是一个功能强大

	
protected:
	virtual void __fastcall Prepare(void);
	virtual AnsiString __fastcall GetViewCommon();
	virtual bool __fastcall DrawAsPicture(void);
	
public:
	/* virtual class method */ virtual bool __fastcall CanPlaceOnGridView(TMetaClass* vmt);
	__fastcall virtual TRMSubReportView(void);
	__fastcall virtual ~TRMSubReportView(void);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* aPopup);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	__property int SubPage = {read=FSubPage, write=FSubPage, nodefault};
	__property TRMReportPage* Page = {read=GetPage};
	
__published:
	__property TRMSubReportType SubReportType = {read=FSubReportType, write=FSubReportType, nodefault};
	__property bool ReprintLastPage = {read=GetReprintLastPage, write=SetReprintLastPage, nodefault};
};


class DELPHICLASS TRMEndPages;
class DELPHICLASS TRMEndPage;
class DELPHICLASS TRMBkPicture;
class PASCALIMPLEMENTATION TRMEndPages : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TRMEndPage* operator[](int Index) { return Pages[Index]; }
	
private:
	int FCurPageNo;
	Classes::TList* FPages;
	Classes::TList* FbkPictures;
	Classes::TNotifyEvent FOnClearEvent;
	TRMReport* FParentReport;
	Rm_jclwidestrings::TWStringList* FOutLines;
	bool FStreamCompressed;
	Byte FStreamCompressType;
	bool __fastcall GetParentReportCompressStream(void);
	Byte __fastcall GetParentReportCompressType(void);
	TRMEndPage* __fastcall GetPages(int Index);
	int __fastcall GetCount(void);
	void __fastcall AddbkPicture(int aLeft, int aTop, int aWidth, int aHeight, Graphics::TPicture* aPicture);
	TRMBkPicture* __fastcall GetbkPicture(int Index);
	void __fastcall _LoadFromStream(Classes::TStream* aStream);
	
protected:
	__property Classes::TNotifyEvent OnClearEvent = {read=FOnClearEvent, write=FOnClearEvent};
	__property bool ParentReportCompressStream = {read=GetParentReportCompressStream, nodefault};
	__property Byte ParentReportCompressType = {read=GetParentReportCompressType, nodefault};
	
public:
	__fastcall TRMEndPages(TRMReport* aParentReport);
	__fastcall virtual ~TRMEndPages(void);
	void __fastcall Clear(void);
	void __fastcall Insert(int aPageIndex, TRMReportPage* aPage);
	void __fastcall InsertFromEndPage(int aPageIndex, TRMEndPage* aEndPage);
	void __fastcall Add(TRMReportPage* aPage);
	void __fastcall Delete(int aPageIndex);
	void __fastcall AppendFromStream(Classes::TStream* aStream);
	void __fastcall LoadFromStream(Classes::TStream* aStream);
	void __fastcall SaveToStream(Classes::TStream* aStream);
	void __fastcall SaveToBlobField(Db::TBlobField* aBlobField);
	void __fastcall LoadFromBlobField(Db::TBlobField* aBlobField);
	__property TRMEndPage* Pages[int Index] = {read=GetPages/*, default*/};
	__property int Count = {read=GetCount, nodefault};
	__property int CurPageNo = {read=FCurPageNo, write=FCurPageNo, nodefault};
	__property TRMBkPicture* bkPictures[int Index] = {read=GetbkPicture};
	__property Rm_jclwidestrings::TWStringList* OutLines = {read=FOutLines};
};


class PASCALIMPLEMENTATION TRMCustomPage : public Rm_system::TRMPersistent 
{
	typedef Rm_system::TRMPersistent inherited;
	
public:
	TRMView* operator[](AnsiString Index) { return Items[Index]; }
	
private:
	bool FPrintToPrevPage;
	TRMReport* FParentReport;
	bool FVisible;
	Classes::TList* FObjects;
	Graphics::TFont* FFont;
	AnsiString FOutlineText;
	Classes::TNotifyEvent FOnActivate;
	TRMBeginPageEvent FOnBeginPage;
	TRMEndPageEvent FOnEndPage;
	Classes::TList* FEventList;
	Classes::TList* FAggrList;
	TRMReportPage* FParentPage;
	int FPageNumber;
	bool FIsSubReportPage;
	bool FPrintChildTypeSubReportPage;
	TRMSubReportView* FSubReportView;
	int FSubReport_MMLeft;
	int FSubReport_MMTop;
	int FColumnPos;
	int FCurrentPos;
	int FmmCurrentX;
	int FmmCurrentY;
	int FmmCurrentX1;
	int FmmCurrentBottomY;
	int FmmLastStaticColumnY;
	int FmmOffsetX;
	int FmmOffsetY;
	TRMBand* FLastPrintBand;
	bool FDrawRepeatHeader;
	bool FDisableRepeatHeader;
	int FCurPageColumn;
	int FStartPageNo;
	void __fastcall AfterPrint(void);
	TRMView* __fastcall GetItems(AnsiString Index);
	void __fastcall SetFont(Graphics::TFont* Value);
	void __fastcall SetOutlineText(AnsiString Value);
	
protected:
	int FChildPageNo;
	int FChildPageBegin;
	TRMEndPages* FChildEndPages;
	TRMEndPages* FCurrentEndPages;
	TRMDocMode __fastcall DocMode(void);
	virtual void __fastcall SetName(const AnsiString Value);
	void __fastcall SetObjectsEvent(void);
	virtual void __fastcall AddChildView(Classes::TStringList* aStringList, bool aDontAddBlankNameObject);
	virtual void __fastcall BuildTmpObjects(void);
	virtual void __fastcall PreparePage(void) = 0 ;
	virtual void __fastcall UnPreparePage(void) = 0 ;
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream) = 0 ;
	virtual void __fastcall SaveToStream(Classes::TStream* aStream) = 0 ;
	Rm_printer::TRMPrinter* __fastcall GetPrinter(void);
	virtual void __fastcall AfterLoaded(void);
	__property bool IsSubReportPage = {read=FIsSubReportPage, write=FIsSubReportPage, nodefault};
	__property bool PrintToPrevPage = {read=FPrintToPrevPage, write=FPrintToPrevPage, nodefault};
	__property int mmCurrentX = {read=FmmCurrentX, write=FmmCurrentX, nodefault};
	__property int mmCurrentX1 = {read=FmmCurrentX1, write=FmmCurrentX1, nodefault};
	__property int mmCurrentY = {read=FmmCurrentY, write=FmmCurrentY, nodefault};
	__property int mmCurrentBottomY = {read=FmmCurrentBottomY, write=FmmCurrentBottomY, nodefault};
	__property AnsiString OutlineText = {read=FOutlineText, write=SetOutlineText};
	__property TRMBeginPageEvent OnBeginPage = {read=FOnBeginPage, write=FOnBeginPage};
	__property TRMEndPageEvent OnEndPage = {read=FOnEndPage, write=FOnEndPage};
	__property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
	
public:
	__fastcall virtual TRMCustomPage(void);
	__fastcall virtual ~TRMCustomPage(void);
	void __fastcall Clear(void);
	void __fastcall CreateName(bool aIsSubReportPage);
	void __fastcall Delete(int Index);
	int __fastcall IndexOf(AnsiString aObjectName);
	virtual TRMView* __fastcall FindObject(AnsiString aObjectName);
	virtual Classes::TList* __fastcall PageObjects(void);
	Classes::TList* __fastcall EventList(void);
	int __fastcall Count(void);
	__property TRMView* Items[AnsiString Index] = {read=GetItems/*, default*/};
	__property Classes::TList* Objects = {read=FObjects};
	__property TRMReport* ParentReport = {read=FParentReport};
	
__published:
	__property bool Visible = {read=FVisible, write=FVisible, nodefault};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Name ;
};



class PASCALIMPLEMENTATION TRMFrameLine : public Rm_system::TRMPersistent 
{
	typedef Rm_system::TRMPersistent inherited;
	
private:
	bool FVisible;
	Graphics::TPenStyle FStyle;
	Graphics::TColor FColor;
	int FmmWidth;
	bool FDoubleFrame;
	TRMView* FParentView;
	double __fastcall GetWidth(void);
	void __fastcall SetWidth(double Value);
	int __fastcall GetspWidth(void);
	void __fastcall SetspWidth(int Value);
	void __fastcall SetColor(Graphics::TColor Value);
	
public:
	__fastcall TRMFrameLine(TRMView* aParentView);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	Rm_common::TRMUnitType __fastcall GetUnits(void);
	bool __fastcall IsEqual(TRMFrameLine* aFrameLine);
	__property int mmWidth = {read=FmmWidth, write=FmmWidth, nodefault};
	__property int spWidth = {read=GetspWidth, write=SetspWidth, nodefault};
	
__published:
	__property bool Visible = {read=FVisible, write=FVisible, nodefault};
	__property Graphics::TPenStyle Style = {read=FStyle, write=FStyle, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property double Width = {read=GetWidth, write=SetWidth};
	__property bool DoubleFrame = {read=FDoubleFrame, write=FDoubleFrame, nodefault};
public:
	#pragma option push -w-inl
	/* TRMPersistent.Create */ inline __fastcall virtual TRMFrameLine(void) : Rm_system::TRMPersistent() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMPersistent.Destroy */ inline __fastcall virtual ~TRMFrameLine(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMTextStyle;
class PASCALIMPLEMENTATION TRMTextStyle : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	Graphics::TFont* FFont;
	TRMHAlign FHAlign;
	TRMVAlign FVAlign;
	#pragma pack(push,1)
	TRMFormat FDisplayFormat;
	#pragma pack(pop)
	Graphics::TColor FFillColor;
	int FmmWidth;
	int FmmHeight;
	AnsiString FStyleName;
	void __fastcall SetFont(Graphics::TFont* Value);
	int __fastcall GetspLeft(int Index);
	void __fastcall SetspLeft(int Index, int Value);
	
public:
	__fastcall virtual TRMTextStyle(Classes::TCollection* aCollection);
	__fastcall virtual ~TRMTextStyle(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall CreateUniqueName(void);
	__property TRMFormat DisplayFormat = {read=FDisplayFormat, write=FDisplayFormat};
	__property int mmWidth = {read=FmmWidth, write=FmmWidth, nodefault};
	__property int mmHeight = {read=FmmHeight, write=FmmHeight, nodefault};
	__property int spWidth = {read=GetspLeft, write=SetspLeft, index=0, nodefault};
	__property int spHeight = {read=GetspLeft, write=SetspLeft, index=1, nodefault};
	
__published:
	__property AnsiString StyleName = {read=FStyleName, write=FStyleName};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property TRMHAlign HAlign = {read=FHAlign, write=FHAlign, nodefault};
	__property TRMVAlign VAlign = {read=FVAlign, write=FVAlign, nodefault};
	__property Graphics::TColor FillColor = {read=FFillColor, write=FFillColor, nodefault};
};


typedef TMetaClass* TRMStyleClass;

class DELPHICLASS TRMTextStyles;
class PASCALIMPLEMENTATION TRMTextStyles : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TRMTextStyle* operator[](int Index) { return Items[Index]; }
	
private:
	TRMReport* FReport;
	TRMTextStyle* __fastcall GetColumn(int Index);
	void __fastcall SetColumn(int Index, TRMTextStyle* Value);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	__fastcall TRMTextStyles(TRMReport* aReport);
	void __fastcall Apply(void);
	HIDESBASE TRMTextStyle* __fastcall Add(void);
	TRMTextStyle* __fastcall IndexOfName(const AnsiString aStyleName);
	void __fastcall LoadFromStream(Classes::TStream* aStream);
	void __fastcall SaveToStream(Classes::TStream* aStream);
	__property TRMTextStyle* Items[int Index] = {read=GetColumn, write=SetColumn/*, default*/};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TRMTextStyles(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMDialogComponent;
class PASCALIMPLEMENTATION TRMDialogComponent : public TRMView 
{
	typedef TRMView inherited;
	
private:
	AnsiString FParentControl;
	void __fastcall SetParentControl(AnsiString Value);
	
protected:
	AnsiString FBmpRes;
	void __fastcall BeginDraw(Graphics::TCanvas* aCanvas);
	void __fastcall PaintDesignControl(void);
	__property AnsiString ParentControl = {read=FParentControl, write=SetParentControl};
	
public:
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
	__fastcall virtual TRMDialogComponent(void);
	__fastcall virtual ~TRMDialogComponent(void);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
};


class DELPHICLASS TRMDialogControl;
class PASCALIMPLEMENTATION TRMDialogControl : public TRMDialogComponent 
{
	typedef TRMDialogComponent inherited;
	
protected:
	Controls::TControl* FControl;
	virtual Graphics::TFont* __fastcall GetFont(void);
	virtual void __fastcall SetFont(Graphics::TFont* Value);