From fc6cac6a8f36d27a30264fd7832c6aad55e54b89 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 29 Feb 2012 10:50:50 +0000
Subject: [PATCH] More improvements to handling of Open/SaveDialog.FilterIndex

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2320 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/lazedit/lazedit_constants.pp | 1 +
 applications/lazedit/main.pp              | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/applications/lazedit/lazedit_constants.pp b/applications/lazedit/lazedit_constants.pp
index 6c9c4a32e..6e5f479e4 100644
--- a/applications/lazedit/lazedit_constants.pp
+++ b/applications/lazedit/lazedit_constants.pp
@@ -91,6 +91,7 @@ const
   //FilterIndexes all start with FilterAllSupported, then all individually supported filetypes followed by .txt, templates and *
   //Filter indexes
   fiAllSupported = 1; //FilterIndexes are 1-based!
+  fiTemplates = 1; //for use with Open/SaveAsTemplate dialog only!
 
   fiEftFirst = Ord(Low(TEditorFileType)) + 2; //skip eftNone, add 1 for fiAllSupported
   fiEftLast = Ord(High(TEditorFileType)) + 1; //Add 1 for fiAllSupported
diff --git a/applications/lazedit/main.pp b/applications/lazedit/main.pp
index 434508256..15bbf7ce4 100644
--- a/applications/lazedit/main.pp
+++ b/applications/lazedit/main.pp
@@ -1937,7 +1937,7 @@ end;
 function TLazEditMainForm.AskFileNameOpen: String;
 begin
   OpenDialog.Filter := OpenSaveFilter;
-  OpenDialog.FilterIndex := 0;
+  OpenDialog.FilterIndex := fiAllSupported;
   if OpenDialog.Execute then
   begin
     Result := OpenDialog.FileName;
@@ -1949,7 +1949,7 @@ end;
 function TLazEditMainForm.AskFileNameOpenTemplate: String;
 begin
   OpenDialog.Filter := TemplateFilter;
-  OpenDialog.FilterIndex := 0;
+  OpenDialog.FilterIndex := fiTemplates;
   if OpenDialog.Execute then
   begin
     Result := OpenDialog.FileName;
@@ -1991,7 +1991,7 @@ end;
 function TLazEditMainForm.AskFileNameSaveTemplate: String;
 begin
   SaveDialog.Filter := TemplateFilter;
-  SaveDialog.FilterIndex := 0;
+  SaveDialog.FilterIndex := fiTemplates;
   if SaveDialog.Execute then
   begin
     Result := SaveDialog.FileName;