[lazarus] Supplement to Bug Issue 1861: Esc Key does not cancel drag (Patch)

[Daniel Dugan]

Patch for  dragdrop.inc as it neglects to check Drop parameter. [Pressing the ESC key during a drag sends a DragDone(false)]

 

Index: dragdock.inc
===================================================================
--- dragdock.inc (revision 8981)
+++ dragdock.inc (working copy)
@@ -325,7 +325,7 @@
       TargetPos := DragObject.DragPos;
 
     // last DragOver message (make sure, there is at least one)
-    Accepted:=(ActiveDrag <> dopNone) and SendDragOver(dmDragLeave);
+    Accepted:=(ActiveDrag <> dopNone) and SendDragOver(dmDragLeave) and Drop;
 
     // erase global variables (dragging stopped)
     DragControl := nil;

---

Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+ countries) for 2¢/min or less.