From b5df9f177eed6a61988ea9586fa5c8b1ec09d929 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 22 Mar 2006 23:11:35 +0000
Subject: [PATCH] fixed using Drop parameter in DragDone  from Daniel Dugan

git-svn-id: trunk@8998 -
---
 lcl/include/dragdock.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/dragdock.inc b/lcl/include/dragdock.inc
index f342f90016..7db17cadd3 100644
--- a/lcl/include/dragdock.inc
+++ b/lcl/include/dragdock.inc
@@ -325,7 +325,7 @@ Begin
       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;