frxpreview.hpp

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

	virtual void __fastcall InternalOnProgressStop(Frxclass::TfrxReport* Sender, Frxclass::TfrxProgressType ProgressType, int Progress);
	void __fastcall AddPage(void);
	void __fastcall DeletePage(void);
	void __fastcall Print(void);
	void __fastcall Edit(void);
	void __fastcall First(void);
	void __fastcall Next(void);
	void __fastcall Prior(void);
	void __fastcall Last(void);
	void __fastcall PageSetupDlg(void);
	void __fastcall Find(void);
	void __fastcall FindNext(void);
	void __fastcall Cancel(void);
	void __fastcall Clear(void);
	void __fastcall SetPosition(int PageN, int Top);
	void __fastcall ShowMessage(const AnsiString s);
	void __fastcall HideMessage(void);
	void __fastcall MouseWheelScroll(int Delta, bool Horz = false, bool Zoom = false);
	int __fastcall GetTopPosition(void);
	void __fastcall LoadFromFile(void)/* overload */;
	void __fastcall LoadFromFile(AnsiString FileName)/* overload */;
	void __fastcall SaveToFile(void)/* overload */;
	void __fastcall SaveToFile(AnsiString FileName)/* overload */;
	void __fastcall Export(Frxclass::TfrxCustomExportFilter* Filter);
	bool __fastcall FindText(AnsiString SearchString, bool FromTop, bool IsCaseSensitive);
	bool __fastcall FindTextFound(void);
	void __fastcall FindTextClear(void);
	__property int PageCount = {read=GetPageCount, nodefault};
	__property int PageNo = {read=FPageNo, write=SetPageNo, nodefault};
	__property TfrxPreviewTool Tool = {read=FTool, write=FTool, nodefault};
	__property Extended Zoom = {read=FZoom, write=SetZoom};
	__property Frxclass::TfrxZoomMode ZoomMode = {read=FZoomMode, write=SetZoomMode, nodefault};
	__property bool Locked = {read=FLocked, nodefault};
	__property Comctrls::TTreeView* OutlineTree = {read=FOutline};
	__property Extctrls::TSplitter* Splitter = {read=FSplitter};
	__property TfrxPreviewWorkspace* Thumbnail = {read=FThumbnail};
	__property TfrxPreviewWorkspace* Workspace = {read=FWorkspace};
	
