From 39509abee2a69158c0663d351621c501b2c38a74 Mon Sep 17 00:00:00 2001 From: maxim Date: Thu, 6 Apr 2017 23:16:45 +0000 Subject: [PATCH] Merged revision(s) 54520 #e366739dbb from trunk: LCL: fix exception in DbGrid on clicking when dataset is inactive, patch from Soner, issue #31631 ........ git-svn-id: branches/fixes_1_6@54551 - --- lcl/dbgrids.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas index 00abe95d31..0958955162 100644 --- a/lcl/dbgrids.pas +++ b/lcl/dbgrids.pas @@ -3003,7 +3003,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;