rm_class.hpp

这是一个功能强大

	TRMFrameLine* FRightFrame;
	TRMFrameLine* FBottomFrame;
	Word FLeftRightFrame;
	TRMShadowStyle* FShadowStyle;
	Graphics::TColor FFillColor;
	Graphics::TBrushStyle FBrushStyle;
	int FTag;
	AnsiString FTagStr;
	AnsiString FUrl;
	AnsiString FFlowTo;
	AnsiString FStyle;
	Controls::TCursor FCursor;
	AnsiString FExpressionDelimiters;
	int FTabOrder;
	Variant __fastcall GetProp(AnsiString Index);
	void __fastcall SetProp(AnsiString Index, const Variant &Value);
	double __fastcall GetLeft(int Index);
	void __fastcall SetLeft(int Index, double Value);
	int __fastcall GetspLeft(int Index);
	void __fastcall SetspLeft(int Index, int Value);
	int __fastcall GetspLeft_Designer(int Index);
	void __fastcall SetspLeft_Designer(int Index, int Value);
	void __fastcall SetMemo(Rm_jclwidestrings::TWStringList* Value);
	void __fastcall SetMemo1(Rm_jclwidestrings::TWStringList* Value);
	bool __fastcall GetWantHook(void);
	void __fastcall SetWantHook(const bool value);
	bool __fastcall GetStretched(void);
	void __fastcall SetStretched(const bool value);
	bool __fastcall GetStretchedMax(void);
	void __fastcall SetStretchedMax(const bool value);
	bool __fastcall GetTransparent(void);
	void __fastcall SetTransparent(bool value);
	bool __fastcall GetHideZeros(void);
	void __fastcall SetHideZeros(bool Value);
	bool __fastcall GetDontUndo(void);
	void __fastcall SetDontUndo(bool Value);
	bool __fastcall GetOnePerPage(void);
	void __fastcall SetOnePerPage(bool Value);
	bool __fastcall GetIsChildView(void);
	void __fastcall SetIsChildView(bool Value);
	bool __fastcall GetUseDoublePass(void);
	void __fastcall SetUseDoublePass(bool Value);
	void __fastcall SetParentFont(bool Value);
	void __fastcall SetStyle(AnsiString Value);
	void __fastcall SetFlowTo(AnsiString Value);
	void __fastcall SetTagStr(AnsiString Value);
	void __fastcall SetUrl(AnsiString Value);
	
