Class TReDropSource (unit Richole)

Inherits from

IDropSource

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;



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;