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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
37 #define NO_SHLWAPI_STREAM
39 #include "filedlgbrowser.h"
43 #include "wine/debug.h"
45 WINE_DEFAULT_DEBUG_CHANNEL(commdlg
);
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 */
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 /**************************************************************************
71 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl
;
72 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl
;
73 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl
;
75 /**************************************************************************
79 static HRESULT
IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser
*iface
, IShellView
*ppshv
);
81 /**************************************************************************
84 extern const char *FileOpenDlgInfosStr
;
86 extern IShellFolder
* GetShellFolderFromPidl(LPITEMIDLIST pidlAbs
);
87 extern LPITEMIDLIST
GetParentPidl(LPITEMIDLIST pidl
);
88 extern LPITEMIDLIST
GetPidlFromName(IShellFolder
*psf
,LPCSTR lpcstrFileName
);
90 extern int FILEDLG95_LOOKIN_SelectItem(HWND hwnd
,LPITEMIDLIST pidl
);
91 extern LRESULT
SendCustomDlgNotificationMessage(HWND hwndParentDlg
, UINT uCode
);
98 #define add_flag(a) if (flags & a) {strcat(str, #a );strcat(str," ");}
99 static void COMDLG32_DumpSBSPFlags(UINT uflags
)
101 if (TRACE_ON(commdlg
))
104 static const struct {
108 #define FE(x) { x, #x}
109 /* SBSP_DEFBROWSER == 0 */
110 FE(SBSP_SAMEBROWSER
),
113 /* SBSP_DEFMODE == 0 */
115 FE(SBSP_EXPLOREMODE
),
117 FE(SBSP_NOTRANSFERHIST
),
119 /* SBSP_ABSOLUTE == 0 */
122 FE(SBSP_NAVIGATEBACK
),
123 FE(SBSP_NAVIGATEFORWARD
),
124 FE(SBSP_ALLOW_AUTONAVIGATE
),
126 FE(SBSP_NOAUTOSELECT
),
127 FE(SBSP_WRITENOHISTORY
),
130 FE(SBSP_INITIATEDBYHLINKFRAME
),
133 DPRINTF("SBSP Flags: %08x =", uflags
);
134 for (i
= 0; i
< (sizeof(flags
) / sizeof(flags
[0])); i
++)
135 if (flags
[i
].mask
& uflags
)
136 DPRINTF("%s ", flags
[i
].name
);
141 static void COMDLG32_UpdateCurrentDir(FileOpenDlgInfos
*fodInfos
)
143 LPSHELLFOLDER psfDesktop
;
147 res
= SHGetDesktopFolder(&psfDesktop
);
151 res
= IShellFolder_GetDisplayNameOf(psfDesktop
, fodInfos
->ShellInfos
.pidlAbsCurrent
,
152 SHGDN_FORPARSING
, &strret
);
153 if (SUCCEEDED(res
)) {
154 WCHAR wszCurrentDir
[MAX_PATH
];
156 res
= StrRetToBufW(&strret
, fodInfos
->ShellInfos
.pidlAbsCurrent
, wszCurrentDir
, MAX_PATH
);
158 SetCurrentDirectoryW(wszCurrentDir
);
161 IShellFolder_Release(psfDesktop
);
164 /* copied from shell32 to avoid linking to it */
165 static HRESULT
COMDLG32_StrRetToStrNW (LPVOID dest
, DWORD len
, LPSTRRET src
, LPCITEMIDLIST pidl
)
167 TRACE("dest=%p len=0x%lx strret=%p pidl=%p stub\n",dest
,len
,src
,pidl
);
172 lstrcpynW((LPWSTR
)dest
, src
->u
.pOleStr
, len
);
173 COMDLG32_SHFree(src
->u
.pOleStr
);
177 if (len
&& !MultiByteToWideChar( CP_ACP
, 0, src
->u
.cStr
, -1, (LPWSTR
)dest
, len
))
178 ((LPWSTR
)dest
)[len
-1] = 0;
184 if (len
&& !MultiByteToWideChar( CP_ACP
, 0, ((LPCSTR
)&pidl
->mkid
)+src
->u
.uOffset
,
185 -1, (LPWSTR
)dest
, len
))
186 ((LPWSTR
)dest
)[len
-1] = 0;
191 FIXME("unknown type!\n");
193 { *(LPWSTR
)dest
= '\0';
204 /**************************************************************************
205 * IShellBrowserImpl_Construct
207 IShellBrowser
* IShellBrowserImpl_Construct(HWND hwndOwner
)
209 IShellBrowserImpl
*sb
;
210 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(hwndOwner
,FileOpenDlgInfosStr
);
212 sb
=(IShellBrowserImpl
*)COMDLG32_SHAlloc(sizeof(IShellBrowserImpl
));
214 /* Initialisation of the member variables */
216 sb
->hwndOwner
= hwndOwner
;
218 /* Initialisation of the vTables */
219 sb
->lpVtbl
= &IShellBrowserImpl_Vtbl
;
220 sb
->lpVtblCommDlgBrowser
= &IShellBrowserImpl_ICommDlgBrowser_Vtbl
;
221 sb
->lpVtblServiceProvider
= &IShellBrowserImpl_IServiceProvider_Vtbl
;
222 SHGetSpecialFolderLocation(hwndOwner
, CSIDL_DESKTOP
,
223 &fodInfos
->ShellInfos
.pidlAbsCurrent
);
227 return (IShellBrowser
*) sb
;
230 /***************************************************************************
231 * IShellBrowserImpl_QueryInterface
233 static HRESULT WINAPI
IShellBrowserImpl_QueryInterface(IShellBrowser
*iface
,
237 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
239 TRACE("(%p)\n\t%s\n", This
, debugstr_guid(riid
));
243 if(IsEqualIID(riid
, &IID_IUnknown
)) /*IUnknown*/
246 else if(IsEqualIID(riid
, &IID_IOleWindow
)) /*IOleWindow*/
247 { *ppvObj
= (IOleWindow
*)This
;
250 else if(IsEqualIID(riid
, &IID_IShellBrowser
)) /*IShellBrowser*/
251 { *ppvObj
= (IShellBrowser
*)This
;
254 else if(IsEqualIID(riid
, &IID_ICommDlgBrowser
)) /*ICommDlgBrowser*/
255 { *ppvObj
= (ICommDlgBrowser
*) &(This
->lpVtblCommDlgBrowser
);
258 else if(IsEqualIID(riid
, &IID_IServiceProvider
)) /* IServiceProvider */
259 { *ppvObj
= (ICommDlgBrowser
*) &(This
->lpVtblServiceProvider
);
263 { IUnknown_AddRef( (IShellBrowser
*) *ppvObj
);
266 FIXME("Unknown interface requested\n");
267 return E_NOINTERFACE
;
270 /**************************************************************************
271 * IShellBrowser::AddRef
273 static ULONG WINAPI
IShellBrowserImpl_AddRef(IShellBrowser
* iface
)
275 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
276 ULONG ref
= InterlockedIncrement(&This
->ref
);
278 TRACE("(%p,%lu)\n", This
, ref
- 1);
283 /**************************************************************************
284 * IShellBrowserImpl_Release
286 static ULONG WINAPI
IShellBrowserImpl_Release(IShellBrowser
* iface
)
288 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
289 ULONG ref
= InterlockedDecrement(&This
->ref
);
291 TRACE("(%p,%lu)\n", This
, ref
+ 1);
295 COMDLG32_SHFree(This
);
296 TRACE("-- destroyed\n");
306 /**************************************************************************
307 * IShellBrowserImpl_GetWindow (IOleWindow)
309 * Inherited from IOleWindow::GetWindow
311 * See Windows documentation for more details
313 * Note : We will never be window less in the File Open dialog
316 static HRESULT WINAPI
IShellBrowserImpl_GetWindow(IShellBrowser
* iface
,
319 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
321 TRACE("(%p)\n", This
);
326 *phwnd
= This
->hwndOwner
;
328 return (*phwnd
) ? S_OK
: E_UNEXPECTED
;
332 /**************************************************************************
333 * IShellBrowserImpl_ContextSensitiveHelp
335 static HRESULT WINAPI
IShellBrowserImpl_ContextSensitiveHelp(IShellBrowser
* iface
,
338 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
340 TRACE("(%p)\n", This
);
342 /* Feature not implemented */
350 /**************************************************************************
351 * IShellBrowserImpl_BrowseObject
353 * See Windows documentation on IShellBrowser::BrowseObject for more details
355 * This function will override user specified flags and will always
356 * use SBSP_DEFBROWSER and SBSP_DEFMODE.
358 static HRESULT WINAPI
IShellBrowserImpl_BrowseObject(IShellBrowser
*iface
,
363 IShellFolder
*psfTmp
;
365 FileOpenDlgInfos
*fodInfos
;
366 LPITEMIDLIST pidlTmp
;
372 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
374 TRACE("(%p)(pidl=%p,flags=0x%08x)\n", This
, pidl
, wFlags
);
375 COMDLG32_DumpSBSPFlags(wFlags
);
377 fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
379 /* Format the pidl according to its parameter's category */
380 if(wFlags
& SBSP_RELATIVE
)
383 /* SBSP_RELATIVE A relative pidl (relative from the current folder) */
384 if(FAILED(hRes
= IShellFolder_BindToObject(fodInfos
->Shell
.FOIShellFolder
,
385 pidl
, NULL
, &IID_IShellFolder
, (LPVOID
*)&psfTmp
)))
387 ERR("bind to object failed\n");
390 /* create an absolute pidl */
391 pidlTmp
= COMDLG32_PIDL_ILCombine(fodInfos
->ShellInfos
.pidlAbsCurrent
,
394 else if(wFlags
& SBSP_PARENT
)
396 /* Browse the parent folder (ignores the pidl) */
397 pidlTmp
= GetParentPidl(fodInfos
->ShellInfos
.pidlAbsCurrent
);
398 psfTmp
= GetShellFolderFromPidl(pidlTmp
);
401 else /* SBSP_ABSOLUTE is 0x0000 */
403 /* An absolute pidl (relative from the desktop) */
404 pidlTmp
= COMDLG32_PIDL_ILClone((LPITEMIDLIST
)pidl
);
405 psfTmp
= GetShellFolderFromPidl(pidlTmp
);
410 ERR("could not browse to folder\n");
414 /* If the pidl to browse to is equal to the actual pidl ...
415 do nothing and pretend you did it*/
416 if(COMDLG32_PIDL_ILIsEqual(pidlTmp
,fodInfos
->ShellInfos
.pidlAbsCurrent
))
418 IShellFolder_Release(psfTmp
);
419 COMDLG32_SHFree(pidlTmp
);
420 TRACE("keep current folder\n");
424 /* Release the current DataObject */
425 if (fodInfos
->Shell
.FOIDataObject
)
427 IDataObject_Release(fodInfos
->Shell
.FOIDataObject
);
428 fodInfos
->Shell
.FOIDataObject
= NULL
;
431 /* Create the associated view */
432 TRACE("create view object\n");
433 if(FAILED(hRes
= IShellFolder_CreateViewObject(psfTmp
, fodInfos
->ShellInfos
.hwndOwner
,
434 &IID_IShellView
, (LPVOID
*)&psvTmp
))) goto error
;
436 /* Check if listview has focus */
437 bViewHasFocus
= IsChild(fodInfos
->ShellInfos
.hwndView
,GetFocus());
439 /* Get the foldersettings from the old view */
440 if(fodInfos
->Shell
.FOIShellView
)
441 IShellView_GetCurrentInfo(fodInfos
->Shell
.FOIShellView
, &fodInfos
->ShellInfos
.folderSettings
);
443 /* Release the old fodInfos->Shell.FOIShellView and update its value.
444 We have to update this early since ShellView_CreateViewWindow of native
445 shell32 calls OnStateChange and needs the correct view here.*/
446 if(fodInfos
->Shell
.FOIShellView
)
448 IShellView_DestroyViewWindow(fodInfos
->Shell
.FOIShellView
);
449 IShellView_Release(fodInfos
->Shell
.FOIShellView
);
451 fodInfos
->Shell
.FOIShellView
= psvTmp
;
453 /* Release old FOIShellFolder and update its value */
454 if (fodInfos
->Shell
.FOIShellFolder
)
455 IShellFolder_Release(fodInfos
->Shell
.FOIShellFolder
);
456 fodInfos
->Shell
.FOIShellFolder
= psfTmp
;
458 /* Release old pidlAbsCurrent and update its value */
459 COMDLG32_SHFree((LPVOID
)fodInfos
->ShellInfos
.pidlAbsCurrent
);
460 fodInfos
->ShellInfos
.pidlAbsCurrent
= pidlTmp
;
462 COMDLG32_UpdateCurrentDir(fodInfos
);
464 GetWindowRect(GetDlgItem(This
->hwndOwner
, IDC_SHELLSTATIC
), &rectView
);
465 MapWindowPoints(0, This
->hwndOwner
, (LPPOINT
)&rectView
, 2);
467 /* Create the window */
468 TRACE("create view window\n");
469 if(FAILED(hRes
= IShellView_CreateViewWindow(psvTmp
, NULL
,
470 &fodInfos
->ShellInfos
.folderSettings
, fodInfos
->Shell
.FOIShellBrowser
,
471 &rectView
, &hwndView
))) goto error
;
473 fodInfos
->ShellInfos
.hwndView
= hwndView
;
475 /* Set view window control id to 5002 */
476 SetWindowLongPtrW(hwndView
, GWLP_ID
, lst2
);
478 /* Select the new folder in the Look In combo box of the Open file dialog */
479 FILEDLG95_LOOKIN_SelectItem(fodInfos
->DlgInfos
.hwndLookInCB
,fodInfos
->ShellInfos
.pidlAbsCurrent
);
481 /* changes the tab order of the ListView to reflect the window's File Dialog */
482 hDlgWnd
= GetDlgItem(GetParent(hwndView
), IDC_LOOKIN
);
483 SetWindowPos(hwndView
, hDlgWnd
, 0,0,0,0, SWP_NOMOVE
| SWP_NOSIZE
);
485 /* Since we destroyed the old view if it had focus set focus to the newly created view */
487 SetFocus(fodInfos
->ShellInfos
.hwndView
);
491 ERR("Failed with error 0x%08lx\n", hRes
);
495 /**************************************************************************
496 * IShellBrowserImpl_EnableModelessSB
498 static HRESULT WINAPI
IShellBrowserImpl_EnableModelessSB(IShellBrowser
*iface
,
502 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
504 TRACE("(%p)\n", This
);
506 /* Feature not implemented */
510 /**************************************************************************
511 * IShellBrowserImpl_GetControlWindow
513 static HRESULT WINAPI
IShellBrowserImpl_GetControlWindow(IShellBrowser
*iface
,
518 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
520 TRACE("(%p)\n", This
);
522 /* Feature not implemented */
526 /**************************************************************************
527 * IShellBrowserImpl_GetViewStateStream
529 static HRESULT WINAPI
IShellBrowserImpl_GetViewStateStream(IShellBrowser
*iface
,
534 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
536 FIXME("(%p 0x%08lx %p)\n", This
, grfMode
, ppStrm
);
538 /* Feature not implemented */
542 /**************************************************************************
543 * IShellBrowserImpl_InsertMenusSB
545 static HRESULT WINAPI
IShellBrowserImpl_InsertMenusSB(IShellBrowser
*iface
,
547 LPOLEMENUGROUPWIDTHS lpMenuWidths
)
550 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
552 TRACE("(%p)\n", This
);
554 /* Feature not implemented */
558 /**************************************************************************
559 * IShellBrowserImpl_OnViewWindowActive
561 static HRESULT WINAPI
IShellBrowserImpl_OnViewWindowActive(IShellBrowser
*iface
,
565 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
567 TRACE("(%p)\n", This
);
569 /* Feature not implemented */
573 /**************************************************************************
574 * IShellBrowserImpl_QueryActiveShellView
576 static HRESULT WINAPI
IShellBrowserImpl_QueryActiveShellView(IShellBrowser
*iface
,
580 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
582 FileOpenDlgInfos
*fodInfos
;
584 TRACE("(%p)\n", This
);
586 fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
588 if(!(*ppshv
= fodInfos
->Shell
.FOIShellView
))
592 IShellView_AddRef(fodInfos
->Shell
.FOIShellView
);
596 /**************************************************************************
597 * IShellBrowserImpl_RemoveMenusSB
599 static HRESULT WINAPI
IShellBrowserImpl_RemoveMenusSB(IShellBrowser
*iface
,
603 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
605 TRACE("(%p)\n", This
);
607 /* Feature not implemented */
611 /**************************************************************************
612 * IShellBrowserImpl_SendControlMsg
614 static HRESULT WINAPI
IShellBrowserImpl_SendControlMsg(IShellBrowser
*iface
,
622 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
625 TRACE("(%p)->(0x%08x 0x%08x 0x%08x 0x%08lx %p)\n", This
, id
, uMsg
, wParam
, lParam
, pret
);
630 lres
= SendDlgItemMessageA( This
->hwndOwner
, IDC_TOOLBAR
, uMsg
, wParam
, lParam
);
633 FIXME("ctrl id: %x\n", id
);
636 if (pret
) *pret
= lres
;
640 /**************************************************************************
641 * IShellBrowserImpl_SetMenuSB
643 static HRESULT WINAPI
IShellBrowserImpl_SetMenuSB(IShellBrowser
*iface
,
645 HOLEMENU holemenuReserved
,
646 HWND hwndActiveObject
)
649 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
651 TRACE("(%p)\n", This
);
653 /* Feature not implemented */
657 /**************************************************************************
658 * IShellBrowserImpl_SetStatusTextSB
660 static HRESULT WINAPI
IShellBrowserImpl_SetStatusTextSB(IShellBrowser
*iface
,
661 LPCOLESTR lpszStatusText
)
664 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
666 TRACE("(%p)\n", This
);
668 /* Feature not implemented */
672 /**************************************************************************
673 * IShellBrowserImpl_SetToolbarItems
675 static HRESULT WINAPI
IShellBrowserImpl_SetToolbarItems(IShellBrowser
*iface
,
676 LPTBBUTTON lpButtons
,
681 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
683 TRACE("(%p)\n", This
);
685 /* Feature not implemented */
689 /**************************************************************************
690 * IShellBrowserImpl_TranslateAcceleratorSB
692 static HRESULT WINAPI
IShellBrowserImpl_TranslateAcceleratorSB(IShellBrowser
*iface
,
697 IShellBrowserImpl
*This
= (IShellBrowserImpl
*)iface
;
699 TRACE("(%p)\n", This
);
701 /* Feature not implemented */
705 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl
=
708 IShellBrowserImpl_QueryInterface
,
709 IShellBrowserImpl_AddRef
,
710 IShellBrowserImpl_Release
,
712 IShellBrowserImpl_GetWindow
,
713 IShellBrowserImpl_ContextSensitiveHelp
,
715 IShellBrowserImpl_InsertMenusSB
,
716 IShellBrowserImpl_SetMenuSB
,
717 IShellBrowserImpl_RemoveMenusSB
,
718 IShellBrowserImpl_SetStatusTextSB
,
719 IShellBrowserImpl_EnableModelessSB
,
720 IShellBrowserImpl_TranslateAcceleratorSB
,
721 IShellBrowserImpl_BrowseObject
,
722 IShellBrowserImpl_GetViewStateStream
,
723 IShellBrowserImpl_GetControlWindow
,
724 IShellBrowserImpl_SendControlMsg
,
725 IShellBrowserImpl_QueryActiveShellView
,
726 IShellBrowserImpl_OnViewWindowActive
,
727 IShellBrowserImpl_SetToolbarItems
736 /***************************************************************************
737 * IShellBrowserImpl_ICommDlgBrowser_QueryInterface
739 static HRESULT WINAPI
IShellBrowserImpl_ICommDlgBrowser_QueryInterface(
740 ICommDlgBrowser
*iface
,
744 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
746 TRACE("(%p)\n", This
);
748 return IShellBrowserImpl_QueryInterface((IShellBrowser
*)This
,riid
,ppvObj
);
751 /**************************************************************************
752 * IShellBrowserImpl_ICommDlgBrowser_AddRef
754 static ULONG WINAPI
IShellBrowserImpl_ICommDlgBrowser_AddRef(ICommDlgBrowser
* iface
)
756 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
758 TRACE("(%p)\n", This
);
760 return IShellBrowserImpl_AddRef((IShellBrowser
*)This
);
763 /**************************************************************************
764 * IShellBrowserImpl_ICommDlgBrowser_Release
766 static ULONG WINAPI
IShellBrowserImpl_ICommDlgBrowser_Release(ICommDlgBrowser
* iface
)
768 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
770 TRACE("(%p)\n", This
);
772 return IShellBrowserImpl_Release((IShellBrowser
*)This
);
775 /**************************************************************************
776 * IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand
778 * Called when a user double-clicks in the view or presses the ENTER key
780 static HRESULT WINAPI
IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand(ICommDlgBrowser
*iface
,
784 FileOpenDlgInfos
*fodInfos
;
786 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
788 TRACE("(%p)\n", This
);
790 fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
792 /* If the selected object is not a folder, send an IDOK command to parent window */
793 if((pidl
= GetPidlFromDataObject(fodInfos
->Shell
.FOIDataObject
, 1)))
797 ULONG ulAttr
= SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
;
798 IShellFolder_GetAttributesOf(fodInfos
->Shell
.FOIShellFolder
, 1, (LPCITEMIDLIST
*)&pidl
, &ulAttr
);
799 if (ulAttr
& (SFGAO_FOLDER
| SFGAO_HASSUBFOLDER
) )
801 hRes
= IShellBrowser_BrowseObject((IShellBrowser
*)This
,pidl
,SBSP_RELATIVE
);
802 SendCustomDlgNotificationMessage(This
->hwndOwner
, CDN_FOLDERCHANGE
);
806 /* Tell the dialog that the user selected a file */
807 PostMessageA(This
->hwndOwner
, WM_COMMAND
, IDOK
, 0L);
811 /* Free memory used by pidl */
812 COMDLG32_SHFree((LPVOID
)pidl
);
820 /**************************************************************************
821 * IShellBrowserImpl_ICommDlgBrowser_OnStateChange
823 static HRESULT WINAPI
IShellBrowserImpl_ICommDlgBrowser_OnStateChange(ICommDlgBrowser
*iface
,
828 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
830 TRACE("(%p shv=%p)\n", This
, ppshv
);
834 case CDBOSC_SETFOCUS
:
835 /* FIXME: Reset the default button.
836 This should be taken care of by defdlg. If control
837 other than button receives focus the default button
838 should be restored. */
839 SendMessageA(This
->hwndOwner
, DM_SETDEFID
, IDOK
, 0);
842 case CDBOSC_KILLFOCUS
:
844 FileOpenDlgInfos
*fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
845 if(fodInfos
->DlgInfos
.dwDlgProp
& FODPROP_SAVEDLG
)
846 SetDlgItemTextA(fodInfos
->ShellInfos
.hwndOwner
,IDOK
,"&Save");
849 case CDBOSC_SELCHANGE
:
850 return IShellBrowserImpl_ICommDlgBrowser_OnSelChange(iface
,ppshv
);
859 /**************************************************************************
860 * IShellBrowserImpl_ICommDlgBrowser_IncludeObject
862 static HRESULT WINAPI
IShellBrowserImpl_ICommDlgBrowser_IncludeObject(ICommDlgBrowser
*iface
,
866 FileOpenDlgInfos
*fodInfos
;
869 WCHAR szPathW
[MAX_PATH
];
871 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
873 TRACE("(%p)\n", This
);
875 fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
877 ulAttr
= SFGAO_HIDDEN
| SFGAO_FOLDER
| SFGAO_FILESYSTEM
| SFGAO_FILESYSANCESTOR
| SFGAO_LINK
;
878 IShellFolder_GetAttributesOf(fodInfos
->Shell
.FOIShellFolder
, 1, &pidl
, &ulAttr
);
880 if( (ulAttr
& SFGAO_HIDDEN
) /* hidden */
881 | !(ulAttr
& (SFGAO_FILESYSTEM
| SFGAO_FILESYSANCESTOR
))) /* special folder */
884 /* always include directories and links */
885 if(ulAttr
& (SFGAO_FOLDER
| SFGAO_LINK
))
888 /* Check if there is a mask to apply if not */
889 if(!fodInfos
->ShellInfos
.lpstrCurrentFilter
|| !lstrlenW(fodInfos
->ShellInfos
.lpstrCurrentFilter
))
892 if (SUCCEEDED(IShellFolder_GetDisplayNameOf(fodInfos
->Shell
.FOIShellFolder
, pidl
, SHGDN_INFOLDER
| SHGDN_FORPARSING
, &str
)))
894 if (SUCCEEDED(COMDLG32_StrRetToStrNW(szPathW
, MAX_PATH
, &str
, pidl
)))
896 if (PathMatchSpecW(szPathW
, fodInfos
->ShellInfos
.lpstrCurrentFilter
))
904 /**************************************************************************
905 * IShellBrowserImpl_ICommDlgBrowser_OnSelChange
907 static HRESULT
IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser
*iface
, IShellView
*ppshv
)
909 FileOpenDlgInfos
*fodInfos
;
911 IShellBrowserImpl
*This
= impl_from_ICommDlgBrowser(iface
);
913 fodInfos
= (FileOpenDlgInfos
*) GetPropA(This
->hwndOwner
,FileOpenDlgInfosStr
);
914 TRACE("(%p do=%p view=%p)\n", This
, fodInfos
->Shell
.FOIDataObject
, fodInfos
->Shell
.FOIShellView
);
916 /* release old selections */
917 if (fodInfos
->Shell
.FOIDataObject
)
918 IDataObject_Release(fodInfos
->Shell
.FOIDataObject
);
920 /* get a new DataObject from the ShellView */
921 if(FAILED(IShellView_GetItemObject(fodInfos
->Shell
.FOIShellView
, SVGIO_SELECTION
,
922 &IID_IDataObject
, (LPVOID
*)&fodInfos
->Shell
.FOIDataObject
)))
925 FILEDLG95_FILENAME_FillFromSelection(This
->hwndOwner
);
927 SendCustomDlgNotificationMessage(This
->hwndOwner
, CDN_SELCHANGE
);
931 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl
=
934 IShellBrowserImpl_ICommDlgBrowser_QueryInterface
,
935 IShellBrowserImpl_ICommDlgBrowser_AddRef
,
936 IShellBrowserImpl_ICommDlgBrowser_Release
,
937 /* ICommDlgBrowser */
938 IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand
,
939 IShellBrowserImpl_ICommDlgBrowser_OnStateChange
,
940 IShellBrowserImpl_ICommDlgBrowser_IncludeObject
950 /***************************************************************************
951 * IShellBrowserImpl_IServiceProvider_QueryInterface
953 static HRESULT WINAPI
IShellBrowserImpl_IServiceProvider_QueryInterface(
954 IServiceProvider
*iface
,
958 IShellBrowserImpl
*This
= impl_from_IServiceProvider(iface
);
960 FIXME("(%p)\n", This
);
962 return IShellBrowserImpl_QueryInterface((IShellBrowser
*)This
,riid
,ppvObj
);
965 /**************************************************************************
966 * IShellBrowserImpl_IServiceProvider_AddRef
968 static ULONG WINAPI
IShellBrowserImpl_IServiceProvider_AddRef(IServiceProvider
* iface
)
970 IShellBrowserImpl
*This
= impl_from_IServiceProvider(iface
);
972 FIXME("(%p)\n", This
);
974 return IShellBrowserImpl_AddRef((IShellBrowser
*)This
);
977 /**************************************************************************
978 * IShellBrowserImpl_IServiceProvider_Release
980 static ULONG WINAPI
IShellBrowserImpl_IServiceProvider_Release(IServiceProvider
* iface
)
982 IShellBrowserImpl
*This
= impl_from_IServiceProvider(iface
);
984 FIXME("(%p)\n", This
);
986 return IShellBrowserImpl_Release((IShellBrowser
*)This
);
989 /**************************************************************************
990 * IShellBrowserImpl_IServiceProvider_Release
993 * the w2k shellview asks for (guidService = SID_STopLevelBrowser,
994 * riid = IShellBrowser) to call SendControlMsg ().
1000 static HRESULT WINAPI
IShellBrowserImpl_IServiceProvider_QueryService(
1001 IServiceProvider
* iface
,
1002 REFGUID guidService
,
1006 IShellBrowserImpl
*This
= impl_from_IServiceProvider(iface
);
1008 FIXME("(%p)\n\t%s\n\t%s\n", This
,debugstr_guid(guidService
), debugstr_guid(riid
) );
1011 if(guidService
&& IsEqualIID(guidService
, &SID_STopLevelBrowser
))
1013 return IShellBrowserImpl_QueryInterface((IShellBrowser
*)This
,riid
,ppv
);
1015 FIXME("(%p) unknown interface requested\n", This
);
1016 return E_NOINTERFACE
;
1020 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl
=
1023 IShellBrowserImpl_IServiceProvider_QueryInterface
,
1024 IShellBrowserImpl_IServiceProvider_AddRef
,
1025 IShellBrowserImpl_IServiceProvider_Release
,
1026 /* IServiceProvider */
1027 IShellBrowserImpl_IServiceProvider_QueryService