rm_common.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_common.pas' rev: 11.00

#ifndef Rm_commonHPP
#define Rm_commonHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Typinfo.hpp>	// Pascal unit
#include <Rm_system.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Rm_jvinterpreterparser.hpp>	// Pascal unit
#include <Rm_jclwidestrings.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Rm_common
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TRMResolutionType { rmrtHorizontal, rmrtVertical };
#pragma option pop

#pragma option push -b-
enum TRMUnitType { rmutScreenPixels, rmutInches, rmutMillimeters, rmutMMThousandths };
#pragma option pop

#pragma option push -b-
enum TRMPrinterOrientation { rmpoPortrait, rmpoLandscape };
#pragma option pop

#pragma option push -b-
enum TRMPreviewZoom { pzDefault, pzPageWidth, pzOnePage, pzTwoPages };
#pragma option pop

#pragma option push -b-
enum TRMPreviewButton { pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbDesign, pbSaveToXLS, pbExport, pbNavigator };
#pragma option pop

typedef Set<TRMPreviewButton, pbZoom, pbNavigator>  TRMPreviewButtons;

#pragma option push -b-
enum TRMScaleMode { mdNone, mdPageWidth, mdOnePage, mdTwoPages, mdPrinterZoom };
#pragma option pop

#pragma option push -b-
enum TRMExportMode { rmemText, rmemRtf, rmemPicture };
#pragma option pop

#pragma option push -b-
enum TRMValueType { rmvaList, rmvaInt8, rmvaInt16, rmvaInt32, rmvaExtended, rmvaString, rmvaIdent, rmvaFalse, rmvaTrue, rmvaBinary, rmvaSet, rmvaLString, rmvaNil, rmvaSingle, rmvaCurrency, rmvaDate, rmvaWideString, rmvaInt64, rmvaUTF8String };
#pragma option pop

#pragma option push -b-
enum TRMDataType { rmdtBoolean, rmdtDate, rmdtTime, rmdtDateTime, rmdtInteger, rmdtSingle, rmdtDouble, rmdtExtended, rmdtCurrency, rmdtChar, rmdtString, rmdtVariant, rmdtLongint, rmdtBLOB, rmdtMemo, rmdtGraphic, rmdtNotKnown, rmdtLargeInt };
#pragma option pop

#pragma option push -b-
enum TRMSearchOperatorType { rmsoEqual, rmsoNotEqual, rmsoLessThan, rmsoLessThanOrEqualTo, rmsoGreaterThan, rmsoGreaterThanOrEqualTo, rmsoLike, rmsoNotLike, rmsoBetween, soNotBetween, rmsoInList, rmsoNotInList, rmsoBlank, rmsoNotBlank };
#pragma option pop

struct TRMPageInfo
{
	
public:
	int PrinterPageWidth;
	int PrinterPageHeight;
	int ScreenPageWidth;
	int ScreenPageHeight;
	int PrinterOffsetX;
	int PrinterOffsetY;
} ;

#pragma pack(push,1)
struct TRMReportInfo
{
	
public:
	AnsiString Title;
	AnsiString Author;
	AnsiString Company;
	AnsiString CopyRight;
	AnsiString Comment;
} ;
#pragma pack(pop)

typedef TMetaClass* TRMClass;

typedef void __fastcall (__closure *TRMPreviewSaveReportEvent)(System::TObject* aReport);

;

;

;

;

;

;

typedef TMetaClass* TRMPersistentCompAdapterClass;

