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

LCL: fix exception in DbGrid on clicking when dataset is inactive, patch from Soner, issue #31631

Browse Source 
git-svn-id: trunk@54520 -
This commit is contained in:
jesus 2017-04-04 20:49:41 +00:00
parent b7c45f8ce4
commit e366739dbb
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

@ -3039,7 +3039,7 @@ end;
function TCustomDBGrid.MouseButtonAllowed(Button: TMouseButton): boolean;
begin
Result:= (Button=mbLeft) or (dgAnyButtonCanSelect in Options);
Result:= FDataLink.Active and ((Button=mbLeft) or (dgAnyButtonCanSelect in Options));
end;
procedure TCustomDBGrid.DrawAllRows;