frxclass.hpp

编译好的FastReport4.3 只适用于bc6

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'frxClass.pas' rev: 6.00

#ifndef frxClassHPP
#define frxClassHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SyncObjs.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <frxUnicodeUtils.hpp>	// Pascal unit
#include <fs_iinterpreter.hpp>	// Pascal unit
#include <frxProgress.hpp>	// Pascal unit
#include <frxXML.hpp>	// Pascal unit
#include <frxVariables.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <IniFiles.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Frxclass
{
//-- type declarations -------------------------------------------------------
typedef AnsiString TfrxNotifyEvent;

typedef AnsiString TfrxCloseQueryEvent;

typedef AnsiString TfrxKeyEvent;

typedef AnsiString TfrxKeyPressEvent;

typedef AnsiString TfrxMouseEvent;

typedef AnsiString TfrxMouseMoveEvent;

typedef AnsiString TfrxPreviewClickEvent;

typedef AnsiString TfrxRunDialogsEvent;

typedef int SYSINT;

#pragma option push -b-
enum frxClass__1 { csContainer, csPreviewVisible, csDefaultDiff };
#pragma option pop

typedef Set<frxClass__1, csContainer, csDefaultDiff>  TfrxComponentStyle;

#pragma option push -b-
enum TfrxStretchMode { smDontStretch, smActualHeight, smMaxHeight };
#pragma option pop

#pragma option push -b-
enum TfrxShiftMode { smDontShift, smAlways, smWhenOverlapped };
#pragma option pop

#pragma option push -b-
enum TfrxDuplexMode { dmNone, dmVertical, dmHorizontal, dmSimplex };
#pragma option pop

#pragma option push -b-
enum TfrxAlign { baNone, baLeft, baRight, baCenter, baWidth, baBottom, baClient };
#pragma option pop

#pragma option push -b-
enum TfrxFrameStyle { fsSolid, fsDash, fsDot, fsDashDot, fsDashDotDot, fsDouble };
#pragma option pop

#pragma option push -b-
enum TfrxFrameType { ftLeft, ftRight, ftTop, ftBottom };
#pragma option pop

typedef Set<TfrxFrameType, ftLeft, ftBottom>  TfrxFrameTypes;

#pragma option push -b-
enum TfrxFormatKind { fkText, fkNumeric, fkDateTime, fkBoolean };
#pragma option pop

#pragma option push -b-
enum TfrxHAlign { haLeft, haRight, haCenter, haBlock };
#pragma option pop

#pragma option push -b-
enum TfrxVAlign { vaTop, vaBottom, vaCenter };
#pragma option pop

#pragma option push -b-
enum TfrxSilentMode { simMessageBoxes, simSilent, simReThrow };
#pragma option pop

#pragma option push -b-
enum TfrxRestriction { rfDontModify, rfDontSize, rfDontMove, rfDontDelete, rfDontEdit };
#pragma option pop

typedef Set<TfrxRestriction, rfDontModify, rfDontEdit>  TfrxRestrictions;

#pragma option push -b-
enum TfrxShapeKind { skRectangle, skRoundRectangle, skEllipse, skTriangle, skDiamond, skDiagonal1, skDiagonal2 };
#pragma option pop

#pragma option push -b-
enum TfrxPreviewButton { pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbNoClose, pbNoFullScreen, pbNoEmail };
#pragma option pop

typedef Set<TfrxPreviewButton, pbPrint, pbNoEmail>  TfrxPreviewButtons;

#pragma option push -b-
enum TfrxZoomMode { zmDefault, zmWholePage, zmPageWidth, zmManyPages };
#pragma option pop

#pragma option push -b-
enum TfrxPrintPages { ppAll, ppOdd, ppEven };
#pragma option pop

#pragma option push -b-
enum TfrxAddPageAction { apWriteOver, apAdd };
#pragma option pop

#pragma option push -b-
enum TfrxRangeBegin { rbFirst, rbCurrent };
#pragma option pop

#pragma option push -b-
enum TfrxRangeEnd { reLast, reCurrent, reCount };
#pragma option pop

#pragma option push -b-
enum TfrxFieldType { fftNumeric, fftString, fftBoolean };
#pragma option pop

#pragma option push -b-
enum TfrxProgressType { ptRunning, ptExporting, ptPrinting };
#pragma option pop

#pragma option push -b-
enum TfrxPrintMode { pmDefault, pmSplit, pmJoin, pmScale };
#pragma option pop

#pragma pack(push, 1)
struct TfrxRect
{
	Extended Left;
	Extended Top;
	Extended Right;
	Extended Bottom;
} ;
#pragma pack(pop)

#pragma pack(push, 1)
struct TfrxPoint
{
	Extended X;
	Extended Y;
} ;
#pragma pack(pop)

class DELPHICLASS TfrxReport;
typedef void __fastcall (__closure *TfrxProgressEvent)(TfrxReport* Sender, TfrxProgressType ProgressType, int Progress);

class DELPHICLASS TfrxReportComponent;
typedef void __fastcall (__closure *TfrxBeforePrintEvent)(TfrxReportComponent* Sender);

typedef void __fastcall (__closure *TfrxGetValueEvent)(const AnsiString VarName, Variant &Value);

typedef Variant __fastcall (__closure *TfrxUserFunctionEvent)(const AnsiString MethodName, Variant &Params);

class DELPHICLASS TfrxPage;
typedef void __fastcall (__closure *TfrxManualBuildEvent)(TfrxPage* Page);

class DELPHICLASS TfrxView;
typedef void __fastcall (__closure *TfrxClickObjectEvent)(TfrxView* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, bool &Modified);

typedef void __fastcall (__closure *TfrxMouseOverObjectEvent)(TfrxView* Sender);

typedef void __fastcall (__closure *TfrxCheckEOFEvent)(System::TObject* Sender, bool &Eof);

class DELPHICLASS TfrxDialogPage;
typedef void __fastcall (__closure *TfrxRunDialogEvent)(TfrxDialogPage* Page);

typedef AnsiString __fastcall (__closure *TfrxEditConnectionEvent)(const AnsiString ConnString);

typedef void __fastcall (__closure *TfrxSetConnectionEvent)(const AnsiString ConnString);

class DELPHICLASS TfrxCustomDatabase;
typedef void __fastcall (__closure *TfrxBeforeConnectEvent)(TfrxCustomDatabase* Sender, bool &Connected);

class DELPHICLASS TfrxReportPage;
typedef void __fastcall (__closure *TfrxPrintPageEvent)(TfrxReportPage* Page, int CopyNo);

typedef void __fastcall (__closure *TfrxLoadTemplateEvent)(TfrxReport* Report, const AnsiString TemplateName);

class DELPHICLASS TfrxComponent;
class PASCALIMPLEMENTATION TfrxComponent : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	Graphics::TFont* FFont;
	Classes::TList* FObjects;
	Classes::TList* FAllObjects;
	TfrxComponent* FParent;
	Extended FLeft;
	Extended FTop;
	Extended FWidth;
	Extended FHeight;
	bool FParentFont;
	int FGroupIndex;
	bool FIsDesigning;
	bool FIsLoading;
	bool FIsPrinting;
	bool FIsWriting;
	TfrxRestrictions FRestrictions;
	bool FVisible;
	AnsiString FDescription;
	bool FAncestor;
	TfrxComponentStyle FComponentStyle;
	Extended __fastcall GetAbsTop(void);
	TfrxPage* __fastcall GetPage(void);
	TfrxReport* __fastcall GetReport(void);
	bool __fastcall IsFontStored(void);
	Classes::TList* __fastcall GetAllObjects(void);
	Extended __fastcall GetAbsLeft(void);
	bool __fastcall GetIsLoading(void);
	bool __fastcall GetIsAncestor(void);
	
protected:
	AnsiString FAliasName;
	AnsiString FBaseName;
	TfrxComponent* FOriginalComponent;
	#pragma pack(push, 1)
	TfrxRect FOriginalRect;
	#pragma pack(pop)
	
	TfrxComponent* FOriginalBand;
	virtual void __fastcall SetParent(TfrxComponent* AParent);
	virtual void __fastcall SetLeft(Extended Value);
	virtual void __fastcall SetTop(Extended Value);
	virtual void __fastcall SetWidth(Extended Value);
	virtual void __fastcall SetHeight(Extended Value);
	virtual void __fastcall SetName(const AnsiString AName);
	virtual void __fastcall SetFont(Graphics::TFont* Value);
	virtual void __fastcall SetParentFont(const bool Value);
	virtual void __fastcall SetVisible(bool Value);
	virtual void __fastcall FontChanged(System::TObject* Sender);
	AnsiString __fastcall DiffFont(Graphics::TFont* f1, Graphics::TFont* f2, const AnsiString Add);
	AnsiString __fastcall InternalDiff(TfrxComponent* AComponent);
	virtual Classes::TList* __fastcall GetContainerObjects(void);
	DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
	DYNAMIC Classes::TComponent* __fastcall GetChildOwner(void);
	
public:
	__fastcall virtual TfrxComponent(Classes::TComponent* AOwner);
	__fastcall virtual TfrxComponent(Classes::TComponent* AOwner, Word Flags);
	__fastcall virtual ~TfrxComponent(void);
	/* virtual class method */ virtual AnsiString __fastcall GetDescription(TMetaClass* vmt);
	virtual void __fastcall AlignChildren(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall AssignAll(TfrxComponent* Source);
	virtual void __fastcall BeforeStartReport(void);
	virtual void __fastcall Clear(void);
	void __fastcall CreateUniqueName(void);
	virtual void __fastcall LoadFromStream(Classes::TStream* Stream);
	virtual void __fastcall SaveToStream(Classes::TStream* Stream, bool SaveChildren = true, bool SaveDefaultValues = false);
	void __fastcall SetBounds(Extended ALeft, Extended ATop, Extended AWidth, Extended AHeight);
	virtual void __fastcall OnNotify(System::TObject* Sender);
	virtual void __fastcall OnPaste(void);
	AnsiString __fastcall AllDiff(TfrxComponent* AComponent);
	virtual AnsiString __fastcall Diff(TfrxComponent* AComponent);
	TfrxComponent* __fastcall FindObject(const AnsiString AName);
	virtual bool __fastcall ContainerAdd(TfrxComponent* Obj);
	virtual bool __fastcall ContainerMouseDown(System::TObject* Sender, int X, int Y);
	virtual void __fastcall ContainerMouseMove(System::TObject* Sender, int X, int Y);
	virtual void __fastcall ContainerMouseUp(System::TObject* Sender, int X, int Y);
	__property Classes::TList* Objects = {read=FObjects};
	__property Classes::TList* AllObjects = {read=GetAllObjects};
	__property Classes::TList* ContainerObjects = {read=GetContainerObjects};
	__property TfrxComponent* Parent = {read=FParent, write=SetParent};
	__property TfrxPage* Page = {read=GetPage};
	__property TfrxReport* Report = {read=GetReport};
	__property bool IsAncestor = {read=GetIsAncestor, nodefault};
	__property bool IsDesigning = {read=FIsDesigning, write=FIsDesigning, nodefault};
	__property bool IsLoading = {read=GetIsLoading, write=FIsLoading, nodefault};
	__property bool IsPrinting = {read=FIsPrinting, write=FIsPrinting, nodefault};
	__property bool IsWriting = {read=FIsWriting, write=FIsWriting, nodefault};
	__property AnsiString BaseName = {read=FBaseName};
	__property int GroupIndex = {read=FGroupIndex, write=FGroupIndex, default=0};
	__property TfrxComponentStyle frComponentStyle = {read=FComponentStyle, write=FComponentStyle, nodefault};
	__property Extended Left = {read=FLeft, write=SetLeft};
	__property Extended Top = {read=FTop, write=SetTop};
	__property Extended Width = {read=FWidth, write=SetWidth};
	__property Extended Height = {read=FHeight, write=SetHeight};
	__property Extended AbsLeft = {read=GetAbsLeft};
	__property Extended AbsTop = {read=GetAbsTop};
	__property AnsiString Description = {read=FDescription, write=FDescription};
	__property bool ParentFont = {read=FParentFont, write=SetParentFont, default=1};
	__property TfrxRestrictions Restrictions = {read=FRestrictions, write=FRestrictions, default=0};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont, stored=IsFontStored};
};


