proplist.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) 'PropList.pas' rev: 6.00

#ifndef PropListHPP
#define PropListHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <SysUtils.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 Proplist
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS EPropertyException;
class PASCALIMPLEMENTATION EPropertyException : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EPropertyException(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EPropertyException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EPropertyException(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EPropertyException(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EPropertyException(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EPropertyException(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EPropertyException(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EPropertyException(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EPropertyException(void) { }
	#pragma option pop
	
};


class DELPHICLASS TProperty;
typedef AnsiString __fastcall (*TGetPropertyValue)(Classes::TPersistent* AInstance, TProperty* Prop);

typedef void __fastcall (*TSetPropertyValue)(Classes::TPersistent* AInstance, TProperty* Prop, AnsiString Value);

class DELPHICLASS TCustomPropData;
class PASCALIMPLEMENTATION TCustomPropData : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TMetaClass*InstanceType;
	AnsiString PropName;
	Typinfo::TTypeInfo *PropType;
	bool Descendants;
	TGetPropertyValue GetProc;
	TSetPropertyValue SetProc;
	__fastcall TCustomPropData(TMetaClass* AInstanceType, AnsiString APropName, Typinfo::PTypeInfo APropType, bool ADescendants, TGetPropertyValue AGetProc, TSetPropertyValue ASetProc);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TCustomPropData(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPropertyList;
class PASCALIMPLEMENTATION TPropertyList : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TProperty* operator[](int Index) { return Properties[Index]; }
	
private:
	TProperty* FOwner;
	Classes::TList* FProperties;
	Classes::TComponent* FRoot;
	Classes::TComponent* FInstance;
	TPropertyList* __fastcall GetOwnerList(void);
	int __fastcall GetLevel(void);
	int __fastcall GetCount(void);
	TProperty* __fastcall GetProperty(int AIndex);
	void __fastcall SetRoot(const Classes::TComponent* Value);
	void __fastcall SetInstance(const Classes::TComponent* Value);
	void __fastcall Clear(void);
	void __fastcall Sort(void);
	
public:
	__fastcall virtual TPropertyList(TProperty* AOwner);
	__fastcall virtual ~TPropertyList(void);
	virtual TProperty* __fastcall CreateProperty(Typinfo::PPropInfo APropInfo, TCustomPropData* APropData);
	virtual void __fastcall AddEmulated(TProperty* P);
	virtual void __fastcall Update(void);
	virtual int __fastcall Compare(TProperty* P1, TProperty* P2);
	virtual bool __fastcall Filter(TProperty* P);
	int __fastcall IndexOf(const TProperty* Item);
	int __fastcall IndexOfName(const AnsiString Name);
	TProperty* __fastcall FindProperty(const AnsiString Name);
	__property TPropertyList* OwnerList = {read=GetOwnerList};
	__property int Level = {read=GetLevel, nodefault};
	__property TProperty* Properties[int Index] = {read=GetProperty/*, default*/};
	__property int Count = {read=GetCount, nodefault};
	__property TProperty* Owner = {read=FOwner};
	__property Classes::TComponent* Root = {read=FRoot, write=SetRoot};
	__property Classes::TComponent* Instance = {read=FInstance, write=SetInstance};
};


class PASCALIMPLEMENTATION TProperty : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TPropertyList* FOwner;
	Classes::TComponent* FRoot;
	Classes::TPersistent* FInstance;
	Typinfo::TPropInfo *FPropInfo;
	Typinfo::TTypeData *FTypeData;
	TPropertyList* FProperties;
	TCustomPropData* FPropData;
	bool __fastcall GetEmulated(void);
	bool __fastcall GetCustom(void);
	TProperty* __fastcall GetOwnerProperty(void);
	int __fastcall GetLevel(void);
	Typinfo::PTypeInfo __fastcall GetPropType(void);
	void * __fastcall GetGetProc(void);
	void * __fastcall GetSetProc(void);
	bool __fastcall GetIsStored(void);