| Class TMyRichEditOleCallBack (unit Richole) |
| Constructors |
constructor Create(AOwner:TRichEditWithOle);| Functions |
function AddRef: Longint;
function ContextSensitiveHelp(fEnterMode:BOOL):hresult;
function DeleteObject(obj:IOleObject):hresult;
destructor Destroy;
function GetClipboardData(const range:TCharRange;reco:DWORD;var data:IDataObject):hresult;
function GetContextMenu(selType:word;oleObject:IOleObject;const range:TCharRange;var menu:HMENU):hresult;
function GetDragDropEffect(fDrag:BOOL;KeyState:DWORD;var Effect:DWORD):hresult;
function GetInPlaceContext(var frame:IOleInPlaceFrame;var uiWindow:IOleInPlaceUIWindow;inplInfo:POleInPlaceFrameInfo):hresult;
function GetNewStorage(var newStg:IStorage):hresult;
function QueryAcceptData(data:IDataObject;var clipFormat:TClipFormat;reco:DWORD;fReally:BOOL;hMetaPict:HGLOBAL):hresult;
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;