paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Menu designer: Free the designer correctly. The GUI form is not a master any more.

Browse Source 
git-svn-id: trunk@51545 -
This commit is contained in:
juha 2016-02-08 21:47:18 +00:00
parent 3f1790264f
commit 969f23b12f
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/menueditorform.pas
View File

@ -137,7 +137,7 @@ end;
constructor TMenuDesignerForm.Create(aDesigner: TMenuDesignerBase);
begin
Inherited Create(LazarusIDE.OwningComponent);
Inherited Create(Nil); // LazarusIDE.OwningComponent
FDesigner := aDesigner;
end;

3
designer/menushadows.pp
View File

@ -4111,5 +4111,8 @@ initialization
RegisterComponentEditor(TMenu, TMainMenuComponentEditor);
RegisterPropertyEditor(TypeInfo(TMenu), TMenu, 'Items', TMenuItemsPropertyEditor);
finalization
FreeAndNil(MenuDesignerSingleton);
end.