paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 21:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch for bug #27067 by Tony Whyman

Browse Source 
git-svn-id: trunk@29112 -
This commit is contained in:
michael 2014-11-22 19:17:10 +00:00
parent cfa859d285
commit 42a317ab73
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/base/datasource.inc
View File

@ -36,7 +36,7 @@ Var
B : Boolean; B : Boolean;
begin begin
B:=Assigned(DataSource) and (DataSource.State<>dsInactive); B:=Assigned(DataSource) and Not (DataSource.State in [dsInactive,dsOpening]);
If B<>FActive then If B<>FActive then
begin begin
FActive:=B; FActive:=B;