paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 19:27:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

Carbon: fixed setting of ofOverWritePrompt and ofAllowMultiSelect.Patch by Torsten Bonde Christiansen. issue #20149

Browse Source 
git-svn-id: trunk@32181 -
This commit is contained in:
zeljko 2011-09-05 08:41:16 +00:00
parent 9202316548
commit ac40960c17
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -303,7 +303,7 @@ begin
if ofOverwritePrompt in TOpenDialog(FileDialog).Options then if ofOverwritePrompt in TOpenDialog(FileDialog).Options then
CreationOptions.optionFlags := CreationOptions.optionFlags :=
CreationOptions.optionFlags xor kNavDontConfirmReplacement CreationOptions.optionFlags and (not kNavDontConfirmReplacement)
else else
CreationOptions.optionFlags := CreationOptions.optionFlags :=
CreationOptions.optionFlags or kNavDontConfirmReplacement; CreationOptions.optionFlags or kNavDontConfirmReplacement;
@ -327,7 +327,7 @@ begin
begin begin
if not (ofAllowMultiSelect in TOpenDialog(FileDialog).Options) then if not (ofAllowMultiSelect in TOpenDialog(FileDialog).Options) then
CreationOptions.optionFlags := CreationOptions.optionFlags :=
CreationOptions.optionFlags xor kNavAllowMultipleFiles CreationOptions.optionFlags and (not kNavAllowMultipleFiles)
else else
CreationOptions.optionFlags := CreationOptions.optionFlags :=
CreationOptions.optionFlags or kNavAllowMultipleFiles; CreationOptions.optionFlags or kNavAllowMultipleFiles;