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

IDE: save project as: added all files filter

Browse Source 
git-svn-id: trunk@58050 -
This commit is contained in:
mattias 2018-05-29 07:27:59 +00:00
parent c21589c84d
commit 5ea6791db5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcefilemanager.pas
View File

@ -8091,7 +8091,9 @@ begin
Ext := ExtractFileExt(AFilename);
SaveDialog.Title := Format(lisSaveProject, [Project1.GetTitleOrName, Ext]);
SaveDialog.FileName := AFilename;
SaveDialog.Filter := '*' + Ext + '|' + '*' + Ext;
// Note: add *.* filter, so users can see the files in the target directory
SaveDialog.Filter := '*' + Ext + '|' + '*' + Ext
+ '|' + dlgFilterAll + ' (' + GetAllFilesMask + ')|' + GetAllFilesMask;
SaveDialog.DefaultExt := ExtractFileExt(AFilename);
if not Project1.IsVirtual then
SaveDialog.InitialDir := Project1.Directory;