inspctrl.hpp

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

	TBooleanEvent FOnGetReadOnly;
	TExpandStateEvent FOnGetExpandState;
	TIntegerEvent FOnGetLevel;
	TPointerEvent FOnGetData;
	TStringsEvent FOnGetValuesList;
	TBooleanEvent FOnGetSortValuesList;
	TGetStringEvent FOnGetSelectedValue;
	TBooleanEvent FOnGetAutoApply;
	TFontEvent FOnGetNameFont;
	TColorEvent FOnGetNameColor;
	TFontEvent FOnGetValueFont;
	TColorEvent FOnGetValueColor;
	TCallEditorEvent FOnCallEditor;
	TIndexNotifyEvent FOnExpand;
	TIndexNotifyEvent FOnCollapse;
	TIndexNotifyEvent FOnSelectItem;
	TIndexNotifyEvent FOnDeselectItem;
	TIndexEnableEvent FOnValueDoubleClick;
	TIntegerEvent FOnDragValue;
	bool __fastcall GetLocked(void);
	int __fastcall GetItemCount(void);
	void __fastcall SetItemCount(const int Value);
	void __fastcall SetSplitter(const int Value);
	void __fastcall SetCheckBoxes(const bool Value);
	void __fastcall SetPaintStyle(const TPaintStyle Value);
	void __fastcall DrawDragSplitter(void);
	void __fastcall SetMouseItem(int Pos);
	HIDESBASE bool __fastcall Action(TItemAction A);
	void __fastcall HidePopup(void);
	bool __fastcall IsFocused(void);
	bool __fastcall SpecialClick(int L);
	void __fastcall UpdateControls(void);
	void __fastcall SetIndex(const int Value);
	void __fastcall FocusControl(void);
	void __fastcall TrialMessage(void);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	virtual int __fastcall GetDefaultIndex(void);
	void __fastcall FullUpdateNeeded(void);
	virtual int __fastcall GetPopupItemWidth(Stdctrls::TListBox* ListBox, int TheIndex);
	virtual void __fastcall DrawPopupItem(Stdctrls::TListBox* ListBox, int ListItemIndex, const Types::TRect &R, int TheIndex);
	virtual void __fastcall SetEditedText(const AnsiString AText);
	virtual bool __fastcall ValidateChar(int TheIndex, char &Key);
	virtual void __fastcall ChangeValue(int TheIndex, bool Editing, const AnsiString AText);
	void __fastcall SetSelectionPos(int TheIndex, bool NeedUpdate);
	virtual void __fastcall DrawPropertyName(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual void __fastcall DrawPropertyValue(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual void __fastcall DrawVerticalSeparator(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual void __fastcall DrawHorizontalSeparator(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual void __fastcall DrawBorders(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	virtual AnsiString __fastcall GetName(int TheIndex);
	virtual AnsiString __fastcall GetValue(int TheIndex);
	virtual AnsiString __fastcall GetNextValue(int TheIndex);
	virtual void __fastcall SetValue(int TheIndex, const AnsiString Value);
	virtual void __fastcall DragValue(int TheIndex, int Offset);
	virtual TButtonType __fastcall GetButtonType(int TheIndex);
	virtual TInplaceEditorType __fastcall GetInplaceEditorType(int TheIndex);
	virtual int __fastcall GetMaxLength(int TheIndex);
	virtual AnsiString __fastcall GetEditMask(int TheIndex);
	virtual bool __fastcall GetEnableExternalEditor(int TheIndex);
	virtual bool __fastcall GetReadOnly(int TheIndex);
	virtual TExpandState __fastcall GetExpandState(int TheIndex);
	virtual int __fastcall GetLevel(int TheIndex);
	virtual void * __fastcall GetData(int TheIndex);
	virtual void __fastcall GetValuesList(int TheIndex, const Classes::TStrings* Strings);
	virtual bool __fastcall GetSortValuesList(int TheIndex);
	virtual AnsiString __fastcall GetSelectedValue(int TheIndex);
	virtual bool __fastcall GetAutoApply(int TheIndex);
	virtual void __fastcall GetNameFont(int TheIndex, Graphics::TFont* TheFont);
	virtual Graphics::TColor __fastcall GetNameColor(int TheIndex);
	virtual void __fastcall GetValueFont(int TheIndex, Graphics::TFont* TheFont);
	virtual Graphics::TColor __fastcall GetValueColor(int TheIndex);
	virtual int __fastcall GetIndent(void);
	virtual bool __fastcall CallEditor(int TheIndex);
	virtual void __fastcall Expand(int TheIndex);
	virtual void __fastcall Collapse(int TheIndex);
	virtual void __fastcall SelectItem(int TheIndex);
	virtual void __fastcall DeselectItem(int TheIndex);
	__property int ItemCount = {read=GetItemCount, write=SetItemCount, default=0};
	__property int Splitter = {read=FSplitter, write=SetSplitter, default=100};
	__property bool CheckBoxes = {read=FCheckBoxes, write=SetCheckBoxes, default=0};
	__property TIndexNotifyEvent OnSelect = {read=FOnSelect, write=FOnSelect};
	__property Classes::TNotifyEvent OnUpdate = {read=FOnUpdate, write=FOnUpdate};
	__property TValidateCharEvent OnValidateChar = {read=FOnValidateChar, write=FOnValidateChar};
	__property TChangeValueEvent OnChangeValue = {read=FOnChangeValue, write=FOnChangeValue};
	__property TIndexDrawEvent OnDrawName = {read=FOnDrawName, write=FOnDrawName};
	__property TIndexDrawEvent OnDrawValue = {read=FOnDrawValue, write=FOnDrawValue};
	__property TGetStringEvent OnGetName = {read=FOnGetName, write=FOnGetName};
	__property TGetStringEvent OnGetValue = {read=FOnGetValue, write=FOnGetValue};
	__property TGetStringEvent OnGetNextValue = {read=FOnGetNextValue, write=FOnGetNextValue};
	__property TSetStringEvent OnSetValue = {read=FOnSetValue, write=FOnSetValue};
	__property TButtonTypeEvent OnGetButtonType = {read=FOnGetButtonType, write=FOnGetButtonType};
	__property TInplaceEditorTypeEvent OnGetInplaceEditorType = {read=FOnGetInplaceEditorType, write=FOnGetInplaceEditorType};
	__property TIntegerEvent OnGetMaxLength = {read=FOnGetMaxLength, write=FOnGetMaxLength};
	__property TGetStringEvent OnGetEditMask = {read=FOnGetEditMask, write=FOnGetEditMask};
	__property TBooleanEvent OnGetEnableExternalEditor = {read=FOnGetEnableExternalEditor, write=FOnGetEnableExternalEditor};
	__property TBooleanEvent OnGetReadOnly = {read=FOnGetReadOnly, write=FOnGetReadOnly};
	__property TExpandStateEvent OnGetExpandState = {read=FOnGetExpandState, write=FOnGetExpandState};
	__property TIntegerEvent OnGetLevel = {read=FOnGetLevel, write=FOnGetLevel};
	__property TPointerEvent OnGetData = {read=FOnGetData, write=FOnGetData};
	__property TStringsEvent OnGetValuesList = {read=FOnGetValuesList, write=FOnGetValuesList};
	__property TBooleanEvent OnGetSortValuesList = {read=FOnGetSortValuesList, write=FOnGetSortValuesList};
	__property TGetStringEvent OnGetSelectedValue = {read=FOnGetSelectedValue, write=FOnGetSelectedValue};
	__property TBooleanEvent OnGetAutoApply = {read=FOnGetAutoApply, write=FOnGetAutoApply};
	__property TFontEvent OnGetNameFont = {read=FOnGetNameFont, write=FOnGetNameFont};
	__property TColorEvent OnGetNameColor = {read=FOnGetNameColor, write=FOnGetNameColor};
	__property TFontEvent OnGetValueFont = {read=FOnGetValueFont, write=FOnGetValueFont};
	__property TColorEvent OnGetValueColor = {read=FOnGetValueColor, write=FOnGetValueColor};
	__property TCallEditorEvent OnCallEditor = {read=FOnCallEditor, write=FOnCallEditor};
	__property TIndexNotifyEvent OnExpand = {read=FOnExpand, write=FOnExpand};
	__property TIndexNotifyEvent OnCollapse = {read=FOnCollapse, write=FOnCollapse};
	__property TIndexNotifyEvent OnSelectItem = {read=FOnSelectItem, write=FOnSelectItem};
	__property TIndexNotifyEvent OnDeselectItem = {read=FOnDeselectItem, write=FOnDeselectItem};
	__property TIndexEnableEvent OnValueDoubleClick = {read=FOnValueDoubleClick, write=FOnValueDoubleClick};
	__property TIntegerEvent OnDragValue = {read=FOnDragValue, write=FOnDragValue};
	
public:
	__fastcall virtual TCustomInspector(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomInspector(void);
	virtual void __fastcall Update(void);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall Lock(void);
	virtual void __fastcall Unlock(void);
	void __fastcall DrawPropertyNameDefault(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	void __fastcall DrawPropertyValueDefault(Graphics::TCanvas* TheCanvas, int TheIndex, const Types::TRect &R);
	void __fastcall ApplyChanges(void);
	void __fastcall IgnoreChanges(void);
	__property TInspectorEdit* InplaceEdit = {read=FEdit};
	__property TInspectorCheckBox* InplaceCheckBox = {read=FCheckBox};
	__property bool Locked = {read=GetLocked, nodefault};
	__property AnsiString Names[int Index] = {read=GetName};
	__property AnsiString Values[int Index] = {read=GetValue};
	__property TButtonType ButtonType[int Index] = {read=GetButtonType};
	__property TInplaceEditorType InplaceEditorType[int Index] = {read=GetInplaceEditorType};
	__property bool EnableExternalEditor[int Index] = {read=GetEnableExternalEditor};
	__property bool ReadOnly[int Index] = {read=GetReadOnly};
	__property TExpandState ExpandState[int Index] = {read=GetExpandState};
	__property int Index = {read=FIndex, write=SetIndex, nodefault};
	__property bool Clicked = {read=FClicked, write=FClicked, nodefault};
	__property TPaintStyle PaintStyle = {read=FPaintStyle, write=SetPaintStyle, default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomInspector(HWND ParentWindow) : Stdctrls::TCustomListBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TCommonInspector;
class PASCALIMPLEMENTATION TCommonInspector : public TCustomInspector 
{
	typedef TCustomInspector 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 ItemCount  = {default=0};
	__property CheckBoxes  = {default=0};
	__property PaintStyle  = {default=0};
	__property Splitter  = {default=100};
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnStartDrag ;
	__property OnUpdate ;
	__property OnValidateChar ;
	__property OnChangeValue ;
	__property OnDrawName ;
	__property OnDrawValue ;
	__property OnGetName ;
	__property OnGetValue ;
	__property OnGetNextValue ;
	__property OnSetValue ;
	__property OnGetButtonType ;
	__property OnGetMaxLength ;
	__property OnGetEditMask ;
	__property OnGetInplaceEditorType ;
	__property OnGetEnableExternalEditor ;
	__property OnGetReadOnly ;
	__property OnGetExpandState ;
	__property OnGetLevel ;
	__property OnGetData ;
	__property OnGetValuesList ;
	__property OnGetSortValuesList ;
	__property OnGetSelectedValue ;
	__property OnGetAutoApply ;
	__property OnGetNameFont ;
	__property OnGetNameColor ;
	__property OnGetValueFont ;
	__property OnGetValueColor ;
	__property OnCallEditor ;
	__property OnExpand ;
	__property OnCollapse ;
	__property OnSelectItem ;
	__property OnDeselectItem ;
	__property OnValueDoubleClick ;
	__property OnDragValue ;
public:
	#pragma option push -w-inl
	/* TCustomInspector.Create */ inline __fastcall virtual TCommonInspector(Classes::TComponent* AOwner) : TCustomInspector(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomInspector.Destroy */ inline __fastcall virtual ~TCommonInspector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCommonInspector(HWND ParentWindow) : TCustomInspector(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

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

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