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

LCL: win32: use All files instead of All File Types, issue #27654

Browse Source 
git-svn-id: trunk@48334 -
This commit is contained in:
mattias 2015-03-14 09:12:14 +00:00
parent ac3eedb892
commit 695ac7c9e9
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -160,6 +160,10 @@ function UTF8StringToPAnsiChar(const s: string) : PAnsiChar;
function CanUseVistaDialogs(const AOpenDialog: TOpenDialog): Boolean;
{$endif}
var
cOpenDialogAllFiles: string = 'All files';
implementation
function SaveApplicationState: TApplicationState;
@ -670,7 +674,7 @@ begin
ReplacePipe(Filter);
end
else
Filter := 'All File Types(*.*)'+#0+'*.*'+#0; // Default -> avoid empty combobox
Filter := cOpenDialogAllFiles+' (*.*)'+#0+'*.*'+#0; // Default -> avoid empty combobox
OpenFile := AllocMem(SizeOf(OpenFileName));
with OpenFile^ do
@ -840,7 +844,7 @@ begin
ParsedFilter := TParseStringList.Create(AOpenDialog.Filter, '|');
if ParsedFilter.Count = 0 then
begin
ParsedFilter.Add('All File Types(*.*)');
ParsedFilter.Add(cOpenDialogAllFiles+' (*.*)');
ParsedFilter.Add('*.*');
end;
try