__published:
	__property Align  = {default=0};
	__property Graphics::TColor ActiveFrameColor = {read=GetActiveFrameColor, write=SetActiveFrameColor, default=8405024};
	__property Graphics::TColor BackColor = {read=GetBackColor, write=SetBackColor, default=8421504};
	__property BevelEdges  = {default=15};
	__property BevelInner  = {index=0, default=2};
	__property BevelKind  = {default=0};
	__property BevelOuter  = {index=1, default=1};
	__property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
	__property BorderWidth  = {default=0};
	__property Graphics::TColor FrameColor = {read=GetFrameColor, write=SetFrameColor, default=0};
	__property Graphics::TColor OutlineColor = {read=FOutlineColor, write=SetOutlineColor, default=-16777211};
	__property bool OutlineVisible = {read=GetOutlineVisible, write=SetOutlineVisible, nodefault};
	__property int OutlineWidth = {read=GetOutlineWidth, write=SetOutlineWidth, nodefault};
	__property PopupMenu ;
	__property bool ThumbnailVisible = {read=GetThumbnailVisible, write=SetThumbnailVisible, nodefault};
	__property OnClick ;
	__property OnDblClick ;
	__property TfrxPageChangedEvent OnPageChanged = {read=FOnPageChanged, write=FOnPageChanged};
	__property Anchors  = {default=3};
	__property UseReportHints ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxPreview(HWND ParentWindow) : Frxclass::TfrxCustomPreview(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxPreviewForm;
class PASCALIMPLEMENTATION TfrxPreviewForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Comctrls::TToolBar* ToolBar;
	Comctrls::TToolButton* OpenB;
	Comctrls::TToolButton* SaveB;
	Comctrls::TToolButton* PrintB;
	Comctrls::TToolButton* ExportB;
	Comctrls::TToolButton* FindB;
	Comctrls::TToolButton* PageSettingsB;
	Frxdock::TfrxTBPanel* Sep3;
	Frxctrls::TfrxComboBox* ZoomCB;
	Comctrls::TToolButton* Sep1;
	Comctrls::TToolButton* Sep2;
	Comctrls::TToolButton* FirstB;
	Comctrls::TToolButton* PriorB;
	Frxdock::TfrxTBPanel* Sep4;
	Stdctrls::TEdit* PageE;
	Comctrls::TToolButton* NextB;
	Comctrls::TToolButton* LastB;
	Comctrls::TStatusBar* StatusBar;
	Comctrls::TToolButton* ZoomMinusB;
	Comctrls::TToolButton* Sep5;
	Comctrls::TToolButton* ZoomPlusB;
	Comctrls::TToolButton* DesignerB;
	Frxdock::TfrxTBPanel* frTBPanel1;
	Buttons::TSpeedButton* CancelB;
	Menus::TPopupMenu* ExportPopup;
	Menus::TPopupMenu* HiddenMenu;
	Menus::TMenuItem* Showtemplate1;
	Menus::TPopupMenu* RightMenu;
	Comctrls::TToolButton* FullScreenBtn;
	Comctrls::TToolButton* EmailB;
	Comctrls::TToolButton* PdfB;
	Comctrls::TToolButton* OutlineB;
	Comctrls::TToolButton* ThumbB;
	Menus::TMenuItem* N1;
	Menus::TMenuItem* ExpandMI;
	Menus::TMenuItem* CollapseMI;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall ZoomMinusBClick(System::TObject* Sender);
	void __fastcall ZoomCBClick(System::TObject* Sender);
	void __fastcall FormKeyPress(System::TObject* Sender, char &Key);
	void __fastcall FirstBClick(System::TObject* Sender);
	void __fastcall PriorBClick(System::TObject* Sender);
	void __fastcall NextBClick(System::TObject* Sender);
	void __fastcall LastBClick(System::TObject* Sender);
	void __fastcall PageEClick(System::TObject* Sender);
	void __fastcall PrintBClick(System::TObject* Sender);
	void __fastcall OpenBClick(System::TObject* Sender);
	void __fastcall SaveBClick(System::TObject* Sender);
	void __fastcall FindBClick(System::TObject* Sender);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall DesignerBClick(System::TObject* Sender);
	void __fastcall NewPageBClick(System::TObject* Sender);
	void __fastcall DelPageBClick(System::TObject* Sender);
	void __fastcall CancelBClick(System::TObject* Sender);
	void __fastcall FormKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall PageSettingsBClick(System::TObject* Sender);
	void __fastcall FormMouseWheel(System::TObject* Sender, Classes::TShiftState Shift, int WheelDelta, const Types::TPoint &MousePos, bool &Handled);
	void __fastcall DesignerBMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall Showtemplate1Click(System::TObject* Sender);
	void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
	void __fastcall FullScreenBtnClick(System::TObject* Sender);
	void __fastcall PdfBClick(System::TObject* Sender);
	void __fastcall EmailBClick(System::TObject* Sender);
	void __fastcall ZoomPlusBClick(System::TObject* Sender);
	void __fastcall OutlineBClick(System::TObject* Sender);
	void __fastcall ThumbBClick(System::TObject* Sender);
	void __fastcall CollapseAllClick(System::TObject* Sender);
	void __fastcall ExpandAllClick(System::TObject* Sender);
	void __fastcall FormResize(System::TObject* Sender);
	
private:
	bool FFreeOnClose;
	TfrxPreview* FPreview;
	Forms::TFormBorderStyle FOldBS;
	Forms::TWindowState FOldState;
	bool FFullScreen;
	Frxclass::TfrxCustomExportFilter* FPDFExport;
	Frxclass::TfrxCustomExportFilter* FEmailExport;
	Classes::TWndMethod FStatusBarOldWindowProc;
	void __fastcall ExportMIClick(System::TObject* Sender);
	void __fastcall OnPageChanged(TfrxPreview* Sender, int PageNo);
	void __fastcall OnPreviewDblClick(System::TObject* Sender);
	void __fastcall UpdateControls(void);
	void __fastcall UpdateZoom(void);
	MESSAGE void __fastcall WMUpdateZoom(Messages::TMessage &Message);
	MESSAGE void __fastcall WMActivateApp(Messages::TWMActivateApp &Msg);
	HIDESBASE MESSAGE void __fastcall WMSysCommand(Messages::TWMSysCommand &Msg);
	void __fastcall StatusBarWndProc(Messages::TMessage &Message);
	Frxclass::TfrxReport* __fastcall GetReport(void);
	
public:
	void __fastcall Init(void);
	void __fastcall SetMessageText(const AnsiString Value, bool IsHint = false);
	void __fastcall SwitchToFullScreen(void);
	__property bool FreeOnClose = {read=FFreeOnClose, write=FFreeOnClose, nodefault};
	__property TfrxPreview* Preview = {read=FPreview};
	__property Frxclass::TfrxReport* Report = {read=GetReport};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TfrxPreviewForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TfrxPreviewForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TfrxPreviewForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TfrxPreviewForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxPageItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
public:
	int Height;
	int Width;
	int OffsetX;
	int OffsetY;
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TfrxPageItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TfrxPageItem(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Word WM_UPDATEZOOM = 0x401;

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

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