From c75d21e68f56aaf16d3bd91e17b85b30bf6e9b4b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 20 Jul 2006 19:03:14 +0000
Subject: [PATCH] file filter for the conversion tool  from Darius

git-svn-id: trunk@9641 -
---
 ide/lazarusidestrconsts.pas | 1 +
 ide/main.pp                 | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index e8e34df6cb..d164b31911 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -3048,6 +3048,7 @@ resourcestring
     +'message';
   lisRelativePaths = 'Relative paths';
   lisLazBuildSaveSettings = 'Save settings';
+  rsFormDataFileDfm = 'Form data file (*.dfm)|*.dfm';
   liswlWatchList = 'Watch list';
   liswlExpression = 'Expression';
 
diff --git a/ide/main.pp b/ide/main.pp
index 8abb00dee9..869b014927 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -8302,6 +8302,8 @@ begin
     InputHistories.ApplyFileDialogSettings(OpenDialog);
     OpenDialog.Title:=lisSelectDFMFiles;
     OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect];
+    OpenDialog.Filter := rsFormDataFileDfm
+                         + '|' + dlgAllFiles + '|'+GetAllFilesMask;
     if OpenDialog.Execute and (OpenDialog.Files.Count>0) then begin
       For I := 0 to OpenDialog.Files.Count-1 do begin
         AFilename:=ExpandFilename(OpenDialog.Files.Strings[i]);