paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 19:17:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, DbGrid fix OnMouseMove, issue #34390

Browse Source 
git-svn-id: trunk@59713 -
This commit is contained in:
jesus 2018-12-02 01:15:59 +00:00
parent 034fdfe9b3
commit 40a8d09984
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -2839,9 +2839,11 @@ end;
procedure TCustomDBGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
if (fGridState=gsSelecting) and not Dragging then
exit
else
if (fGridState=gsSelecting) and not Dragging then begin
if Assigned(OnMouseMove) then
OnMouseMove(Self, Shift, x, y);
exit;
end else
inherited MouseMove(Shift, X, Y);
end;