designintf.hpp

漏洞扫描系列中HB Network Scanner 测试用练习代码

__interface IDefaultEditor;
typedef System::DelphiInterface<IDefaultEditor> _di_IDefaultEditor;
__interface INTERFACE_UUID("{5484FAE1-5C60-11D1-9FB6-0020AF3D82DA}") IDefaultEditor  : public IComponentEditor 
{
	
};

typedef void __fastcall (*TRegisterComponentEditorProc)(TMetaClass* ComponentClass, TMetaClass* ComponentEditor);

__interface ISelectionEditor;
typedef System::DelphiInterface<ISelectionEditor> _di_ISelectionEditor;
__interface INTERFACE_UUID("{B91F7A78-BB2C-45D9-957A-8A45A2D30435}") ISelectionEditor  : public IInterface 
{
	
public:
	virtual void __fastcall ExecuteVerb(int Index, const _di_IDesignerSelections List) = 0 ;
	virtual AnsiString __fastcall GetVerb(int Index) = 0 ;
	virtual int __fastcall GetVerbCount(void) = 0 ;
	virtual void __fastcall PrepareItem(int Index, const Designmenus::_di_IMenuItem AItem) = 0 ;
	virtual void __fastcall RequiresUnits(Classes::TGetStrProc Proc) = 0 ;
};

class DELPHICLASS TBaseSelectionEditor;
class PASCALIMPLEMENTATION TBaseSelectionEditor : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
public:
	__fastcall virtual TBaseSelectionEditor(const _di_IDesigner ADesigner);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TBaseSelectionEditor(void) { }
	#pragma option pop
	
};


typedef TMetaClass*TSelectionEditorClass;

__interface ISelectionEditorList;
typedef System::DelphiInterface<ISelectionEditorList> _di_ISelectionEditorList;
__interface INTERFACE_UUID("{C1360368-0099-4A7C-A4A8-7650503BA0C6}") ISelectionEditorList  : public IInterface 
{
	
public:
	_di_ISelectionEditor operator[](int Index) { return Items[Index]; }
	
public:
	virtual _di_ISelectionEditor __fastcall Get(int Index) = 0 ;
	virtual int __fastcall GetCount(void) = 0 ;
	__property int Count = {read=GetCount};
	__property _di_ISelectionEditor Items[int Index] = {read=Get/*, default*/};
};

typedef void __fastcall (*TRegisterSelectionEditorProc)(TMetaClass* AClass, TMetaClass* AEditor);

#pragma option push -b-
enum TCustomModuleAttribute { cmaVirtualSize };
#pragma option pop

typedef Set<TCustomModuleAttribute, cmaVirtualSize, cmaVirtualSize>  TCustomModuleAttributes;

__interface ICustomModule;
typedef System::DelphiInterface<ICustomModule> _di_ICustomModule;
__interface INTERFACE_UUID("{95DA4A2B-D800-4CBB-B0B8-85AB7D3CFADA}") ICustomModule  : public IInterface 
{
	
public:
	virtual TCustomModuleAttributes __fastcall GetAttributes(void) = 0 ;
	virtual void __fastcall ExecuteVerb(int Index) = 0 ;
	virtual AnsiString __fastcall GetVerb(int Index) = 0 ;
	virtual int __fastcall GetVerbCount(void) = 0 ;
	virtual void __fastcall PrepareItem(int Index, const Designmenus::_di_IMenuItem AItem) = 0 ;
	virtual void __fastcall Saving(void) = 0 ;
	virtual void __fastcall ValidateComponent(Classes::TComponent* Component) = 0 ;
	virtual bool __fastcall ValidateComponentClass(TMetaClass* ComponentClass) = 0 ;
	virtual bool __fastcall Nestable(void) = 0 ;
};

class DELPHICLASS TBaseCustomModule;
class PASCALIMPLEMENTATION TBaseCustomModule : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
public:
	__fastcall virtual TBaseCustomModule(Classes::TComponent* ARoot, const _di_IDesigner Designer);
	/* virtual class method */ virtual TMetaClass* __fastcall DesignClass(TMetaClass* vmt);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TBaseCustomModule(void) { }
	#pragma option pop
	
};


typedef TMetaClass*TCustomModuleClass;

typedef void __fastcall (*TRegisterCustomModuleProc)(int Group, TMetaClass* ComponentBaseClass, TMetaClass* CustomModuleClass);

class DELPHICLASS TDesignerSelections;
class PASCALIMPLEMENTATION TDesignerSelections : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
public:
	Classes::TPersistent* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TList* FList;
	
