paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enable TDatasource.Enabled, patch from Laco

Browse Source 
git-svn-id: trunk@49630 -
This commit is contained in:
michael 2021-07-22 05:50:22 +00:00
parent b9db32ca05
commit c48ac0a71e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -639,6 +639,7 @@ procedure TDatasource.SetEnabled(Value: Boolean);
begin
FEnabled:=Value;
ProcessEvent(deUpdateState,0);
end;
@ -679,7 +680,7 @@ procedure TDataSource.ProcessEvent(Event : TDataEvent; Info : Ptrint);
Const
OnDataChangeEvents = [deRecordChange, deDataSetChange, deDataSetScroll,
deLayoutChange,deUpdateState];
deLayoutChange, deUpdateState];
Var
NeedDataChange : Boolean;
@ -691,7 +692,7 @@ begin
begin
NeedDataChange:=(FState=dsInactive);
FLastState:=FState;
If Assigned(Dataset) then
If Assigned(Dataset) and FEnabled then
FState:=Dataset.State
else
FState:=dsInactive;