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

IDE: restore desktop with correct name after debugging

Browse Source 
git-svn-id: branches/fixes_1_8@55688 -
This commit is contained in:
mattias 2017-08-19 08:40:20 +00:00
parent deb046446d
commit fc06fd7b1d
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

@ -1544,10 +1544,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;