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

* Fix bug ID 37737: always set parentcomponent

Browse Source
This commit is contained in:
michael 2020-09-12 07:52:43 +00:00
parent 4b28b7b3b5
commit 784e85a9dd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5829,7 +5829,7 @@ end;
procedure TField.SetParentComponent(Value: TComponent); procedure TField.SetParentComponent(Value: TComponent);
begin begin
if not (csLoading in ComponentState) then // if not (csLoading in ComponentState) then
DataSet := Value as TDataSet; DataSet := Value as TDataSet;
end; end;