inspctrl.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) 'InspCtrl.pas' rev: 6.00

#ifndef InspCtrlHPP
#define InspCtrlHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Inspctrl
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TButtonType { btNone, btDropDown, btUpDown, btDialog };
#pragma option pop

#pragma option push -b-
enum TInplaceEditorType { ieNone, ieEdit, ieCheckBox };
#pragma option pop

#pragma option push -b-
enum TExpandState { esNone, esExpand, esCollapse };
#pragma option pop

class DELPHICLASS TInspectorPopup;
class DELPHICLASS TCustomInspector;
class PASCALIMPLEMENTATION TInspectorPopup : public Stdctrls::TListBox 
{
	typedef Stdctrls::TListBox inherited;
	
private:
	TCustomInspector* __fastcall Inspector(void);
	
protected:
	virtual void __fastcall DrawItem(int TheIndex, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
public:
	__fastcall virtual TInspectorPopup(Classes::TComponent* AOwner);
public:
	#pragma option push -w-inl
	/* TCustomListBox.Destroy */ inline __fastcall virtual ~TInspectorPopup(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInspectorPopup(HWND ParentWindow) : Stdctrls::TListBox(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TInspectorEdit;
class PASCALIMPLEMENTATION TInspectorEdit : public Mask::TMaskEdit 
{
	typedef Mask::TMaskEdit inherited;
	
private:
	bool FEditing;
	TCustomInspector* __fastcall Inspector(void);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall Change(void);
public:
	#pragma option push -w-inl
	/* TCustomMaskEdit.Create */ inline __fastcall virtual TInspectorEdit(Classes::TComponent* AOwner) : Mask::TMaskEdit(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInspectorEdit(HWND ParentWindow) : Mask::TMaskEdit(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TInspectorEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInspectorCheckBox;
class PASCALIMPLEMENTATION TInspectorCheckBox : public Stdctrls::TCheckBox 
{
	typedef Stdctrls::TCheckBox inherited;
	
private:
	TCustomInspector* __fastcall Inspector(void);
	
protected:
	DYNAMIC void __fastcall Click(void);
public:
	#pragma option push -w-inl
	/* TCustomCheckBox.Create */ inline __fastcall virtual TInspectorCheckBox(Classes::TComponent* AOwner) : Stdctrls::TCheckBox(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInspectorCheckBox(HWND ParentWindow) : Stdctrls::TCheckBox(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TInspectorCheckBox(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInspectorButton;
class PASCALIMPLEMENTATION TInspectorButton : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	bool FDown;
	TButtonType FButtonType;
	Graphics::TBitmap* FDropDown;
	Graphics::TBitmap* FUpDown;
	Graphics::TBitmap* FDialog;
	void __fastcall SetDown(const bool Value);
	void __fastcall SetButtonType(const TButtonType Value);
	TCustomInspector* __fastcall Inspector(void);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
public:
	__fastcall virtual TInspectorButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TInspectorButton(void);
	__property bool Down = {read=FDown, write=SetDown, nodefault};
	__property TButtonType ButtonType = {read=FButtonType, write=SetButtonType, nodefault};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TInspectorButton(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TDragKind { dkNone, dkItem, dkSplitter };
#pragma option pop

#pragma option push -b-
enum TItemAction { iaDoubleClick, iaButtonClick };
#pragma option pop

#pragma option push -b-
enum TPaintStyle { psClassic, psTree, psGreatis };
#pragma option pop

typedef bool __fastcall (__closure *TValidateCharEvent)(System::TObject* Sender, int TheIndex, char &Key);

typedef void __fastcall (__closure *TGetStringEvent)(System::TObject* Sender, int TheIndex, AnsiString &Value);

typedef void __fastcall (__closure *TSetStringEvent)(System::TObject* Sender, int TheIndex, const AnsiString Value);

typedef void __fastcall (__closure *TButtonTypeEvent)(System::TObject* Sender, int TheIndex, TButtonType &Value);

typedef void __fastcall (__closure *TInplaceEditorTypeEvent)(System::TObject* Sender, int TheIndex, TInplaceEditorType &Value);

typedef void __fastcall (__closure *TBooleanEvent)(System::TObject* Sender, int TheIndex, bool &Value);

typedef void __fastcall (__closure *TExpandStateEvent)(System::TObject* Sender, int TheIndex, TExpandState &Value);

typedef void __fastcall (__closure *TIntegerEvent)(System::TObject* Sender, int TheIndex, int &Value);

typedef void __fastcall (__closure *TPointerEvent)(System::TObject* Sender, int TheIndex, void * &Value);

typedef void __fastcall (__closure *TColorEvent)(System::TObject* Sender, int TheIndex, Graphics::TColor &Value);

typedef void __fastcall (__closure *TFontEvent)(System::TObject* Sender, int TheIndex, const Graphics::TFont* TheFont);

typedef void __fastcall (__closure *TStringsEvent)(System::TObject* Sender, int TheIndex, const Classes::TStrings* Strings);

typedef void __fastcall (__closure *TEditEvent)(System::TObject* Sender, int TheIndex, const Classes::TStrings* Strings);

typedef bool __fastcall (__closure *TCallEditorEvent)(System::TObject* Sender, int TheIndex);

typedef bool __fastcall (__closure *TCallEditorEnableEvent)(System::TObject* Sender, int TheIndex, bool &EnableDefault);

typedef void __fastcall (__closure *TIndexNotifyEvent)(System::TObject* Sender, int TheIndex);

typedef void __fastcall (__closure *TIndexDrawEvent)(System::TObject* Sender, int TheIndex, Graphics::TCanvas* TheCanvas, const Types::TRect &TheRect);

typedef void __fastcall (__closure *TIndexEnableEvent)(System::TObject* Sender, int TheIndex, bool &EnableDefault);

typedef void __fastcall (__closure *TChangeValueEvent)(System::TObject* Sender, int TheIndex, bool Editing, const AnsiString Value);

class PASCALIMPLEMENTATION TCustomInspector : public Stdctrls::TCustomListBox 
{
	typedef Stdctrls::TCustomListBox inherited;
	
private:
	TInspectorCheckBox* FCheckBox;
	TInspectorEdit* FEdit;
	TInspectorButton* FButton;
	int FIndex;
	bool FFullUpdate;
	int FOldScrollPos;
	bool FClicked;
	int FOldWidth;
	int FOldHeight;
	int FOldSplitter;
	int FLockCounter;
	int FSplitter;
	bool FCheckBoxes;
	TPaintStyle FPaintStyle;
	int FDragSplitter;
	TDragKind FDragKind;
	TInspectorPopup* FPopup;
	Graphics::TBitmap* FExpand;
	Graphics::TBitmap* FCollapse;
	int FItemCount;
	TIndexNotifyEvent FOnSelect;
	Classes::TNotifyEvent FOnUpdate;
	TValidateCharEvent FOnValidateChar;
	TChangeValueEvent FOnChangeValue;
	TIndexDrawEvent FOnDrawName;
	TIndexDrawEvent FOnDrawValue;
	TGetStringEvent FOnGetName;
	TGetStringEvent FOnGetValue;
	TGetStringEvent FOnGetNextValue;
	TSetStringEvent FOnSetValue;
	TButtonTypeEvent FOnGetButtonType;
	TInplaceEditorTypeEvent FOnGetInplaceEditorType;
	TIntegerEvent FOnGetMaxLength;
	TGetStringEvent FOnGetEditMask;
	TBooleanEvent FOnGetEnableExternalEditor;