paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:00:43 +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); procedure TCustomDBGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
begin begin
if (fGridState=gsSelecting) and not Dragging then if (fGridState=gsSelecting) and not Dragging then begin
exit if Assigned(OnMouseMove) then
else OnMouseMove(Self, Shift, x, y);
exit;
end else
inherited MouseMove(Shift, X, Y); inherited MouseMove(Shift, X, Y);
end; end;