protected:
	int __fastcall Add(const Classes::TPersistent* Item);
	bool __fastcall Equals(const _di_IDesignerSelections List);
	Classes::TPersistent* __fastcall Get(int Index);
	int __fastcall GetCount(void);
	__property int Count = {read=GetCount, nodefault};
	__property Classes::TPersistent* Items[int Index] = {read=Get/*, default*/};
	
public:
	__fastcall virtual TDesignerSelections(void);
	__fastcall TDesignerSelections(const _di_IDesignerSelections Selections);
	__fastcall virtual ~TDesignerSelections(void);
private:
	void *__IDesignerSelections;	/* Designintf::IDesignerSelections */
	
public:
	operator IDesignerSelections*(void) { return (IDesignerSelections*)&__IDesignerSelections; }
	
};


#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 TEditStates { esCanUndo, esCanRedo, esCanCut, esCanCopy, esCanPaste, esCanDelete, esCanZOrder, esCanAlignGrid, esCanEditOle, esCanTabOrder, esCanCreationOrder, esCanPrint, esCanSelectAll, esCanCreateTemplate };
#pragma option pop

typedef Set<TEditStates, esCanUndo, esCanCreateTemplate>  TEditState;

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

__interface IEditHandler;
typedef System::DelphiInterface<IEditHandler> _di_IEditHandler;
__interface INTERFACE_UUID("{7ED7BF2D-E349-11D3-AB4A-00C04FB17A72}") IEditHandler  : public IInterface 
{
	
public:
	virtual bool __fastcall EditAction(TEditAction Action) = 0 ;
	virtual TEditState __fastcall GetEditState(void) = 0 ;
};

typedef IEditHandler IDesignEditQuery;
;

class DELPHICLASS TDragTarget;
class PASCALIMPLEMENTATION TDragTarget : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	_di_IDesigner FDesigner;
	
public:
	__fastcall virtual TDragTarget(const _di_IDesigner ADesigner);
	virtual bool __fastcall DragOver(System::TObject* Target, System::TObject* Source, int X, int Y, Controls::TDragState State) = 0 ;
	virtual void __fastcall DragDrop(System::TObject* Target, System::TObject* Source, int X, int Y) = 0 ;
	__property _di_IDesigner Designer = {read=FDesigner};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDragTarget(void) { }
	#pragma option pop
	
};


typedef TMetaClass*TDragTargetClass;

typedef void __fastcall (*TRegisterDragTargetProc)(const AnsiString SourceName, TMetaClass* TargetClass);

