| Class TReDropSource (unit Richole) |
IDropSource
| Constructors |
constructor create(Parent:TRichEditWithOle);////////////////////////////////////////////////////////////////////////////// TReDropSource ////////////////////////////////////////////////////////////////////////////// Strange, but RichEdit control, which supports IRichEditOle does not support IDropTarget interface (I guess, this is violation of COM rules) So we take an approach from the other site -w e emulate IDropSource
| Functions |
function AddRef: Longint;
function GiveFeedback(dwEffect: Longint): HResult;
function QueryContinueDrag(fEscapePressed: BOOL;grfKeyState: Longint): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;
function Release: Longint;| Properties |
| Events |
| Variables |
dropped : boolean;
lastPos : TPoint;
captureWindow : hwnd;
fParent : TRichEditWithOle;
fRefCount : longint;| Constructors |
constructor create(Parent:TRichEditWithOle);last mouse position (QueryContinueDrag
////////////////////////////////////////////////////////////////////////////// TReDropSource ////////////////////////////////////////////////////////////////////////////// Strange, but RichEdit control, which supports IRichEditOle does not support IDropTarget interface (I guess, this is violation of COM rules) So we take an approach from the other site -w e emulate IDropSource
| Functions |
function AddRef: Longint;
function GiveFeedback(dwEffect: Longint): HResult;when mouse leaves RichEdit's control area, we have to continue with Delphi's drag and drop mechanism
function QueryContinueDrag(fEscapePressed: BOOL;grfKeyState: Longint): HResult;
function QueryInterface(const iid: TIID; var obj): HResult;find the window, that has capture
function Release: Longint;| Properties |
| Events |
| Variables |
dropped : boolean;
lastPos : TPoint;TRUE, if mouse buutton has been release
captureWindow : hwnd;
fParent : TRichEditWithOle;
fRefCount : longint;