acepset.hpp

suite component ace report

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'AcePSet.pas' rev: 4.00

#ifndef AcePSetHPP
#define AcePSetHPP

#pragma delphiheader begin
#pragma option push -w-
#include <Graphics.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <CommDlg.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <WinSpool.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Acepset
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAceBinInfo;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceBinInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	AnsiString binName;
	Word binNumber;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAceBinInfo(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAceBinInfo(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TAceResolution;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceResolution : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	int HorzRes;
	int VertRes;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAceResolution(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAceResolution(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TAcePaper;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAcePaper : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	AnsiString PaperName;
	Word PaperNum;
	Windows::TPoint PaperSize;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TAcePaper(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TAcePaper(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TAcePrinterInfo;
class DELPHICLASS TAcePrinterSettings;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAcePrinterSettings : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FPSProperties[13];
	AnsiString FFormName;
	bool FPrintSet[14];
	int FPropCount;
	bool FCustomPaperSize;
	
protected:
	int __fastcall GetPSProperty(int Index);
	void __fastcall SetPSProperty(int Index, int Value);
	void __fastcall SetFormName(AnsiString Value);
	
public:
	__fastcall virtual TAcePrinterSettings(void);
	__fastcall virtual ~TAcePrinterSettings(void);
	virtual void __fastcall Assign(System::TObject* Source);
	void __fastcall GetValues(void);
	void __fastcall SetValues(void);
	__property int Orientation = {read=GetPSProperty, write=SetPSProperty, index=0, nodefault};
	__property int PaperSize = {read=GetPSProperty, write=SetPSProperty, index=1, nodefault};
	__property int PaperLength = {read=GetPSProperty, write=SetPSProperty, index=2, nodefault};
	__property int PaperWidth = {read=GetPSProperty, write=SetPSProperty, index=3, nodefault};
	__property int Scale = {read=GetPSProperty, write=SetPSProperty, index=4, nodefault};
	__property int Copies = {read=GetPSProperty, write=SetPSProperty, index=5, nodefault};
	__property int DefaultSource = {read=GetPSProperty, write=SetPSProperty, index=6, nodefault};
	__property int PrintQuality = {read=GetPSProperty, write=SetPSProperty, index=7, nodefault};
	__property int Color = {read=GetPSProperty, write=SetPSProperty, index=8, nodefault};
	__property int Duplex = {read=GetPSProperty, write=SetPSProperty, index=9, nodefault};
	__property int YResolution = {read=GetPSProperty, write=SetPSProperty, index=10, nodefault};
	__property int TTOption = {read=GetPSProperty, write=SetPSProperty, index=11, nodefault};
	__property int Collate = {read=GetPSProperty, write=SetPSProperty, index=12, nodefault};
	__property AnsiString FormName = {read=FFormName, write=SetFormName};
	__property bool CustomPaperSize = {read=FCustomPaperSize, write=FCustomPaperSize, nodefault};
};

#pragma pack(pop)

#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAcePrinterInfo : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TList* FBinList;
	int FCopies;
	bool FDuplex;
	Classes::TList* FResolutions;
	Windows::TPoint FMaxExtent;
	Windows::TPoint FMinExtent;
	Classes::TList* FPaperList;
	AnsiString FPrinterName;
	int FTrueType;
	char Device[80];
	char Driver[80];
	char Port[80];
	unsigned Handle;
	unsigned DevHandle;
	_devicemodeA *DeviceMode;
	TAcePrinterSettings* FPrinterSettings;
	void __fastcall GetPrinter(bool Reset);
	void __fastcall FillBinList(void);
	void __fastcall SetCopies(void);
	void __fastcall SetDuplex(void);
	void __fastcall SetResolutions(void);
	void __fastcall SetPapers(void);
	AnsiString __fastcall GetBinName(int Source);
	bool __fastcall CompareStrings(AnsiString source, AnsiString dest);
	TAceBinInfo* __fastcall GetBinByNum(int BinNum);
	
protected:
	bool __fastcall PrinterChanged(void);
	void __fastcall GetDeviceMode(bool Reset);
	void __fastcall ReleaseDeviceMode(void);
	
public:
	__fastcall virtual TAcePrinterInfo(void);
	__fastcall virtual ~TAcePrinterInfo(void);
	virtual void __fastcall Assign(System::TObject* Source);
	void __fastcall Update(void);
	__property TAcePrinterSettings* PrinterSettings = {read=FPrinterSettings, write=FPrinterSettings};
	__property Classes::TList* BinList = {read=FBinList, write=FBinList};
	__property int Copies = {read=FCopies, write=FCopies, nodefault};
	__property bool Duplex = {read=FDuplex, write=FDuplex, nodefault};
	__property Classes::TList* Resolutions = {read=FResolutions, write=FResolutions};
	__property Classes::TList* PaperList = {read=FPaperList, write=FPaperList};
	__property int TrueType = {read=FTrueType, write=FTrueType, nodefault};
	TAcePaper* __fastcall GetPaperByNum(int Value);
	TAcePaper* __fastcall GetPaperByName(AnsiString FormName);
	TAcePaper* __fastcall FindPaperByName(AnsiString FormName);
	AnsiString __fastcall GetPaperName(int Value);
	TAceResolution* __fastcall GetResolution(int HorzRes, int VertRes);
	TAceBinInfo* __fastcall FindBinByNum(int BinNum);
	TAceBinInfo* __fastcall FindBinByName(AnsiString BinName);
};

#pragma pack(pop)

#pragma option push -b-
enum TAcePrintSettings { apsOrientation, apsPaperSize, apsPaperLength, apsPaperWidth, apsScale, apsCopies, 
	apsDefaultSource, apsPrintQuality, apsColor, apsDuplex, apsYResolution, apsTTOption, apsCollate, apsFormName 
	};
#pragma option pop

#pragma option push -b-
enum TAceWinVersion { awvWin31, awvWin95, awvWinNT };
#pragma option pop

//-- var, const, procedure ---------------------------------------------------
extern "C" int __stdcall DeviceCapabilitiesA(char * pDevice, char * pPort, Word fwCapability, char * 
	pOutput, Windows::PDeviceModeA DevMode);
extern "C" int __stdcall DeviceCapabilitiesW(wchar_t * pDevice, wchar_t * pPort, Word fwCapability, 
	wchar_t * pOutput, Windows::PDeviceModeW DevMode);
extern "C" int __stdcall DeviceCapabilities(char * pDevice, char * pPort, Word fwCapability, char * 
	pOutput, Windows::PDeviceModeA DevMode);
extern PACKAGE void __fastcall AceResetPrinter(void);
extern PACKAGE TAceWinVersion __fastcall AceWinVersion(void);
extern PACKAGE int __fastcall AceGetPrinterCount(void);

#if defined(UNICODE)
#pragma option push -w-inl
inline int __stdcall DeviceCapabilities(char * pDevice, char * pPort, Word fwCapability, char * pOutput
	, Windows::PDeviceModeA DevMode)
{
	return DeviceCapabilitiesW(pDevice, pPort, fwCapability, pOutput, DevMode);
}
#pragma option pop

#else
#pragma option push -w-inl
inline int __stdcall DeviceCapabilities(char * pDevice, char * pPort, Word fwCapability, char * pOutput
	, Windows::PDeviceModeA DevMode)
{
	return DeviceCapabilitiesA(pDevice, pPort, fwCapability, pOutput, DevMode);
}
#pragma option pop

#endif


}	/* namespace Acepset */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Acepset;
#endif
#pragma option pop	// -w-

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