protected:
	Byte Typ;
	AnsiString BaseName;
	Graphics::TCanvas* Canvas;
	TRMStreamMode StreamMode;
	unsigned FFlags;
	unsigned FNewFlags;
	TRMBand* ParentBand;
	Rm_dataset::TRMDataset* FDataSet;
	AnsiString FDataFieldName;
	bool IsBlobField;
	bool FNeedWrapped;
	int ObjectID;
	bool IsPrinting;
	Classes::TComponent* FComponent;
	bool DrawFocusedFrame;
	int mmSaveGapX;
	int mmSaveGapY;
	int mmSaveLeft;
	int mmSaveTop;
	int mmSaveWidth;
	int mmSaveHeight;
	int mmSaveFWLeft;
	int mmSaveFWTop;
	int mmSaveFWRight;
	int mmSaveFWBottom;
	int mmSaveFontWidth;
	int mmSaveShadowWidth;
	int SaveFontWidth;
	#pragma pack(push,1)
	Types::TRect RealRect;
	#pragma pack(pop)
	int OriginalTop;
	int OriginalHeight;
	int OriginalTop1;
	int OriginalHeight1;
	double FactorX;
	double FactorY;
	int OffsetLeft;
	int OffsetTop;
	void __fastcall SetFillColor(Graphics::TColor Value);
	void __fastcall SetPropertyValue(AnsiString aPropName, const Variant &aValue);
	virtual void __fastcall ClearContents(void);
	virtual void __fastcall SetName(const AnsiString Value);
	void __fastcall InternalOnGetValue(TRMReportView* aView, WideString aParName, WideString &aParValue);
	void __fastcall InternalOnBeforePrint(Rm_jclwidestrings::TWStringList* Memo, TRMReportView* View);
	int __fastcall _CalcVFrameWidth(double aTopWidth, double aBottomWidth);
	int __fastcall _CalcHFrameWidth(double aLeftWidth, double aRightWidth);
	Types::TRect __fastcall _DrawRect();
	Rm_printer::TRMPrinter* __fastcall GetPrinter(void);
	virtual void __fastcall AfterChangeName(void);
	TRMDocMode __fastcall DocMode(void);
	virtual void __fastcall OnHook(TRMView* View);
	virtual void __fastcall AfterLoaded(void);
	virtual void __fastcall CalcGaps(void);
	virtual void __fastcall RestoreCoord(void);
	virtual void __fastcall ShowBackGround(void);
	virtual void __fastcall Prepare(void);
	virtual void __fastcall UnPrepare(void);
	virtual AnsiString __fastcall GetViewCommon();
	bool __fastcall HaveEventProp(void);
	virtual bool __fastcall DrawAsPicture(void);
	TRMBand* __fastcall GetParentBand(void);
	virtual void __fastcall SetParentPage(TRMCustomPage* Value);
	void __fastcall SetParentReport(TRMReport* Value);
	virtual bool __fastcall IsCrossView(void);
	virtual bool __fastcall IsContainer(void);
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * aArgs, const int aArgs_Size);
	virtual bool __fastcall SetPropValue(System::TObject* aObject, AnsiString aPropName, const Variant &aValue);
	__property int Tag = {read=FTag, write=FTag, nodefault};
	__property AnsiString TagStr = {read=FTagStr, write=SetTagStr};
	__property AnsiString Url = {read=FUrl, write=SetUrl};
	__property AnsiString FlowTo = {read=FFlowTo, write=SetFlowTo};
	__property AnsiString Style = {read=FStyle, write=SetStyle};
	__property Graphics::TBrushStyle BrushStyle = {read=FBrushStyle, write=FBrushStyle, nodefault};
	__property bool ParentFont = {read=FParentFont, write=SetParentFont, nodefault};
	__property TRMReport* ParentReport = {read=FParentReport, write=FParentReport};
	__property bool WantHook = {read=GetWantHook, write=SetWantHook, nodefault};
	__property bool Stretched = {read=GetStretched, write=SetStretched, nodefault};
	__property bool StretchedMax = {read=GetStretchedMax, write=SetStretchedMax, nodefault};
	__property bool Transparent = {read=GetTransparent, write=SetTransparent, nodefault};
	__property bool HideZeros = {read=GetHideZeros, write=SetHideZeros, nodefault};
	__property bool Visible = {read=FVisible, write=FVisible, nodefault};
	__property double Left = {read=GetLeft, write=SetLeft, index=0};
	__property double Top = {read=GetLeft, write=SetLeft, index=1};
	__property double Width = {read=GetLeft, write=SetLeft, index=2};
	__property double Height = {read=GetLeft, write=SetLeft, index=3};
	__property Controls::TCursor Cursor = {read=FCursor, write=FCursor, nodefault};
	__property AnsiString ExpressionDelimiters = {read=FExpressionDelimiters, write=FExpressionDelimiters};
	__property int mmGapLeft = {read=FmmGapLeft, write=FmmGapLeft, nodefault};
	__property int mmGapTop = {read=FmmGapTop, write=FmmGapTop, nodefault};
	__property int mmLeft = {read=FmmLeft, write=FmmLeft, nodefault};
	__property int mmTop = {read=FmmTop, write=FmmTop, nodefault};
	__property int mmWidth = {read=FmmWidth, write=FmmWidth, nodefault};
	__property int mmHeight = {read=FmmHeight, write=FmmHeight, nodefault};
	__property bool DontUndo = {read=GetDontUndo, write=SetDontUndo, nodefault};
	__property bool OnePerPage = {read=GetOnePerPage, write=SetOnePerPage, nodefault};
	__property bool IsChildView = {read=GetIsChildView, write=SetIsChildView, nodefault};
	__property bool UseDoublePass = {read=GetUseDoublePass, write=SetUseDoublePass, nodefault};
	__property int TabOrder = {read=FTabOrder, write=FTabOrder, nodefault};
	
