RVOleDropEffect

[[email protected]]

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.

[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).