rm_preview.hpp

这是一个功能强大

	
protected:
	virtual void __fastcall Paint(void);
	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);
	
public:
	__fastcall virtual TRMDrawPanel(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall DblClick(void);
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TRMDrawPanel(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMDrawPanel(HWND ParentWindow) : Extctrls::TPanel(ParentWindow) { }
	#pragma option pop
	
};


struct TRMPreviewNodeDataInfo;
typedef TRMPreviewNodeDataInfo *PRMPreviewNodeDataInfo;

struct TRMPreviewNodeDataInfo
{
	
public:
	int PageNo;
	int Position;
} ;

class DELPHICLASS TRMPreview;
class PASCALIMPLEMENTATION TRMPreview : public TRMVirtualPreview 
{
	typedef TRMVirtualPreview inherited;
	
private:
	bool FShowToolbar;
	Classes::TNotifyEvent FOnBtnExitClickEvent;
	Rm_common::TRMPreviewSaveReportEvent FOnSaveReportEvent;
	Rm_ctrls::TRMDock* Dock971;
	Rm_ctrls::TRMToolbar* ToolbarStand;
	Rm_ctrls::TRMToolbarButton* BtnExit;
	Rm_ctrls::TRMToolbarButton* btn100;
	Rm_ctrls::TRMToolbarButton* btnOnePage;
	Rm_ctrls::TRMToolbarButton* btnPageSetup;
	Rm_ctrls::TRMToolbarButton* btnPageWidth;
	Rm_ctrls::TRMToolbarButton* btnShowOutline;
	Rm_ctrls::TRMToolbarSep* ToolbarSep972;
	Rm_ctrls::TRMToolbarButton* btnPrint;
	Rm_ctrls::TRMToolbarSep* ToolbarSep973;
	Rm_ctrls::TRMToolbarButton* btnTop;
	Rm_ctrls::TRMToolbarButton* btnSave;
	Rm_ctrls::TRMToolbarButton* btnPrev;
	Rm_ctrls::TRMToolbarButton* btnOpen;
	Rm_ctrls::TRMToolbarButton* btnNext;
	Rm_ctrls::TRMToolbarButton* btnLast;
	Rm_ctrls::TRMToolbarButton* btnFind;
	Rm_ctrls::TRMToolbarButton* btnSaveToXLS;
	Rm_ctrls::TRMToolbarButton* btnDesign;
	Rm_ctrls::TRMToolbarSep* ToolbarSep974;
	Rm_ctrls::TRMToolbarSep* ToolbarSep975;
	Rm_ctrls::TRMToolbarSep* tbLine;
	Rm_ctrls::TRMToolbarSep* ToolbarSep971;
	Rm_ctrls::TRMComboBox97* cmbZoom;
	Rm_ctrls::TRMEdit* edtPageNo;
	Rm_ctrls::TRMToolbarButton* FBtnShowBorder;
	Rm_ctrls::TRMToolbarSep* tbSep1;
	Menus::TPopupMenu* ProcMenu;
	Menus::TMenuItem* itmScale200;
	Menus::TMenuItem* itmScale150;
	Menus::TMenuItem* itmScale100;
	Menus::TMenuItem* itmScale75;
	Menus::TMenuItem* itmScale50;
	Menus::TMenuItem* itmScale25;
	Menus::TMenuItem* itmScale10;
	Menus::TMenuItem* itmPageWidth;
	Menus::TMenuItem* itmOnePage;
	Menus::TMenuItem* itmDoublePage;
	Menus::TMenuItem* N1;
	Menus::TMenuItem* itmNewPage;
	Menus::TMenuItem* itmDeletePage;
	Menus::TMenuItem* itmEditPage;
	Menus::TMenuItem* N4;
	Menus::TMenuItem* itmPrint;
	Menus::TMenuItem* itmPrintCurrentPage;
	Menus::TMenuItem* InsertBefore1;
	Menus::TMenuItem* InsertAfter1;
	Menus::TMenuItem* N2;
	Menus::TMenuItem* Append1;
	void __fastcall btnPrintClick(System::TObject* Sender);
	void __fastcall btnTopClick(System::TObject* Sender);
	void __fastcall btnPrevClick(System::TObject* Sender);
	void __fastcall btnNextClick(System::TObject* Sender);
	void __fastcall btnLastClick(System::TObject* Sender);
	void __fastcall btn100Click(System::TObject* Sender);
	void __fastcall btnOnePageClick(System::TObject* Sender);
	void __fastcall btnPageWidthClick(System::TObject* Sender);
	void __fastcall btnOpenClick(System::TObject* Sender);
	void __fastcall btnSaveClick(System::TObject* Sender);
	void __fastcall OnmnuExportClick(System::TObject* Sender);
	void __fastcall btnFindClick(System::TObject* Sender);
	void __fastcall btnPageSetupClick(System::TObject* Sender);
	void __fastcall btnShowOutlineClick(System::TObject* Sender);
	void __fastcall BtnExitClick(System::TObject* Sender);
	void __fastcall btnDesignClick(System::TObject* Sender);
	void __fastcall CmbZoomKeyPress(System::TObject* Sender, char &Key);
	void __fastcall CmbZoomClick(System::TObject* Sender);
	void __fastcall edtPageNoKeyPress(System::TObject* Sender, char &Key);
	void __fastcall btnSaveToXLSClick(System::TObject* Sender);
	void __fastcall btnShowBorderClick(System::TObject* Sender);
	void __fastcall itmScale10Click(System::TObject* Sender);
	void __fastcall itmDeletePageClick(System::TObject* Sender);
	void __fastcall itmEditPageClick(System::TObject* Sender);
	void __fastcall itmPrintCurrentPageClick(System::TObject* Sender);
	void __fastcall Append1Click(System::TObject* Sender);
	void __fastcall InsertBefore1Click(System::TObject* Sender);
	void __fastcall InsertAfter1Click(System::TObject* Sender);
	void __fastcall OnPageChangedEvent(System::TObject* Sender);
	void __fastcall OnStatusChangeEvent(System::TObject* Sender);
	void __fastcall SetShowToolbar(bool Value);
	void __fastcall CreateButtons(void);
	void __fastcall SetButtonsVisible(void);
	void __fastcall Localize(void);
	
protected:
	bool IsStanderPreview;
	
public:
	__fastcall virtual TRMPreview(Classes::TComponent* AOwner);
	__fastcall virtual ~TRMPreview(void);
	void __fastcall DoKeyDownEvent(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall LoadIni(bool aDefault);
	void __fastcall SaveIni(bool aDefault);
	__property Classes::TNotifyEvent OnBtnExitClickEvent = {read=FOnBtnExitClickEvent, write=FOnBtnExitClickEvent};
	__property Rm_common::TRMPreviewSaveReportEvent OnSaveReportEvent = {read=FOnSaveReportEvent, write=FOnSaveReportEvent};
	
__published:
	__property bool ShowToolbar = {read=FShowToolbar, write=SetShowToolbar, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMPreview(HWND ParentWindow) : TRMVirtualPreview(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TRMPreviewForm;
class PASCALIMPLEMENTATION TRMPreviewForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Controls::TImageList* ImageList1;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall FormKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall FormCloseQuery(System::TObject* Sender, bool &CanClose);
	
private:
	void *FDoc;
	TRMPreview* FViewer;
	Menus::TPopupMenu* FPopupMenu;
	Menus::TPopupMenu* FPopupMenuPrint;
	void __fastcall Localize(void);
	void __fastcall SaveIni(void);
	void __fastcall LoadIni(void);
	void __fastcall PopupMenuPrintOnPopup(System::TObject* Sender);
	
public:
	void __fastcall Execute(void * aDoc);
	__property TRMPreview* Viewer = {read=FViewer};
	__property void * Report = {read=FDoc};
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRMPreviewForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TRMPreviewForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRMPreviewForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMPreviewForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

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

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