public:
	bool Selected;
	bool NeedCreateName;
	__fastcall virtual TRMView(void);
	__fastcall virtual ~TRMView(void);
	virtual void __fastcall Assign(Classes::TPersistent* aSource);
	virtual void __fastcall ShowEditor(void);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* aPopup);
	virtual HRGN __fastcall GetClipRgn(TRMRgnType rt);
	Rm_common::TRMUnitType __fastcall GetUnits(void);
	void __fastcall CreateName(TRMReport* aReport);
	void __fastcall SetBounds(double aLeft, double aTop, double aWidth, double aHeight);
	void __fastcall SetspBounds(int aLeft, int aTop, int aWidth, int aHeight);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream) = 0 ;
	virtual void __fastcall SaveToStream(Classes::TStream* aStream) = 0 ;
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas) = 0 ;
	void __fastcall SetFrameVisible(bool aVisible);
	__property Variant Prop[AnsiString Index] = {read=GetProp, write=SetProp/*, default*/};
	__property bool IsBand = {read=FIsBand, nodefault};
	__property bool IsCrossBand = {read=FIsCrossBand, nodefault};
	__property TRMCustomPage* ParentPage = {read=FParentPage, write=SetParentPage};
	__property int spLeft_Designer = {read=GetspLeft_Designer, write=SetspLeft_Designer, index=0, nodefault};
	__property int spTop_Designer = {read=GetspLeft_Designer, write=SetspLeft_Designer, index=1, nodefault};
	__property int spWidth_Designer = {read=GetspLeft_Designer, write=SetspLeft_Designer, index=2, nodefault};
	__property int spHeight_Designer = {read=GetspLeft_Designer, write=SetspLeft_Designer, index=3, nodefault};
	__property int spRight_Designer = {read=GetspLeft_Designer, index=4, nodefault};
	__property int spBottom_Designer = {read=GetspLeft_Designer, index=5, nodefault};
	__property int spLeft = {read=GetspLeft, write=SetspLeft, index=0, nodefault};
	__property int spTop = {read=GetspLeft, write=SetspLeft, index=1, nodefault};
	__property int spWidth = {read=GetspLeft, write=SetspLeft, index=2, nodefault};
	__property int spHeight = {read=GetspLeft, write=SetspLeft, index=3, nodefault};
	__property int spRight = {read=GetspLeft, index=4, nodefault};
	__property int spBottom = {read=GetspLeft, index=5, nodefault};
	__property Rm_jclwidestrings::TWStringList* Memo1 = {read=FMemo1, write=SetMemo1};
	__property Byte ObjectType = {read=Typ, nodefault};
	__property TRMFrameLine* LeftFrame = {read=FLeftFrame, write=FLeftFrame};
	__property TRMFrameLine* TopFrame = {read=FTopFrame, write=FTopFrame};
	__property TRMFrameLine* RightFrame = {read=FRightFrame, write=FRightFrame};
	__property TRMFrameLine* BottomFrame = {read=FBottomFrame, write=FBottomFrame};
	__property Word LeftRightFrame = {read=FLeftRightFrame, write=FLeftRightFrame, nodefault};
	__property TRMShadowStyle* ShadowStyle = {read=FShadowStyle, write=FShadowStyle};
	__property Graphics::TColor FillColor = {read=FFillColor, write=SetFillColor, nodefault};
	__property Rm_jclwidestrings::TWStringList* Memo = {read=FMemo, write=SetMemo};
	
__published:
	__property TRMRestrictions Restrictions = {read=FRestrictions, write=FRestrictions, nodefault};
	__property Name ;
};


