rm_common.hpp

这是一个功能强大

};


class DELPHICLASS TRMCustomExportFilter;
class PASCALIMPLEMENTATION TRMCustomExportFilter : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TRMCustomExportFilter(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TRMCustomExportFilter(void) { }
	#pragma option pop
	
};


struct TRMFunctionDesc;
typedef TRMFunctionDesc *PRMFunctionDesc;

#pragma pack(push,1)
struct TRMFunctionDesc
{
	
public:
	AnsiString FuncName;
	AnsiString Category;
	AnsiString Description;
	AnsiString FuncPara;
} ;
#pragma pack(pop)

class DELPHICLASS TRMCustomParser;
class PASCALIMPLEMENTATION TRMCustomParser : public Rm_system::TRMPersistent 
{
	typedef Rm_system::TRMPersistent inherited;
	
protected:
	Classes::TComponent* FParentReport;
	
public:
	virtual WideString __fastcall Str2OPZ(WideString aStr) = 0 ;
	virtual Variant __fastcall Calc(const Variant &aStr) = 0 ;
	virtual WideString __fastcall GetIdentify(const WideString aStr, int &i) = 0 ;
	virtual void __fastcall GetParameters(const WideString aStr, int &aIndex, Variant * aParams, const int aParams_Size) = 0 ;
	__property Classes::TComponent* ParentReport = {read=FParentReport, write=FParentReport};
public:
	#pragma option push -w-inl
	/* TRMPersistent.Create */ inline __fastcall virtual TRMCustomParser(void) : Rm_system::TRMPersistent() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMPersistent.Destroy */ inline __fastcall virtual ~TRMCustomParser(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMCustomFunctionLibrary;
class PASCALIMPLEMENTATION TRMCustomFunctionLibrary : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TList* FFunctionList;
	Classes::TStringList* FList;
	void __fastcall Clear(void);
	
public:
	__fastcall virtual TRMCustomFunctionLibrary(void);
	__fastcall virtual ~TRMCustomFunctionLibrary(void);
	virtual bool __fastcall OnFunction(TRMCustomParser* aParser, const AnsiString aFunctionName, Variant * aParams, const int aParams_Size, Variant &aValue);
	virtual void __fastcall DoFunction(TRMCustomParser* aParser, int aFuncNo, Variant * aParams, const int aParams_Size, Variant &aValue);
	void __fastcall AddFunctionDesc(const AnsiString aFuncName, const AnsiString aCategory, const AnsiString aDescription, const AnsiString aFuncPara);
	__property Classes::TList* FunctionList = {read=FFunctionList};
	__property Classes::TStringList* List = {read=FList};
};


class DELPHICLASS TRMAddInObjectInfo;
class PASCALIMPLEMENTATION TRMAddInObjectInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool FIsPage;
	AnsiString FPage;
	TMetaClass* FClassRef;
	TMetaClass* FEditorFormClass;
	AnsiString FButtonBmpRes;
	AnsiString FButtonHint;
	bool FIsControl;
	
public:
	__fastcall TRMAddInObjectInfo(TMetaClass* AClassRef, TMetaClass* AEditorFormClass, const AnsiString AButtonBmpRes, const AnsiString AButtonHint, bool AIsControl);
	__property TMetaClass* ClassRef = {read=FClassRef, write=FClassRef};
	__property TMetaClass* EditorFormClass = {read=FEditorFormClass, write=FEditorFormClass};
	__property AnsiString ButtonBmpRes = {read=FButtonBmpRes, write=FButtonBmpRes};
	__property AnsiString ButtonHint = {read=FButtonHint, write=FButtonHint};
	__property bool IsControl = {read=FIsControl, write=FIsControl, nodefault};
	__property AnsiString Page = {read=FPage, write=FPage};
	__property bool IsPage = {read=FIsPage, write=FIsPage, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMAddInObjectInfo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMExportFilterInfo;
class PASCALIMPLEMENTATION TRMExportFilterInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TRMCustomExportFilter* FFilter;
	AnsiString FFilterDesc;
	AnsiString FFilterExt;
	
public:
	__fastcall TRMExportFilterInfo(TRMCustomExportFilter* AClassRef, const AnsiString AFilterDesc, const AnsiString AFilterExt);
	__property TRMCustomExportFilter* Filter = {read=FFilter, write=FFilter};
	__property AnsiString FilterDesc = {read=FFilterDesc, write=FFilterDesc};
	__property AnsiString FilterExt = {read=FFilterExt, write=FFilterExt};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMExportFilterInfo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPageEditorInfo;
class PASCALIMPLEMENTATION TRMPageEditorInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TMetaClass* FPageClass;
	TMetaClass* FPageEditorClass;
	
public:
	__fastcall TRMPageEditorInfo(TMetaClass* aPageClass, TMetaClass* aPageEditorClass);
	__property TMetaClass* PageClass = {read=FPageClass};
	__property TMetaClass* PageEditorClass = {read=FPageEditorClass};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMPageEditorInfo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMToolsInfo;
class PASCALIMPLEMENTATION TRMToolsInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FCaption;
	AnsiString FButtonBmpRes;
	Classes::TNotifyEvent FOnClick;
	bool FIsReportPage;
	AnsiString FPageClassName;
	
public:
	__fastcall TRMToolsInfo(const AnsiString ACaption, const AnsiString AButtonBmpRes, Classes::TNotifyEvent AOnClick);
	__property AnsiString Caption = {read=FCaption, write=FCaption};
	__property AnsiString ButtonBmpRes = {read=FButtonBmpRes, write=FButtonBmpRes};
	__property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
	__property bool IsReportPage = {read=FIsReportPage, nodefault};
	__property AnsiString PageClassName = {read=FPageClassName};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMToolsInfo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMTempFileStream;
class PASCALIMPLEMENTATION TRMTempFileStream : public Classes::TFileStream 
{
	typedef Classes::TFileStream inherited;
	
private:
	AnsiString FFileName;
	
public:
	__fastcall TRMTempFileStream(void);
	__fastcall virtual ~TRMTempFileStream(void);
	__property AnsiString FileName = {read=FFileName};
};


typedef TWStrings TWideStrings;
;

typedef TWStringList TWideStringList;
;

class DELPHICLASS TRMFunctionSplitter;
class PASCALIMPLEMENTATION TRMFunctionSplitter : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	Rm_jclwidestrings::TWStringList* FMatchFuncs;
	Rm_jclwidestrings::TWStringList* FSplitTo;
	TRMCustomParser* FParser;
	Rm_system::TRMVariables* FVariables;
	
public:
	__fastcall TRMFunctionSplitter(Rm_jclwidestrings::TWStringList* aMatchFuncs, Rm_jclwidestrings::TWStringList* aSplitTo, Rm_system::TRMVariables* aVariables);
	__fastcall virtual ~TRMFunctionSplitter(void);
	void __fastcall Split(WideString aStr);
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE unsigned RMPenStyles[7];
extern PACKAGE AnsiString RMRegRootKey;
extern PACKAGE Rm_system::TRMPersistentCompAdapter* __fastcall RMCreateAdapter(TMetaClass* aClassType, System::TObject* aParent);
extern PACKAGE AnsiString __fastcall RMAnsiGetBrackedVariable(const AnsiString aStr, int &aBeginPos, int &aEndPos);
extern PACKAGE WideString __fastcall RMGetBrackedVariable(const WideString aStr, int &aBeginPos, int &aEndPos);
extern PACKAGE bool __fastcall RMCmp(const AnsiString S1, const AnsiString S2);
extern PACKAGE Classes::TList* __fastcall RMDataSetList(void);
extern PACKAGE bool __fastcall RMGetPropValue_1(System::TObject* aObject, AnsiString aPropName, Variant &aValue);
extern PACKAGE bool __fastcall RMSetPropValue(System::TObject* aObject, AnsiString aPropName, const Variant &aValue);
extern PACKAGE bool __fastcall RMHavePropertyName(System::TObject* aObject, const AnsiString aPropName);
extern PACKAGE Classes::TList* __fastcall RMComAdapterList(void);
extern PACKAGE TRMAddInObjectInfo* __fastcall RMAddIns(int index);
extern PACKAGE int __fastcall RMAddInsCount(void);
extern PACKAGE TRMAddInObjectInfo* __fastcall RMAddInReportPage(int Index);
extern PACKAGE int __fastcall RMAddInReportPageCount(void);
extern PACKAGE TRMPageEditorInfo* __fastcall RMPageEditor(int Index);
extern PACKAGE int __fastcall RMPageEditorCount(void);
extern PACKAGE TRMToolsInfo* __fastcall RMDsgPageButton(int Index);
extern PACKAGE int __fastcall RMDsgPageButtonCount(void);
extern PACKAGE TRMExportFilterInfo* __fastcall RMFilters(int index);
extern PACKAGE int __fastcall RMFiltersCount(void);
extern PACKAGE TRMToolsInfo* __fastcall RMTools(int index);
extern PACKAGE int __fastcall RMToolsCount(void);
extern PACKAGE int __fastcall RMAddInFunctionCount(void);
extern PACKAGE TRMCustomFunctionLibrary* __fastcall RMAddInFunctions(int Index);
extern PACKAGE void __fastcall RMRegisterComAdapter(TMetaClass* aClassRef, TMetaClass* aComAdapterClass);
extern PACKAGE void __fastcall RMRegisterPageEditor(TMetaClass* aClassRef, TMetaClass* aPageEditorClass);
extern PACKAGE void __fastcall RMRegisterPageButton(const AnsiString Hint, const AnsiString ButtonBmpRes, bool aIsReportPage, AnsiString aPageClass);
extern PACKAGE void __fastcall RMResigerReportPageClass(TMetaClass* ClassRef);
extern PACKAGE void __fastcall RMRegisterObjectByRes(TMetaClass* ClassRef, const AnsiString ButtonBmpRes, const AnsiString ButtonHint, TMetaClass* EditorFormClass);
extern PACKAGE void __fastcall RMRegisterControl(TMetaClass* ClassRef, const AnsiString ButtonBmpRes, const AnsiString ButtonHint)/* overload */;
extern PACKAGE void __fastcall RMRegisterControl(const AnsiString aPage, const AnsiString aPageButtonBmpRes, bool aIsControl, TMetaClass* aClassRef, AnsiString aButtonBmpRes, AnsiString aButtonHint)/* overload */;
extern PACKAGE void __fastcall RMRegisterControls(const AnsiString aPage, const AnsiString aPageButtonBmpRes, bool aIsControl, TMetaClass* * AryClassRef, const int AryClassRef_Size, AnsiString * AryButtonBmpRes, const int AryButtonBmpRes_Size, AnsiString * AryButtonHint, const int AryButtonHint_Size);
extern PACKAGE void __fastcall RMRegisterExportFilter(TRMCustomExportFilter* Filter, const AnsiString FilterDesc, const AnsiString FilterExt);
extern PACKAGE void __fastcall RMUnRegisterExportFilter(TRMCustomExportFilter* Filter);
extern PACKAGE void __fastcall RMRegisterTool(const AnsiString MenuCaption, const AnsiString ButtonBmpRes, Classes::TNotifyEvent OnClick);
extern PACKAGE void __fastcall RMUnRegisterTool(const AnsiString MenuCaption);
extern PACKAGE void __fastcall RMRegisterFunctionLibrary(TMetaClass* ClassRef);
extern PACKAGE void __fastcall RMUnRegisterFunctionLibrary(TMetaClass* ClassRef);

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

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