dbinspct.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) 'DBInspct.pas' rev: 6.00

#ifndef DBInspctHPP
#define DBInspctHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <PicsEdit.hpp>	// Pascal unit
#include <StrsEdit.hpp>	// Pascal unit
#include <InspCtrl.hpp>	// Pascal unit
#include <DBTables.hpp>	// Pascal unit
#include <DBCtrls.hpp>	// Pascal unit
#include <DB.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Dbinspct
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TInspectorDataLink;
class DELPHICLASS TCustomDBInspector;
#pragma option push -b-
enum TBlobEditorType { beNone, beText, beImage };
#pragma option pop

typedef void __fastcall (__closure *TGetBlobEditorTypeEvent)(System::TObject* Sender, Db::TField* Field, TBlobEditorType &BlobEditorType);

class PASCALIMPLEMENTATION TCustomDBInspector : public Inspctrl::TCustomInspector 
{
	typedef Inspctrl::TCustomInspector inherited;
	
private:
	bool FMyself;
	TInspectorDataLink* FDataLink;
	TGetBlobEditorTypeEvent FOnGetBlobEditorType;
	Db::TDataSource* __fastcall GetDataSource(void);
	void __fastcall SetDataSource(Db::TDataSource* Value);
	bool __fastcall GetReadOnlyProperty(void);
	void __fastcall SetReadOnlyProperty(bool Value);
	void __fastcall ActiveChanged(void);
	bool __fastcall ActiveDataSet(void);
	Db::TDataSet* __fastcall LinkedDataSet(void);
	int __fastcall VisibleCount(void);
	
protected:
	virtual void __fastcall ChangeValue(int TheIndex, bool Editing, const AnsiString AText);
	virtual AnsiString __fastcall GetName(int TheIndex);
	virtual AnsiString __fastcall GetValue(int TheIndex);
	virtual void __fastcall SetValue(int TheIndex, const AnsiString Value);
	virtual int __fastcall GetMaxLength(int TheIndex);
	virtual bool __fastcall GetReadOnly(int TheIndex);
	virtual int __fastcall GetIndent(void);
	virtual bool __fastcall GetAutoApply(int TheIndex);
	virtual Inspctrl::TButtonType __fastcall GetButtonType(int TheIndex);
	virtual bool __fastcall GetEnableExternalEditor(int TheIndex);
	virtual bool __fastcall CallEditor(int TheIndex);
	virtual TBlobEditorType __fastcall GetBlobEditor(void);
	__property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
	__property bool ReadOnly = {read=GetReadOnlyProperty, write=SetReadOnlyProperty, default=0};
	__property TGetBlobEditorTypeEvent OnGetBlobEditorType = {read=FOnGetBlobEditorType, write=FOnGetBlobEditorType};
	
public:
	__fastcall virtual TCustomDBInspector(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomDBInspector(void);
	int __fastcall VisibleIndex(int TheIndex);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomDBInspector(HWND ParentWindow) : Inspctrl::TCustomInspector(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TInspectorDataLink : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TCustomDBInspector* FInspector;
	void __fastcall DataSetBeforePost(Db::TDataSet* ADataSet);
	
protected:
	virtual void __fastcall CheckBrowseMode(void);
	virtual void __fastcall ActiveChanged(void);
	virtual void __fastcall DataSetChanged(void);
	virtual void __fastcall LayoutChanged(void);
	virtual void __fastcall RecordChanged(Db::TField* Field);
	
public:
	__fastcall TInspectorDataLink(TCustomDBInspector* AInspector);
public:
	#pragma option push -w-inl
	/* TDataLink.Destroy */ inline __fastcall virtual ~TInspectorDataLink(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBInspector;
class PASCALIMPLEMENTATION TDBInspector : public TCustomDBInspector 
{
	typedef TCustomDBInspector 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 IntegralHeight  = {default=0};
	__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 OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnStartDrag ;
	__property PaintStyle  = {default=0};
	__property Splitter  = {default=100};
	__property DataSource ;
	__property ReadOnly  = {default=0};
	__property OnGetNextValue ;
	__property OnGetButtonType ;
	__property OnGetEditMask ;
	__property OnGetEnableExternalEditor ;
	__property OnGetValuesList ;
	__property OnGetSortValuesList ;
	__property OnGetSelectedValue ;
	__property OnGetNameFont ;
	__property OnGetNameColor ;
	__property OnGetValueFont ;
	__property OnGetValueColor ;
	__property OnCallEditor ;
	__property OnSelectItem ;
	__property OnDeselectItem ;
	__property OnValueDoubleClick ;
	__property OnGetBlobEditorType ;
public:
	#pragma option push -w-inl
	/* TCustomDBInspector.Create */ inline __fastcall virtual TDBInspector(Classes::TComponent* AOwner) : TCustomDBInspector(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomDBInspector.Destroy */ inline __fastcall virtual ~TDBInspector(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TDBInspector(HWND ParentWindow) : TCustomDBInspector(ParentWindow) { }
	#pragma option pop
	
};


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

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

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