carbon: fix for the #20331

git-svn-id: trunk@32638 -
2025-12-16 02:20:30 +01:00 · 2011-10-03 00:41:48 +00:00 · 2011-10-03 00:41:48 +00:00 · 2c4a5c9520
commit 2c4a5c9520
parent 317ddf7974
1 changed files with 1 additions and 0 deletions
--- a/lcl/interfaces/carbon/carbonwsdialogs.pp
+++ b/lcl/interfaces/carbon/carbonwsdialogs.pp
@ -391,6 +391,7 @@ begin
        if OSError(NavDisposeReply(DialogReply), Self, SShowModal,
          'NavDisposeReply') then Exit;
          
+        FileDialog.FilterIndex := FilterIndex;
        FileDialog.UserChoice := mrOK;
      end;
    finally