From f2ffc5a7d16079f24660402e91b160c32f66e12c Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Mon, 18 Feb 2013 08:12:56 +0000
Subject: [PATCH] LCL, carbon, fix FilterIndex on FileSave Dialog

git-svn-id: trunk@40343 -
---
 lcl/interfaces/carbon/carbonwsdialogs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwsdialogs.pp b/lcl/interfaces/carbon/carbonwsdialogs.pp
index 0852a91d43..12583ef1d0 100644
--- a/lcl/interfaces/carbon/carbonwsdialogs.pp
+++ b/lcl/interfaces/carbon/carbonwsdialogs.pp
@@ -390,7 +390,7 @@ begin
         if OSError(NavDisposeReply(DialogReply), Self, SShowModal,
           'NavDisposeReply') then Exit;
           
-        FileDialog.FilterIndex := FilterIndex;
+        FileDialog.FilterIndex := FilterIndex + 1;
         FileDialog.UserChoice := mrOK;
       end;
     finally