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

ide: fixed expanding build lazarus target dir dlg

Browse Source
This commit is contained in:
mattias 2022-01-16 21:54:42 +01:00
parent b741255ce0
commit d512288b17
1 changed files with 2 additions and 2 deletions

4
ide/buildlazdialog.pas
View File

@ -1162,9 +1162,9 @@ begin
{ Setup directory path }
lDirName:=EnvironmentOptions.GetParsedValue(eopLazarusDirectory, TargetDirectoryComboBox.Text);
lExpandedName:=CleanAndExpandDirectory(lDirName);
lDirName:=GetValidDirectoryAndFilename(lDirName, lDirNameF);
lDirName:=GetValidDirectoryAndFilename(lExpandedName, lDirNameF);
DirDialog.InitialDir:=IncludeTrailingBackslash(lDirName);
DirDialog.InitialDir:=ChompPathDelim(lExpandedName);
DirDialog.FileName:=lDirNameF;
if DirDialog.Execute then begin