rm_class.hpp

这是一个功能强大

	void __fastcall FreeChildViews(void);
	HIDESBASE void __fastcall PaintDesignControl(void);
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont};
	
public:
	__fastcall virtual TRMDialogControl(void);
	__fastcall virtual ~TRMDialogControl(void);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	__property Controls::TControl* Control = {read=FControl};
};


class DELPHICLASS TRMStretcheableView;
class PASCALIMPLEMENTATION TRMStretcheableView : public TRMReportView 
{
	typedef TRMReportView inherited;
	
protected:
	TRMDrawMode DrawMode;
	int CalculatedHeight;
	int ActualHeight;
	virtual int __fastcall CalcHeight(void) = 0 ;
	virtual int __fastcall RemainHeight(void) = 0 ;
	virtual void __fastcall GetMemoVariables(void) = 0 ;
	
public:
	__fastcall virtual TRMStretcheableView(void);
	__fastcall virtual ~TRMStretcheableView(void);
	
__published:
	__property Stretched ;
	__property StretchedMax ;
};


class DELPHICLASS TRMRepeatedOptions;
class PASCALIMPLEMENTATION TRMRepeatedOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FMasterMemoView;
	bool FSuppressRepeated;
	bool FMergeRepeated;
	bool FMergeStretchedHeight;
	
