push 0f15bbd80d260bbd8adf052e820484a405c49375
[wine/hacks.git] / dlls / comdlg32 / filedlgbrowser.c
blob55ef65b482c918fadafed2d20f3ad4c04e2b5e7a
1 /*
2 * Implementation of IShellBrowser for the File Open common dialog
4 * Copyright 1999 Francois Boisvert
5 * Copyright 1999, 2000 Juergen Schmied
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.
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.
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
22 #include <stdarg.h>
23 #include <stdio.h>
24 #include <string.h>
26 #define COBJMACROS
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winnls.h"
33 #include "wingdi.h"
34 #include "winuser.h"
35 #include "winreg.h"
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"
45 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
47 typedef struct
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 */
56 } IShellBrowserImpl;
58 static inline IShellBrowserImpl *impl_from_ICommDlgBrowser( ICommDlgBrowser *iface )
60 return (IShellBrowserImpl *)((char*)iface - FIELD_OFFSET(IShellBrowserImpl, lpVtblCommDlgBrowser));
63 static inline IShellBrowserImpl *impl_from_IServiceProvider( IServiceProvider *iface )
65 return (IShellBrowserImpl *)((char*)iface - FIELD_OFFSET(IShellBrowserImpl, lpVtblServiceProvider));
68 /**************************************************************************
69 * vtable
71 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl;
72 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl;
73 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl;
75 /**************************************************************************
76 * Local Prototypes
79 static HRESULT IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser *iface, const IShellView *ppshv);
82 * Helper functions
85 #define add_flag(a) if (flags & a) {strcat(str, #a );strcat(str," ");}
86 static void COMDLG32_DumpSBSPFlags(UINT uflags)
88 if (TRACE_ON(commdlg))
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),
100 /* SBSP_DEFMODE == 0 */
101 FE(SBSP_OPENMODE),
102 FE(SBSP_EXPLOREMODE),
103 FE(SBSP_HELPMODE),
104 FE(SBSP_NOTRANSFERHIST),
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),
113 FE(SBSP_NOAUTOSELECT),
114 FE(SBSP_WRITENOHISTORY),
116 FE(SBSP_REDIRECT),
117 FE(SBSP_INITIATEDBYHLINKFRAME),
119 #undef FE
120 DPRINTF("SBSP Flags: %08x =", uflags);
121 for (i = 0; i < (sizeof(flags) / sizeof(flags[0])); i++)
122 if (flags[i].mask & uflags)
123 DPRINTF("%s ", flags[i].name);
124 DPRINTF("\n");
128 static void COMDLG32_UpdateCurrentDir(const FileOpenDlgInfos *fodInfos)
130 LPSHELLFOLDER psfDesktop;
131 STRRET strret;
132 HRESULT res;
134 res = SHGetDesktopFolder(&psfDesktop);
135 if (FAILED(res))
136 return;
138 res = IShellFolder_GetDisplayNameOf(psfDesktop, fodInfos->ShellInfos.pidlAbsCurrent,
139 SHGDN_FORPARSING, &strret);
140 if (SUCCEEDED(res)) {
141 WCHAR wszCurrentDir[MAX_PATH];
143 res = StrRetToBufW(&strret, fodInfos->ShellInfos.pidlAbsCurrent, wszCurrentDir, MAX_PATH);
144 if (SUCCEEDED(res))
145 SetCurrentDirectoryW(wszCurrentDir);
148 IShellFolder_Release(psfDesktop);
151 /* copied from shell32 to avoid linking to it */
152 static HRESULT COMDLG32_StrRetToStrNW (LPVOID dest, DWORD len, LPSTRRET src, LPCITEMIDLIST pidl)
154 TRACE("dest=%p len=0x%x strret=%p pidl=%p stub\n",dest,len,src,pidl);
156 switch (src->uType)
158 case STRRET_WSTR:
159 lstrcpynW((LPWSTR)dest, src->u.pOleStr, len);
160 COMDLG32_SHFree(src->u.pOleStr);
161 break;
163 case STRRET_CSTR:
164 if (len && !MultiByteToWideChar( CP_ACP, 0, src->u.cStr, -1, (LPWSTR)dest, len ))
165 ((LPWSTR)dest)[len-1] = 0;
166 break;
168 case STRRET_OFFSET:
169 if (pidl)
171 if (len && !MultiByteToWideChar( CP_ACP, 0, ((LPCSTR)&pidl->mkid)+src->u.uOffset,
172 -1, (LPWSTR)dest, len ))
173 ((LPWSTR)dest)[len-1] = 0;
175 break;
177 default:
178 FIXME("unknown type!\n");
179 if (len)
180 { *(LPWSTR)dest = '\0';
182 return(FALSE);
184 return S_OK;
188 * IShellBrowser
191 /**************************************************************************
192 * IShellBrowserImpl_Construct
194 IShellBrowser * IShellBrowserImpl_Construct(HWND hwndOwner)
196 IShellBrowserImpl *sb;
197 FileOpenDlgInfos *fodInfos = (FileOpenDlgInfos *) GetPropA(hwndOwner,FileOpenDlgInfosStr);
199 sb=(IShellBrowserImpl*)COMDLG32_SHAlloc(sizeof(IShellBrowserImpl));
201 /* Initialisation of the member variables */
202 sb->ref=1;
203 sb->hwndOwner = hwndOwner;
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);
212 TRACE("%p\n", sb);
214 return (IShellBrowser *) sb;
217 /***************************************************************************
218 * IShellBrowserImpl_QueryInterface
220 static HRESULT WINAPI IShellBrowserImpl_QueryInterface(IShellBrowser *iface,
221 REFIID riid,
222 LPVOID *ppvObj)
224 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
226 TRACE("(%p)\n\t%s\n", This, debugstr_guid(riid));
228 *ppvObj = NULL;
230 if(IsEqualIID(riid, &IID_IUnknown)) /*IUnknown*/
231 { *ppvObj = This;
233 else if(IsEqualIID(riid, &IID_IOleWindow)) /*IOleWindow*/
234 { *ppvObj = (IOleWindow*)This;
237 else if(IsEqualIID(riid, &IID_IShellBrowser)) /*IShellBrowser*/
238 { *ppvObj = (IShellBrowser*)This;
241 else if(IsEqualIID(riid, &IID_ICommDlgBrowser)) /*ICommDlgBrowser*/
242 { *ppvObj = (ICommDlgBrowser*) &(This->lpVtblCommDlgBrowser);
245 else if(IsEqualIID(riid, &IID_IServiceProvider)) /* IServiceProvider */
246 { *ppvObj = (ICommDlgBrowser*) &(This->lpVtblServiceProvider);
249 if(*ppvObj)
250 { IUnknown_AddRef( (IShellBrowser*) *ppvObj);
251 return S_OK;
253 FIXME("Unknown interface requested\n");
254 return E_NOINTERFACE;
257 /**************************************************************************
258 * IShellBrowser::AddRef
260 static ULONG WINAPI IShellBrowserImpl_AddRef(IShellBrowser * iface)
262 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
263 ULONG ref = InterlockedIncrement(&This->ref);
265 TRACE("(%p,%u)\n", This, ref - 1);
267 return ref;
270 /**************************************************************************
271 * IShellBrowserImpl_Release
273 static ULONG WINAPI IShellBrowserImpl_Release(IShellBrowser * iface)
275 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
276 ULONG ref = InterlockedDecrement(&This->ref);
278 TRACE("(%p,%u)\n", This, ref + 1);
280 if (!ref)
282 COMDLG32_SHFree(This);
283 TRACE("-- destroyed\n");
284 return 0;
286 return ref;
290 * IOleWindow
293 /**************************************************************************
294 * IShellBrowserImpl_GetWindow (IOleWindow)
296 * Inherited from IOleWindow::GetWindow
298 * See Windows documentation for more details
300 * Note : We will never be window less in the File Open dialog
303 static HRESULT WINAPI IShellBrowserImpl_GetWindow(IShellBrowser * iface,
304 HWND * phwnd)
306 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
308 TRACE("(%p)\n", This);
310 if(!This->hwndOwner)
311 return E_FAIL;
313 *phwnd = This->hwndOwner;
315 return (*phwnd) ? S_OK : E_UNEXPECTED;
319 /**************************************************************************
320 * IShellBrowserImpl_ContextSensitiveHelp
322 static HRESULT WINAPI IShellBrowserImpl_ContextSensitiveHelp(IShellBrowser * iface,
323 BOOL fEnterMode)
325 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
327 TRACE("(%p)\n", This);
329 /* Feature not implemented */
330 return E_NOTIMPL;
334 * IShellBrowser
337 /**************************************************************************
338 * IShellBrowserImpl_BrowseObject
340 * See Windows documentation on IShellBrowser::BrowseObject for more details
342 * This function will override user specified flags and will always
343 * use SBSP_DEFBROWSER and SBSP_DEFMODE.
345 static HRESULT WINAPI IShellBrowserImpl_BrowseObject(IShellBrowser *iface,
346 LPCITEMIDLIST pidl,
347 UINT wFlags)
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;
359 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
361 TRACE("(%p)(pidl=%p,flags=0x%08x)\n", This, pidl, wFlags);
362 COMDLG32_DumpSBSPFlags(wFlags);
364 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
366 /* Format the pidl according to its parameter's category */
367 if(wFlags & SBSP_RELATIVE)
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)))
374 ERR("bind to object failed\n");
375 return hRes;
377 /* create an absolute pidl */
378 pidlTmp = COMDLG32_PIDL_ILCombine(fodInfos->ShellInfos.pidlAbsCurrent,
379 (LPCITEMIDLIST)pidl);
381 else if(wFlags & SBSP_PARENT)
383 /* Browse the parent folder (ignores the pidl) */
384 pidlTmp = GetParentPidl(fodInfos->ShellInfos.pidlAbsCurrent);
385 psfTmp = GetShellFolderFromPidl(pidlTmp);
388 else /* SBSP_ABSOLUTE is 0x0000 */
390 /* An absolute pidl (relative from the desktop) */
391 pidlTmp = COMDLG32_PIDL_ILClone((LPCITEMIDLIST)pidl);
392 psfTmp = GetShellFolderFromPidl(pidlTmp);
395 if(!psfTmp)
397 ERR("could not browse to folder\n");
398 return E_FAIL;
401 /* If the pidl to browse to is equal to the actual pidl ...
402 do nothing and pretend you did it*/
403 if(COMDLG32_PIDL_ILIsEqual(pidlTmp,fodInfos->ShellInfos.pidlAbsCurrent))
405 IShellFolder_Release(psfTmp);
406 COMDLG32_SHFree(pidlTmp);
407 TRACE("keep current folder\n");
408 return NOERROR;
411 /* Release the current DataObject */
412 if (fodInfos->Shell.FOIDataObject)
414 IDataObject_Release(fodInfos->Shell.FOIDataObject);
415 fodInfos->Shell.FOIDataObject = NULL;
418 /* Create the associated view */
419 TRACE("create view object\n");
420 if(FAILED(hRes = IShellFolder_CreateViewObject(psfTmp, fodInfos->ShellInfos.hwndOwner,
421 &IID_IShellView, (LPVOID *)&psvTmp))) goto error;
423 /* Check if listview has focus */
424 bViewHasFocus = IsChild(fodInfos->ShellInfos.hwndView,GetFocus());
426 /* Get the foldersettings from the old view */
427 if(fodInfos->Shell.FOIShellView)
428 IShellView_GetCurrentInfo(fodInfos->Shell.FOIShellView, &fodInfos->ShellInfos.folderSettings);
430 /* Release the old fodInfos->Shell.FOIShellView and update its value.
431 We have to update this early since ShellView_CreateViewWindow of native
432 shell32 calls OnStateChange and needs the correct view here.*/
433 if(fodInfos->Shell.FOIShellView)
435 IShellView_DestroyViewWindow(fodInfos->Shell.FOIShellView);
436 IShellView_Release(fodInfos->Shell.FOIShellView);
438 fodInfos->Shell.FOIShellView = psvTmp;
440 /* Release old FOIShellFolder and update its value */
441 if (fodInfos->Shell.FOIShellFolder)
442 IShellFolder_Release(fodInfos->Shell.FOIShellFolder);
443 fodInfos->Shell.FOIShellFolder = psfTmp;
445 /* Release old pidlAbsCurrent and update its value */
446 COMDLG32_SHFree((LPVOID)fodInfos->ShellInfos.pidlAbsCurrent);
447 fodInfos->ShellInfos.pidlAbsCurrent = pidlTmp;
449 COMDLG32_UpdateCurrentDir(fodInfos);
451 GetWindowRect(GetDlgItem(This->hwndOwner, IDC_SHELLSTATIC), &rectView);
452 MapWindowPoints(0, This->hwndOwner, (LPPOINT)&rectView, 2);
454 /* Create the window */
455 TRACE("create view window\n");
456 if(FAILED(hRes = IShellView_CreateViewWindow(psvTmp, NULL,
457 &fodInfos->ShellInfos.folderSettings, fodInfos->Shell.FOIShellBrowser,
458 &rectView, &hwndView))) goto error;
460 fodInfos->ShellInfos.hwndView = hwndView;
462 /* Set view window control id to 5002 */
463 SetWindowLongPtrW(hwndView, GWLP_ID, lst2);
465 /* Select the new folder in the Look In combo box of the Open file dialog */
466 FILEDLG95_LOOKIN_SelectItem(fodInfos->DlgInfos.hwndLookInCB,fodInfos->ShellInfos.pidlAbsCurrent);
468 /* changes the tab order of the ListView to reflect the window's File Dialog */
469 hDlgWnd = GetDlgItem(GetParent(hwndView), IDC_LOOKIN);
470 SetWindowPos(hwndView, hDlgWnd, 0,0,0,0, SWP_NOMOVE | SWP_NOSIZE);
472 /* Since we destroyed the old view if it had focus set focus to the newly created view */
473 if (bViewHasFocus)
474 SetFocus(fodInfos->ShellInfos.hwndView);
476 return hRes;
477 error:
478 ERR("Failed with error 0x%08x\n", hRes);
479 return hRes;
482 /**************************************************************************
483 * IShellBrowserImpl_EnableModelessSB
485 static HRESULT WINAPI IShellBrowserImpl_EnableModelessSB(IShellBrowser *iface,
486 BOOL fEnable)
489 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
491 TRACE("(%p)\n", This);
493 /* Feature not implemented */
494 return E_NOTIMPL;
497 /**************************************************************************
498 * IShellBrowserImpl_GetControlWindow
500 static HRESULT WINAPI IShellBrowserImpl_GetControlWindow(IShellBrowser *iface,
501 UINT id,
502 HWND *lphwnd)
505 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
507 TRACE("(%p)\n", This);
509 /* Feature not implemented */
510 return E_NOTIMPL;
513 /**************************************************************************
514 * IShellBrowserImpl_GetViewStateStream
516 static HRESULT WINAPI IShellBrowserImpl_GetViewStateStream(IShellBrowser *iface,
517 DWORD grfMode,
518 LPSTREAM *ppStrm)
521 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
523 FIXME("(%p 0x%08x %p)\n", This, grfMode, ppStrm);
525 /* Feature not implemented */
526 return E_NOTIMPL;
529 /**************************************************************************
530 * IShellBrowserImpl_InsertMenusSB
532 static HRESULT WINAPI IShellBrowserImpl_InsertMenusSB(IShellBrowser *iface,
533 HMENU hmenuShared,
534 LPOLEMENUGROUPWIDTHS lpMenuWidths)
537 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
539 TRACE("(%p)\n", This);
541 /* Feature not implemented */
542 return E_NOTIMPL;
545 /**************************************************************************
546 * IShellBrowserImpl_OnViewWindowActive
548 static HRESULT WINAPI IShellBrowserImpl_OnViewWindowActive(IShellBrowser *iface,
549 IShellView *ppshv)
552 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
554 TRACE("(%p)\n", This);
556 /* Feature not implemented */
557 return E_NOTIMPL;
560 /**************************************************************************
561 * IShellBrowserImpl_QueryActiveShellView
563 static HRESULT WINAPI IShellBrowserImpl_QueryActiveShellView(IShellBrowser *iface,
564 IShellView **ppshv)
567 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
569 FileOpenDlgInfos *fodInfos;
571 TRACE("(%p)\n", This);
573 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
575 if(!(*ppshv = fodInfos->Shell.FOIShellView))
577 return E_FAIL;
579 IShellView_AddRef(fodInfos->Shell.FOIShellView);
580 return NOERROR;
583 /**************************************************************************
584 * IShellBrowserImpl_RemoveMenusSB
586 static HRESULT WINAPI IShellBrowserImpl_RemoveMenusSB(IShellBrowser *iface,
587 HMENU hmenuShared)
590 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
592 TRACE("(%p)\n", This);
594 /* Feature not implemented */
595 return E_NOTIMPL;
598 /**************************************************************************
599 * IShellBrowserImpl_SendControlMsg
601 static HRESULT WINAPI IShellBrowserImpl_SendControlMsg(IShellBrowser *iface,
602 UINT id,
603 UINT uMsg,
604 WPARAM wParam,
605 LPARAM lParam,
606 LRESULT *pret)
609 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
610 LRESULT lres;
612 TRACE("(%p)->(0x%08x 0x%08x 0x%08lx 0x%08lx %p)\n", This, id, uMsg, wParam, lParam, pret);
614 switch (id)
616 case FCW_TOOLBAR:
617 lres = SendDlgItemMessageA( This->hwndOwner, IDC_TOOLBAR, uMsg, wParam, lParam);
618 break;
619 default:
620 FIXME("ctrl id: %x\n", id);
621 return E_NOTIMPL;
623 if (pret) *pret = lres;
624 return S_OK;
627 /**************************************************************************
628 * IShellBrowserImpl_SetMenuSB
630 static HRESULT WINAPI IShellBrowserImpl_SetMenuSB(IShellBrowser *iface,
631 HMENU hmenuShared,
632 HOLEMENU holemenuReserved,
633 HWND hwndActiveObject)
636 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
638 TRACE("(%p)\n", This);
640 /* Feature not implemented */
641 return E_NOTIMPL;
644 /**************************************************************************
645 * IShellBrowserImpl_SetStatusTextSB
647 static HRESULT WINAPI IShellBrowserImpl_SetStatusTextSB(IShellBrowser *iface,
648 LPCOLESTR lpszStatusText)
651 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
653 TRACE("(%p)\n", This);
655 /* Feature not implemented */
656 return E_NOTIMPL;
659 /**************************************************************************
660 * IShellBrowserImpl_SetToolbarItems
662 static HRESULT WINAPI IShellBrowserImpl_SetToolbarItems(IShellBrowser *iface,
663 LPTBBUTTON lpButtons,
664 UINT nButtons,
665 UINT uFlags)
668 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
670 TRACE("(%p)\n", This);
672 /* Feature not implemented */
673 return E_NOTIMPL;
676 /**************************************************************************
677 * IShellBrowserImpl_TranslateAcceleratorSB
679 static HRESULT WINAPI IShellBrowserImpl_TranslateAcceleratorSB(IShellBrowser *iface,
680 LPMSG lpmsg,
681 WORD wID)
684 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
686 TRACE("(%p)\n", This);
688 /* Feature not implemented */
689 return E_NOTIMPL;
692 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl =
694 /* IUnknown */
695 IShellBrowserImpl_QueryInterface,
696 IShellBrowserImpl_AddRef,
697 IShellBrowserImpl_Release,
698 /* IOleWindow */
699 IShellBrowserImpl_GetWindow,
700 IShellBrowserImpl_ContextSensitiveHelp,
701 /* IShellBrowser */
702 IShellBrowserImpl_InsertMenusSB,
703 IShellBrowserImpl_SetMenuSB,
704 IShellBrowserImpl_RemoveMenusSB,
705 IShellBrowserImpl_SetStatusTextSB,
706 IShellBrowserImpl_EnableModelessSB,
707 IShellBrowserImpl_TranslateAcceleratorSB,
708 IShellBrowserImpl_BrowseObject,
709 IShellBrowserImpl_GetViewStateStream,
710 IShellBrowserImpl_GetControlWindow,
711 IShellBrowserImpl_SendControlMsg,
712 IShellBrowserImpl_QueryActiveShellView,
713 IShellBrowserImpl_OnViewWindowActive,
714 IShellBrowserImpl_SetToolbarItems
720 * ICommDlgBrowser
723 /***************************************************************************
724 * IShellBrowserImpl_ICommDlgBrowser_QueryInterface
726 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_QueryInterface(
727 ICommDlgBrowser *iface,
728 REFIID riid,
729 LPVOID *ppvObj)
731 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
733 TRACE("(%p)\n", This);
735 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
738 /**************************************************************************
739 * IShellBrowserImpl_ICommDlgBrowser_AddRef
741 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_AddRef(ICommDlgBrowser * iface)
743 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
745 TRACE("(%p)\n", This);
747 return IShellBrowserImpl_AddRef((IShellBrowser *)This);
750 /**************************************************************************
751 * IShellBrowserImpl_ICommDlgBrowser_Release
753 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_Release(ICommDlgBrowser * iface)
755 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
757 TRACE("(%p)\n", This);
759 return IShellBrowserImpl_Release((IShellBrowser *)This);
762 /**************************************************************************
763 * IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand
765 * Called when a user double-clicks in the view or presses the ENTER key
767 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand(ICommDlgBrowser *iface,
768 IShellView *ppshv)
770 LPITEMIDLIST pidl;
771 FileOpenDlgInfos *fodInfos;
773 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
775 TRACE("(%p)\n", This);
777 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
779 /* If the selected object is not a folder, send an IDOK command to parent window */
780 if((pidl = GetPidlFromDataObject(fodInfos->Shell.FOIDataObject, 1)))
782 HRESULT hRes;
784 ULONG ulAttr = SFGAO_FOLDER | SFGAO_HASSUBFOLDER;
785 IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, (LPCITEMIDLIST *)&pidl, &ulAttr);
786 if (ulAttr & (SFGAO_FOLDER | SFGAO_HASSUBFOLDER) )
788 hRes = IShellBrowser_BrowseObject((IShellBrowser *)This,pidl,SBSP_RELATIVE);
789 SendCustomDlgNotificationMessage(This->hwndOwner, CDN_FOLDERCHANGE);
791 else
793 /* Tell the dialog that the user selected a file */
794 PostMessageA(This->hwndOwner, WM_COMMAND, IDOK, 0L);
795 hRes = S_OK;
798 /* Free memory used by pidl */
799 COMDLG32_SHFree((LPVOID)pidl);
801 return hRes;
804 return E_FAIL;
807 /**************************************************************************
808 * IShellBrowserImpl_ICommDlgBrowser_OnStateChange
810 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnStateChange(ICommDlgBrowser *iface,
811 IShellView *ppshv,
812 ULONG uChange)
815 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
817 TRACE("(%p shv=%p)\n", This, ppshv);
819 switch (uChange)
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);
828 break;
829 case CDBOSC_KILLFOCUS:
831 FileOpenDlgInfos *fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
832 if(fodInfos->DlgInfos.dwDlgProp & FODPROP_SAVEDLG)
834 WCHAR szSave[16];
835 LoadStringW(COMDLG32_hInstance, IDS_SAVE_BUTTON, szSave, sizeof(szSave)/sizeof(WCHAR));
836 SetDlgItemTextW(fodInfos->ShellInfos.hwndOwner, IDOK, szSave);
839 break;
840 case CDBOSC_SELCHANGE:
841 return IShellBrowserImpl_ICommDlgBrowser_OnSelChange(iface,ppshv);
842 case CDBOSC_RENAME:
843 /* nothing to do */
844 break;
847 return NOERROR;
850 /**************************************************************************
851 * IShellBrowserImpl_ICommDlgBrowser_IncludeObject
853 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_IncludeObject(ICommDlgBrowser *iface,
854 IShellView * ppshv,
855 LPCITEMIDLIST pidl)
857 FileOpenDlgInfos *fodInfos;
858 ULONG ulAttr;
859 STRRET str;
860 WCHAR szPathW[MAX_PATH];
862 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
864 TRACE("(%p)\n", This);
866 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
868 ulAttr = SFGAO_HIDDEN | SFGAO_FOLDER | SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR | SFGAO_LINK;
869 IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, &pidl, &ulAttr);
871 if( (ulAttr & SFGAO_HIDDEN) || /* hidden */
872 !(ulAttr & (SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR))) /* special folder */
873 return S_FALSE;
875 /* always include directories and links */
876 if(ulAttr & (SFGAO_FOLDER | SFGAO_LINK))
877 return S_OK;
879 /* Check if there is a mask to apply if not */
880 if(!fodInfos->ShellInfos.lpstrCurrentFilter || !lstrlenW(fodInfos->ShellInfos.lpstrCurrentFilter))
881 return S_OK;
883 if (SUCCEEDED(IShellFolder_GetDisplayNameOf(fodInfos->Shell.FOIShellFolder, pidl, SHGDN_INFOLDER | SHGDN_FORPARSING, &str)))
885 if (SUCCEEDED(COMDLG32_StrRetToStrNW(szPathW, MAX_PATH, &str, pidl)))
887 if (PathMatchSpecW(szPathW, fodInfos->ShellInfos.lpstrCurrentFilter))
888 return S_OK;
891 return S_FALSE;
895 /**************************************************************************
896 * IShellBrowserImpl_ICommDlgBrowser_OnSelChange
898 static HRESULT IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser *iface, const IShellView *ppshv)
900 FileOpenDlgInfos *fodInfos;
902 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
904 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
905 TRACE("(%p do=%p view=%p)\n", This, fodInfos->Shell.FOIDataObject, fodInfos->Shell.FOIShellView);
907 /* release old selections */
908 if (fodInfos->Shell.FOIDataObject)
909 IDataObject_Release(fodInfos->Shell.FOIDataObject);
911 /* get a new DataObject from the ShellView */
912 if(FAILED(IShellView_GetItemObject(fodInfos->Shell.FOIShellView, SVGIO_SELECTION,
913 &IID_IDataObject, (LPVOID*)&fodInfos->Shell.FOIDataObject)))
914 return E_FAIL;
916 FILEDLG95_FILENAME_FillFromSelection(This->hwndOwner);
918 SendCustomDlgNotificationMessage(This->hwndOwner, CDN_SELCHANGE);
919 return S_OK;
922 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl =
924 /* IUnknown */
925 IShellBrowserImpl_ICommDlgBrowser_QueryInterface,
926 IShellBrowserImpl_ICommDlgBrowser_AddRef,
927 IShellBrowserImpl_ICommDlgBrowser_Release,
928 /* ICommDlgBrowser */
929 IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand,
930 IShellBrowserImpl_ICommDlgBrowser_OnStateChange,
931 IShellBrowserImpl_ICommDlgBrowser_IncludeObject
938 * IServiceProvider
941 /***************************************************************************
942 * IShellBrowserImpl_IServiceProvider_QueryInterface
944 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryInterface(
945 IServiceProvider *iface,
946 REFIID riid,
947 LPVOID *ppvObj)
949 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
951 FIXME("(%p)\n", This);
953 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
956 /**************************************************************************
957 * IShellBrowserImpl_IServiceProvider_AddRef
959 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_AddRef(IServiceProvider * iface)
961 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
963 FIXME("(%p)\n", This);
965 return IShellBrowserImpl_AddRef((IShellBrowser *)This);
968 /**************************************************************************
969 * IShellBrowserImpl_IServiceProvider_Release
971 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_Release(IServiceProvider * iface)
973 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
975 FIXME("(%p)\n", This);
977 return IShellBrowserImpl_Release((IShellBrowser *)This);
980 /**************************************************************************
981 * IShellBrowserImpl_IServiceProvider_Release
983 * NOTES
984 * the w2k shellview asks for (guidService = SID_STopLevelBrowser,
985 * riid = IShellBrowser) to call SendControlMsg ().
987 * FIXME
988 * this is a hack!
991 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryService(
992 IServiceProvider * iface,
993 REFGUID guidService,
994 REFIID riid,
995 void** ppv)
997 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
999 FIXME("(%p)\n\t%s\n\t%s\n", This,debugstr_guid(guidService), debugstr_guid(riid) );
1001 *ppv = NULL;
1002 if(guidService && IsEqualIID(guidService, &SID_STopLevelBrowser))
1004 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppv);
1006 FIXME("(%p) unknown interface requested\n", This);
1007 return E_NOINTERFACE;
1011 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl =
1013 /* IUnknown */
1014 IShellBrowserImpl_IServiceProvider_QueryInterface,
1015 IShellBrowserImpl_IServiceProvider_AddRef,
1016 IShellBrowserImpl_IServiceProvider_Release,
1017 /* IServiceProvider */
1018 IShellBrowserImpl_IServiceProvider_QueryService