class PASCALIMPLEMENTATION TRMReportView : public TRMView 
{
	typedef TRMView inherited;
	
private:
	bool FNeedPrint;
	int FmmOldTop;
	int FmmOldHeight;
	TRMBandAlign FBandAlign;
	AnsiString FShiftWith;
	AnsiString FStretchWith;
	Classes::TNotifyEvent FOnBeforePrint;
	Classes::TNotifyEvent FOnBeforeCalc;
	Classes::TNotifyEvent FOnAfterCalc;
	TRMPreviewClickEvent FOnPreviewClick;
	TRMPreviewClickUrlEvent FOnPreviewClickUrl;
	TRMReportView* FStretchWithView;
	TRMReportView* FShiftWithView;
	bool FUseBandHeight;
	AnsiString FSubReportName;
	void __fastcall OnStretchedClick(System::TObject* Sender);
	void __fastcall OnStretchedMaxClick(System::TObject* Sender);
	void __fastcall OnVisibleClick(System::TObject* Sender);
	void __fastcall OnPrintableClick(System::TObject* Sender);
	double __fastcall GetGapX(int Index);
	void __fastcall SetGapX(int Index, double Value);
	int __fastcall GetspGapX(int Index);
	void __fastcall SetspGapX(int Index, int Value);
	bool __fastcall GetPrintFrame(void);
	void __fastcall SetPrintFrame(bool Value);
	bool __fastcall GetPrintable(void);
	void __fastcall SetPrintable(bool Value);
	bool __fastcall GetTextOnly(void);
	void __fastcall SetTextOnly(bool Value);
	bool __fastcall GetReprintOnOverFlow(void);
	void __fastcall SetReprintOnOverFlow(bool Value);
	void __fastcall SetShiftWith(AnsiString Value);
	void __fastcall SetStretchWith(AnsiString Value);
	AnsiString __fastcall GetDataField();
	void __fastcall SetDataField(AnsiString Value);
	void __fastcall SetDisplayFormat(AnsiString Value);
	bool __fastcall GetParentWidth(void);
	void __fastcall SetParentWidth(bool Value);
	bool __fastcall GetParentHeight(void);
	void __fastcall SetParentHeight(bool Value);
	bool __fastcall GetShowAtNewColumn(void);
	void __fastcall SetShowAtNewColumn(bool Value);
	
protected:
	AnsiString FDisplayFormat;
	#pragma pack(push,1)
	TRMFormat FormatFlag;
	#pragma pack(pop)
	bool OutputOnly;
	void __fastcall BeginDraw(Graphics::TCanvas* aCanvas);
	virtual void __fastcall Prepare(void);
	virtual void __fastcall ShowFrame(void);
	void __fastcall ExpandUrl(void);
	void __fastcall ExpandVariables(WideString &aStr);
	virtual void __fastcall PlaceOnEndPage(Classes::TStream* aStream);
	virtual void __fastcall GetEndPageData(Classes::TStream* aStream);
	virtual void __fastcall GetBlob(void);
	void __fastcall SetFactorFont(Graphics::TCanvas* aCanvas);
	int __fastcall GetFactorSize(int aValue);
	virtual void __fastcall ExportData(void);
	virtual Rm_common::TRMExportMode __fastcall GetExportMode(void);
	virtual AnsiString __fastcall GetExportData();
	virtual void __fastcall GetExportPicture(Graphics::TGraphic* &aDstGraphic, bool aDrawFrame);
	__property bool PrintFrame = {read=GetPrintFrame, write=SetPrintFrame, nodefault};
	__property bool Printable = {read=GetPrintable, write=SetPrintable, nodefault};
	__property TRMBandAlign BandAlign = {read=FBandAlign, write=FBandAlign, nodefault};
	__property bool TextOnly = {read=GetTextOnly, write=SetTextOnly, nodefault};
	__property double GapLeft = {read=GetGapX, write=SetGapX, index=0};
	__property double GapTop = {read=GetGapX, write=SetGapX, index=1};
	__property AnsiString DisplayFormat = {read=FDisplayFormat, write=SetDisplayFormat};
	__property bool ReprintOnOverFlow = {read=GetReprintOnOverFlow, write=SetReprintOnOverFlow, nodefault};
	__property AnsiString ShiftWith = {read=FShiftWith, write=SetShiftWith};
	__property AnsiString StretchWith = {read=FStretchWith, write=SetStretchWith};
	__property AnsiString DataField = {read=GetDataField, write=SetDataField};
	__property bool ParentHeight = {read=GetParentHeight, write=SetParentHeight, nodefault};
	__property bool ParentWidth = {read=GetParentWidth, write=SetParentWidth, nodefault};
	__property bool ShowAtNewColumn = {read=GetShowAtNewColumn, write=SetShowAtNewColumn, nodefault};
	__property AnsiString SubReport = {read=FSubReportName, write=FSubReportName};
	__property Classes::TNotifyEvent OnBeforeCalc = {read=FOnBeforeCalc, write=FOnBeforeCalc};
	__property Classes::TNotifyEvent OnAfterCalc = {read=FOnAfterCalc, write=FOnAfterCalc};
	__property TRMPreviewClickEvent OnPreviewClick = {read=FOnPreviewClick, write=FOnPreviewClick};
	__property TRMPreviewClickUrlEvent OnPreviewClickUrl = {read=FOnPreviewClickUrl, write=FOnPreviewClickUrl};
	
public:
	__fastcall virtual TRMReportView(void);
	__fastcall virtual ~TRMReportView(void);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* aPopup);
	virtual HRGN __fastcall GetClipRgn(TRMRgnType rt);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	__property int spGapLeft = {read=GetspGapX, write=SetspGapX, index=0, nodefault};
	__property int spGapTop = {read=GetspGapX, write=SetspGapX, index=1, nodefault};
	__property mmLeft ;
	__property mmTop ;
	__property mmWidth ;
	__property mmHeight ;
	
__published:
	__property Visible ;
	__property Left ;
	__property Top ;
	__property Width ;
	__property Height ;
	__property Classes::TNotifyEvent OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
};


class PASCALIMPLEMENTATION TRMSubReportView : public TRMReportView 
{
	typedef TRMReportView inherited;
	
private:
	int FSubPage;
	TRMSubReportType FSubReportType;
	bool FCanPrint;
	TRMReportPage* __fastcall GetPage(void);
	bool __fastcall GetReprintLastPage(void);
	void __fastcall SetReprintLastPage(bool Value);