amovctl.hpp

toi co the nghe nhac bang choung trinh nay phgan 2

public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TOleControl2(HWND ParentWindow) : Controls::TWinControl(
		ParentWindow) { }
	#pragma option pop
	
private:
	void *__IOleClientSite;	/* IOleClientSite */
	void *__IOleControlSite;	/* IOleControlSite [TranslateAccelerator=OleControlSite_TranslateAccelerator
		] */
	void *__IOleInPlaceSite;	/* IOleInPlaceSite [GetWindow=OleInPlaceSite_GetWindow] */
	void *__IOleInPlaceFrame;	/* IOleInPlaceFrame [TranslateAccelerator=OleInPlaceFrame_TranslateAccelerator, 
		GetWindow=OleInPlaceFrame_GetWindow] */
	void *__IDispatch;	/* IDispatch */
	void *__IPropertyNotifySink;	/* IPropertyNotifySink */
	void *__ISimpleFrameSite;	/* ISimpleFrameSite */
	
public:
	operator ISimpleFrameSite*(void) { return (ISimpleFrameSite*)&__ISimpleFrameSite; }
	operator IPropertyNotifySink*(void) { return (IPropertyNotifySink*)&__IPropertyNotifySink; }
	operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
	operator IOleInPlaceFrame*(void) { return (IOleInPlaceFrame*)&__IOleInPlaceFrame; }
	operator IOleInPlaceSite*(void) { return (IOleInPlaceSite*)&__IOleInPlaceSite; }
	operator IOleControlSite*(void) { return (IOleControlSite*)&__IOleControlSite; }
	operator IOleClientSite*(void) { return (IOleClientSite*)&__IOleClientSite; }
	operator IUnknown*(void) { return (IUnknown*)&__ISimpleFrameSite; }
	
};


class PASCALIMPLEMENTATION TEventDispatch : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TOleControl2* FControl;
	
protected:
	HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
	int __stdcall _AddRef(void);
	int __stdcall _Release(void);
	HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
	HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
	HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, void * 
		DispIDs);
	HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params, void * 
		VarResult, void * ExcepInfo, void * ArgErr);
	__property TOleControl2* Control = {read=FControl};
	
public:
	__fastcall TEventDispatch(TOleControl2* Control);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TEventDispatch(void) { }
	#pragma option pop
	
private:
	void *__IDispatch;	/* IDispatch */
	
public:
	operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
	operator IUnknown*(void) { return (IUnknown*)&__IDispatch; }
	
};


struct TEnumValue
{
	int Value;
	AnsiString Ident;
} ;

typedef TEnumValue TEnumValueList[32768];

typedef TEnumValue *PEnumValueList;

class PASCALIMPLEMENTATION TEnumPropDesc : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FDispID;
	int FValueCount;
	TEnumValue *FValues;
	
public:
	__fastcall TEnumPropDesc(int DispID, int ValueCount, const _di_ITypeInfo TypeInfo);
	__fastcall virtual ~TEnumPropDesc(void);
	void __fastcall GetStrings(Classes::TGetStrProc Proc);
	int __fastcall StringToValue(const AnsiString S);
	AnsiString __fastcall ValueToString(int V);
};


struct TControlData
{
	GUID ClassID;
	GUID EventIID;
	int EventCount;
	void *EventDispIDs;
	void *LicenseKey;
	unsigned Flags;
	int Version;
	int FontCount;
	int *FontIDs;
	int PictureCount;
	int *PictureIDs;
	int Reserved;
	int InstanceCount;
	Classes::TList* EnumPropDescs;
} ;

struct TControlData2;
typedef TControlData2 *PControlData2;

struct TControlData2
{
	GUID ClassID;
	GUID EventIID;
	int EventCount;
	void *EventDispIDs;
	void *LicenseKey;
	unsigned Flags;
	int Version;
	int FontCount;
	int *FontIDs;
	int PictureCount;
	int *PictureIDs;
	int Reserved;
	int InstanceCount;
	Classes::TList* EnumPropDescs;
	unsigned FirstEventOfs;
} ;

