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

IDE: Improve initialization of directory browse button in FindInFilesDlg. Issue #40344, patch from Bruno K.

Browse Source
This commit is contained in:
Juha 2023-06-23 08:57:03 +03:00
parent 8b426df777
commit 36a4b07e52
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/findinfilesdlg.lfm
View File

@ -296,7 +296,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
end
object SelectDirectoryDialog: TSelectDirectoryDialog
FilterIndex = 0
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
Options = [ofExtensionDifferent,ofFileMustExist,ofEnableSizing,ofViewDetail]
Left = 180
Top = 70
end

1
ide/findinfilesdlg.pas
View File

@ -160,6 +160,7 @@ begin
else
SelectDirectoryDialog.InitialDir := GetBaseDirectory;
SelectDirectoryDialog.FileName:='';
if SelectDirectoryDialog.Execute then
DirectoriesComboBox.Text := AppendPathDelim(TrimFilename(SelectDirectoryDialog.FileName));
StoreIDEFileDialog(SelectDirectoryDialog);