paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Fix a missing Result value of TDesignForms.Add().

Browse Source
This commit is contained in:
Juha 2023-07-17 22:53:11 +03:00
parent 8533349aba
commit a236313f5f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/dockedformeditor/source/dockeddesignform.pas
View File

@ -195,7 +195,7 @@ end;
function TDesignForms.Add(const Item: TDesignForm): Integer;
begin
Item.FContainer := Self;
inherited;
Result := inherited Add(Item);
end;
procedure TDesignForms.DeleteDesignForm(AIndex: Integer);