paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 49187 #a14e21882c from trunk:

Browse Source 
Win32: handle ofDontAddToRecent option in TOpen/SaveDialog (Issue #0027682).
........

git-svn-id: branches/fixes_1_4@49195 -
This commit is contained in:
maxim 2015-05-27 20:35:51 +00:00
parent c2fbec5d82
commit 9566e8e958
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -599,6 +599,7 @@ function CreateFileDialogHandle(AOpenDialog: TOpenDialog): THandle;
if ofReadOnly in Options then Result := Result or OFN_READONLY;
if ofShareAware in Options then Result := Result or OFN_SHAREAWARE;
if ofShowHelp in Options then Result := Result or OFN_SHOWHELP;
if ofDontAddToRecent in Options then Result := Result or OFN_DONTADDTORECENT;
end;
procedure ReplacePipe(var AFilter:string);
@ -794,6 +795,7 @@ FOS_FORCEPREVIEWPANEON}
if ofOverwritePrompt in Options then Result := Result or FOS_OVERWRITEPROMPT;
if ofPathMustExist in Options then Result := Result or FOS_PATHMUSTEXIST;
if ofShareAware in Options then Result := Result or FOS_SHAREAWARE;
if ofDontAddToRecent in Options then Result := Result or FOS_DONTADDTORECENT;
{ unavailable options:
ofHideReadOnly
ofEnableSizing