frxprinter.hpp

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

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

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

#ifndef FrxprinterHPP
#define FrxprinterHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

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

namespace Frxprinter
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TfrxCustomPrinter;
class DELPHICLASS TfrxPrinterCanvas;
class PASCALIMPLEMENTATION TfrxPrinterCanvas : public Graphics::TCanvas 
{
	typedef Graphics::TCanvas inherited;
	
private:
	TfrxCustomPrinter* FPrinter;
	void __fastcall UpdateFont(void);
	
public:
	virtual void __fastcall Changing(void);
public:
	#pragma option push -w-inl
	/* TCanvas.Create */ inline __fastcall TfrxPrinterCanvas(void) : Graphics::TCanvas() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCanvas.Destroy */ inline __fastcall virtual ~TfrxPrinterCanvas(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TfrxCustomPrinter : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FBin;
	Classes::TStrings* FBins;
	TfrxPrinterCanvas* FCanvas;
	Printers::TPrinterOrientation FDefOrientation;
	int FDefPaper;
	Extended FDefPaperHeight;
	Extended FDefPaperWidth;
	#pragma pack(push,1)
	Types::TPoint FDPI;
	#pragma pack(pop)
	AnsiString FFileName;
	unsigned FHandle;
	bool FInitialized;
	AnsiString FName;
	int FPaper;
	Classes::TStrings* FPapers;
	Extended FPaperHeight;
	Extended FPaperWidth;
	Extended FLeftMargin;
	Extended FTopMargin;
	Extended FRightMargin;
	Extended FBottomMargin;
	Printers::TPrinterOrientation FOrientation;
	AnsiString FPort;
	bool FPrinting;
	AnsiString FTitle;
	
public:
	__fastcall virtual TfrxCustomPrinter(const AnsiString AName, const AnsiString APort);
	__fastcall virtual ~TfrxCustomPrinter(void);
	virtual void __fastcall Init(void) = 0 ;
	virtual void __fastcall Abort(void) = 0 ;
	virtual void __fastcall BeginDoc(void) = 0 ;
	virtual void __fastcall BeginPage(void) = 0 ;
	virtual void __fastcall BeginRAWDoc(void) = 0 ;
	virtual void __fastcall EndDoc(void) = 0 ;
	virtual void __fastcall EndPage(void) = 0 ;
	virtual void __fastcall EndRAWDoc(void) = 0 ;
	virtual void __fastcall WriteRAWDoc(const AnsiString buf) = 0 ;
	int __fastcall BinIndex(int ABin);
	int __fastcall PaperIndex(int APaper);
	int __fastcall BinNameToNumber(const AnsiString ABin);
	int __fastcall PaperNameToNumber(const AnsiString APaper);
	virtual void __fastcall SetViewParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation) = 0 ;
	virtual void __fastcall SetPrintParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation, int ABin, int ADuplex, int ACopies) = 0 ;
	virtual void __fastcall PropertiesDlg(void) = 0 ;
	__property int Bin = {read=FBin, nodefault};
	__property Classes::TStrings* Bins = {read=FBins};
	__property TfrxPrinterCanvas* Canvas = {read=FCanvas};
	__property Printers::TPrinterOrientation DefOrientation = {read=FDefOrientation, nodefault};
	__property int DefPaper = {read=FDefPaper, nodefault};
	__property Extended DefPaperHeight = {read=FDefPaperHeight};
	__property Extended DefPaperWidth = {read=FDefPaperWidth};
	__property Types::TPoint DPI = {read=FDPI};
	__property AnsiString FileName = {read=FFileName, write=FFileName};
	__property unsigned Handle = {read=FHandle, nodefault};
	__property AnsiString Name = {read=FName};
	__property int Paper = {read=FPaper, nodefault};
	__property Classes::TStrings* Papers = {read=FPapers};
	__property Extended PaperHeight = {read=FPaperHeight};
	__property Extended PaperWidth = {read=FPaperWidth};
	__property Extended LeftMargin = {read=FLeftMargin};
	__property Extended TopMargin = {read=FTopMargin};
	__property Extended RightMargin = {read=FRightMargin};
	__property Extended BottomMargin = {read=FBottomMargin};
	__property Printers::TPrinterOrientation Orientation = {read=FOrientation, nodefault};
	__property AnsiString Port = {read=FPort};
	__property AnsiString Title = {read=FTitle, write=FTitle};
	__property bool Initialized = {read=FInitialized, nodefault};
};


