compinsp.hpp

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

	__property ParentCtl3D  = {default=1};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=0};
	__property DragMode  = {default=0};
	__property HideSelection  = {default=1};
	__property Images ;
	__property Indent ;
	__property Items ;
	__property ReadOnly  = {default=0};
	__property ShowButtons  = {default=1};
	__property ShowLines  = {default=1};
	__property ShowRoot  = {default=1};
	__property SortType  = {default=0};
	__property StateImages ;
	__property Root ;
	__property Instance ;
	__property ComponentInspector ;
	__property ShowNonVisual  = {default=0};
	__property OnSelect ;
	__property OnFilter ;
	__property OnGetText ;
	__property OnEditText ;
	__property OnComponentImage ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TCustomTreeView.Create */ inline __fastcall virtual TComponentTree(Classes::TComponent* AOwner) : TCustomComponentTree(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomTreeView.Destroy */ inline __fastcall virtual ~TComponentTree(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TComponentTree(HWND ParentWindow) : TCustomComponentTree(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TCustomComponentComboBox;
class PASCALIMPLEMENTATION TCustomComponentComboBox : public Stdctrls::TCustomComboBox 
{
	typedef Stdctrls::TCustomComboBox inherited;
	
private:
	Classes::TComponent* FRoot;
	TCustomComponentInspector* FComponentInspector;
	TFilterComponentEvent FOnFilter;
	TGetComponentTextEvent FOnGetComponentText;
	void __fastcall SetRoot(const Classes::TComponent* Value);
	Classes::TComponent* __fastcall GetInstance(void);
	void __fastcall SetInstance(const Classes::TComponent* Value);
	void __fastcall SetComponentInspector(const TCustomComponentInspector* Value);
	
protected:
	virtual void __fastcall CreateWnd(void);
	DYNAMIC void __fastcall Change(void);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual Classes::TComponent* __fastcall TranslateComponent(Classes::TComponent* AComponent);
	virtual bool __fastcall Filter(Classes::TComponent* AComponent);
	virtual AnsiString __fastcall GetComponentText(Classes::TComponent* AComponent);
	MESSAGE void __fastcall CMOIUpdated(Messages::TMessage &Message);
	
public:
	__fastcall virtual TCustomComponentComboBox(Classes::TComponent* AOwner);
	void __fastcall RefreshList(void);
	__property Classes::TComponent* Root = {read=FRoot, write=SetRoot};
	__property Classes::TComponent* Instance = {read=GetInstance, write=SetInstance};
	__property TCustomComponentInspector* ComponentInspector = {read=FComponentInspector, write=SetComponentInspector};
	__property TFilterComponentEvent OnFilter = {read=FOnFilter, write=FOnFilter};
	__property TGetComponentTextEvent OnGetComponentText = {read=FOnGetComponentText, write=FOnGetComponentText};
public:
	#pragma option push -w-inl
	/* TCustomComboBox.Destroy */ inline __fastcall virtual ~TCustomComponentComboBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomComponentComboBox(HWND ParentWindow) : Stdctrls::TCustomComboBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TComponentComboBox;
class PASCALIMPLEMENTATION TComponentComboBox : public TCustomComponentComboBox 
{
	typedef TCustomComponentComboBox inherited;
	
__published:
	__property Anchors  = {default=3};
	__property Constraints ;
	__property Root ;
	__property Instance ;
	__property ComponentInspector ;
	__property OnFilter ;
	__property OnGetComponentText ;
	__property Color  = {default=-2147483643};
	__property Ctl3D ;
	__property DragMode  = {default=0};
	__property DragCursor  = {default=-12};
	__property DropDownCount  = {default=8};
	__property Enabled  = {default=1};
	__property Font ;
	__property ImeMode  = {default=3};
	__property ImeName ;
	__property ParentColor  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property Sorted  = {default=0};
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Visible  = {default=1};
	__property OnChange ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnDrawItem ;
	__property OnDropDown ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMeasureItem ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TCustomComponentComboBox.Create */ inline __fastcall virtual TComponentComboBox(Classes::TComponent* AOwner) : TCustomComponentComboBox(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomComboBox.Destroy */ inline __fastcall virtual ~TComponentComboBox(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TComponentComboBox(HWND ParentWindow) : TCustomComponentComboBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TCompInspProperty;
class PASCALIMPLEMENTATION TCompInspProperty : public Proplist::TProperty 
{
	typedef Proplist::TProperty inherited;
	
private:
	TCompInspList* FCompInspList;
	
public:
	__fastcall TCompInspProperty(Proplist::TPropertyList* AOwner, Classes::TComponent* ARoot, Classes::TComponent* AInstance, Typinfo::PPropInfo APropInfo, Proplist::TCustomPropData* APropData, TCompInspList* ACompInspList);
	virtual Proplist::TPropertyList* __fastcall CreatePropertyList(void);
public:
	#pragma option push -w-inl
	/* TProperty.Create */ inline __fastcall virtual TCompInspProperty(Proplist::TPropertyList* AOwner, Classes::TComponent* ARoot, Classes::TComponent* AInstance, Typinfo::PPropInfo APropInfo, Proplist::TCustomPropData* APropData) : Proplist::TProperty(AOwner, ARoot, AInstance, APropInfo, APropData) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TProperty.Destroy */ inline __fastcall virtual ~TCompInspProperty(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TCompInspPropertyList : public Proplist::TPropertyList 
{
	typedef Proplist::TPropertyList inherited;
	
private:
	TCompInspList* FCompInspList;
	TCompInspMode FMode;
	void __fastcall SetMode(const TCompInspMode Value);
	
public:
	__fastcall TCompInspPropertyList(Proplist::TProperty* AOwner, TCompInspList* ACompInspList);
	virtual Proplist::TProperty* __fastcall CreateProperty(Typinfo::PPropInfo APropInfo, Proplist::TCustomPropData* APropData);
	virtual int __fastcall Compare(Proplist::TProperty* P1, Proplist::TProperty* P2);
	virtual bool __fastcall Filter(Proplist::TProperty* P);
	__property TCompInspList* CompInspList = {read=FCompInspList};
	__property TCompInspMode Mode = {read=FMode, write=SetMode, nodefault};
public:
	#pragma option push -w-inl
	/* TPropertyList.Create */ inline __fastcall virtual TCompInspPropertyList(Proplist::TProperty* AOwner) : Proplist::TPropertyList(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TPropertyList.Destroy */ inline __fastcall virtual ~TCompInspPropertyList(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TComponentInspector : public TCustomComponentInspector 
{
	typedef TCustomComponentInspector inherited;
	
__published:
	__property Anchors  = {default=3};
	__property Constraints ;
	__property Align  = {default=0};
	__property BorderStyle  = {default=1};
	__property Color  = {default=-2147483643};
	__property Ctl3D ;
	__property DragCursor  = {default=-12};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property ImeMode  = {default=3};
	__property ImeName ;
	__property IntegralHeight  = {default=0};
	__property ParentColor  = {default=0};
	__property ParentCtl3D  = {default=1};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property TabStop  = {default=1};
	__property Visible  = {default=1};
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnStartDrag ;
	__property CheckBoxes  = {default=0};
	__property PaintStyle  = {default=0};
	__property Splitter  = {default=100};
	__property OnSelect ;
	__property OnUpdate ;
	__property OnValidateChar ;
	__property OnChangeValue ;
	__property OnDrawName ;
	__property OnDrawValue ;
	__property MultiSelect  = {default=1};
	__property DictionaryFile ;
	__property Dictionary ;
	__property Root ;
	__property Instance ;
	__property Mode  = {default=0};
	__property OnGetName ;
	__property OnGetValue ;
	__property OnGetNextValue ;
	__property OnSetValue ;
	__property OnGetButtonType ;
	__property OnGetInplaceEditorType ;
	__property OnGetMaxLength ;
	__property OnGetEditMask ;
	__property OnGetEnableExternalEditor ;
	__property OnGetReadOnly ;
	__property OnGetExpandState ;
	__property OnGetLevel ;
	__property OnGetValuesList ;
	__property OnGetSortValuesList ;
	__property OnGetSelectedValue ;
	__property OnGetAutoApply ;
	__property OnGetNameFont ;
	__property OnGetNameColor ;
	__property OnGetValueFont ;
	__property OnGetValueColor ;
	__property OnCallEditor ;
	__property OnBeforeExpand ;
	__property OnAfterExpand ;
	__property OnBeforeCollapse ;
	__property OnAfterCollapse ;
	__property OnGetEditorClass ;
	__property OnFilter ;
	__property OnCompare ;
	__property OnSelectItem ;
	__property OnDeselectItem ;
	__property OnValueDoubleClick ;
	__property OnFillEventList ;
	__property OnChange ;
	__property OnCustomizeInspector ;
public:
	#pragma option push -w-inl
	/* TCustomComponentInspector.Create */ inline __fastcall virtual TComponentInspector(Classes::TComponent* AOwner) : TCustomComponentInspector(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomComponentInspector.Destroy */ inline __fastcall virtual ~TComponentInspector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TComponentInspector(HWND ParentWindow) : TCustomComponentInspector(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Word CM_OIUPDATED = 0xbd0;

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

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