Class TMyRichEditOleCallBack (unit Richole) |
Inherits from
IRichEditOleCallback
constructor Create(AOwner:TRichEditWithOle);
- ////////////////////////////////////////////////////////////////////////////// /// TMyRichEditOleCallBack //////////////////////////////////////////////////////////////////////////////
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;
fOwner : TRichEditWithOle;
constructor Create(AOwner:TRichEditWithOle);
////////////////////////////////////////////////////////////////////////////// /// TMyRichEditOleCallBack //////////////////////////////////////////////////////////////////////////////
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;
fOwner : TRichEditWithOle;