class DELPHICLASS TRMCustomView;
class PASCALIMPLEMENTATION TRMCustomView : public Rm_system::TRMPersistent 
{
	typedef Rm_system::TRMPersistent inherited;
	
public:
	/* virtual class method */ virtual bool __fastcall CanPlaceOnGridView(TMetaClass* vmt);
	/* virtual class method */ virtual void __fastcall DefaultSize(TMetaClass* vmt, int &aKx, int &aKy);
public:
	#pragma option push -w-inl
	/* TRMPersistent.Create */ inline __fastcall virtual TRMCustomView(void) : Rm_system::TRMPersistent() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TRMPersistent.Destroy */ inline __fastcall virtual ~TRMCustomView(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPreviewOptions;
class PASCALIMPLEMENTATION TRMPreviewOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TRMUnitType FRulerUnit;
	bool FRulerVisible;
	bool FDrawBorder;
	Graphics::TPen* FBorderPen;
	
public:
	__fastcall virtual TRMPreviewOptions(void);
	__fastcall virtual ~TRMPreviewOptions(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TRMUnitType RulerUnit = {read=FRulerUnit, write=FRulerUnit, nodefault};
	__property bool RulerVisible = {read=FRulerVisible, write=FRulerVisible, nodefault};
	__property bool DrawBorder = {read=FDrawBorder, write=FDrawBorder, nodefault};
	__property Graphics::TPen* BorderPen = {read=FBorderPen, write=FBorderPen};
};


class DELPHICLASS TRMCustomPreview;
class DELPHICLASS TRMCustomReport;
class PASCALIMPLEMENTATION TRMCustomPreview : public Extctrls::TPanel 
{
	typedef Extctrls::TPanel inherited;
	
private:
	TRMPreviewOptions* FOptions;
	void __fastcall SetOptions(TRMPreviewOptions* Value);
	
protected:
	bool NeedRepaint;
	virtual void __fastcall InternalOnProgress(TRMCustomReport* aReport, int aPercent) = 0 ;
	virtual void __fastcall BeginPrepareReport(TRMCustomReport* aReport) = 0 ;
	virtual void __fastcall EndPrepareReport(TRMCustomReport* aReport) = 0 ;
	virtual void __fastcall CloseForm(void);
	
public:
	__fastcall virtual TRMCustomPreview(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMCustomPreview(void);
	virtual void __fastcall ShowReport(TRMCustomReport* aReport) = 0 ;
	virtual void __fastcall Connect(TRMCustomReport* aReport) = 0 ;
	virtual void __fastcall Print(void) = 0 ;
	
__published:
	__property TRMPreviewOptions* Options = {read=FOptions, write=SetOptions};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMCustomPreview(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMBandMsg;
class PASCALIMPLEMENTATION TRMBandMsg : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TFont* FFont;
	Classes::TStringList* FLeftMemo;
	Classes::TStringList* FCenterMemo;
	Classes::TStringList* FRightMemo;
	void __fastcall SetFont(Graphics::TFont* Value);
	void __fastcall SetLeftMemo(Classes::TStringList* Value);
	void __fastcall SetCenterMemo(Classes::TStringList* Value);
	void __fastcall SetRightMemo(Classes::TStringList* Value);
	
public:
	__fastcall TRMBandMsg(void);
	__fastcall virtual ~TRMBandMsg(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Classes::TStringList* LeftMemo = {read=FLeftMemo, write=SetLeftMemo};
	__property Classes::TStringList* CenterMemo = {read=FCenterMemo, write=SetCenterMemo};
	__property Classes::TStringList* RightMemo = {read=FRightMemo, write=SetRightMemo};
};


class DELPHICLASS TRMPageCaptionMsg;
class PASCALIMPLEMENTATION TRMPageCaptionMsg : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TFont* FTitleFont;
	TRMBandMsg* FCaptionMsg;
	Classes::TStringList* FTitleMemo;
	void __fastcall SetTitleFont(Graphics::TFont* Value);
	void __fastcall SetTitleMemo(Classes::TStringList* Value);
	void __fastcall SetCaptionMsg(TRMBandMsg* Value);
	
public:
	__fastcall TRMPageCaptionMsg(void);
	__fastcall virtual ~TRMPageCaptionMsg(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TRMBandMsg* CaptionMsg = {read=FCaptionMsg, write=SetCaptionMsg};
	__property Graphics::TFont* TitleFont = {read=FTitleFont, write=SetTitleFont};
	__property Classes::TStringList* TitleMemo = {read=FTitleMemo, write=SetTitleMemo};
};


class PASCALIMPLEMENTATION TRMCustomReport : public Rm_system::TRMComponent 
{
	typedef Rm_system::TRMComponent inherited;
	
private:
	bool FTerminated;
	bool FConvertNulls;
	
public:
	__property bool Terminated = {read=FTerminated, write=FTerminated, nodefault};
	__property bool ConvertNulls = {read=FConvertNulls, write=FConvertNulls, nodefault};
public:
	#pragma option push -w-inl
	/* TRMComponent.Destroy */ inline __fastcall virtual ~TRMCustomReport(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TRMCustomReport(Classes::TComponent* AOwner) : Rm_system::TRMComponent(AOwner) { }
	#pragma option pop