paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 01:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: restore desktop with correct name after debugging

Browse Source 
git-svn-id: trunk@55663 -
This commit is contained in:
ondrej 2017-08-14 12:10:18 +00:00
parent e9f32a53a5
commit 60d02c5182
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/environmentopts.pp
View File

@ -1672,10 +1672,10 @@ procedure TEnvironmentOptions.EnableDebugDesktop;
begin begin
if not Assigned(FLastDesktopBeforeDebug) and Assigned(DebugDesktop) and (DebugDesktop <> ActiveDesktop) then if not Assigned(FLastDesktopBeforeDebug) and Assigned(DebugDesktop) and (DebugDesktop <> ActiveDesktop) then
begin begin
FLastDesktopBeforeDebug := TDesktopOpt.Create(''); FLastDesktopBeforeDebug := TDesktopOpt.Create(ActiveDesktopName);
if AutoSaveActiveDesktop then if AutoSaveActiveDesktop then
Desktop.ImportSettingsFromIDE; Desktop.ImportSettingsFromIDE;
FLastDesktopBeforeDebug.Assign(Desktop, True); FLastDesktopBeforeDebug.Assign(Desktop, False);
EnvironmentOptions.UseDesktop(DebugDesktop); EnvironmentOptions.UseDesktop(DebugDesktop);
end; end;
end; end;