paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: set current working directory on project open and save as, this is a better last default

Browse Source 
git-svn-id: trunk@21079 -
This commit is contained in:
mattias 2009-08-02 21:14:45 +00:00
parent a25ffb7382
commit f862ea8a54
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/main.pp
View File

@ -6789,6 +6789,14 @@ 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
@ -8804,7 +8812,8 @@ begin
Ext:=lowercase(ExtractFileExt(AFilename));
// if there is a project info file, load that instead
if (Ext<>'.lpi') and (FileExistsUTF8(ChangeFileExt(AFileName,'.lpi'))) then begin
if (Ext<>'.lpi') and (FileExistsUTF8(ChangeFileExt(AFileName,'.lpi'))) then
begin
// load instead of program file the project info file
AFileName:=ChangeFileExt(AFileName,'.lpi');
Ext:='.lpi';
@ -8830,6 +8839,14 @@ 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');