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

Merged revision(s) 54520 #e366739dbb from trunk:

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

git-svn-id: branches/fixes_1_6@54551 -
This commit is contained in:
maxim 2017-04-06 23:16:45 +00:00
parent 9808d18f93
commit 39509abee2
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

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