paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-09 01:56:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enable TDatasource.Enabled

Browse Source
This commit is contained in:
michael 2021-07-22 05:49:35 +00:00
parent 7d544eafc0
commit 96d5ad47f8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/db.pas
View File

@ -8231,6 +8231,7 @@ procedure TDatasource.SetEnabled(Value: Boolean);
begin begin
FEnabled:=Value; FEnabled:=Value;
ProcessEvent(deUpdateState,0);
end; end;
@ -8283,7 +8284,7 @@ begin
begin begin
NeedDataChange:=(FState=dsInactive); NeedDataChange:=(FState=dsInactive);
FLastState:=FState; FLastState:=FState;
If Assigned(Dataset) then If Assigned(Dataset) and enabled then
FState:=Dataset.State FState:=Dataset.State
else else
FState:=dsInactive; FState:=dsInactive;