Page 1 of 1

RVOleDropEffect

Posted: Wed Aug 16, 2006 10:23 am
by mj@rinas.dk
I have a problem with Drag&Drop, in OleDragOver I want to set the DropEffect to rvdeLink, but rvdeLink is defined differently than DROPEFFECT_LINK (oleidl.h). Is there a reasone for this?

Also the Mouse Cursor does not change, like it does in e.g. Explorer.

Posted: Thu Aug 17, 2006 11:02 am
by Sergey Tkachenko
You are right, this is a bug, and the reason is really in rvdeLink<>DROPEFFECT_LINK.

Fix:
in RVEdit.pas, add the function:

Code: Select all

function ConvertDropEffect(Effect: TRVOleDropEffect): Integer;
begin
  Result := ord(Effect);
  if Result=3 then
    inc(Result);
end;
In the same unit, change 2 calls of ord(AEffect) to ConvertDropEffect(AEffect).