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

IDE: clean up

Browse Source 
git-svn-id: trunk@26193 -
This commit is contained in:
mattias 2010-06-19 15:18:13 +00:00
parent 95729106bc
commit e3dd67d199
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -5670,8 +5670,6 @@ begin
CloseAction := caHide;
{$IFnDEF SingleSrcWindow}
if PageCount = 0 then begin { $NOTE maybe keep the last one}
if EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(Self.Name) <> nil then
EnvironmentOptions.IDEWindowLayoutList.ItemByFormID(Self.Name).CloseForm;
// Make the name unique, because it may not immediately be released
Name := Name + '___' + IntToStr(PtrUInt(Pointer(Self)));
CloseAction := caFree;