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

IDE: disconnect source editor before rename

Browse Source 
git-svn-id: trunk@26196 -
This commit is contained in:
mattias 2010-06-19 16:03:45 +00:00
parent 0238049950
commit 13fdb2e797
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/ideoptiondefs.pas
View File

@ -706,7 +706,7 @@ begin
if ALayout.Applied then exit;
ALayout.Applied:=true;
{$IFDEF VerboseIDEDocking}
debugln(['TSimpleWindowLayoutList.ApplyAndShow restore ',ALayout.FormID]);
debugln(['TSimpleWindowLayoutList.ApplyAndShow restore ',ALayout.FormID,' ',IDEWindowPlacementNames[ALayout.WindowPlacement]]);
{$ENDIF}
case ALayout.WindowPlacement of
@ -753,6 +753,8 @@ begin
end;
end;
debugln(['TSimpleWindowLayoutList.ApplyAndShow no layout found ',ALayout<>nil,' ',DbgSName(AForm)]);
// no layout found => use default
Creator:=IDEWindowCreators.FindWithName(AForm.Name);
if Creator<>nil then

6
ide/sourceeditor.pp
View File

@ -5672,12 +5672,18 @@ Begin
End;
procedure TSourceNotebook.DoClose(var CloseAction: TCloseAction);
var
Layout: TSimpleWindowLayout;
begin
inherited DoClose(CloseAction);
CloseAction := caHide;
{$IFnDEF SingleSrcWindow}
if PageCount = 0 then begin { $NOTE maybe keep the last one}
// Make the name unique, because it may not immediately be released
// disconnect first
Layout:=EnvironmentOptions.IDEWindowLayoutList.ItemByForm(Self);
if Layout<>nil then
Layout.Form:=nil;
Name := Name + '___' + IntToStr(PtrUInt(Pointer(Self)));
CloseAction := caFree;
end