From 6f93a15f002f7aaa6b2640f67348c8a6f39f21b1 Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Tue, 29 May 2012 20:01:20 +0000
Subject: [PATCH] LCL, fix dbgrid dragging, issue #21614

git-svn-id: trunk@37454 -
---
 lcl/dbgrids.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index 23f7931546..74748c4b88 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -2363,7 +2363,7 @@ end;
 
 procedure TCustomDBGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
 begin
-  if fGridState=gsSelecting then
+  if (fGridState=gsSelecting) and not Dragging then
     exit
   else
     inherited MouseMove(Shift, X, Y);