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
Drag-and-Drop in Unmodified TDBRichViewEdit
-
- Site Admin
- Posts: 17557
- Joined: Sat Aug 27, 2005 10:28 am
- Contact:
Fix: in RVERVData.pas, change TRVEditRVData.InitDragging to:
This fix will be included in the next update.
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;