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

IDE: code context dlg: free via application

Browse Source 
git-svn-id: trunk@40027 -
This commit is contained in:
mattias 2013-01-29 18:20:08 +00:00
parent 32dca9e242
commit 5df38ac5b8
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codecontextform.pas
View File

@ -41,7 +41,7 @@ uses
Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds, Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds,
BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool, BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool,
IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager, IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager,
SourceChanger, SrcEditorIntf, IDEProcs, LazarusIDEStrConsts; SourceChanger, SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts;
type type
@ -126,7 +126,7 @@ begin
(CodeContexts = nil) or (CodeContexts.Count = 0) then (CodeContexts = nil) or (CodeContexts.Count = 0) then
Exit; Exit;
if CodeContextFrm = nil then if CodeContextFrm = nil then
CodeContextFrm := TCodeContextFrm.Create(nil); CodeContextFrm := TCodeContextFrm.Create(LazarusIDE.OwningComponent);
CodeContextFrm.SetCodeContexts(CodeContexts); CodeContextFrm.SetCodeContexts(CodeContexts);
CodeContextFrm.Visible := True; CodeContextFrm.Visible := True;
@ -1159,8 +1159,5 @@ begin
inherited Destroy; inherited Destroy;
end; end;
finalization
FreeThenNil(CodeContextFrm);
end. end.