acectrl.hpp

suite component ace report

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

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

#ifndef AceCtrlHPP
#define AceCtrlHPP

#pragma delphiheader begin
#pragma option push -w-
#include <AceOut.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Acectrl
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAceBarCode;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceBarCode : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FNarrowWidth;
	int FWideWidth;
	bool FVertical;
	int FHeight;
	int FWidth;
	bool FWidthInInches_1000;
	
public:
	__fastcall virtual TAceBarCode(void);
	__fastcall virtual ~TAceBarCode(void);
	__property int NarrowWidth = {read=FNarrowWidth, write=FNarrowWidth, nodefault};
	__property int WideWidth = {read=FWideWidth, write=FWideWidth, nodefault};
	__property bool Vertical = {read=FVertical, write=FVertical, nodefault};
	__property int Height = {read=FHeight, write=FHeight, nodefault};
	__property int Width = {read=FWidth, write=FWidth, nodefault};
	virtual int __fastcall BarCodeLength(unsigned Handle, AnsiString Code) = 0 ;
	virtual void __fastcall Print(Aceout::TAceCanvas* AceCanvas, int x, int y, AnsiString Str);
	virtual void __fastcall PrintDC(unsigned Handle, unsigned BrushHandle, int x, int y, AnsiString Str
		) = 0 ;
	__property bool WidthInInches_1000 = {read=FWidthInInches_1000, write=FWidthInInches_1000, nodefault
		};
};

#pragma pack(pop)

class DELPHICLASS TAce3of9BarCode;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAce3of9BarCode : public TAceBarCode 
{
	typedef TAceBarCode inherited;
	
private:
	AnsiString __fastcall CharCode(char BarChar);
	
public:
	virtual void __fastcall PrintDC(unsigned Handle, unsigned BrushHandle, int x, int y, AnsiString Str
		);
	virtual int __fastcall BarCodeLength(unsigned Handle, AnsiString Code);
public:
	#pragma option push -w-inl
	/* TAceBarCode.Create */ inline __fastcall virtual TAce3of9BarCode(void) : TAceBarCode() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TAceBarCode.Destroy */ inline __fastcall virtual ~TAce3of9BarCode(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TAce2of5BarCode;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAce2of5BarCode : public TAceBarCode 
{
	typedef TAceBarCode inherited;
	
private:
	int __fastcall FindCode(char Code, const char * list, const int list_Size, int Len);
	AnsiString __fastcall GetBarString(char First, char Second);
	
public:
	virtual void __fastcall PrintDC(unsigned Handle, unsigned BrushHandle, int x, int y, AnsiString Str
		);
	virtual int __fastcall BarCodeLength(unsigned Handle, AnsiString Code);
public:
	#pragma option push -w-inl
	/* TAceBarCode.Create */ inline __fastcall virtual TAce2of5BarCode(void) : TAceBarCode() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TAceBarCode.Destroy */ inline __fastcall virtual ~TAce2of5BarCode(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE char Bar3of9Char[44];
extern PACKAGE Byte Bar3of9Code[44];
extern PACKAGE char Bar2of5Char[10];
extern PACKAGE Byte Bar2of5Code[10];

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

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