propintf.hpp

Object Inspector for Delphi (3-7,2005) and C++ Builder (5,6)

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

// (DO NOT EDIT: machine generated header) 'PropIntf.pas' rev: 6.00

#ifndef PropIntfHPP
#define PropIntfHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <PropList.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Propintf
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TCustomPropertyInterface;
class PASCALIMPLEMENTATION TCustomPropertyInterface : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
public:
	Proplist::TProperty* operator[](int Index) { return Properties[Index]; }
	
private:
	Proplist::TPropertyList* FPropertyList;
	void __fastcall SetRoot(const Classes::TComponent* Value);
	Classes::TComponent* __fastcall GetRoot(void);
	void __fastcall SetInstance(const Classes::TComponent* Value);
	Classes::TComponent* __fastcall GetInstance(void);
	int __fastcall GetCount(void);
	Proplist::TProperty* __fastcall GetProperty(int Index);
	
public:
	__fastcall virtual TCustomPropertyInterface(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomPropertyInterface(void);
	Proplist::TProperty* __fastcall FindProperty(const AnsiString PropName);
	
protected:
	virtual Proplist::TPropertyList* __fastcall CreatePropertyList(void);
	__property Classes::TComponent* Root = {read=GetRoot, write=SetRoot};
	__property Classes::TComponent* Instance = {read=GetInstance, write=SetInstance};
	__property int Count = {read=GetCount, nodefault};
	__property Proplist::TProperty* Properties[int Index] = {read=GetProperty/*, default*/};
};


class DELPHICLASS TPropertyInterface;
class PASCALIMPLEMENTATION TPropertyInterface : public TCustomPropertyInterface 
{
	typedef TCustomPropertyInterface inherited;
	
public:
	__property Count ;
	__property Properties ;
	
__published:
	__property Root ;
	__property Instance ;
public:
	#pragma option push -w-inl
	/* TCustomPropertyInterface.Create */ inline __fastcall virtual TPropertyInterface(Classes::TComponent* AOwner) : TCustomPropertyInterface(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomPropertyInterface.Destroy */ inline __fastcall virtual ~TPropertyInterface(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall Register(void);

}	/* namespace Propintf */
using namespace Propintf;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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