dsgnintf.hpp

SUIPack v6.40.Full.Source for Delphi 5 - 2009 (实际上 2010 上也能编译通过)

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'DsgnIntf.pas' rev: 5.00

#ifndef DsgnIntfHPP
#define DsgnIntfHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <Masks.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <IniFiles.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <ActiveX.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Dsgnintf
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TEditAction { eaUndo, eaRedo, eaCut, eaCopy, eaPaste, eaDelete, eaSelectAll, eaPrint, eaBringToFront, 
	eaSendToBack, eaAlignToGrid, eaFlipChildrenAll, eaFlipChildrenSelected };
#pragma option pop

#pragma option push -b-
enum DsgnIntf__1 { esCanUndo, esCanRedo, esCanCut, esCanCopy, esCanPaste, esCanDelete, esCanZOrder, 
	esCanAlignGrid, esCanEditOle, esCanTabOrder, esCanCreationOrder, esCanPrint, esCanSelectAll };
#pragma option pop

typedef Set<DsgnIntf__1, esCanUndo, esCanSelectAll>  TEditState;

__interface IEventInfos;
typedef System::DelphiInterface<IEventInfos> _di_IEventInfos;
__interface INTERFACE_UUID("{11667FF0-7590-11D1-9FBC-0020AF3D82DA}") IEventInfos  : public IUnknown 
	
{
	
public:
	virtual int __fastcall GetCount(void) = 0 ;
	virtual AnsiString __fastcall GetEventValue(int Index) = 0 ;
	virtual AnsiString __fastcall GetEventName(int Index) = 0 ;
	virtual void __fastcall ClearEvent(int Index) = 0 ;
	__property int Count = {read=GetCount};
};

__interface IPersistent;
typedef System::DelphiInterface<IPersistent> _di_IPersistent;
__interface INTERFACE_UUID("{82330133-65D1-11D1-9FBB-0020AF3D82DA}") IPersistent  : public IUnknown 
	
{
	
public:
	virtual void __fastcall DestroyObject(void) = 0 ;
	virtual bool __fastcall Equals(const _di_IPersistent Other) = 0 ;
	virtual AnsiString __fastcall GetClassname(void) = 0 ;
	virtual _di_IEventInfos __fastcall GetEventInfos(void) = 0 ;
	virtual AnsiString __fastcall GetNamePath(void) = 0 ;
	virtual _di_IPersistent __fastcall GetOwner(void) = 0 ;
	virtual bool __fastcall InheritsFrom(const AnsiString Classname) = 0 ;
	virtual bool __fastcall IsComponent(void) = 0 ;
	virtual bool __fastcall IsControl(void) = 0 ;
	virtual bool __fastcall IsWinControl(void) = 0 ;
	__property AnsiString Classname = {read=GetClassname};
	__property _di_IPersistent Owner = {read=GetOwner};
	__property AnsiString NamePath = {read=GetNamePath};
	__property _di_IEventInfos EventInfos = {read=GetEventInfos};
};

__interface IComponent;
typedef System::DelphiInterface<IComponent> _di_IComponent;
__interface INTERFACE_UUID("{B2F6D681-5098-11D1-9FB5-0020AF3D82DA}") IComponent  : public IPersistent 
	
{
	
public:
	virtual _di_IComponent __fastcall FindComponent(const AnsiString Name) = 0 ;
	virtual int __fastcall GetComponentCount(void) = 0 ;
	virtual _di_IComponent __fastcall GetComponents(int Index) = 0 ;
	virtual Classes::TComponentState __fastcall GetComponentState(void) = 0 ;
	virtual Classes::TComponentStyle __fastcall GetComponentStyle(void) = 0 ;
	virtual Windows::TSmallPoint __fastcall GetDesignInfo(void) = 0 ;
	virtual Windows::TPoint __fastcall GetDesignOffset(void) = 0 ;
	virtual Windows::TPoint __fastcall GetDesignSize(void) = 0 ;
	virtual AnsiString __fastcall GetName(void) = 0 ;
	HIDESBASE virtual _di_IComponent __fastcall GetOwner(void) = 0 ;
	virtual _di_IComponent __fastcall GetParent(void) = 0 ;
	virtual void __fastcall SetDesignInfo(const Windows::TSmallPoint Point) = 0 ;
	virtual void __fastcall SetDesignOffset(const Windows::TPoint &Point) = 0 ;
	virtual void __fastcall SetDesignSize(const Windows::TPoint &Point) = 0 ;
	virtual void __fastcall SetName(const AnsiString Value) = 0 ;
	__property int ComponentCount = {read=GetComponentCount};
	__property _di_IComponent Components[int Index] = {read=GetComponents};
	__property Classes::TComponentState ComponentState = {read=GetComponentState};
	__property Classes::TComponentStyle ComponentStyle = {read=GetComponentStyle};
	__property Windows::TSmallPoint DesignInfo = {read=GetDesignInfo, write=SetDesignInfo};
	__property Windows::TPoint DesignOffset = {read=GetDesignOffset, write=SetDesignOffset};
	__property Windows::TPoint DesignSize = {read=GetDesignSize, write=SetDesignSize};
	__property AnsiString Name = {read=GetName, write=SetName};
	__property _di_IComponent Owner = {read=GetOwner};
	__property _di_IComponent Parent = {read=GetParent};
};

