paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 00:57:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix dbgrid dragging, issue #21614

Browse Source 
git-svn-id: trunk@37454 -
This commit is contained in:
jesus 2012-05-29 20:01:20 +00:00
parent d8b0d0defc
commit 6f93a15f00
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/dbgrids.pas
View File

@ -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);