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

Win32: TWin32WSSelectDirectoryDialog: hide "create dir" button if not ofCreatePrompt in Options. Patch by Alexey Torgashin. Issue #0029724.

Browse Source 
git-svn-id: trunk@51746 -
This commit is contained in:
bart 2016-02-28 16:57:17 +00:00
parent f6cbb2bd25
commit 19a27c5796
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1190,8 +1190,11 @@ begin
Title := UTF8ToUTF16(ACommonDialog.Title);
lpszTitle := PWideChar(Title);
ulFlags := BIF_RETURNONLYFSDIRS;
if not (ofCreatePrompt in Options) then
ulFlags := ulFlags + BIF_NONEWFOLDERBUTTON;
if not (ofOldStyleDialog in Options) then
ulFlags := ulFlags + BIF_USENEWUI;
// better than flag BIF_USENEWUI, to hide editbox, it's not handy
ulFlags := ulFlags + BIF_NEWDIALOGSTYLE;
lpfn := @BrowseForFolderCallback;
// this value will be passed to callback proc as lpData
lParam := Windows.LParam(PWideChar(InitialDirW));