__interface IImplementation;
typedef System::DelphiInterface<IImplementation> _di_IImplementation;
__interface INTERFACE_UUID("{F9D448F2-50BC-11D1-9FB5-0020AF3D82DA}") IImplementation  : public IUnknown 
	
{
	
public:
	virtual System::TObject* __fastcall GetInstance(void) = 0 ;
};

__interface IDesignerSelections;
typedef System::DelphiInterface<IDesignerSelections> _di_IDesignerSelections;
__interface INTERFACE_UUID("{82330134-65D1-11D1-9FBB-0020AF3D82DA}") IDesignerSelections  : public IUnknown 
	
{
	
public:
	virtual int __fastcall Add(const _di_IPersistent Item) = 0 ;
	virtual bool __fastcall Equals(const _di_IDesignerSelections List) = 0 ;
	virtual _di_IPersistent __fastcall Get(int Index) = 0 ;
	virtual int __fastcall GetCount(void) = 0 ;
	__property int Count = {read=GetCount};
	__property _di_IPersistent Items[int Index] = {read=Get/*, default*/};
};

__interface IComponentList;
typedef System::DelphiInterface<IComponentList> _di_IComponentList;
class DELPHICLASS TDesignerSelectionList;
__interface INTERFACE_UUID("{8ED8AD16-A241-11D1-AA94-00C04FB17A72}") IComponentList  : public IUnknown 
	
{
	
public:
	virtual TDesignerSelectionList* __fastcall GetComponentList(void) = 0 ;
};

class PASCALIMPLEMENTATION TDesignerSelectionList : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	Classes::TList* FList;
	int __fastcall Intf_Add(const _di_IPersistent Item);
	bool __fastcall Intf_Equals(const _di_IDesignerSelections List);
	_di_IPersistent __fastcall Intf_Get(int Index);
	Classes::TPersistent* __fastcall Get(int Index);
	int __fastcall GetCount(void);
	TDesignerSelectionList* __fastcall GetComponentList(void);
	
public:
	__fastcall TDesignerSelectionList(void);
	__fastcall virtual ~TDesignerSelectionList(void);
	int __fastcall Add(Classes::TPersistent* Item);
	bool __fastcall Equals(TDesignerSelectionList* List);
	__property int Count = {read=GetCount, nodefault};
	__property Classes::TPersistent* Items[int Index] = {read=Get/*, default*/};
private:
	void *__IDesignerSelections;	/* Dsgnintf::IDesignerSelections [Get=Intf_Get, Equals=Intf_Equals, Add=Intf_Add
		] */
	void *__IComponentList;	/* Dsgnintf::IComponentList */
	
public:
	operator IComponentList*(void) { return (IComponentList*)&__IComponentList; }
	operator IDesignerSelections*(void) { return (IDesignerSelections*)&__IDesignerSelections; }
	
};


#pragma option push -b-
enum TLocalMenuFilter { lmModule, lmComponent, lmDesigner };
#pragma option pop

typedef Set<TLocalMenuFilter, lmModule, lmDesigner>  TLocalMenuFilters;

__interface IFormDesigner;
typedef System::DelphiInterface<IFormDesigner> _di_IFormDesigner;
__interface INTERFACE_UUID("{ADDD444D-1B03-11D3-A8F8-00C04FA32F53}") IFormDesigner  : public IDesigner 
	
