From 5df38ac5b89fe747508b50b6f4522b0c68ccab37 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 29 Jan 2013 18:20:08 +0000 Subject: [PATCH] IDE: code context dlg: free via application git-svn-id: trunk@40027 - --- ide/codecontextform.pas | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/ide/codecontextform.pas b/ide/codecontextform.pas index 0458910388..75e6d31122 100644 --- a/ide/codecontextform.pas +++ b/ide/codecontextform.pas @@ -41,7 +41,7 @@ uses Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds, BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool, IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager, - SourceChanger, SrcEditorIntf, IDEProcs, LazarusIDEStrConsts; + SourceChanger, SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts; type @@ -126,7 +126,7 @@ begin (CodeContexts = nil) or (CodeContexts.Count = 0) then Exit; if CodeContextFrm = nil then - CodeContextFrm := TCodeContextFrm.Create(nil); + CodeContextFrm := TCodeContextFrm.Create(LazarusIDE.OwningComponent); CodeContextFrm.SetCodeContexts(CodeContexts); CodeContextFrm.Visible := True; @@ -1159,8 +1159,5 @@ begin inherited Destroy; end; -finalization - FreeThenNil(CodeContextFrm); - end.