paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 17:58:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, carbon, fix FilterIndex on FileSave Dialog

Browse Source 
git-svn-id: trunk@40343 -
This commit is contained in:
jesus 2013-02-18 08:12:56 +00:00
parent c936df54b3
commit f2ffc5a7d1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonwsdialogs.pp
View File

@ -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