aceutil.hpp

suite component ace report

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

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

#ifndef AceUtilHPP
#define AceUtilHPP

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

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

namespace Aceutil
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TAceShadePercent { spNone, spVeryDark, spDark, spMedDark, spMedium, spMedLight, spLight };
#pragma option pop

#pragma option push -b-
enum TAceVersionType { avtAceStandard, avtAceProfessional, avtAceTrial, avtAce, avtAceZac, avtAceDanysoft 
	};
#pragma option pop

typedef Set<TAceVersionType, avtAceStandard, avtAceDanysoft>  TAceVersionSet;

#pragma option push -b-
enum TAceCheckStyle { acsCross, acsCheck };
#pragma option pop

#pragma option push -b-
enum TAceDrawType { dtArc, dtChord, dtPie };
#pragma option pop

#pragma option push -b-
enum TAcePolyType { ptPolygon, ptPolyLine };
#pragma option pop

class DELPHICLASS TAceList;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAceList : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FCount;
	Classes::TList* FLists;
	
protected:
	__property Classes::TList* Lists = {read=FLists, write=FLists};
	
public:
	__fastcall virtual TAceList(void);
	__fastcall virtual ~TAceList(void);
	__property int Count = {read=FCount, nodefault};
	void * __fastcall Items(int Spot);
	void __fastcall Clear(void);
	int __fastcall Add(void * Item);
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
#define demostring1 "Printed by Ace Reporter