dsgnintf.hpp

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

		&ARect, bool ASelected);
	DYNAMIC void __fastcall PropDrawName(Graphics::TCanvas* ACanvas, const Windows::TRect &ARect, bool 
		ASelected);
	DYNAMIC void __fastcall PropDrawValue(Graphics::TCanvas* ACanvas, const Windows::TRect &ARect, bool 
		ASelected);
	__property _di_IFormDesigner Designer = {read=FDesigner};
	__property AnsiString PrivateDirectory = {read=GetPrivateDirectory};
	__property int PropCount = {read=FPropCount, nodefault};
	__property AnsiString Value = {read=GetValue, write=SetValue};
};


typedef TMetaClass*TPropertyEditorClass;

class DELPHICLASS TOrdinalProperty;
class PASCALIMPLEMENTATION TOrdinalProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual int __fastcall GetEditLimit(void);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TOrdinalProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TOrdinalProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIntegerProperty;
class PASCALIMPLEMENTATION TIntegerProperty : public TOrdinalProperty 
{
	typedef TOrdinalProperty inherited;
	
public:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TIntegerProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TIntegerProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCharProperty;
class PASCALIMPLEMENTATION TCharProperty : public TOrdinalProperty 
{
	typedef TOrdinalProperty inherited;
	
public:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TCharProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TCharProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEnumProperty;
class PASCALIMPLEMENTATION TEnumProperty : public TOrdinalProperty 
{
	typedef TOrdinalProperty inherited;
	
public:
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TEnumProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TEnumProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TBoolProperty;
class PASCALIMPLEMENTATION TBoolProperty : public TEnumProperty 
{
	typedef TEnumProperty inherited;
	
public:
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TBoolProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TEnumProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TBoolProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TInt64Property;
class PASCALIMPLEMENTATION TInt64Property : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual int __fastcall GetEditLimit(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TInt64Property(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TInt64Property(void) { }
	#pragma option pop
	
};


class DELPHICLASS TFloatProperty;
class PASCALIMPLEMENTATION TFloatProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TFloatProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TFloatProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStringProperty;
class PASCALIMPLEMENTATION TStringProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual int __fastcall GetEditLimit(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TStringProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TStringProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TNestedProperty;
class PASCALIMPLEMENTATION TNestedProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	__fastcall TNestedProperty(TPropertyEditor* Parent);
	__fastcall virtual ~TNestedProperty(void);
};


class DELPHICLASS TSetElementProperty;
class PASCALIMPLEMENTATION TSetElementProperty : public TNestedProperty 
{
	typedef TNestedProperty inherited;
	
private:
	int FElement;
	
protected:
	__fastcall TSetElementProperty(TPropertyEditor* Parent, int AElement);
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual AnsiString __fastcall GetName();
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall SetValue(const AnsiString Value);
public:
	#pragma option push -w-inl
	/* TNestedProperty.Destroy */ inline __fastcall virtual ~TSetElementProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSetProperty;
class PASCALIMPLEMENTATION TSetProperty : public TOrdinalProperty 
{
	typedef TOrdinalProperty inherited;
	
public:
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual void __fastcall GetProperties(TGetPropEditProc Proc);
	virtual AnsiString __fastcall GetValue();
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TSetProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TSetProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TClassProperty;
class PASCALIMPLEMENTATION TClassProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual void __fastcall GetProperties(TGetPropEditProc Proc);
	virtual AnsiString __fastcall GetValue();
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TClassProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TClassProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TMethodProperty;
class PASCALIMPLEMENTATION TMethodProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual bool __fastcall AllEqual(void);
	virtual void __fastcall Edit(void);
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual int __fastcall GetEditLimit(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall SetValue(const AnsiString AValue);
	virtual AnsiString __fastcall GetFormMethodName();
	AnsiString __fastcall GetTrimmedEventName();
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TMethodProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TMethodProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TComponentProperty;
class PASCALIMPLEMENTATION TComponentProperty : public TPropertyEditor 
{
	typedef TPropertyEditor inherited;
	
public:
	virtual void __fastcall Edit(void);
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual int __fastcall GetEditLimit(void);
	virtual AnsiString __fastcall GetValue();
	virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
	virtual void __fastcall SetValue(const AnsiString Value);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TComponentProperty(const _di_IFormDesigner ADesigner
		, int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TComponentProperty(void) { }
	#pragma option pop
	
};


class DELPHICLASS TComponentNameProperty;
class PASCALIMPLEMENTATION TComponentNameProperty : public TStringProperty 
{
	typedef TStringProperty inherited;
	
public:
	virtual TPropertyAttributes __fastcall GetAttributes(void);
	virtual int __fastcall GetEditLimit(void);
protected:
	#pragma option push -w-inl
	/* TPropertyEditor.Create */ inline __fastcall virtual TComponentNameProperty(const _di_IFormDesigner 
		ADesigner, int APropCount) : TStringProperty(ADesigner, APropCount) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TPropertyEditor.Destroy */ inline __fastcall virtual ~TComponentNameProperty(void) { }
	#pragma option pop
	
};