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

ide: run working directory: use exe folder and as fallback the project directory

Browse Source
This commit is contained in:
mattias 2024-01-14 12:33:19 +01:00
parent 9f62dd37a3
commit b38b88bdb5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/buildmanager.pas
View File

@ -717,6 +717,7 @@ begin
Result := '';
if Project1=nil then exit;
// first take the WorkDir from the active run parameters
AMode := Project1.RunParameterOptions.GetActiveMode;
if AMode<>nil then
Result := AMode.WorkingDirectory;
@ -725,14 +726,16 @@ begin
if (Result <> '') and not FilenameIsAbsolute(Result) then
Result := CreateAbsolutePath(Result, Project1.Directory);
if (Result='') and (not Project1.IsVirtual) then
Result := ChompPathDelim(Project1.Directory);
// then use the directory of the produced exe
if Result='' then begin
Result := ExtractFilePath(BuildBoss.GetProjectTargetFilename(Project1));
if (Result <> '') and not FilenameIsAbsolute(Result) then
Result := CreateAbsolutePath(Result, Project1.Directory);
end;
// finally use the project directory
if (Result='') and (not Project1.IsVirtual) then
Result := ChompPathDelim(Project1.Directory);
end;
procedure TBuildManager.WriteDebug_RunCommandLine;