rm_propinsp.hpp

这是一个功能强大

	bool FOwnerDrawPickList;
	bool __fastcall CanExpand(void);
	int __fastcall Ident(void);
	bool __fastcall IsOnExpandButton(int AX);
	HIDESBASE TELPropsPageItem* __fastcall GetItems(int AIndex);
	void __fastcall SetExpandable(const TELPropsPageItemExpandable Value);
	void __fastcall SetCaption(const AnsiString Value);
	int __fastcall GetLevel(void);
	void __fastcall SetEditStyle(const Grids::TEditStyle Value);
	void __fastcall SetReadOnly(const bool Value);
	void __fastcall SetAutoUpdate(const bool Value);
	void __fastcall SetOwnerDrawPickList(const bool Value);
	
protected:
	virtual System::TObject* __fastcall CreateItem(void);
	virtual void __fastcall Change(void);
	virtual void __fastcall Deleted(void);
	virtual AnsiString __fastcall GetDisplayValue();
	virtual void __fastcall SetDisplayValue(const AnsiString Value);
	DYNAMIC void __fastcall EditButtonClick(void);
	DYNAMIC void __fastcall EditDblClick(void);
	virtual void __fastcall GetEditPickList(Classes::TStrings* APickList);
	virtual void __fastcall PickListMeasureHeight(const AnsiString AValue, Graphics::TCanvas* ACanvas, int &AHeight);
	virtual void __fastcall PickListMeasureWidth(const AnsiString AValue, Graphics::TCanvas* ACanvas, int &AWidth);
	virtual void __fastcall PickListDrawValue(const AnsiString AValue, Graphics::TCanvas* ACanvas, const Types::TRect &ARect, bool ASelected);
	
public:
	__fastcall virtual TELPropsPageItem(TELCustomPropsPage* AOwner, TELPropsPageItem* AParent);
	__fastcall virtual ~TELPropsPageItem(void);
	void __fastcall Expand(void);
	void __fastcall Collapse(void);
	__property TELCustomPropsPage* Owner = {read=FOwner};
	__property TELPropsPageItem* Parent = {read=FParent};
	__property TELPropsPageItemExpandable Expandable = {read=FExpandable, write=SetExpandable, nodefault};
	__property bool Expanded = {read=FExpanded, nodefault};
	__property int Level = {read=GetLevel, nodefault};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property AnsiString VirtualCaption = {read=FVirtualCaption};
	__property AnsiString PropCommon = {read=FPropCommon};
	__property AnsiString DisplayValue = {read=GetDisplayValue, write=SetDisplayValue};
	__property Grids::TEditStyle EditStyle = {read=FEditStyle, write=SetEditStyle, nodefault};
	__property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, nodefault};
	__property bool AutoUpdate = {read=FAutoUpdate, write=SetAutoUpdate, nodefault};
	__property bool OwnerDrawPickList = {read=FOwnerDrawPickList, write=SetOwnerDrawPickList, nodefault};
	__property TELPropsPageItem* Items[int AIndex] = {read=GetItems/*, default*/};
};


typedef TCustomGrid TELCustomGrid;
;

typedef DynamicArray<TELPropsPageItem* >  RM_PropInsp__01;