{
	
public:
	virtual Sysutils::TMethod __fastcall CreateMethod(const AnsiString Name, Typinfo::PTypeData TypeData
		) = 0 ;
	virtual AnsiString __fastcall GetMethodName(const Sysutils::TMethod &Method) = 0 ;
	virtual void __fastcall GetMethods(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 ;
	virtual AnsiString __fastcall GetPrivateDirectory(void) = 0 ;
	virtual void __fastcall GetSelections(const _di_IDesignerSelections List) = 0 ;
	virtual bool __fastcall MethodExists(const AnsiString Name) = 0 ;
	virtual void __fastcall RenameMethod(const AnsiString CurName, const AnsiString NewName) = 0 ;
	virtual void __fastcall SelectComponent(Classes::TPersistent* Instance) = 0 ;
	virtual void __fastcall SetSelections(const _di_IDesignerSelections List) = 0 ;
	virtual void __fastcall ShowMethod(const AnsiString Name) = 0 ;
	virtual void __fastcall GetComponentNames(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 
		;
	virtual Classes::TComponent* __fastcall GetComponent(const AnsiString Name) = 0 ;
	virtual AnsiString __fastcall GetComponentName(Classes::TComponent* Component) = 0 ;
	virtual Classes::TPersistent* __fastcall GetObject(const AnsiString Name) = 0 ;
	virtual AnsiString __fastcall GetObjectName(Classes::TPersistent* Instance) = 0 ;
	virtual void __fastcall GetObjectNames(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 
		;
	virtual bool __fastcall MethodFromAncestor(const Sysutils::TMethod &Method) = 0 ;
	virtual Classes::TComponent* __fastcall CreateComponent(TMetaClass* ComponentClass, Classes::TComponent* 
		Parent, int Left, int Top, int Width, int Height) = 0 ;
	virtual bool __fastcall IsComponentLinkable(Classes::TComponent* Component) = 0 ;
	virtual void __fastcall MakeComponentLinkable(Classes::TComponent* Component) = 0 ;
	virtual void __fastcall Revert(Classes::TPersistent* Instance, Typinfo::PPropInfo PropInfo) = 0 ;
	virtual bool __fastcall GetIsDormant(void) = 0 ;
	virtual bool __fastcall HasInterface(void) = 0 ;
	virtual bool __fastcall HasInterfaceMember(const AnsiString Name) = 0 ;
	virtual void __fastcall AddToInterface(int InvKind, const AnsiString Name, Word VT, const AnsiString 
		TypeInfo) = 0 ;
	virtual void __fastcall GetProjectModules(Classes::TGetModuleProc Proc) = 0 ;
	virtual _di_IFormDesigner __fastcall GetAncestorDesigner(void) = 0 ;
	virtual bool __fastcall IsSourceReadOnly(void) = 0 ;
	virtual Controls::TWinControl* __fastcall GetContainerWindow(void) = 0 ;
	virtual void __fastcall SetContainerWindow(const Controls::TWinControl* NewContainer) = 0 ;
	virtual Windows::TPoint __fastcall GetScrollRanges(const Windows::TPoint &ScrollPosition) = 0 ;
	virtual void __fastcall Edit(const _di_IComponent Component) = 0 ;
	virtual Menus::TPopupMenu* __fastcall BuildLocalMenu(Menus::TPopupMenu* Base, TLocalMenuFilters Filter
		) = 0 ;
	virtual void __fastcall ChainCall(const AnsiString MethodName, const AnsiString InstanceName, const 
		AnsiString InstanceMethod, Typinfo::PTypeData TypeData) = 0 ;
	virtual void __fastcall CopySelection(void) = 0 ;
	virtual void __fastcall CutSelection(void) = 0 ;
	virtual bool __fastcall CanPaste(void) = 0 ;
	virtual void __fastcall PasteSelection(void) = 0 ;
	virtual void __fastcall DeleteSelection(void) = 0 ;
	virtual void __fastcall ClearSelection(void) = 0 ;
	virtual void __fastcall NoSelection(void) = 0 ;
	virtual void __fastcall ModuleFileNames(AnsiString &ImplFileName, AnsiString &IntfFileName, AnsiString 
		&FormFileName) = 0 ;
	virtual AnsiString __fastcall GetRootClassName(void) = 0 ;
	__property bool IsDormant = {read=GetIsDormant};
	__property _di_IFormDesigner AncestorDesigner = {read=GetAncestorDesigner};
	__property Controls::TWinControl* ContainerWindow = {read=GetContainerWindow, write=SetContainerWindow
		};
};

__interface IDesignNotification;
typedef System::DelphiInterface<IDesignNotification> _di_IDesignNotification;
__interface INTERFACE_UUID("{3250122F-D336-11D2-B725-00C04FA35D12}") IDesignNotification  : public IUnknown 
	
{
	
public:
	virtual void __fastcall ItemDeleted(const _di_IPersistent AItem) = 0 ;
	virtual void __fastcall ItemInserted(const _di_IPersistent AItem) = 0 ;
	virtual void __fastcall ItemsModified(const _di_IUnknown ADesigner) = 0 ;
	virtual void __fastcall SelectionChanged(const _di_IDesignerSelections ASelection) = 0 ;
	virtual void __fastcall DesignerInitialized(const _di_IUnknown ADesigner) = 0 ;
	virtual void __fastcall DesignerClosed(const _di_IUnknown ADesigner) = 0 ;
};

__interface IDesignerPopulateMenu;
typedef System::DelphiInterface<IDesignerPopulateMenu> _di_IDesignerPopulateMenu;
__interface INTERFACE_UUID("{66C7D913-EC70-11D2-AAD1-00C04FB16FBC}") IDesignerPopulateMenu  : public IUnknown 
	
{
	
public:
	virtual void __fastcall PopulateMenu(const Menus::TPopupMenu* APopupMenu) = 0 ;
};

#pragma option push -b-
enum TPropertyAttribute { paValueList, paSubProperties, paDialog, paMultiSelect, paAutoUpdate, paSortList, 
	paReadOnly, paRevertable, paFullWidthName };
#pragma option pop

typedef Set<TPropertyAttribute, paValueList, paFullWidthName>  TPropertyAttributes;

struct TInstProp
{
	Classes::TPersistent* Instance;
	Typinfo::TPropInfo *PropInfo;
} ;

typedef TInstProp TInstPropList[1024];

typedef TInstProp *PInstPropList;

class DELPHICLASS TPropertyEditor;
typedef void __fastcall (__closure *TGetPropEditProc)(TPropertyEditor* Prop);

class PASCALIMPLEMENTATION TPropertyEditor : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	_di_IFormDesigner FDesigner;
	TInstProp *FPropList;
	int FPropCount;
	AnsiString __fastcall GetPrivateDirectory();
	void __fastcall SetPropEntry(int Index, Classes::TPersistent* AInstance, Typinfo::PPropInfo APropInfo
		);
	
protected:
	__fastcall virtual TPropertyEditor(const _di_IFormDesigner ADesigner, int APropCount);
	Typinfo::PPropInfo __fastcall GetPropInfo(void);
	Extended __fastcall GetFloatValue(void);
	Extended __fastcall GetFloatValueAt(int Index);
	__int64 __fastcall GetInt64Value(void);
	__int64 __fastcall GetInt64ValueAt(int Index);
	Sysutils::TMethod __fastcall GetMethodValue();
	Sysutils::TMethod __fastcall GetMethodValueAt(int Index);
	int __fastcall GetOrdValue(void);
	int __fastcall GetOrdValueAt(int Index);
	AnsiString __fastcall GetStrValue();
	AnsiString __fastcall GetStrValueAt(int Index);
	Variant __fastcall GetVarValue();
	Variant __fastcall GetVarValueAt(int Index);
	void __fastcall Modified(void);
	void __fastcall SetFloatValue(Extended Value);
	void __fastcall SetMethodValue(const Sysutils::TMethod &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 ~TPropertyEditor(void);
	virtual void __fastcall Activate(void);
	virtual bool __fastcall AllEqual(void);
	virtual bool __fastcall AutoFill(void);
	virtual void __fastcall Edit(void);
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	Classes::TPersistent* __fastcall GetComponent(int Index);
	virtual int __fastcall GetEditLimit(void);
	virtual AnsiString __fastcall GetName();
	virtual void __fastcall GetProperties(TGetPropEditProc Proc);
	Typinfo::PTypeInfo __fastcall GetPropType(void);
	virtual AnsiString __fastcall GetValue();
	AnsiString __fastcall GetVisualValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall Initialize(void);
	void __fastcall Revert(void);
	virtual void __fastcall SetValue(const AnsiString Value);
	bool __fastcall ValueAvailable(void);
	DYNAMIC void __fastcall ListMeasureWidth(const AnsiString Value, Graphics::TCanvas* ACanvas, int &AWidth
		);
	DYNAMIC void __fastcall ListMeasureHeight(const AnsiString Value, Graphics::TCanvas* ACanvas, int &
		AHeight);
	DYNAMIC void __fastcall ListDrawValue(const AnsiString Value, Graphics::TCanvas* ACanvas, const Windows::TRect