Class TMyDataObject (unit DataObject) |
Inherits from
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
constructor Create(UnkOuter: IOleObject);
- fullUserTypeName=nil; dwSrcOfCopy=nil;
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;
.
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.
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
fDataAdviseHolder : IDataAdviseHolder;
pointer to outer object
FRefCount : Integer;
fUnkOuter : IOleObject;
constructor Create(UnkOuter: IOleObject);
fullUserTypeName=nil; dwSrcOfCopy=nil;
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
fDataAdviseHolder : IDataAdviseHolder;
pointer to outer object
FRefCount : Integer;
fUnkOuter : IOleObject;