From 2a8cf12022f9358355206ac5ff2e7f2dbab9f682 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sat, 26 Mar 2005 14:01:36 +0000
Subject: [PATCH] use FileDialog FilterIndex

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

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 18f7342663..c22535cc95 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -251,6 +251,7 @@ begin
     hWndOwner := GetOwnerHandle(AOpenDialog);
     hInstance := System.hInstance;
     lpStrFilter := StrAlloc(Length(FFilter)+1);
+    nFilterIndex := AOpenDialog.FilterIndex;
     Move(PChar(FFilter)^, lpStrFilter^, Length(FFilter)+1);
     lpStrFile := FName;
     lpStrTitle := PChar(AOpenDialog.Title);
@@ -312,6 +313,7 @@ begin
     Files.Clear;
     if UserResult then 
     begin
+      AOpenDialog.FilterIndex := OpenFile.nFilterIndex;
       if not (ofOldStyleDialog in Options) then // Win32 returns diferent types of strings
         SetFilesProperty(Files)
       else