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

LCL: use new Windows GUI for TSelectDirectoryDialog. Issue #23521, patch from Reinier Olislagers

Browse Source 
git-svn-id: trunk@39620 -
This commit is contained in:
juha 2012-12-21 18:59:36 +00:00
parent 780febb55a
commit 0df6e1f978
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/win32/win32wsdialogs.pp
View File

@ -1310,7 +1310,7 @@ begin
lpszTitle := PWideChar(Title); lpszTitle := PWideChar(Title);
ulFlags := BIF_RETURNONLYFSDIRS; ulFlags := BIF_RETURNONLYFSDIRS;
if not (ofOldStyleDialog in Options) then if not (ofOldStyleDialog in Options) then
ulFlags := ulFlags + BIF_NEWDIALOGSTYLE; ulFlags := ulFlags + BIF_USENEWUI;
lpfn := @BrowseForFolderCallback; lpfn := @BrowseForFolderCallback;
// this value will be passed to callback proc as lpData // this value will be passed to callback proc as lpData
lParam := Windows.LParam(PWideChar(InitialDirW)); lParam := Windows.LParam(PWideChar(InitialDirW));