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

IDE: removed SetCurrentDir from save/open project

Browse Source 
git-svn-id: trunk@21080 -
This commit is contained in:
mattias 2009-08-02 21:29:55 +00:00
parent f862ea8a54
commit 71222456a4
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/main.pp
View File

@ -6789,14 +6789,6 @@ begin
EnvironmentOptions.AddToRecentProjectFiles(NewLPIFilename);
SetRecentProjectFilesMenu;
// switch working directory
try
SetCurrentDirUTF8(ExtractFilePath(NewLPIFilename));
except
on E: Exception do
DebugLn(['TMainIDE.DoShowSaveProjectAsDialog SetCurrentDirUTF8: ',E.Message]);
end;
// change main source
if (Project1.MainUnitID >= 0) then
begin
@ -8839,14 +8831,6 @@ begin
Result:=DoCloseProject;
if Result=mrAbort then exit;
// switch working directory
try
SetCurrentDirUTF8(ExtractFilePath(AFilename));
except
on E: Exception do
DebugLn(['TMainIDE.DoOpenProjectFile SetCurrentDirUTF8: ',E.Message]);
end;
// create a new project
{$IFDEF IDE_VERBOSE}
writeln('TMainIDE.DoOpenProjectFile B');