class DELPHICLASS TELPropsPage;
class PASCALIMPLEMENTATION TELPropsPage : public TELCustomPropsPage 
{
	typedef TELCustomPropsPage inherited;
	
public:
	__property Items ;
	__property ActiveItem ;
	
__published:
	__property Splitter ;
	__property ValuesColor  = {default=8388608};
	__property Align  = {default=0};
	__property Anchors  = {default=3};
	__property BiDiMode ;
	__property BorderStyle  = {default=1};
	__property Color  = {default=-16777201};
	__property Constraints ;
	__property Ctl3D ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property Enabled  = {default=1};
	__property Font ;
	__property ParentBiDiMode  = {default=1};
	__property ParentColor  = {default=0};
	__property ParentFont  = {default=1};
	__property ParentShowHint  = {default=1};
	__property PopupMenu ;
	__property ShowHint ;
	__property TabOrder  = {default=-1};
	__property Visible  = {default=1};
	__property OnClick ;
	__property OnContextPopup ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMouseWheelDown ;
	__property OnMouseWheelUp ;
	__property OnStartDock ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TELCustomPropsPage.Create */ inline __fastcall virtual TELPropsPage(Classes::TComponent* AOwner) : TELCustomPropsPage(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELCustomPropsPage.Destroy */ inline __fastcall virtual ~TELPropsPage(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TELPropsPage(HWND ParentWindow) : TELCustomPropsPage(ParentWindow) { }
	#pragma option pop
	
};


typedef TMetaClass* TELPropEditorClass;

class DELPHICLASS EELPropEditor;
class PASCALIMPLEMENTATION EELPropEditor : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EELPropEditor(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EELPropEditor(const AnsiString Msg, System::TVarRec const * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EELPropEditor(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EELPropEditor(int Ident, System::TVarRec const * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EELPropEditor(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EELPropEditor(const AnsiString Msg, System::TVarRec const * 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 EELPropEditor(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EELPropEditor(System::PResStringRec ResStringRec, System::TVarRec const * 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 ~EELPropEditor(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TELPropAttr { praValueList, praSubProperties, praDialog, praMultiSelect, praSortList, praReadOnly, praVolatileSubProperties, praNotNestable, praAutoUpdate, praOwnerDrawValues, praComponentRef, praMethodProp };
#pragma option pop

typedef Set<TELPropAttr, praValueList, praMethodProp>  TELPropAttrs;

typedef TMetaClass* __fastcall (__closure *TELGetEditorClassProc)(Classes::TPersistent* AInstance, Typinfo::PPropInfo APropInfo);

typedef void __fastcall (__closure *TELOnGetComponent)(System::TObject* Sender, const AnsiString AComponentName, Classes::TComponent* &AComponent);

typedef void __fastcall (__closure *TELOnGetComponentNames)(System::TObject* Sender, TMetaClass* AClass, Classes::TStrings* AResult);

typedef void __fastcall (__closure *TELOnGetComponentName)(System::TObject* Sender, Classes::TComponent* AComponent, AnsiString &AName);

#pragma pack(push,1)
struct TELPropEditorPropListItem
{
	
public:
	Classes::TPersistent* Instance;
	Typinfo::TPropInfo *PropInfo;
} ;
#pragma pack(pop)

typedef TELPropEditorPropListItem TELPropEditorPropList[1024];

typedef TELPropEditorPropList *PELPropEditorPropList;

class DELPHICLASS TELPropEditor;
class PASCALIMPLEMENTATION TELPropEditor : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TELPropEditorPropList *FPropList;
	int FPropCount;
	Classes::TNotifyEvent FOnModified;
	TELOnGetComponent FOnGetComponent;
	TELOnGetComponentNames FOnGetComponentNames;
	TELOnGetComponentName FOnGetComponentName;
	void *FDesigner;
	Typinfo::PTypeInfo __fastcall GetPropTypeInfo(void);
	AnsiString __fastcall DoGetValue();
	
protected:
	void __fastcall SetPropEntry(int AIndex, Classes::TPersistent* AInstance, Typinfo::PPropInfo APropInfo);
	Classes::TComponent* __fastcall GetComponent(const AnsiString AComponentName);
	void __fastcall GetComponentNames(TMetaClass* AClass, Classes::TStrings* AResult);
	AnsiString __fastcall GetComponentName(Classes::TComponent* AComponent);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
	virtual TELPropAttrs __fastcall GetAttrs(void);
	virtual void __fastcall GetValues(Classes::TStrings* AValues);
	virtual void __fastcall GetSubProps(TELGetEditorClassProc AGetEditorClassProc, Classes::TList* AResult);
	virtual AnsiString __fastcall GetPropName();
	virtual bool __fastcall AllEqual(void);
	virtual void __fastcall Edit(void);
	virtual void __fastcall ValuesMeasureHeight(const AnsiString AValue, Graphics::TCanvas* ACanvas, int &AHeight);
	virtual void __fastcall ValuesMeasureWidth(const AnsiString AValue, Graphics::TCanvas* ACanvas, int &AWidth);
	virtual void __fastcall ValuesDrawValue(const AnsiString AValue, Graphics::TCanvas* ACanvas, const Types::TRect &ARect, bool ASelected);
	Typinfo::PPropInfo __fastcall GetPropInfo(int AIndex);
	Classes::TPersistent* __fastcall GetInstance(int AIndex);
	Extended __fastcall GetFloatValue(int AIndex);
	__int64 __fastcall GetInt64Value(int AIndex);
	int __fastcall GetOrdValue(int AIndex);
	AnsiString __fastcall GetStrValue(int AIndex);
	Variant __fastcall GetVarValue(int AIndex);
	void __fastcall SetFloatValue(Extended Value);
	void __fastcall SetInt64Value(__int64 Value);
	void __fastcall SetOrdValue(int Value);
	void __fastcall SetStrValue(const AnsiString Value);
	void __fastcall SetVarValue(const Variant &Value);
	
public:
	__fastcall virtual TELPropEditor(void * ADesigner, int APropCount);
	__fastcall virtual ~TELPropEditor(void);
	void __fastcall Modified(void);
	__property AnsiString PropName = {read=GetPropName};
	__property Typinfo::PTypeInfo PropTypeInfo = {read=GetPropTypeInfo};
	__property int PropCount = {read=FPropCount, nodefault};
	__property AnsiString Value = {read=DoGetValue, write=SetValue};
	__property void * Designer = {read=FDesigner};
	__property Classes::TNotifyEvent OnModified = {read=FOnModified, write=FOnModified};
	__property TELOnGetComponent OnGetComponent = {read=FOnGetComponent, write=FOnGetComponent};
	__property TELOnGetComponentNames OnGetComponentNames = {read=FOnGetComponentNames, write=FOnGetComponentNames};
	__property TELOnGetComponentName OnGetComponentName = {read=FOnGetComponentName, write=FOnGetComponentName};
};


class DELPHICLASS TELNestedPropEditor;
class PASCALIMPLEMENTATION TELNestedPropEditor : public TELPropEditor 
{
	typedef TELPropEditor inherited;
	
protected:
	virtual AnsiString __fastcall GetPropName();
	
public:
	__fastcall TELNestedPropEditor(TELPropEditor* AParent);
	__fastcall virtual ~TELNestedPropEditor(void);
};


class DELPHICLASS TELOrdinalPropEditor;
class PASCALIMPLEMENTATION TELOrdinalPropEditor : public TELPropEditor 
{
	typedef TELPropEditor inherited;
	
protected:
	virtual bool __fastcall AllEqual(void);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELOrdinalPropEditor(void * ADesigner, int APropCount) : TELPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELOrdinalPropEditor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TELIntegerPropEditor;
class PASCALIMPLEMENTATION TELIntegerPropEditor : public TELOrdinalPropEditor 
{
	typedef TELOrdinalPropEditor inherited;
	
protected:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELIntegerPropEditor(void * ADesigner, int APropCount) : TELOrdinalPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELIntegerPropEditor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TELCharPropEditor;
class PASCALIMPLEMENTATION TELCharPropEditor : public TELOrdinalPropEditor 
{
	typedef TELOrdinalPropEditor inherited;
	
protected:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELCharPropEditor(void * ADesigner, int APropCount) : TELOrdinalPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELCharPropEditor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TELEnumPropEditor;
class PASCALIMPLEMENTATION TELEnumPropEditor : public TELOrdinalPropEditor 
{
	typedef TELOrdinalPropEditor inherited;
	
protected:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
	virtual TELPropAttrs __fastcall GetAttrs(void);
	virtual void __fastcall GetValues(Classes::TStrings* AValues);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELEnumPropEditor(void * ADesigner, int APropCount) : TELOrdinalPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELEnumPropEditor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TELFloatPropEditor;
class PASCALIMPLEMENTATION TELFloatPropEditor : public TELPropEditor 
{
	typedef TELPropEditor inherited;
	
protected:
	virtual bool __fastcall AllEqual(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELFloatPropEditor(void * ADesigner, int APropCount) : TELPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELFloatPropEditor(void) { }
	#pragma option pop
	
};


class DELPHICLASS TELStringPropEditor;
class PASCALIMPLEMENTATION TELStringPropEditor : public TELPropEditor 
{
	typedef TELPropEditor inherited;
	
protected:
	virtual bool __fastcall AllEqual(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TELPropEditor.Create */ inline __fastcall virtual TELStringPropEditor(void * ADesigner, int APropCount) : TELPropEditor(ADesigner, APropCount) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TELPropEditor.Destroy */ inline __fastcall virtual ~TELStringPropEditor(void) { }
	#pragma option pop