xref: /reactos/dll/win32/comdlg32/filedlgbrowser.c (revision 29fa274d) 
1 /*
2  *  Implementation of IShellBrowser for the File Open common dialog
3  *
4  * Copyright 1999 Francois Boisvert
5  * Copyright 1999, 2000 Juergen Schmied
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21 
22 #include <stdarg.h>
23 #include <stdio.h>
24 #include <string.h>
25 
26 #define COBJMACROS
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
29 
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winnls.h"
33 #include "wingdi.h"
34 #include "winuser.h"
35 #include "winreg.h"
36 
37 #define NO_SHLWAPI_STREAM
38 #include "shlwapi.h"
39 #include "filedlgbrowser.h"
40 #include "cdlg.h"
41 #include "shlguid.h"
42 #include "servprov.h"
43 #include "wine/debug.h"
44 
45 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
46 
47 typedef struct
48 {
49 
50     const IShellBrowserVtbl *lpVtbl;
51     const ICommDlgBrowserVtbl *lpVtblCommDlgBrowser;
52     const IServiceProviderVtbl *lpVtblServiceProvider;
53     LONG ref;                                   /* Reference counter */
54     HWND hwndOwner;                             /* Owner dialog of the interface */
55 
56 } IShellBrowserImpl;
57 
58 static inline IShellBrowserImpl *impl_from_ICommDlgBrowser( ICommDlgBrowser *iface )
59 {
60     return (IShellBrowserImpl *)((char*)iface - FIELD_OFFSET(IShellBrowserImpl, lpVtblCommDlgBrowser));
61 }
62 
63 static inline IShellBrowserImpl *impl_from_IServiceProvider( IServiceProvider *iface )
64 {
65     return (IShellBrowserImpl *)((char*)iface - FIELD_OFFSET(IShellBrowserImpl, lpVtblServiceProvider));
66 }
67 
68 /**************************************************************************
69 *   vtable
70 */
71 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl;
72 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl;
73 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl;
74 
75 /**************************************************************************
76 *   Local Prototypes
77 */
78 
79 static HRESULT IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser *iface, const IShellView *ppshv);
80 
81 /*
82  *   Helper functions
83  */
84 
85 #define add_flag(a) if (flags & a) {strcat(str, #a );strcat(str," ");}
86 static void COMDLG32_DumpSBSPFlags(UINT uflags)
87 {
88     if (TRACE_ON(commdlg))
89     {
90 	unsigned int   i;
91 	static const struct {
92 	    DWORD       mask;
93 	    const char  *name;
94 	} flags[] = {
95 #define FE(x) { x, #x}
96             /* SBSP_DEFBROWSER == 0 */
97             FE(SBSP_SAMEBROWSER),
98             FE(SBSP_NEWBROWSER),
99 
100             /* SBSP_DEFMODE == 0 */
101             FE(SBSP_OPENMODE),
102             FE(SBSP_EXPLOREMODE),
103             FE(SBSP_HELPMODE),
104             FE(SBSP_NOTRANSFERHIST),
105 
106             /* SBSP_ABSOLUTE == 0 */
107             FE(SBSP_RELATIVE),
108             FE(SBSP_PARENT),
109             FE(SBSP_NAVIGATEBACK),
110             FE(SBSP_NAVIGATEFORWARD),
111             FE(SBSP_ALLOW_AUTONAVIGATE),
112 
113             FE(SBSP_NOAUTOSELECT),
114             FE(SBSP_WRITENOHISTORY),
115 
116             FE(SBSP_REDIRECT),
117             FE(SBSP_INITIATEDBYHLINKFRAME),
118         };
119 #undef FE
120         TRACE("SBSP Flags: %08x =", uflags);
121 	for (i = 0; i < (sizeof(flags) / sizeof(flags[0])); i++)
122 	    if (flags[i].mask & uflags)
123 		TRACE("%s ", flags[i].name);
124 	TRACE("\n");
125     }
126 }
127 
128 static void COMDLG32_UpdateCurrentDir(const FileOpenDlgInfos *fodInfos)
129 {
130     LPSHELLFOLDER psfDesktop;
131     STRRET strret;
132     HRESULT res;
133 
134     res = SHGetDesktopFolder(&psfDesktop);
135     if (FAILED(res))
136         return;
137 
138     res = IShellFolder_GetDisplayNameOf(psfDesktop, fodInfos->ShellInfos.pidlAbsCurrent,
139                                         SHGDN_FORPARSING, &strret);
140     if (SUCCEEDED(res)) {
141         WCHAR wszCurrentDir[MAX_PATH];
142 
143         res = StrRetToBufW(&strret, fodInfos->ShellInfos.pidlAbsCurrent, wszCurrentDir, MAX_PATH);
144         if (SUCCEEDED(res))
145             SetCurrentDirectoryW(wszCurrentDir);
146     }
147 
148     IShellFolder_Release(psfDesktop);
149 }
150 
151 /* copied from shell32 to avoid linking to it */
152 static BOOL COMDLG32_StrRetToStrNW (LPVOID dest, DWORD len, LPSTRRET src, LPCITEMIDLIST pidl)
153 {
154 	TRACE("dest=%p len=0x%x strret=%p pidl=%p stub\n",dest,len,src,pidl);
155 
156 	switch (src->uType)
157 	{
158 	  case STRRET_WSTR:
159             lstrcpynW(dest, src->u.pOleStr, len);
160 	    COMDLG32_SHFree(src->u.pOleStr);
161 	    break;
162 
163 	  case STRRET_CSTR:
164             if (len && !MultiByteToWideChar( CP_ACP, 0, src->u.cStr, -1, dest, len ))
165                 ((LPWSTR)dest)[len-1] = 0;
166 	    break;
167 
168 	  case STRRET_OFFSET:
169 	    if (pidl)
170 	    {
171                 if (len && !MultiByteToWideChar( CP_ACP, 0, ((LPCSTR)&pidl->mkid)+src->u.uOffset,
172                                                  -1, dest, len ))
173                     ((LPWSTR)dest)[len-1] = 0;
174 	    }
175 	    break;
176 
177 	  default:
178 	    FIXME("unknown type!\n");
179 	    if (len)
180 	    { *(LPWSTR)dest = '\0';
181 	    }
182 	    return(FALSE);
183 	}
184         return TRUE;
185 }
186 
187 /*
188  *	IShellBrowser
189  */
190 
191 /**************************************************************************
192 *  IShellBrowserImpl_Construct
193 */
194 IShellBrowser * IShellBrowserImpl_Construct(HWND hwndOwner)
195 {
196     IShellBrowserImpl *sb;
197     FileOpenDlgInfos *fodInfos = GetPropA(hwndOwner,FileOpenDlgInfosStr);
198 
199     sb = COMDLG32_SHAlloc(sizeof(IShellBrowserImpl));
200 
201     /* Initialisation of the member variables */
202     sb->ref=1;
203     sb->hwndOwner = hwndOwner;
204 
205     /* Initialisation of the vTables */
206     sb->lpVtbl = &IShellBrowserImpl_Vtbl;
207     sb->lpVtblCommDlgBrowser = &IShellBrowserImpl_ICommDlgBrowser_Vtbl;
208     sb->lpVtblServiceProvider = &IShellBrowserImpl_IServiceProvider_Vtbl;
209     SHGetSpecialFolderLocation(hwndOwner, CSIDL_DESKTOP,
210                                &fodInfos->ShellInfos.pidlAbsCurrent);
211 
212     TRACE("%p\n", sb);
213 
214     return (IShellBrowser *) sb;
215 }
216 
217 /***************************************************************************
218 *  IShellBrowserImpl_QueryInterface
219 */
220 static HRESULT WINAPI IShellBrowserImpl_QueryInterface(IShellBrowser *iface,
221                                             REFIID riid,
222                                             LPVOID *ppvObj)
223 {
224     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
225 
226     TRACE("(%p)\n\t%s\n", This, debugstr_guid(riid));
227 
228     *ppvObj = NULL;
229 
230     if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
231     { *ppvObj = This;
232     }
233     else if(IsEqualIID(riid, &IID_IOleWindow))  /*IOleWindow*/
234     { *ppvObj = This;
235     }
236 
237     else if(IsEqualIID(riid, &IID_IShellBrowser))  /*IShellBrowser*/
238     { *ppvObj = This;
239     }
240 
241     else if(IsEqualIID(riid, &IID_ICommDlgBrowser))  /*ICommDlgBrowser*/
242     { *ppvObj = &(This->lpVtblCommDlgBrowser);
243     }
244 
245     else if(IsEqualIID(riid, &IID_IServiceProvider))  /* IServiceProvider */
246     { *ppvObj = &(This->lpVtblServiceProvider);
247     }
248 
249     if(*ppvObj)
250     { IUnknown_AddRef( (IShellBrowser*) *ppvObj);
251       return S_OK;
252     }
253     FIXME("Unknown interface requested\n");
254     return E_NOINTERFACE;
255 }
256 
257 /**************************************************************************
258 *  IShellBrowser::AddRef
259 */
260 static ULONG WINAPI IShellBrowserImpl_AddRef(IShellBrowser * iface)
261 {
262     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
263     ULONG ref = InterlockedIncrement(&This->ref);
264 
265     TRACE("(%p,%u)\n", This, ref - 1);
266 
267     return ref;
268 }
269 
270 /**************************************************************************
271 *  IShellBrowserImpl_Release
272 */
273 static ULONG WINAPI IShellBrowserImpl_Release(IShellBrowser * iface)
274 {
275     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
276     ULONG ref = InterlockedDecrement(&This->ref);
277 
278     TRACE("(%p,%u)\n", This, ref + 1);
279 
280     if (!ref)
281     {
282       COMDLG32_SHFree(This);
283       TRACE("-- destroyed\n");
284       return 0;
285     }
286     return ref;
287 }
288 
289 /*
290  * IOleWindow
291  */
292 
293 /**************************************************************************
294 *  IShellBrowserImpl_GetWindow  (IOleWindow)
295 *
296 *  Inherited from IOleWindow::GetWindow
297 *
298 *  See Windows documentation for more details
299 *
300 *  Note : We will never be window less in the File Open dialog
301 *
302 */
303 static HRESULT WINAPI IShellBrowserImpl_GetWindow(IShellBrowser * iface,
304                                            HWND * phwnd)
305 {
306     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
307 
308     TRACE("(%p)\n", This);
309 
310     if(!This->hwndOwner)
311         return E_FAIL;
312 
313     *phwnd = This->hwndOwner;
314 
315     return (*phwnd) ? S_OK : E_UNEXPECTED;
316 
317 }
318 
319 /**************************************************************************
320 *  IShellBrowserImpl_ContextSensitiveHelp
321 */
322 static HRESULT WINAPI IShellBrowserImpl_ContextSensitiveHelp(IShellBrowser * iface,
323                                                       BOOL fEnterMode)
324 {
325     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
326 
327     TRACE("(%p)\n", This);
328 
329     /* Feature not implemented */
330     return E_NOTIMPL;
331 }
332 
333 /*
334  * IShellBrowser
335  */
336 
337 /**************************************************************************
338 *  IShellBrowserImpl_BrowseObject
339 *
340 *  See Windows documentation on IShellBrowser::BrowseObject for more details
341 *
342 *  This function will override user specified flags and will always
343 *  use SBSP_DEFBROWSER and SBSP_DEFMODE.
344 */
345 static HRESULT WINAPI IShellBrowserImpl_BrowseObject(IShellBrowser *iface,
346                                               LPCITEMIDLIST pidl,
347                                               UINT wFlags)
348 {
349     HRESULT hRes;
350     IShellFolder *psfTmp;
351     IShellView *psvTmp;
352     FileOpenDlgInfos *fodInfos;
353     LPITEMIDLIST pidlTmp;
354     HWND hwndView;
355     HWND hDlgWnd;
356     BOOL bViewHasFocus;
357     RECT rectView;
358 
359     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
360 
361     TRACE("(%p)(pidl=%p,flags=0x%08x)\n", This, pidl, wFlags);
362     COMDLG32_DumpSBSPFlags(wFlags);
363 
364     fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
365 
366     /* Format the pidl according to its parameter's category */
367     if(wFlags & SBSP_RELATIVE)
368     {
369 
370         /* SBSP_RELATIVE  A relative pidl (relative from the current folder) */
371         if(FAILED(hRes = IShellFolder_BindToObject(fodInfos->Shell.FOIShellFolder,
372              pidl, NULL, &IID_IShellFolder, (LPVOID *)&psfTmp)))
373         {
374             ERR("bind to object failed\n");
375 	    return hRes;
376         }
377         /* create an absolute pidl */
378         pidlTmp = COMDLG32_PIDL_ILCombine(fodInfos->ShellInfos.pidlAbsCurrent, pidl);
379     }
380     else if(wFlags & SBSP_PARENT)
381     {
382         /* Browse the parent folder (ignores the pidl) */
383         pidlTmp = GetParentPidl(fodInfos->ShellInfos.pidlAbsCurrent);
384         psfTmp = GetShellFolderFromPidl(pidlTmp);
385 
386     }
387     else /* SBSP_ABSOLUTE is 0x0000 */
388     {
389         /* An absolute pidl (relative from the desktop) */
390         pidlTmp =  COMDLG32_PIDL_ILClone(pidl);
391         psfTmp = GetShellFolderFromPidl(pidlTmp);
392     }
393 
394     if(!psfTmp)
395     {
396       ERR("could not browse to folder\n");
397       return E_FAIL;
398     }
399 
400     /* If the pidl to browse to is equal to the actual pidl ...
401        do nothing and pretend you did it*/
402     if(COMDLG32_PIDL_ILIsEqual(pidlTmp,fodInfos->ShellInfos.pidlAbsCurrent))
403     {
404         IShellFolder_Release(psfTmp);
405 	COMDLG32_SHFree(pidlTmp);
406         TRACE("keep current folder\n");
407         return NOERROR;
408     }
409 
410     /* Release the current DataObject */
411     if (fodInfos->Shell.FOIDataObject)
412     {
413       IDataObject_Release(fodInfos->Shell.FOIDataObject);
414       fodInfos->Shell.FOIDataObject = NULL;
415     }
416 
417     /* Create the associated view */
418     TRACE("create view object\n");
419     if(FAILED(hRes = IShellFolder_CreateViewObject(psfTmp, fodInfos->ShellInfos.hwndOwner,
420            &IID_IShellView, (LPVOID *)&psvTmp))) goto error;
421 
422     /* Check if listview has focus */
423     bViewHasFocus = IsChild(fodInfos->ShellInfos.hwndView,GetFocus());
424 
425     /* Get the foldersettings from the old view */
426     if(fodInfos->Shell.FOIShellView)
427       IShellView_GetCurrentInfo(fodInfos->Shell.FOIShellView, &fodInfos->ShellInfos.folderSettings);
428 
429     /* Release the old fodInfos->Shell.FOIShellView and update its value.
430     We have to update this early since ShellView_CreateViewWindow of native
431     shell32 calls OnStateChange and needs the correct view here.*/
432     if(fodInfos->Shell.FOIShellView)
433     {
434       IShellView_DestroyViewWindow(fodInfos->Shell.FOIShellView);
435       IShellView_Release(fodInfos->Shell.FOIShellView);
436     }
437     fodInfos->Shell.FOIShellView = psvTmp;
438 
439     /* Release old FOIShellFolder and update its value */
440     if (fodInfos->Shell.FOIShellFolder)
441       IShellFolder_Release(fodInfos->Shell.FOIShellFolder);
442     fodInfos->Shell.FOIShellFolder = psfTmp;
443 
444     /* Release old pidlAbsCurrent and update its value */
445     COMDLG32_SHFree(fodInfos->ShellInfos.pidlAbsCurrent);
446     fodInfos->ShellInfos.pidlAbsCurrent = pidlTmp;
447 
448     COMDLG32_UpdateCurrentDir(fodInfos);
449 
450     GetWindowRect(GetDlgItem(This->hwndOwner, IDC_SHELLSTATIC), &rectView);
451     MapWindowPoints(0, This->hwndOwner, (LPPOINT)&rectView, 2);
452 
453     /* Create the window */
454     TRACE("create view window\n");
455     if(FAILED(hRes = IShellView_CreateViewWindow(psvTmp, NULL,
456          &fodInfos->ShellInfos.folderSettings, fodInfos->Shell.FOIShellBrowser,
457          &rectView, &hwndView))) goto error;
458 
459     fodInfos->ShellInfos.hwndView = hwndView;
460 
461     /* Set view window control id to 5002 */
462     SetWindowLongPtrW(hwndView, GWLP_ID, lst2);
463 
464     /* Select the new folder in the Look In combo box of the Open file dialog */
465     FILEDLG95_LOOKIN_SelectItem(fodInfos->DlgInfos.hwndLookInCB,fodInfos->ShellInfos.pidlAbsCurrent);
466 
467     /* changes the tab order of the ListView to reflect the window's File Dialog */
468     hDlgWnd = GetDlgItem(GetParent(hwndView), IDC_LOOKIN);
469     SetWindowPos(hwndView, hDlgWnd, 0,0,0,0, SWP_NOMOVE | SWP_NOSIZE);
470 
471     /* Since we destroyed the old view if it had focus set focus to the newly created view */
472     if (bViewHasFocus)
473       SetFocus(fodInfos->ShellInfos.hwndView);
474 
475     return hRes;
476 error:
477     ERR("Failed with error 0x%08x\n", hRes);
478     return hRes;
479 }
480 
481 /**************************************************************************
482 *  IShellBrowserImpl_EnableModelessSB
483 */
484 static HRESULT WINAPI IShellBrowserImpl_EnableModelessSB(IShellBrowser *iface,
485                                               BOOL fEnable)
486 
487 {
488     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
489 
490     TRACE("(%p)\n", This);
491 
492     /* Feature not implemented */
493     return E_NOTIMPL;
494 }
495 
496 /**************************************************************************
497 *  IShellBrowserImpl_GetControlWindow
498 */
499 static HRESULT WINAPI IShellBrowserImpl_GetControlWindow(IShellBrowser *iface,
500                                               UINT id,
501                                               HWND *lphwnd)
502 
503 {
504     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
505 
506     TRACE("(%p)\n", This);
507 
508     /* Feature not implemented */
509     return E_NOTIMPL;
510 }
511 
512 /**************************************************************************
513 *  IShellBrowserImpl_GetViewStateStream
514 */
515 static HRESULT WINAPI IShellBrowserImpl_GetViewStateStream(IShellBrowser *iface,
516                                                 DWORD grfMode,
517                                                 LPSTREAM *ppStrm)
518 
519 {
520     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
521 
522     FIXME("(%p 0x%08x %p)\n", This, grfMode, ppStrm);
523 
524     /* Feature not implemented */
525     return E_NOTIMPL;
526 }
527 
528 /**************************************************************************
529 *  IShellBrowserImpl_InsertMenusSB
530 */
531 static HRESULT WINAPI IShellBrowserImpl_InsertMenusSB(IShellBrowser *iface,
532                                            HMENU hmenuShared,
533                                            LPOLEMENUGROUPWIDTHS lpMenuWidths)
534 
535 {
536     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
537 
538     TRACE("(%p)\n", This);
539 
540     /* Feature not implemented */
541     return E_NOTIMPL;
542 }
543 
544 /**************************************************************************
545 *  IShellBrowserImpl_OnViewWindowActive
546 */
547 static HRESULT WINAPI IShellBrowserImpl_OnViewWindowActive(IShellBrowser *iface,
548                                                 IShellView *ppshv)
549 
550 {
551     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
552 
553     TRACE("(%p)\n", This);
554 
555     /* Feature not implemented */
556     return E_NOTIMPL;
557 }
558 
559 /**************************************************************************
560 *  IShellBrowserImpl_QueryActiveShellView
561 */
562 static HRESULT WINAPI IShellBrowserImpl_QueryActiveShellView(IShellBrowser *iface,
563                                                   IShellView **ppshv)
564 
565 {
566     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
567 
568     FileOpenDlgInfos *fodInfos;
569 
570     TRACE("(%p)\n", This);
571 
572     fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
573 
574     if(!(*ppshv = fodInfos->Shell.FOIShellView))
575     {
576         return E_FAIL;
577     }
578     IShellView_AddRef(fodInfos->Shell.FOIShellView);
579     return NOERROR;
580 }
581 
582 /**************************************************************************
583 *  IShellBrowserImpl_RemoveMenusSB
584 */
585 static HRESULT WINAPI IShellBrowserImpl_RemoveMenusSB(IShellBrowser *iface,
586                                            HMENU hmenuShared)
587 
588 {
589     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
590 
591     TRACE("(%p)\n", This);
592 
593     /* Feature not implemented */
594     return E_NOTIMPL;
595 }
596 
597 /**************************************************************************
598 *  IShellBrowserImpl_SendControlMsg
599 */
600 static HRESULT WINAPI IShellBrowserImpl_SendControlMsg(IShellBrowser *iface,
601                                             UINT id,
602                                             UINT uMsg,
603                                             WPARAM wParam,
604                                             LPARAM lParam,
605                                             LRESULT *pret)
606 
607 {
608     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
609     LRESULT lres;
610 
611     TRACE("(%p)->(0x%08x 0x%08x 0x%08lx 0x%08lx %p)\n", This, id, uMsg, wParam, lParam, pret);
612 
613     switch (id)
614     {
615       case FCW_TOOLBAR:
616         lres = SendDlgItemMessageA( This->hwndOwner, IDC_TOOLBAR, uMsg, wParam, lParam);
617 	break;
618       default:
619         FIXME("ctrl id: %x\n", id);
620         return E_NOTIMPL;
621     }
622     if (pret) *pret = lres;
623     return S_OK;
624 }
625 
626 /**************************************************************************
627 *  IShellBrowserImpl_SetMenuSB
628 */
629 static HRESULT WINAPI IShellBrowserImpl_SetMenuSB(IShellBrowser *iface,
630                                        HMENU hmenuShared,
631                                        HOLEMENU holemenuReserved,
632                                        HWND hwndActiveObject)
633 
634 {
635     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
636 
637     TRACE("(%p)\n", This);
638 
639     /* Feature not implemented */
640     return E_NOTIMPL;
641 }
642 
643 /**************************************************************************
644 *  IShellBrowserImpl_SetStatusTextSB
645 */
646 static HRESULT WINAPI IShellBrowserImpl_SetStatusTextSB(IShellBrowser *iface,
647                                              LPCOLESTR lpszStatusText)
648 
649 {
650     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
651 
652     TRACE("(%p)\n", This);
653 
654     /* Feature not implemented */
655     return E_NOTIMPL;
656 }
657 
658 /**************************************************************************
659 *  IShellBrowserImpl_SetToolbarItems
660 */
661 static HRESULT WINAPI IShellBrowserImpl_SetToolbarItems(IShellBrowser *iface,
662                                              LPTBBUTTON lpButtons,
663                                              UINT nButtons,
664                                              UINT uFlags)
665 
666 {
667     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
668 
669     TRACE("(%p)\n", This);
670 
671     /* Feature not implemented */
672     return E_NOTIMPL;
673 }
674 
675 /**************************************************************************
676 *  IShellBrowserImpl_TranslateAcceleratorSB
677 */
678 static HRESULT WINAPI IShellBrowserImpl_TranslateAcceleratorSB(IShellBrowser *iface,
679                                                     LPMSG lpmsg,
680                                                     WORD wID)
681 
682 {
683     IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
684 
685     TRACE("(%p)\n", This);
686 
687     /* Feature not implemented */
688     return E_NOTIMPL;
689 }
690 
691 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl =
692 {
693         /* IUnknown */
694         IShellBrowserImpl_QueryInterface,
695         IShellBrowserImpl_AddRef,
696         IShellBrowserImpl_Release,
697         /* IOleWindow */
698         IShellBrowserImpl_GetWindow,
699         IShellBrowserImpl_ContextSensitiveHelp,
700         /*  IShellBrowser */
701         IShellBrowserImpl_InsertMenusSB,
702         IShellBrowserImpl_SetMenuSB,
703         IShellBrowserImpl_RemoveMenusSB,
704         IShellBrowserImpl_SetStatusTextSB,
705         IShellBrowserImpl_EnableModelessSB,
706         IShellBrowserImpl_TranslateAcceleratorSB,
707         IShellBrowserImpl_BrowseObject,
708         IShellBrowserImpl_GetViewStateStream,
709         IShellBrowserImpl_GetControlWindow,
710         IShellBrowserImpl_SendControlMsg,
711         IShellBrowserImpl_QueryActiveShellView,
712         IShellBrowserImpl_OnViewWindowActive,
713         IShellBrowserImpl_SetToolbarItems
714 };
715 
716 
717 
718 /*
719  * ICommDlgBrowser
720  */
721 
722 /***************************************************************************
723 *  IShellBrowserImpl_ICommDlgBrowser_QueryInterface
724 */
725 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_QueryInterface(
726 	ICommDlgBrowser *iface,
727 	REFIID riid,
728 	LPVOID *ppvObj)
729 {
730     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
731 
732     TRACE("(%p)\n", This);
733 
734     return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
735 }
736 
737 /**************************************************************************
738 *  IShellBrowserImpl_ICommDlgBrowser_AddRef
739 */
740 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_AddRef(ICommDlgBrowser * iface)
741 {
742     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
743 
744     TRACE("(%p)\n", This);
745 
746     return IShellBrowserImpl_AddRef((IShellBrowser *)This);
747 }
748 
749 /**************************************************************************
750 *  IShellBrowserImpl_ICommDlgBrowser_Release
751 */
752 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_Release(ICommDlgBrowser * iface)
753 {
754     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
755 
756     TRACE("(%p)\n", This);
757 
758     return IShellBrowserImpl_Release((IShellBrowser *)This);
759 }
760 
761 /**************************************************************************
762 *  IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand
763 *
764 *   Called when a user double-clicks in the view or presses the ENTER key
765 */
766 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand(ICommDlgBrowser *iface,
767                                                                   IShellView *ppshv)
768 {
769     LPITEMIDLIST pidl;
770     FileOpenDlgInfos *fodInfos;
771 
772     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
773 
774     TRACE("(%p)\n", This);
775 
776     fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
777 
778     /* If the selected object is not a folder, send an IDOK command to parent window */
779     if((pidl = GetPidlFromDataObject(fodInfos->Shell.FOIDataObject, 1)))
780     {
781         HRESULT hRes;
782 
783         ULONG  ulAttr = SFGAO_FOLDER | SFGAO_HASSUBFOLDER;
784         IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, (LPCITEMIDLIST *)&pidl, &ulAttr);
785 	if (ulAttr & (SFGAO_FOLDER | SFGAO_HASSUBFOLDER) )
786 	{
787           hRes = IShellBrowser_BrowseObject((IShellBrowser *)This,pidl,SBSP_RELATIVE);
788           if(fodInfos->ofnInfos->Flags & OFN_EXPLORER)
789               SendCustomDlgNotificationMessage(This->hwndOwner, CDN_FOLDERCHANGE);
790 	}
791         else
792 	{
793           /* Tell the dialog that the user selected a file */
794 	  PostMessageA(This->hwndOwner, WM_COMMAND, IDOK, 0L);
795          hRes = S_OK;
796 	}
797 
798         /* Free memory used by pidl */
799         COMDLG32_SHFree(pidl);
800 
801         return hRes;
802     }
803 
804     return E_FAIL;
805 }
806 
807 /**************************************************************************
808 *  IShellBrowserImpl_ICommDlgBrowser_OnStateChange
809 */
810 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnStateChange(ICommDlgBrowser *iface,
811                                                                IShellView *ppshv,
812                                                                ULONG uChange)
813 {
814 
815     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
816 
817     TRACE("(%p shv=%p)\n", This, ppshv);
818 
819     switch (uChange)
820     {
821         case CDBOSC_SETFOCUS:
822              /* FIXME: Reset the default button.
823 	        This should be taken care of by defdlg. If control
824 	        other than button receives focus the default button
825 	        should be restored. */
826              SendMessageA(This->hwndOwner, DM_SETDEFID, IDOK, 0);
827 
828             break;
829         case CDBOSC_KILLFOCUS:
830 	    {
831                 FileOpenDlgInfos *fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
832 		if(fodInfos->DlgInfos.dwDlgProp & FODPROP_SAVEDLG)
833 		{
834 		    WCHAR szSave[16];
835 		    LoadStringW(COMDLG32_hInstance, IDS_SAVE_BUTTON, szSave, sizeof(szSave)/sizeof(WCHAR));
836 		    SetDlgItemTextW(fodInfos->ShellInfos.hwndOwner, IDOK, szSave);
837 		}
838             }
839             break;
840         case CDBOSC_SELCHANGE:
841             return IShellBrowserImpl_ICommDlgBrowser_OnSelChange(iface,ppshv);
842         case CDBOSC_RENAME:
843 	    /* nothing to do */
844             break;
845     }
846 
847     return NOERROR;
848 }
849 
850 /*         send_includeitem_notification
851  *
852  * Sends a CDN_INCLUDEITEM notification for "pidl" to hwndParentDlg
853  */
854 static LRESULT send_includeitem_notification(HWND hwndParentDlg, LPCITEMIDLIST pidl)
855 {
856     LRESULT hook_result = 0;
857     FileOpenDlgInfos *fodInfos = GetPropA(hwndParentDlg, FileOpenDlgInfosStr);
858 
859     if(!fodInfos) return 0;
860 
861     if(fodInfos->DlgInfos.hwndCustomDlg)
862     {
863         TRACE("call notify CDN_INCLUDEITEM for pidl=%p\n", pidl);
864         if(fodInfos->unicode)
865         {
866                 OFNOTIFYEXW ofnNotify;
867                 ofnNotify.psf = fodInfos->Shell.FOIShellFolder;
868                 ofnNotify.pidl = (LPITEMIDLIST)pidl;
869                 ofnNotify.hdr.hwndFrom = hwndParentDlg;
870                 ofnNotify.hdr.idFrom = 0;
871                 ofnNotify.hdr.code = CDN_INCLUDEITEM;
872                 ofnNotify.lpOFN = fodInfos->ofnInfos;
873                 hook_result = SendMessageW(fodInfos->DlgInfos.hwndCustomDlg, WM_NOTIFY, 0, (LPARAM)&ofnNotify);
874         }
875         else
876         {
877                 OFNOTIFYEXA ofnNotify;
878                 ofnNotify.psf = fodInfos->Shell.FOIShellFolder;
879                 ofnNotify.pidl = (LPITEMIDLIST)pidl;
880                 ofnNotify.hdr.hwndFrom = hwndParentDlg;
881                 ofnNotify.hdr.idFrom = 0;
882                 ofnNotify.hdr.code = CDN_INCLUDEITEM;
883                 ofnNotify.lpOFN = (LPOPENFILENAMEA)fodInfos->ofnInfos;
884                 hook_result = SendMessageA(fodInfos->DlgInfos.hwndCustomDlg, WM_NOTIFY, 0, (LPARAM)&ofnNotify);
885         }
886     }
887     TRACE("Retval: 0x%08lx\n", hook_result);
888     return hook_result;
889 }
890 
891 /**************************************************************************
892 *  IShellBrowserImpl_ICommDlgBrowser_IncludeObject
893 */
894 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_IncludeObject(ICommDlgBrowser *iface,
895                                                                IShellView * ppshv,
896                                                                LPCITEMIDLIST pidl)
897 {
898     FileOpenDlgInfos *fodInfos;
899     ULONG ulAttr;
900     STRRET str;
901     WCHAR szPathW[MAX_PATH];
902 
903     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
904 
905     TRACE("(%p)\n", This);
906 
907     fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
908 
909     ulAttr = SFGAO_HIDDEN | SFGAO_FOLDER | SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR | SFGAO_LINK;
910     IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, &pidl, &ulAttr);
911 
912     if( (ulAttr & SFGAO_HIDDEN) ||                                      /* hidden */
913         !(ulAttr & (SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR))) /* special folder */
914         return S_FALSE;
915 
916     /* always include directories and links */
917     if(ulAttr & (SFGAO_FOLDER | SFGAO_LINK))
918         return S_OK;
919 
920     /* if the application takes care of including the item we are done */
921     if(fodInfos->ofnInfos->Flags & OFN_ENABLEINCLUDENOTIFY &&
922        send_includeitem_notification(This->hwndOwner, pidl))
923         return S_OK;
924 
925     /* Check if there is a mask to apply if not */
926     if(!fodInfos->ShellInfos.lpstrCurrentFilter || !lstrlenW(fodInfos->ShellInfos.lpstrCurrentFilter))
927         return S_OK;
928 
929     if (SUCCEEDED(IShellFolder_GetDisplayNameOf(fodInfos->Shell.FOIShellFolder, pidl, SHGDN_INFOLDER | SHGDN_FORPARSING, &str)))
930     {
931       if (COMDLG32_StrRetToStrNW(szPathW, MAX_PATH, &str, pidl))
932       {
933 	  if (PathMatchSpecW(szPathW, fodInfos->ShellInfos.lpstrCurrentFilter))
934           return S_OK;
935       }
936     }
937     return S_FALSE;
938 
939 }
940 
941 /**************************************************************************
942 *  IShellBrowserImpl_ICommDlgBrowser_OnSelChange
943 */
944 static HRESULT IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser *iface, const IShellView *ppshv)
945 {
946     FileOpenDlgInfos *fodInfos;
947 
948     IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
949 
950     fodInfos = GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
951     TRACE("(%p do=%p view=%p)\n", This, fodInfos->Shell.FOIDataObject, fodInfos->Shell.FOIShellView);
952 
953     /* release old selections */
954     if (fodInfos->Shell.FOIDataObject)
955       IDataObject_Release(fodInfos->Shell.FOIDataObject);
956 
957     /* get a new DataObject from the ShellView */
958     if(FAILED(IShellView_GetItemObject(fodInfos->Shell.FOIShellView, SVGIO_SELECTION,
959                               &IID_IDataObject, (LPVOID*)&fodInfos->Shell.FOIDataObject)))
960       return E_FAIL;
961 
962     FILEDLG95_FILENAME_FillFromSelection(This->hwndOwner);
963 
964     if(fodInfos->ofnInfos->Flags & OFN_EXPLORER)
965         SendCustomDlgNotificationMessage(This->hwndOwner, CDN_SELCHANGE);
966     return S_OK;
967 }
968 
969 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl =
970 {
971         /* IUnknown */
972         IShellBrowserImpl_ICommDlgBrowser_QueryInterface,
973         IShellBrowserImpl_ICommDlgBrowser_AddRef,
974         IShellBrowserImpl_ICommDlgBrowser_Release,
975         /* ICommDlgBrowser */
976         IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand,
977         IShellBrowserImpl_ICommDlgBrowser_OnStateChange,
978         IShellBrowserImpl_ICommDlgBrowser_IncludeObject
979 };
980 
981 
982 
983 
984 /*
985  * IServiceProvider
986  */
987 
988 /***************************************************************************
989 *  IShellBrowserImpl_IServiceProvider_QueryInterface
990 */
991 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryInterface(
992 	IServiceProvider *iface,
993 	REFIID riid,
994 	LPVOID *ppvObj)
995 {
996     IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
997 
998     FIXME("(%p)\n", This);
999 
1000     return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
1001 }
1002 
1003 /**************************************************************************
1004 *  IShellBrowserImpl_IServiceProvider_AddRef
1005 */
1006 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_AddRef(IServiceProvider * iface)
1007 {
1008     IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
1009 
1010     FIXME("(%p)\n", This);
1011 
1012     return IShellBrowserImpl_AddRef((IShellBrowser *)This);
1013 }
1014 
1015 /**************************************************************************
1016 *  IShellBrowserImpl_IServiceProvider_Release
1017 */
1018 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_Release(IServiceProvider * iface)
1019 {
1020     IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
1021 
1022     FIXME("(%p)\n", This);
1023 
1024     return IShellBrowserImpl_Release((IShellBrowser *)This);
1025 }
1026 
1027 /**************************************************************************
1028 *  IShellBrowserImpl_IServiceProvider_Release
1029 *
1030 * NOTES
1031 *  the w2k shellview asks for (guidService = SID_STopLevelBrowser,
1032 *  riid = IShellBrowser) to call SendControlMsg ().
1033 *
1034 * FIXME
1035 *  this is a hack!
1036 */
1037 
1038 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryService(
1039 	IServiceProvider * iface,
1040 	REFGUID guidService,
1041 	REFIID riid,
1042 	void** ppv)
1043 {
1044     IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
1045 
1046     FIXME("(%p)\n\t%s\n\t%s\n", This,debugstr_guid(guidService), debugstr_guid(riid) );
1047 
1048     *ppv = NULL;
1049     if(guidService && IsEqualIID(guidService, &SID_STopLevelBrowser))
1050     {
1051       return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppv);
1052     }
1053     FIXME("(%p) unknown interface requested\n", This);
1054     return E_NOINTERFACE;
1055 
1056 }
1057 
1058 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl =
1059 {
1060         /* IUnknown */
1061         IShellBrowserImpl_IServiceProvider_QueryInterface,
1062         IShellBrowserImpl_IServiceProvider_AddRef,
1063         IShellBrowserImpl_IServiceProvider_Release,
1064         /* IServiceProvider */
1065         IShellBrowserImpl_IServiceProvider_QueryService
1066 };
1067