FIX: Start drag&drop when mouse move > DragThreshold

This commit is contained in:
Alexander Koblov 2020-01-02 10:21:19 +00:00
commit 3bb751b76c

View file

@ -885,7 +885,8 @@ begin
else
// if we are about to start dragging
if FStartDrag then
if FStartDrag and ((Abs(FDragStartPoint.X - X) > DragManager.DragThreshold) or
(Abs(FDragStartPoint.Y - Y) > DragManager.DragThreshold)) then
begin
FStartDrag := False;