class DELPHICLASS EOleCtrlError;
class PASCALIMPLEMENTATION EOleCtrlError : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EOleCtrlError(const AnsiString Msg) : Sysutils::Exception(
		Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EOleCtrlError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EOleCtrlError(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EOleCtrlError(int Ident, const System::TVarRec * Args
		, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EOleCtrlError(const AnsiString Msg, int AHelpContext) : 
		Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EOleCtrlError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EOleCtrlError(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EOleCtrlError(System::PResStringRec ResStringRec
		, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EOleCtrlError(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE System::ResourceString _SBadPropValue;
#define Amovctl_SBadPropValue System::LoadResourceString(&Amovctl::_SBadPropValue)
extern PACKAGE System::ResourceString _SCannotActivate;
#define Amovctl_SCannotActivate System::LoadResourceString(&Amovctl::_SCannotActivate)
extern PACKAGE System::ResourceString _SNoWindowHandle;
#define Amovctl_SNoWindowHandle System::LoadResourceString(&Amovctl::_SNoWindowHandle)
extern PACKAGE System::ResourceString _SOleError;
#define Amovctl_SOleError System::LoadResourceString(&Amovctl::_SOleError)
extern PACKAGE System::ResourceString _SVarNotObject;
#define Amovctl_SVarNotObject System::LoadResourceString(&Amovctl::_SVarNotObject)
extern PACKAGE System::ResourceString _SVarNotAutoObject;
#define Amovctl_SVarNotAutoObject System::LoadResourceString(&Amovctl::_SVarNotAutoObject)
extern PACKAGE System::ResourceString _SNoMethod;
#define Amovctl_SNoMethod System::LoadResourceString(&Amovctl::_SNoMethod)
extern PACKAGE System::ResourceString _SLinkProperties;
#define Amovctl_SLinkProperties System::LoadResourceString(&Amovctl::_SLinkProperties)
extern PACKAGE System::ResourceString _SInvalidLinkSource;
#define Amovctl_SInvalidLinkSource System::LoadResourceString(&Amovctl::_SInvalidLinkSource)
extern PACKAGE System::ResourceString _SCannotBreakLink;
#define Amovctl_SCannotBreakLink System::LoadResourceString(&Amovctl::_SCannotBreakLink)
extern PACKAGE System::ResourceString _SLinkedObject;
#define Amovctl_SLinkedObject System::LoadResourceString(&Amovctl::_SLinkedObject)
extern PACKAGE System::ResourceString _SEmptyContainer;
#define Amovctl_SEmptyContainer System::LoadResourceString(&Amovctl::_SEmptyContainer)
extern PACKAGE System::ResourceString _SInvalidVerb;
#define Amovctl_SInvalidVerb System::LoadResourceString(&Amovctl::_SInvalidVerb)
extern PACKAGE System::ResourceString _SPropDlgCaption;
#define Amovctl_SPropDlgCaption System::LoadResourceString(&Amovctl::_SPropDlgCaption)
extern PACKAGE System::ResourceString _SInvalidStreamFormat;
#define Amovctl_SInvalidStreamFormat System::LoadResourceString(&Amovctl::_SInvalidStreamFormat)
extern PACKAGE System::ResourceString _SInvalidLicense;
#define Amovctl_SInvalidLicense System::LoadResourceString(&Amovctl::_SInvalidLicense)
extern PACKAGE System::ResourceString _SNotLicensed;
#define Amovctl_SNotLicensed System::LoadResourceString(&Amovctl::_SNotLicensed)
extern PACKAGE System::ResourceString _sNoRunningObject;
#define Amovctl_sNoRunningObject System::LoadResourceString(&Amovctl::_sNoRunningObject)
extern PACKAGE AnsiString OleErrorDisplayMsg;
extern PACKAGE Variant __fastcall FontToOleFont(Graphics::TFont* Font);
extern PACKAGE void __fastcall OleFontToFont(const Variant &OleFont, Graphics::TFont* Font);

}	/* namespace Amovctl */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Amovctl;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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