rm_formreport.hpp

这是一个功能强大

class DELPHICLASS TRMFormReportObject;
class PASCALIMPLEMENTATION TRMFormReportObject : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool FAutoFree;
	
public:
	__fastcall virtual TRMFormReportObject(void);
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t) = 0 ;
	__property bool AutoFree = {read=FAutoFree, write=FAutoFree, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMFormReportObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMAddInFormReportObjectInfo;
class PASCALIMPLEMENTATION TRMAddInFormReportObjectInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TMetaClass* FClassRef;
	TMetaClass* FObjectClass;
	
public:
	__fastcall TRMAddInFormReportObjectInfo(TMetaClass* AClassRef, TMetaClass* AObjectClass);
	__property TMetaClass* ClassRef = {read=FClassRef};
	__property TMetaClass* ObjectClass = {read=FObjectClass};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMAddInFormReportObjectInfo(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TRMFormReport : public TRMCustomFormReport 
{
	typedef TRMCustomFormReport inherited;
	
private:
	int FGridFixedCols;
	bool FDrawOnPageFooter;
	Classes::TList* FColumnHeaderViews;
	Classes::TList* FPageDetailViews;
	Classes::TList* FPageFooterViews;
	Classes::TList* FColumnFooterViews;
	Classes::TList* FGroupFooterViews;
	int FGridTop;
	int FGridHeight;
	Controls::TWinControl* FPrintControl;
	Controls::TWinControl* FDetailPrintControl;
	Classes::TList* FReportObjects;
	TRMOnPrintObjectEvent FOnPrintObject;
	TRMOnAfterCreateObjectEvent FOnAfterCreateObject;
	TRMOnAfterCreateGridObjectEvent FOnAfterCreateGridFieldObject;
	void __fastcall Clear(void);
	
protected:
	bool CanSetDataSet;
	virtual bool __fastcall CreateReportFromGrid(void);
	
public:
	__fastcall virtual TRMFormReport(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMFormReport(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	__property Classes::TList* ColumnHeaderViews = {read=FColumnHeaderViews};
	__property Classes::TList* PageDetailViews = {read=FPageDetailViews};
	__property Classes::TList* PageFooterViews = {read=FPageFooterViews};
	__property Classes::TList* ColumnFooterViews = {read=FColumnFooterViews};
	__property Classes::TList* GroupFooterViews = {read=FGroupFooterViews};
	__property int GridTop = {read=FGridTop, write=FGridTop, nodefault};
	__property int GridHeight = {read=FGridHeight, write=FGridHeight, nodefault};
	__property bool DrawOnPageFooter = {read=FDrawOnPageFooter, write=FDrawOnPageFooter, nodefault};
	__property Controls::TWinControl* DetailPrintControl = {read=FDetailPrintControl, write=FDetailPrintControl};
	__property DetailDataSet ;
	
__published:
	__property Groups ;
	__property Controls::TWinControl* PrintControl = {read=FPrintControl, write=FPrintControl};
	__property int GridFixedCols = {read=FGridFixedCols, write=FGridFixedCols, default=0};
	__property TRMOnPrintObjectEvent OnPrintObject = {read=FOnPrintObject, write=FOnPrintObject};
	__property TRMOnAfterCreateObjectEvent OnAfterCreateObject = {read=FOnAfterCreateObject, write=FOnAfterCreateObject};
	__property TRMOnAfterCreateGridObjectEvent OnAfterCreateGridObjectEvent = {read=FOnAfterCreateGridFieldObject, write=FOnAfterCreateGridFieldObject};
};


class DELPHICLASS TRMPrintControl;
class PASCALIMPLEMENTATION TRMPrintControl : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintControl(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintControl(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintEdit;
class PASCALIMPLEMENTATION TRMPrintEdit : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintEdit(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintImage;
class PASCALIMPLEMENTATION TRMPrintImage : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintImage(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintImage(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintRichEdit;
class PASCALIMPLEMENTATION TRMPrintRichEdit : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintRichEdit(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintRichEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintShape;
class PASCALIMPLEMENTATION TRMPrintShape : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintShape(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintShape(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintCheckBox;
class PASCALIMPLEMENTATION TRMPrintCheckBox : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintCheckBox(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintCheckBox(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintDateTimePicker;
class PASCALIMPLEMENTATION TRMPrintDateTimePicker : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
public:
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
public:
	#pragma option push -w-inl
	/* TRMFormReportObject.Create */ inline __fastcall virtual TRMPrintDateTimePicker(void) : TRMFormReportObject() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPrintDateTimePicker(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPrintListView;
class PASCALIMPLEMENTATION TRMPrintListView : public TRMFormReportObject 
{
	typedef TRMFormReportObject inherited;
	
private:
	TRMFormReport* FFormReport;
	Comctrls::TCustomListView* FListView;
	Rm_dataset::TRMUserDataset* FUserDataset;
	Classes::TStringList* FList;
	void __fastcall OnUserDatasetCheckEOF(System::TObject* Sender, bool &Eof);
	void __fastcall OnUserDatasetFirst(System::TObject* Sender);
	void __fastcall OnUserDatasetNext(System::TObject* Sender);
	void __fastcall OnUserDatasetPrior(System::TObject* Sender);
	void __fastcall SetMemos(void);
	
public:
	__fastcall virtual TRMPrintListView(void);
	__fastcall virtual ~TRMPrintListView(void);
	virtual void __fastcall OnGenerate_Object(TRMFormReport* aFormReport, Rm_class::TRMReportPage* aPage, Controls::TControl* aControl, Rm_class::TRMView* &t);
	void __fastcall OnBeforePrintBandEvent(Rm_class::TRMBand* Band, bool &PrintBand);
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE AnsiString __fastcall RMGetOneField(const AnsiString str);
extern PACKAGE void __fastcall RMRegisterFormReportControl(TMetaClass* ClassRef, TMetaClass* ObjectClass);

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

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