frxpreview.hpp

这个是功能强大的报表软件

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

// (DO NOT EDIT: machine generated header) 'Frxpreview.pas' rev: 10.00

#ifndef FrxpreviewHPP
#define FrxpreviewHPP

#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 <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Frxctrls.hpp>	// Pascal unit
#include <Frxdock.hpp>	// Pascal unit
#include <Toolwin.hpp>	// Pascal unit
#include <Frxpreviewpages.hpp>	// Pascal unit
#include <Frxclass.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

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

namespace Frxpreview
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfrxPreviewTool { ptHand, ptZoom };
#pragma option pop

class DELPHICLASS TfrxPreview;
typedef void __fastcall (__closure *TfrxPageChangedEvent)(TfrxPreview* Sender, int PageNo);

class DELPHICLASS TfrxPreviewWorkspace;
class DELPHICLASS TfrxPageList;
class DELPHICLASS TfrxPageItem;
class PASCALIMPLEMENTATION TfrxPageList : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TfrxPageItem* operator[](int Index) { return Items[Index]; }
	
private:
	int FMaxWidth;
	TfrxPageItem* __fastcall GetItems(int Index);
	
public:
	__fastcall TfrxPageList(void);
	__property TfrxPageItem* Items[int Index] = {read=GetItems/*, default*/};
	void __fastcall AddPage(int AWidth, int AHeight, Extended Zoom);
	void __fastcall CalcBounds(int ClientWidth);
	int __fastcall FindPage(int OffsetY, int OffsetX = 0x0);
	Types::TRect __fastcall GetPageBounds(int Index, int ClientWidth, Extended Scale, bool RTL);
	Types::TPoint __fastcall GetMaxBounds();
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TfrxPageList(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxPreviewWorkspace : public Frxctrls::TfrxScrollWin 
{
	typedef Frxctrls::TfrxScrollWin inherited;
	
private:
	Graphics::TColor FActiveFrameColor;
	Graphics::TColor FBackColor;
	Controls::TCursor FDefaultCursor;
	bool FDisableUpdate;
	bool FDown;
	Graphics::TMetafile* FEMFImage;
	int FEMFImagePage;
	Graphics::TColor FFrameColor;
	bool FIsThumbnail;
	int FLastFoundPage;
	#pragma pack(push,1)
	Types::TPoint FLastPoint;
	#pragma pack(pop)
	bool FLocked;
	#pragma pack(push,1)
	Types::TPoint FOffset;
	#pragma pack(pop)
	unsigned FTimeOffset;
	TfrxPageList* FPageList;
	int FPageNo;
	TfrxPreview* FPreview;
	Frxclass::TfrxCustomPreviewPages* FPreviewPages;
	Extended FZoom;
	bool FRTLLanguage;
	void __fastcall DrawPages(bool BorderOnly);
	void __fastcall FindText(void);
	void __fastcall SetToPageNo(int PageNo);
	void __fastcall UpdateScrollBars(void);
	
protected:
	void __fastcall PrevDblClick(System::TObject* Sender);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall OnHScrollChange(System::TObject* Sender);
	DYNAMIC void __fastcall Resize(void);
	virtual void __fastcall OnVScrollChange(System::TObject* Sender);
	
public:
	__fastcall virtual TfrxPreviewWorkspace(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxPreviewWorkspace(void);
	virtual void __fastcall Paint(void);
	HIDESBASE void __fastcall SetPosition(int PageN, int Top);
	int __fastcall GetTopPosition(void);
	void __fastcall AddPage(int AWidth, int AHeight);
	void __fastcall ClearPageList(void);
	void __fastcall CalcPageBounds(int ClientWidth);
	__property Graphics::TColor ActiveFrameColor = {read=FActiveFrameColor, write=FActiveFrameColor, default=8405024};
	__property Graphics::TColor BackColor = {read=FBackColor, write=FBackColor, default=8421504};
	__property Graphics::TColor FrameColor = {read=FFrameColor, write=FFrameColor, default=0};
	__property bool IsThumbnail = {read=FIsThumbnail, write=FIsThumbnail, nodefault};
	__property bool Locked = {read=FLocked, write=FLocked, nodefault};
	__property int PageNo = {read=FPageNo, write=FPageNo, nodefault};
	__property TfrxPreview* Preview = {read=FPreview, write=FPreview};
	__property Frxclass::TfrxCustomPreviewPages* PreviewPages = {read=FPreviewPages, write=FPreviewPages};
	__property Extended Zoom = {read=FZoom, write=FZoom};
	__property bool RTLLanguage = {read=FRTLLanguage, write=FRTLLanguage, nodefault};
	__property OnDblClick ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxPreviewWorkspace(HWND ParentWindow) : Frxctrls::TfrxScrollWin(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxPreview : public Frxclass::TfrxCustomPreview 
{
	typedef Frxclass::TfrxCustomPreview inherited;
	
private:
	bool FAllowF3;
	Forms::TFormBorderStyle FBorderStyle;
	Stdctrls::TButton* FCancelButton;
	bool FLocked;
	Stdctrls::TLabel* FMessageLabel;
	Extctrls::TPanel* FMessagePanel;
	TfrxPageChangedEvent FOnPageChanged;
	Comctrls::TTreeView* FOutline;
	Graphics::TColor FOutlineColor;
	Menus::TPopupMenu* FOutlinePopup;
	int FPageNo;
	bool FRefreshing;
	bool FRunning;
	Stdctrls::TScrollStyle FScrollBars;
	Extctrls::TSplitter* FSplitter;
	TfrxPreviewWorkspace* FThumbnail;
	unsigned FTick;
	TfrxPreviewTool FTool;
	TfrxPreviewWorkspace* FWorkspace;
	Extended FZoom;
	Frxclass::TfrxZoomMode FZoomMode;
	Graphics::TColor __fastcall GetActiveFrameColor(void);
	Graphics::TColor __fastcall GetBackColor(void);
	Graphics::TColor __fastcall GetFrameColor(void);
	bool __fastcall GetOutlineVisible(void);
	int __fastcall GetOutlineWidth(void);
	int __fastcall GetPageCount(void);
	bool __fastcall GetThumbnailVisible(void);
	void __fastcall EditTemplate(void);
	void __fastcall OnCancel(System::TObject* Sender);
	void __fastcall OnCollapseClick(System::TObject* Sender);
	void __fastcall OnExpandClick(System::TObject* Sender);
	void __fastcall OnMoveSplitter(System::TObject* Sender);
	void __fastcall OnOutlineClick(System::TObject* Sender);
	void __fastcall SetActiveFrameColor(const Graphics::TColor Value);
	void __fastcall SetBackColor(const Graphics::TColor Value);
	void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
	void __fastcall SetFrameColor(const Graphics::TColor Value);
	void __fastcall SetOutlineColor(const Graphics::TColor Value);
	void __fastcall SetOutlineWidth(const int Value);
	void __fastcall SetOutlineVisible(const bool Value);
	void __fastcall SetPageNo(int Value);
	void __fastcall SetThumbnailVisible(const bool Value);
	void __fastcall SetZoom(const Extended Value);
	void __fastcall SetZoomMode(const Frxclass::TfrxZoomMode Value);
	void __fastcall UpdateOutline(void);
	void __fastcall UpdatePages(void);
	void __fastcall UpdatePageNumbers(void);
	MESSAGE void __fastcall WMEraseBackground(Messages::TMessage &Message);
	MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	DYNAMIC void __fastcall Resize(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	
public:
	__fastcall virtual TfrxPreview(Classes::TComponent* AOwner);
	__fastcall virtual ~TfrxPreview(void);
	virtual void __fastcall Init(void);
	virtual void __fastcall Lock(void);
	virtual void __fastcall Unlock(void);
	virtual void __fastcall RefreshReport(void);
	virtual void __fastcall InternalOnProgressStart(Frxclass::TfrxReport* Sender, Frxclass::TfrxProgressType ProgressType, int Progress);
	virtual void __fastcall InternalOnProgress(Frxclass::TfrxReport* Sender, Frxclass::TfrxProgressType ProgressType, int Progress);