typedef void __fastcall (*TRegisterDesignDragObject)(TMetaClass* DragObjectClass);

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TRegisterDesignNotification RegisterDesignNotificationProc;
extern PACKAGE TRegisterDesignNotification UnregisterDesignNotificationProc;
extern PACKAGE TRegisterPropertyEditorProc RegisterPropertyEditorProc;
extern PACKAGE TSetPropertyEditorGroupProc SetPropertyEditorGroupProc;
extern PACKAGE System::ResourceString _sActionCategoryName;
#define Designintf_sActionCategoryName System::LoadResourceString(&Designintf::_sActionCategoryName)
extern PACKAGE System::ResourceString _sDataCategoryName;
#define Designintf_sDataCategoryName System::LoadResourceString(&Designintf::_sDataCategoryName)
extern PACKAGE System::ResourceString _sDatabaseCategoryName;
#define Designintf_sDatabaseCategoryName System::LoadResourceString(&Designintf::_sDatabaseCategoryName)
extern PACKAGE System::ResourceString _sDragNDropCategoryName;
#define Designintf_sDragNDropCategoryName System::LoadResourceString(&Designintf::_sDragNDropCategoryName)
extern PACKAGE System::ResourceString _sHelpCategoryName;
#define Designintf_sHelpCategoryName System::LoadResourceString(&Designintf::_sHelpCategoryName)
extern PACKAGE System::ResourceString _sLayoutCategoryName;
#define Designintf_sLayoutCategoryName System::LoadResourceString(&Designintf::_sLayoutCategoryName)
extern PACKAGE System::ResourceString _sLegacyCategoryName;
#define Designintf_sLegacyCategoryName System::LoadResourceString(&Designintf::_sLegacyCategoryName)
extern PACKAGE System::ResourceString _sLinkageCategoryName;
#define Designintf_sLinkageCategoryName System::LoadResourceString(&Designintf::_sLinkageCategoryName)
extern PACKAGE System::ResourceString _sLocaleCategoryName;
#define Designintf_sLocaleCategoryName System::LoadResourceString(&Designintf::_sLocaleCategoryName)
extern PACKAGE System::ResourceString _sLocalizableCategoryName;
#define Designintf_sLocalizableCategoryName System::LoadResourceString(&Designintf::_sLocalizableCategoryName)
extern PACKAGE System::ResourceString _sMiscellaneousCategoryName;
#define Designintf_sMiscellaneousCategoryName System::LoadResourceString(&Designintf::_sMiscellaneousCategoryName)
extern PACKAGE System::ResourceString _sVisualCategoryName;
#define Designintf_sVisualCategoryName System::LoadResourceString(&Designintf::_sVisualCategoryName)
extern PACKAGE System::ResourceString _sInputCategoryName;
#define Designintf_sInputCategoryName System::LoadResourceString(&Designintf::_sInputCategoryName)
extern PACKAGE TRegisterPropertyInCategoryProc RegisterPropertyInCategoryProc;
extern PACKAGE System::ResourceString _sInvalidFilter;
#define Designintf_sInvalidFilter System::LoadResourceString(&Designintf::_sInvalidFilter)
extern PACKAGE TRegisterPropertyMapperProc RegisterPropertyMapperProc;
extern PACKAGE TRegisterComponentEditorProc RegisterComponentEditorProc;
extern PACKAGE TRegisterSelectionEditorProc RegisterSelectionEditorProc;
extern PACKAGE TRegisterCustomModuleProc RegisterCustomModuleProc;
static const Shortint MaxIdentLength = 0x3f;
extern PACKAGE TRegisterDragTargetProc RegisterDragTargetProc;
extern PACKAGE TRegisterDesignDragObject RegisterDesignDragObjectProc;
extern PACKAGE void __fastcall RegisterPropertyMapper(TPropertyMapperFunc Mapper);
extern PACKAGE void __fastcall RegisterPropertyInCategory(const AnsiString CategoryName, const AnsiString PropertyName)/* overload */;
extern PACKAGE void __fastcall RegisterPropertyInCategory(const AnsiString CategoryName, TMetaClass* ComponentClass, const AnsiString PropertyName)/* overload */;
extern PACKAGE void __fastcall RegisterPropertyInCategory(const AnsiString CategoryName, Typinfo::PTypeInfo PropertyType, const AnsiString PropertyName)/* overload */;
extern PACKAGE void __fastcall RegisterPropertyInCategory(const AnsiString CategoryName, Typinfo::PTypeInfo PropertyType)/* overload */;
extern PACKAGE void __fastcall RegisterPropertiesInCategory(const AnsiString CategoryName, const System::TVarRec * Filters, const int Filters_Size)/* overload */;
extern PACKAGE void __fastcall RegisterPropertiesInCategory(const AnsiString CategoryName, TMetaClass* ComponentClass, const AnsiString * Filters, const int Filters_Size)/* overload */;
extern PACKAGE void __fastcall RegisterPropertiesInCategory(const AnsiString CategoryName, Typinfo::PTypeInfo PropertyType, const AnsiString * Filters, const int Filters_Size)/* overload */;
extern PACKAGE void __fastcall RegisterDesignNotification(const _di_IDesignNotification DesignNotification);
extern PACKAGE void __fastcall UnregisterDesignNotification(const _di_IDesignNotification DesignNotification);
extern PACKAGE void __fastcall RegisterComponentEditor(TMetaClass* ComponentClass, TMetaClass* ComponentEditor);
extern PACKAGE _di_IDesignerSelections __fastcall CreateSelectionList();
extern PACKAGE void __fastcall RegisterPropertyEditor(Typinfo::PTypeInfo PropertyType, TMetaClass* ComponentClass, const AnsiString PropertyName, TMetaClass* EditorClass);
extern PACKAGE void __fastcall SetPropertyEditorGroup(TMetaClass* EditorClass, TMetaClass* GroupClass);
extern PACKAGE void __fastcall UnlistPublishedProperty(TMetaClass* ComponentClass, const AnsiString PropertyName);
extern PACKAGE void __fastcall RegisterSelectionEditor(TMetaClass* AClass, TMetaClass* AEditor);
extern PACKAGE void __fastcall RegisterCustomModule(TMetaClass* ComponentBaseClass, TMetaClass* CustomModuleClass);
extern PACKAGE void __fastcall RegisterDragTarget(const AnsiString SourceName, TMetaClass* TargetClass);
extern PACKAGE void __fastcall RegisterDesignDragObject(TMetaClass* DragObjectClass);

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

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