__published:
	__property AnsiString MasterMemoView = {read=FMasterMemoView, write=FMasterMemoView};
	__property bool SuppressRepeated = {read=FSuppressRepeated, write=FSuppressRepeated, nodefault};
	__property bool MergeRepeated = {read=FMergeRepeated, write=FMergeRepeated, nodefault};
	__property bool MergeStretchedHeight = {read=FMergeStretchedHeight, write=FMergeStretchedHeight, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TRMRepeatedOptions(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TRMRepeatedOptions(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TRMCustomMemoView;
class PASCALIMPLEMENTATION TRMCustomMemoView : public TRMStretcheableView 
{
	typedef TRMStretcheableView inherited;
	
private:
	int FDisplayBeginLine;
	int FDisplayEndLine;
	TRMView* FMasterView;
	Rm_jclwidestrings::TWStringList* FSMemo;
	Graphics::TFont* FFont;
	TRMHighlight* FHighlight;
	int FLineSpacing;
	int FCharacterSpacing;
	TRMRotationType FRotationType;
	TRMScaleFontType FScaleFontType;
	TRMRepeatedOptions* FRepeatedOptions;
	TRMHAlign FHAlign;
	TRMVAlign FVAlign;
	int FFontScaleWidth;
	AnsiString FLastValue;
	AnsiString FLastValue1;
	int FLastValuePage;
	bool FLastValueChanged;
	AnsiString FStyleName;
	Rm_system::TRMPersistentCompAdapter* FFontAdapter;
	int FVHeight;
	int FLastStreamPosition;
	int FmmLastTop;
	Rm_jclwidestrings::TWStringList* FSaveHtmlTagList;
	void __fastcall OnWordWrapClick(System::TObject* Sender);
	void __fastcall OnAutoWidthClick(System::TObject* Sender);
	void __fastcall OnHideZerosClick(System::TObject* Sender);
	void __fastcall OnTextOnlyClick(System::TObject* Sender);
	void __fastcall SetHAlign(TRMHAlign Value);
	void __fastcall SetVAlign(TRMVAlign Value);
	void __fastcall CalcGeneratedData(void);
	void __fastcall SetFont(Graphics::TFont* Value);
	bool __fastcall GetWordwrap(void);
	void __fastcall SetWordwrap(bool Value);
	bool __fastcall GetWordBreak(void);
	void __fastcall SetWordBreak(bool Value);
	bool __fastcall GetCharWrap(void);
	void __fastcall SetCharWrap(bool Value);
	bool __fastcall GetAutoWidth(void);
	void __fastcall SetAutoWidth(bool Value);
	bool __fastcall GetMangeTag(void);
	void __fastcall SetMangeTag(bool Value);
	bool __fastcall GetPrintAtAppendBlank(void);
	void __fastcall SetPrintAtAppendBlank(bool Value);
	void __fastcall SetRepeatedOptions(TRMRepeatedOptions* Value);
	bool __fastcall GetExportAsNumber(void);
	void __fastcall SetExportAsNumber(bool Value);
	bool __fastcall GetDBFieldOnly(void);
	void __fastcall SetDBFieldOnly(bool Value);
	bool __fastcall GetUnderlines(void);
	void __fastcall SetUnderlines(bool value);
	bool __fastcall GetAutoAddBlank(void);
	void __fastcall SetAutoAddBlank(bool value);
	bool __fastcall GetIsCurrency(void);
	void __fastcall SetIsCurrency(bool value);
	void __fastcall SetStyleName(AnsiString Value);
	Rm_system::TRMPersistentCompAdapter* __fastcall GetFontAdapter(void);
	
protected:
	bool FMergeEmpty;
	int CurStrNo;
	bool MergeEmpty;
	int LineHeight;
	bool FFlagPlaceOnEndPage;
	bool Exporting;
	Rm_jclwidestrings::TWStringList* __fastcall SaveHtmlTagList(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);
	void __fastcall ApplyStyle(TRMTextStyle* aStyle);
	bool __fastcall CanMergeCell(void);
	void __fastcall AssignFont(Graphics::TCanvas* aCanvas);
	virtual void __fastcall GetBlob(void);
	virtual void __fastcall Prepare(void);
	virtual void __fastcall ExpandMemoVariables(void);
	void __fastcall WrapMemo1(bool aAddChar);
	void __fastcall WrapMemo(bool aAddChar);
	void __fastcall ShowMemo(void);
	virtual int __fastcall CalcHeight(void);
	virtual int __fastcall RemainHeight(void);
	virtual void __fastcall GetMemoVariables(void);
	virtual void __fastcall PlaceOnEndPage(Classes::TStream* aStream);
	virtual void __fastcall ExportData(void);
	int __fastcall CalcWidth(Rm_jclwidestrings::TWStringList* aMemo);
	void __fastcall Set_AutoWidth(const Graphics::TCanvas* aCanvas);
	void __fastcall ShowUnderLines(void);
	__property WantHook ;
	__property TRMRotationType RotationType = {read=FRotationType, write=FRotationType, nodefault};
	__property TRMScaleFontType ScaleFontType = {read=FScaleFontType, write=FScaleFontType, nodefault};
	__property int FontScaleWidth = {read=FFontScaleWidth, write=FFontScaleWidth, nodefault};
	__property bool WordWrap = {read=GetWordwrap, write=SetWordwrap, nodefault};
	__property bool WordBreak = {read=GetWordBreak, write=SetWordBreak, nodefault};
	__property bool CharWrap = {read=GetCharWrap, write=SetCharWrap, nodefault};
	__property bool AutoWidth = {read=GetAutoWidth, write=SetAutoWidth, nodefault};
	__property TRMRepeatedOptions* RepeatedOptions = {read=FRepeatedOptions, write=SetRepeatedOptions};
	__property bool ShowAtAppendBlank = {read=GetPrintAtAppendBlank, write=SetPrintAtAppendBlank, nodefault};
	__property bool ExportAsNumber = {read=GetExportAsNumber, write=SetExportAsNumber, nodefault};
	__property AnsiString LastValue = {read=FLastValue, write=FLastValue};
	__property bool IsCurrency = {read=GetIsCurrency, write=SetIsCurrency, nodefault};
	
public:
	__fastcall virtual TRMCustomMemoView(void);
	__fastcall virtual ~TRMCustomMemoView(void);
	virtual Rm_common::TRMExportMode __fastcall GetExportMode(void);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* aPopup);
	virtual void __fastcall ShowEditor(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	__property Rm_system::TRMPersistentCompAdapter* FontAdapter = {read=GetFontAdapter};
	
__published:
	__property TRMHighlight* Highlight = {read=FHighlight, write=FHighlight};
	__property PrintFrame ;
	__property Printable ;
	__property BandAlign ;
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property GapLeft ;
	__property GapTop ;
	__property int LineSpacing = {read=FLineSpacing, write=FLineSpacing, nodefault};
	__property int CharacterSpacing = {read=FCharacterSpacing, write=FCharacterSpacing, nodefault};
	__property HideZeros ;
	__property LeftFrame ;
	__property TopFrame ;
	__property RightFrame ;
	__property BottomFrame ;
	__property ShadowStyle ;
	__property Memo ;
	__property ShiftWith ;
	__property StretchWith ;
	__property TRMHAlign HAlign = {read=FHAlign, write=SetHAlign, nodefault};
	__property TRMVAlign VAlign = {read=FVAlign, write=SetVAlign, nodefault};
	__property bool AutoAddBlank = {read=GetAutoAddBlank, write=SetAutoAddBlank, nodefault};
	__property bool AllowHtmlTag = {read=GetMangeTag, write=SetMangeTag, nodefault};
	__property DisplayFormat ;
	__property TextOnly ;
	__property FillColor ;
	__property ParentHeight ;
	__property ParentWidth ;
	__property bool DBFieldOnly = {read=GetDBFieldOnly, write=SetDBFieldOnly, nodefault};
	__property bool Underlines = {read=GetUnderlines, write=SetUnderlines, nodefault};
	__property int DisplayBeginLine = {read=FDisplayBeginLine, write=FDisplayBeginLine, nodefault};
	__property int DisplayEndLine = {read=FDisplayEndLine, write=FDisplayEndLine, nodefault};
	__property BrushStyle ;
	__property Cursor ;
	__property Url ;
	__property ReprintOnOverFlow ;
	__property ShowAtNewColumn ;
	__property TabOrder ;
	__property AnsiString StyleName = {read=FStyleName, write=SetStyleName};
	__property OnBeforePrint ;
	__property OnBeforeCalc ;
	__property OnAfterCalc ;
	__property OnPreviewClick ;
	__property OnPreviewClickUrl ;
};


class DELPHICLASS TRMMemoView;
class PASCALIMPLEMENTATION TRMMemoView : public TRMCustomMemoView 
{
	typedef TRMCustomMemoView inherited;
	
protected:
	virtual bool __fastcall DrawAsPicture(void);
	
__published:
	__property RotationType ;
	__property ScaleFontType ;
	__property FontScaleWidth ;
	__property WordWrap ;
	__property WordBreak ;
	__property CharWrap ;
	__property AutoWidth ;
	__property RepeatedOptions ;
	__property ShowAtAppendBlank ;
	__property ExportAsNumber ;
	__property DataField ;
public:
	#pragma option push -w-inl
	/* TRMCustomMemoView.Create */ inline __fastcall virtual TRMMemoView(void) : TRMCustomMemoView() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMCustomMemoView.Destroy */ inline __fastcall virtual ~TRMMemoView(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMCalcOptions;
class PASCALIMPLEMENTATION TRMCalcOptions : public Rm_system::TRMPersistent 
{
	typedef Rm_system::TRMPersistent inherited;
	
private:
	TRMView* FParentView;
	TRMDBCalcType FCalcType;
	AnsiString FAggrBandName;
	bool FResetAfterPrint;
	AnsiString FFilter;
	AnsiString FIntalizeValue;
	AnsiString FAggregateValue;
	AnsiString FResetGroupName;
	bool __fastcall GetTotalCalc(void);
	void __fastcall SetTotalCalc(bool Value);
	bool __fastcall GetCalcNoVisible(void);
	void __fastcall SetCalcNoVisible(bool Value);
	Rm_jclwidestrings::TWStringList* __fastcall GetMemo(void);
	void __fastcall SetMemo(Rm_jclwidestrings::TWStringList* Value);
	
public:
	__fastcall TRMCalcOptions(TRMView* aView);
	
__published:
	__property TRMDBCalcType CalcType = {read=FCalcType, write=FCalcType, nodefault};
	__property AnsiString Filter = {read=FFilter, write=FFilter};
	__property bool ResetAfterPrint = {read=FResetAfterPrint, write=FResetAfterPrint, nodefault};
	__property AnsiString ResetGroupName = {read=FResetGroupName, write=FResetGroupName};
	__property AnsiString AggrBandName = {read=FAggrBandName, write=FAggrBandName};
	__property bool TotalCalc = {read=GetTotalCalc, write=SetTotalCalc, nodefault};
	__property bool CalcNoVisible = {read=GetCalcNoVisible, write=SetCalcNoVisible, nodefault};
	__property AnsiString IntalizeValue = {read=FIntalizeValue, write=FIntalizeValue};
	__property AnsiString AggregateValue = {read=FAggregateValue, write=FAggregateValue};
	__property Rm_jclwidestrings::TWStringList* Memo = {read=GetMemo, write=SetMemo};
public:
	#pragma option push -w-inl
	/* TRMPersistent.Create */ inline __fastcall virtual TRMCalcOptions(void) : Rm_system::TRMPersistent() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMPersistent.Destroy */ inline __fastcall virtual ~TRMCalcOptions(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMCalcMemoView;
class PASCALIMPLEMENTATION TRMCalcMemoView : public TRMCustomMemoView 
{
	typedef TRMCustomMemoView inherited;
	
private:
	int FValueIndex;
	int FOldValueIndex;
	Rm_jclwidestrings::TWStringList* FValues;
	AnsiString FOPZFilter;
	bool FResAssigned;
	double FValue;
	System::Currency FCurrencyValue;
	double FSum;
	int FCount;
	AnsiString FExpression;
	TRMCalcOptions* FCalcOptions;
	AnsiString FResultExpression;