amovctl.hpp

toi co the nghe nhac bang choung trinh nay phgan 2

	
public:
	__fastcall virtual TOleControl2(Classes::TComponent* AOwner);
	__fastcall virtual ~TOleControl2(void);
	void __fastcall BrowseProperties(void);
	virtual void __fastcall DefaultHandler(void *Message);
	void __fastcall DoObjectVerb(int Verb);
	TEnumPropDesc* __fastcall GetEnumPropDesc(int DispID);
	bool __fastcall GetHelpContext(AnsiString Member, int &HelpCtx, AnsiString &HelpFile);
	void __fastcall GetObjectVerbs(Classes::TStrings* List);
	AnsiString __fastcall GetPropDisplayString(int DispID);
	void __fastcall GetPropDisplayStrings(int DispID, Classes::TStrings* List);
	bool __fastcall IsCustomProperty(int DispID);
	bool __fastcall IsPropPageProperty(int DispID);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	void __fastcall SetPropDisplayString(int DispID, const AnsiString Value);
	void __fastcall ShowAboutBox(void);
	__property Variant OleObject = {read=GetOleObject};
	__property _di_IPerPropertyBrowsing PerPropBrowsing = {read=FPropBrowsing};
	__property _di_IDispatch DefaultDispatch = {read=GetDefaultDispatch};
	__property TabStop  = {default=1};
	__property Classes::TNotifyEvent OnCreated = {read=FOnCreated, write=FOnCreated};
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 IInterface*(void) { return (IInterface*)&__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 IInterface*(void) { return (IInterface*)&__IDispatch; }
	
};


#pragma pack(push, 4)
struct TEnumValue
{
	int Value;
	AnsiString Ident;
} ;
#pragma pack(pop)

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);
};


#pragma pack(push, 4)
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;
} ;
#pragma pack(pop)

struct TControlData2;
typedef TControlData2 *PControlData2;

#pragma pack(push, 4)
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;
} ;
#pragma pack(pop)

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 OleVariant EmptyParam;
extern PACKAGE Variant __fastcall FontToOleFont(Graphics::TFont* Font);
extern PACKAGE void __fastcall OleFontToFont(const Variant &OleFont, Graphics::TFont* Font);

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

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