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

IDE: clean up

Browse Source 
git-svn-id: trunk@49801 -
This commit is contained in:
mattias 2015-09-09 21:15:24 +00:00
parent 67c31934b5
commit 61f3ca566c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/environmentopts.pp
View File

@ -1745,8 +1745,8 @@ begin
// New path under Desktops/. Default=1 forces reading default values always. // New path under Desktops/. Default=1 forces reading default values always.
FDebugDesktopName := FXMLCfg.GetValue(CurPath+'DebugDesktop', ''); FDebugDesktopName := FXMLCfg.GetValue(CurPath+'DebugDesktop', '');
j := FXMLCfg.GetValue(CurPath+'Count', 1); j := FXMLCfg.GetValue(CurPath+'Count', 1);
for i := 0 to j-1 do for i := 1 to j do
FDesktops.AddFromCfg(CurPath+'Desktop'+IntToStr(i+1)+'/'); FDesktops.AddFromCfg(CurPath+'Desktop'+IntToStr(i)+'/');
FActiveDesktopName := FXMLCfg.GetValue(CurPath+'ActiveDesktop', ''); FActiveDesktopName := FXMLCfg.GetValue(CurPath+'ActiveDesktop', '');
end else end else
@ -1769,7 +1769,6 @@ begin
FileUpdated; FileUpdated;
except except
// ToDo
on E: Exception do on E: Exception do
DebugLn('[TEnvironmentOptions.Load] error reading "',FFilename,'": '+E.Message); DebugLn('[TEnvironmentOptions.Load] error reading "',FFilename,'": '+E.Message);
end; end;