class PASCALIMPLEMENTATION TfrxReportComponent : public TfrxComponent 
{
	typedef TfrxComponent inherited;
	
private:
	AnsiString FOnAfterData;
	AnsiString FOnAfterPrint;
	AnsiString FOnBeforePrint;
	AnsiString FOnPreviewClick;
	
public:
	Extended FShiftAmount;
	Classes::TList* FShiftChildren;
	__fastcall virtual TfrxReportComponent(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxReportComponent(void);
	virtual void __fastcall Draw(Graphics::TCanvas* Canvas, Extended ScaleX, Extended ScaleY, Extended OffsetX, Extended OffsetY) = 0 ;
	virtual void __fastcall BeforePrint(void);
	virtual void __fastcall GetData(void);
	virtual void __fastcall AfterPrint(void);
	virtual AnsiString __fastcall GetComponentText();
	virtual TfrxRect __fastcall GetRealBounds();
	__property AnsiString OnAfterData = {read=FOnAfterData, write=FOnAfterData};
	__property AnsiString OnAfterPrint = {read=FOnAfterPrint, write=FOnAfterPrint};
	__property AnsiString OnBeforePrint = {read=FOnBeforePrint, write=FOnBeforePrint};
	__property AnsiString OnPreviewClick = {read=FOnPreviewClick, write=FOnPreviewClick};
	
__published:
	__property Description ;
public:
	#pragma option push -w-inl
	/* TfrxComponent.DesignCreate */ inline __fastcall virtual TfrxReportComponent(Classes::TComponent* AOwner, Word Flags) : TfrxComponent(AOwner, Flags) { }
	#pragma option pop