Class TMyRichEditOleCallBack (unit Richole)

Inherits from

IRichEditOleCallback

Constructors


constructor Create(AOwner:TRichEditWithOle);

////////////////////////////////////////////////////////////////////////////// /// TMyRichEditOleCallBack //////////////////////////////////////////////////////////////////////////////


Functions

function AddRef: Longint;

warning: p must be Delphi's object for p.

function ContextSensitiveHelp(fEnterMode:BOOL):hresult;

end;

function DeleteObject(obj:IOleObject):hresult;


destructor Destroy;

Call release after EM_SETOLEINTERFACE!

function GetClipboardData(const range:TCharRange;reco:DWORD;var data:IDataObject):hresult;


function GetContextMenu(selType:word;oleObject:IOleObject;const range:TCharRange;var menu:HMENU):hresult;

No return value

function GetDragDropEffect(fDrag:BOOL;KeyState:DWORD;var Effect:DWORD):hresult;

the rich edit control will create its own clipboard object

function GetInPlaceContext(var frame:IOleInPlaceFrame;var uiWindow:IOleInPlaceUIWindow;inplInfo:POleInPlaceFrameInfo):hresult;

except result:=E_FAIL???

function GetNewStorage(var newStg:IStorage):hresult;


function QueryAcceptData(data:IDataObject;var clipFormat:TClipFormat;reco:DWORD;fReally:BOOL;hMetaPict:HGLOBAL):hresult;

release richEdit and form (This does ??not?? (shouldn't) destroy IDataObject

function QueryInsertObject(const clsid:TClsid;storage:IStorage;cp:longint):hresult;


function QueryInterface(const iid: TIID; var obj): HResult;


function Release: Longint;


function ShowContainerUI(fShow:BOOL):hresult;


Properties

Events

Variables

fOwner : TRichEditWithOle;



Constructors


constructor Create(AOwner:TRichEditWithOle);

////////////////////////////////////////////////////////////////////////////// /// TMyRichEditOleCallBack //////////////////////////////////////////////////////////////////////////////


Functions


function AddRef: Longint;

warning: p must be Delphi's object for p.ClassName to work properly


function ContextSensitiveHelp(fEnterMode:BOOL):hresult;

end;


function DeleteObject(obj:IOleObject):hresult;


destructor Destroy;

Call release after EM_SETOLEINTERFACE!


function GetClipboardData(const range:TCharRange;reco:DWORD;var data:IDataObject):hresult;


function GetContextMenu(selType:word;oleObject:IOleObject;const range:TCharRange;var menu:HMENU):hresult;

No return value


function GetDragDropEffect(fDrag:BOOL;KeyState:DWORD;var Effect:DWORD):hresult;

the rich edit control will create its own clipboard object


function GetInPlaceContext(var frame:IOleInPlaceFrame;var uiWindow:IOleInPlaceUIWindow;inplInfo:POleInPlaceFrameInfo):hresult;

except result:=E_FAIL???


function GetNewStorage(var newStg:IStorage):hresult;


function QueryAcceptData(data:IDataObject;var clipFormat:TClipFormat;reco:DWORD;fReally:BOOL;hMetaPict:HGLOBAL):hresult;

release richEdit and form (This does ??not?? (shouldn't) destroy IDataObject


function QueryInsertObject(const clsid:TClsid;storage:IStorage;cp:longint):hresult;


function QueryInterface(const iid: TIID; var obj): HResult;


function Release: Longint;


function ShowContainerUI(fShow:BOOL):hresult;


Properties


Events


Variables


fOwner : TRichEditWithOle;