| Class TMyDataObject (unit DataObject) |
IDataObject
TMyData can be only used as part of another object. If you would like to change this, you have to change following functions: QueyInterface, AddRef and Relase
| Constructors |
constructor Create(UnkOuter: IOleObject);| Functions |
function AddRef: Longint;
function DAdvise(var formatetc: TFormatEtc; advf: Longint;advSink: IAdviseSink; var dwConnection: Longint): HResult;WARNING: This function was never tested!!!
destructor Destroy;
function DUnadvise(dwConnection: Longint): HResult;
function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;
function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:IEnumFormatEtc): HResult;
function GetCanonicalFormatEtc(var formatetc: TFormatEtc;var formatetcOut: TFormatEtc): HResult;
function GetData(var formatetcIn: TFormatEtc;var medium: TStgMedium): HResult;
function GetDataHere(var formatetc: TFormatEtc;var medium: TStgMedium): HResult;
function QueryGetData(var formatetc: TFormatEtc): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;
function Release: Longint;
function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;fRelease: BOOL): HResult;
function SupportsFormat(const formatEtcIn:TFormatEtc):HResult;delegates call to outer object
| Properties |
| Events |
| Variables |
fDataAdviseHolder : IDataAdviseHolder;
FRefCount : Integer;
fUnkOuter : IOleObject;| Constructors |
constructor Create(UnkOuter: IOleObject);fullUserTypeName=nil; dwSrcOfCopy=nil;
| Functions |
function AddRef: Longint;delegates call to outer object
function DAdvise(var formatetc: TFormatEtc; advf: Longint;advSink: IAdviseSink; var dwConnection: Longint): HResult;Data advisory dunctions were never tested !!! - because they were never called from RIchEdit ;-
WARNING: This function was never tested!!!
destructor Destroy;.. the outer object should not explicitly call addref after TMyDataObject.Create
function DUnadvise(dwConnection: Longint): HResult;WARNING: This function was never tested!!!
function EnumDAdvise(var enumAdvise: IEnumStatData): HResult;WARNING: This function was never tested!!!
function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc:IEnumFormatEtc): HResult;not implemented
function GetCanonicalFormatEtc(var formatetc: TFormatEtc;var formatetcOut: TFormatEtc): HResult;
function GetData(var formatetcIn: TFormatEtc;var medium: TStgMedium): HResult;MISSING support for cfDelphiObject
function GetDataHere(var formatetc: TFormatEtc;var medium: TStgMedium): HResult;embedded object supported only in GetDataHere
function QueryGetData(var formatetc: TFormatEtc): HResult;from olectnrs.pas
function QueryInterface(const iid: TIID; var obj): HResult;
function Release: Longint;delegates call to outer object
function SetData(var formatetc: TFormatEtc; var medium: TStgMedium;fRelease: BOOL): HResult;we do not provide device-specific renderings
function SupportsFormat(const formatEtcIn:TFormatEtc):HResult;NOT TESTED
delegates call to outer object
| Properties |
| Events |
| Variables |
fDataAdviseHolder : IDataAdviseHolder;pointer to outer object
FRefCount : Integer;
fUnkOuter : IOleObject;