From 96d5ad47f881252a0541659c6b45ab2a3120c871 Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 22 Jul 2021 05:49:35 +0000 Subject: [PATCH] * Enable TDatasource.Enabled --- packages/fcl-db/db.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas index 4546700..719adc2 100644 --- a/packages/fcl-db/db.pas +++ b/packages/fcl-db/db.pas @@ -8231,6 +8231,7 @@ procedure TDatasource.SetEnabled(Value: Boolean); begin FEnabled:=Value; + ProcessEvent(deUpdateState,0); end; @@ -8283,7 +8284,7 @@ begin begin NeedDataChange:=(FState=dsInactive); FLastState:=FState; - If Assigned(Dataset) then + If Assigned(Dataset) and enabled then FState:=Dataset.State else FState:=dsInactive;