class DELPHICLASS TfrxVirtualPrinter;
class PASCALIMPLEMENTATION TfrxVirtualPrinter : public TfrxCustomPrinter 
{
	typedef TfrxCustomPrinter inherited;
	
public:
	virtual void __fastcall Init(void);
	virtual void __fastcall Abort(void);
	virtual void __fastcall BeginDoc(void);
	virtual void __fastcall BeginPage(void);
	virtual void __fastcall BeginRAWDoc(void);
	virtual void __fastcall EndDoc(void);
	virtual void __fastcall EndPage(void);
	virtual void __fastcall EndRAWDoc(void);
	virtual void __fastcall WriteRAWDoc(const AnsiString buf);
	virtual void __fastcall SetViewParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation);
	virtual void __fastcall SetPrintParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation, int ABin, int ADuplex, int ACopies);
	virtual void __fastcall PropertiesDlg(void);
public:
	#pragma option push -w-inl
	/* TfrxCustomPrinter.Create */ inline __fastcall virtual TfrxVirtualPrinter(const AnsiString AName, const AnsiString APort) : TfrxCustomPrinter(AName, APort) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TfrxCustomPrinter.Destroy */ inline __fastcall virtual ~TfrxVirtualPrinter(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxPrinter;
class PASCALIMPLEMENTATION TfrxPrinter : public TfrxCustomPrinter 
{
	typedef TfrxCustomPrinter inherited;
	
private:
	unsigned FDeviceMode;
	HDC FDC;
	AnsiString FDriver;
	_devicemodeA *FMode;
	void __fastcall CreateDevMode(void);
	void __fastcall FreeDevMode(void);
	void __fastcall GetDC(void);
	
public:
	__fastcall virtual ~TfrxPrinter(void);
	virtual void __fastcall Init(void);
	void __fastcall RecreateDC(void);
	virtual void __fastcall Abort(void);
	virtual void __fastcall BeginDoc(void);
	virtual void __fastcall BeginPage(void);
	virtual void __fastcall BeginRAWDoc(void);
	virtual void __fastcall EndDoc(void);
	virtual void __fastcall EndPage(void);
	virtual void __fastcall EndRAWDoc(void);
	virtual void __fastcall WriteRAWDoc(const AnsiString buf);
	virtual void __fastcall SetViewParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation);
	virtual void __fastcall SetPrintParams(int APaperSize, Extended APaperWidth, Extended APaperHeight, Printers::TPrinterOrientation AOrientation, int ABin, int ADuplex, int ACopies);
	virtual void __fastcall PropertiesDlg(void);
	bool __fastcall UpdateDeviceCaps(void);
	__property Windows::PDeviceModeA DeviceMode = {read=FMode};
public:
	#pragma option push -w-inl
	/* TfrxCustomPrinter.Create */ inline __fastcall virtual TfrxPrinter(const AnsiString AName, const AnsiString APort) : TfrxCustomPrinter(AName, APort) { }
	#pragma option pop
	
};


class DELPHICLASS TfrxPrinters;
class PASCALIMPLEMENTATION TfrxPrinters : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TfrxCustomPrinter* operator[](int Index) { return Items[Index]; }
	
private:
	bool FHasPhysicalPrinters;
	Classes::TStrings* FPrinters;
	int FPrinterIndex;
	Classes::TList* FPrinterList;
	AnsiString __fastcall GetDefaultPrinter();
	TfrxCustomPrinter* __fastcall GetItem(int Index);
	TfrxCustomPrinter* __fastcall GetCurrentPrinter(void);
	void __fastcall SetPrinterIndex(int Value);
	
public:
	__fastcall TfrxPrinters(void);
	__fastcall virtual ~TfrxPrinters(void);
	int __fastcall IndexOf(AnsiString AName);
	void __fastcall Clear(void);
	void __fastcall FillPrinters(void);
	__property TfrxCustomPrinter* Items[int Index] = {read=GetItem/*, default*/};
	__property bool HasPhysicalPrinters = {read=FHasPhysicalPrinters, nodefault};
	__property TfrxCustomPrinter* Printer = {read=GetCurrentPrinter};
	__property int PrinterIndex = {read=FPrinterIndex, write=SetPrinterIndex, nodefault};
	__property Classes::TStrings* Printers = {read=FPrinters};
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE bool __fastcall frxGetPaperDimensions(int PaperSize, Extended &Width, Extended &Height);
extern PACKAGE TfrxPrinters* __fastcall frxPrinters(void);

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

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