From 695ac7c9e9c8510ac046e491caaa5db0065842d1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 14 Mar 2015 09:12:14 +0000
Subject: [PATCH] LCL: win32: use All files instead of All File Types, issue
 #27654

git-svn-id: trunk@48334 -
---
 lcl/interfaces/win32/win32wsdialogs.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 9346762fed..91a91ef0e8 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -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