Drag-and-Drop in Unmodified TDBRichViewEdit

[Michel]

Hi Sergey,

I think there may be a little bug with this.
In a not-yet modified record with a TDBRichViewEdit, perform a Drag-and-Drop operation on some selected text. It should move it, right? Instead, it copies it. No problem if the record has been modified (and is hence in dsEdit state).

Thanks,

Michel

[Michel]

Hi Sergey,

Did you miss my question by any chance?

Thanks,

[Sergey Tkachenko]

Fix: in RVERVData.pas, change TRVEditRVData.InitDragging to:

Code: Select all

function TRVEditRVData.InitDragging(var DropSource: TRVDropSource;
  var OKEffect: Integer): Boolean;
begin
  Result := inherited InitDragging(DropSource, OKEffect);
  if Result and (rvflRoot in Flags) and
    (not TCustomRichViewEdit(FRichView).ReadOnly or (rvflDBRichViewEdit in Flags)) and
    CanDelete then
    OKEffect := OKEffect or DROPEFFECT_MOVE;
end;

This fix will be included in the next update.