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

implemente clearing msgs on closing project

Browse Source 
git-svn-id: trunk@8881 -
This commit is contained in:
mattias 2006-03-07 12:53:05 +00:00
parent b0df4cc0b7
commit 070ad30098
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -68,11 +68,11 @@ uses
// codetools
AVL_Tree, Laz_XMLCfg,
CodeToolsStructs, CodeToolManager, CodeCache, DefineTemplates,
// IDE interface
AllIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands, SrcEditorIntf,
NewItemIntf, PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf,
// synedit
SynEditKeyCmds,
// IDE interface
AllIDEIntf, ObjectInspector, PropEdits, MacroIntf, IDECommands, SrcEditorIntf,
NewItemIntf, MsgIntf, PackageIntf, ProjectIntf, MenuIntf, LazIDEIntf,
// protocol
IDEProtocol,
// compile
@ -6597,6 +6597,8 @@ begin
// close Project
if ProjInspector<>nil then ProjInspector.LazProject:=nil;
FreeThenNil(Project1);
if IDEMessagesWindow<>nil then IDEMessagesWindow.Clear;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoCloseProject C');{$ENDIF}
Result:=mrOk;
{$IFDEF IDE_VERBOSE}