From 1915fd8932cb1f12fa2a1b05c478306d8dea14ac Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Tue, 7 Nov 2017 21:17:20 +0000
Subject: [PATCH] fcl-db: sqldb: TSQLDBLibraryLoader do not check Enabled while
 loading component properties.

git-svn-id: trunk@37570 -
---
 packages/fcl-db/src/sqldb/sqldblib.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/sqldblib.pp b/packages/fcl-db/src/sqldb/sqldblib.pp
index 4dd0480621..cb8bec7338 100644
--- a/packages/fcl-db/src/sqldb/sqldblib.pp
+++ b/packages/fcl-db/src/sqldb/sqldblib.pp
@@ -38,12 +38,12 @@ implementation
 Resourcestring
    SErrConnnected = 'This operation is not allowed while the datatabase is loaded';
    SErrInvalidConnectionType = 'Invalid connection type : "%s"';
+
 { TSQLDBLibraryLoader }
 
 procedure TSQLDBLibraryLoader.CheckDisabled;
-
 begin
-  If Enabled then
+  If not (csLoading in ComponentState) and Enabled then
     DatabaseError(SErrConnnected,Self);
 end;