Sync to Wine-0_9_16:
[reactos.git] / reactos / dll / win32 / comdlg32 / filedlgbrowser.c
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, IShellView *ppshv);
80
81 /**************************************************************************
82 * External Prototypes
83 */
84 extern const char *FileOpenDlgInfosStr;
85
86 extern IShellFolder* GetShellFolderFromPidl(LPITEMIDLIST pidlAbs);
87 extern LPITEMIDLIST GetParentPidl(LPITEMIDLIST pidl);
88 extern LPITEMIDLIST GetPidlFromName(IShellFolder *psf,LPCSTR lpcstrFileName);
89
90 extern int FILEDLG95_LOOKIN_SelectItem(HWND hwnd,LPITEMIDLIST pidl);
91 extern LRESULT SendCustomDlgNotificationMessage(HWND hwndParentDlg, UINT uCode);
92
93
94 /*
95 * Helper functions
96 */
97
98 #define add_flag(a) if (flags & a) {strcat(str, #a );strcat(str," ");}
99 static void COMDLG32_DumpSBSPFlags(UINT uflags)
100 {
101 if (TRACE_ON(commdlg))
102 {
103 unsigned int i;
104 static const struct {
105 DWORD mask;
106 const char *name;
107 } flags[] = {
108 #define FE(x) { x, #x}
109 /* SBSP_DEFBROWSER == 0 */
110 FE(SBSP_SAMEBROWSER),
111 FE(SBSP_NEWBROWSER),
112
113 /* SBSP_DEFMODE == 0 */
114 FE(SBSP_OPENMODE),
115 FE(SBSP_EXPLOREMODE),
116 FE(SBSP_HELPMODE),
117 FE(SBSP_NOTRANSFERHIST),
118
119 /* SBSP_ABSOLUTE == 0 */
120 FE(SBSP_RELATIVE),
121 FE(SBSP_PARENT),
122 FE(SBSP_NAVIGATEBACK),
123 FE(SBSP_NAVIGATEFORWARD),
124 FE(SBSP_ALLOW_AUTONAVIGATE),
125
126 FE(SBSP_NOAUTOSELECT),
127 FE(SBSP_WRITENOHISTORY),
128
129 FE(SBSP_REDIRECT),
130 FE(SBSP_INITIATEDBYHLINKFRAME),
131 };
132 #undef FE
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);
137 DPRINTF("\n");
138 }
139 }
140
141 static void COMDLG32_UpdateCurrentDir(FileOpenDlgInfos *fodInfos)
142 {
143 LPSHELLFOLDER psfDesktop;
144 STRRET strret;
145 HRESULT res;
146
147 res = SHGetDesktopFolder(&psfDesktop);
148 if (FAILED(res))
149 return;
150
151 res = IShellFolder_GetDisplayNameOf(psfDesktop, fodInfos->ShellInfos.pidlAbsCurrent,
152 SHGDN_FORPARSING, &strret);
153 if (SUCCEEDED(res)) {
154 WCHAR wszCurrentDir[MAX_PATH];
155
156 res = StrRetToBufW(&strret, fodInfos->ShellInfos.pidlAbsCurrent, wszCurrentDir, MAX_PATH);
157 if (SUCCEEDED(res))
158 SetCurrentDirectoryW(wszCurrentDir);
159 }
160
161 IShellFolder_Release(psfDesktop);
162 }
163
164 /* copied from shell32 to avoid linking to it */
165 static HRESULT COMDLG32_StrRetToStrNW (LPVOID dest, DWORD len, LPSTRRET src, LPCITEMIDLIST pidl)
166 {
167 TRACE("dest=%p len=0x%lx strret=%p pidl=%p stub\n",dest,len,src,pidl);
168
169 switch (src->uType)
170 {
171 case STRRET_WSTR:
172 lstrcpynW((LPWSTR)dest, src->u.pOleStr, len);
173 COMDLG32_SHFree(src->u.pOleStr);
174 break;
175
176 case STRRET_CSTR:
177 if (len && !MultiByteToWideChar( CP_ACP, 0, src->u.cStr, -1, (LPWSTR)dest, len ))
178 ((LPWSTR)dest)[len-1] = 0;
179 break;
180
181 case STRRET_OFFSET:
182 if (pidl)
183 {
184 if (len && !MultiByteToWideChar( CP_ACP, 0, ((LPCSTR)&pidl->mkid)+src->u.uOffset,
185 -1, (LPWSTR)dest, len ))
186 ((LPWSTR)dest)[len-1] = 0;
187 }
188 break;
189
190 default:
191 FIXME("unknown type!\n");
192 if (len)
193 { *(LPWSTR)dest = '\0';
194 }
195 return(FALSE);
196 }
197 return S_OK;
198 }
199
200 /*
201 * IShellBrowser
202 */
203
204 /**************************************************************************
205 * IShellBrowserImpl_Construct
206 */
207 IShellBrowser * IShellBrowserImpl_Construct(HWND hwndOwner)
208 {
209 IShellBrowserImpl *sb;
210 FileOpenDlgInfos *fodInfos = (FileOpenDlgInfos *) GetPropA(hwndOwner,FileOpenDlgInfosStr);
211
212 sb=(IShellBrowserImpl*)COMDLG32_SHAlloc(sizeof(IShellBrowserImpl));
213
214 /* Initialisation of the member variables */
215 sb->ref=1;
216 sb->hwndOwner = hwndOwner;
217
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);
224
225 TRACE("%p\n", sb);
226
227 return (IShellBrowser *) sb;
228 }
229
230 /***************************************************************************
231 * IShellBrowserImpl_QueryInterface
232 */
233 static HRESULT WINAPI IShellBrowserImpl_QueryInterface(IShellBrowser *iface,
234 REFIID riid,
235 LPVOID *ppvObj)
236 {
237 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
238
239 TRACE("(%p)\n\t%s\n", This, debugstr_guid(riid));
240
241 *ppvObj = NULL;
242
243 if(IsEqualIID(riid, &IID_IUnknown)) /*IUnknown*/
244 { *ppvObj = This;
245 }
246 else if(IsEqualIID(riid, &IID_IOleWindow)) /*IOleWindow*/
247 { *ppvObj = (IOleWindow*)This;
248 }
249
250 else if(IsEqualIID(riid, &IID_IShellBrowser)) /*IShellBrowser*/
251 { *ppvObj = (IShellBrowser*)This;
252 }
253
254 else if(IsEqualIID(riid, &IID_ICommDlgBrowser)) /*ICommDlgBrowser*/
255 { *ppvObj = (ICommDlgBrowser*) &(This->lpVtblCommDlgBrowser);
256 }
257
258 else if(IsEqualIID(riid, &IID_IServiceProvider)) /* IServiceProvider */
259 { *ppvObj = (ICommDlgBrowser*) &(This->lpVtblServiceProvider);
260 }
261
262 if(*ppvObj)
263 { IUnknown_AddRef( (IShellBrowser*) *ppvObj);
264 return S_OK;
265 }
266 FIXME("Unknown interface requested\n");
267 return E_NOINTERFACE;
268 }
269
270 /**************************************************************************
271 * IShellBrowser::AddRef
272 */
273 static ULONG WINAPI IShellBrowserImpl_AddRef(IShellBrowser * iface)
274 {
275 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
276 ULONG ref = InterlockedIncrement(&This->ref);
277
278 TRACE("(%p,%lu)\n", This, ref - 1);
279
280 return ref;
281 }
282
283 /**************************************************************************
284 * IShellBrowserImpl_Release
285 */
286 static ULONG WINAPI IShellBrowserImpl_Release(IShellBrowser * iface)
287 {
288 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
289 ULONG ref = InterlockedDecrement(&This->ref);
290
291 TRACE("(%p,%lu)\n", This, ref + 1);
292
293 if (!ref)
294 {
295 COMDLG32_SHFree(This);
296 TRACE("-- destroyed\n");
297 return 0;
298 }
299 return ref;
300 }
301
302 /*
303 * IOleWindow
304 */
305
306 /**************************************************************************
307 * IShellBrowserImpl_GetWindow (IOleWindow)
308 *
309 * Inherited from IOleWindow::GetWindow
310 *
311 * See Windows documentation for more details
312 *
313 * Note : We will never be window less in the File Open dialog
314 *
315 */
316 static HRESULT WINAPI IShellBrowserImpl_GetWindow(IShellBrowser * iface,
317 HWND * phwnd)
318 {
319 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
320
321 TRACE("(%p)\n", This);
322
323 if(!This->hwndOwner)
324 return E_FAIL;
325
326 *phwnd = This->hwndOwner;
327
328 return (*phwnd) ? S_OK : E_UNEXPECTED;
329
330 }
331
332 /**************************************************************************
333 * IShellBrowserImpl_ContextSensitiveHelp
334 */
335 static HRESULT WINAPI IShellBrowserImpl_ContextSensitiveHelp(IShellBrowser * iface,
336 BOOL fEnterMode)
337 {
338 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
339
340 TRACE("(%p)\n", This);
341
342 /* Feature not implemented */
343 return E_NOTIMPL;
344 }
345
346 /*
347 * IShellBrowser
348 */
349
350 /**************************************************************************
351 * IShellBrowserImpl_BrowseObject
352 *
353 * See Windows documentation on IShellBrowser::BrowseObject for more details
354 *
355 * This function will override user specified flags and will always
356 * use SBSP_DEFBROWSER and SBSP_DEFMODE.
357 */
358 static HRESULT WINAPI IShellBrowserImpl_BrowseObject(IShellBrowser *iface,
359 LPCITEMIDLIST pidl,
360 UINT wFlags)
361 {
362 HRESULT hRes;
363 IShellFolder *psfTmp;
364 IShellView *psvTmp;
365 FileOpenDlgInfos *fodInfos;
366 LPITEMIDLIST pidlTmp;
367 HWND hwndView;
368 HWND hDlgWnd;
369 BOOL bViewHasFocus;
370 RECT rectView;
371
372 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
373
374 TRACE("(%p)(pidl=%p,flags=0x%08x)\n", This, pidl, wFlags);
375 COMDLG32_DumpSBSPFlags(wFlags);
376
377 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
378
379 /* Format the pidl according to its parameter's category */
380 if(wFlags & SBSP_RELATIVE)
381 {
382
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)))
386 {
387 ERR("bind to object failed\n");
388 return hRes;
389 }
390 /* create an absolute pidl */
391 pidlTmp = COMDLG32_PIDL_ILCombine(fodInfos->ShellInfos.pidlAbsCurrent,
392 (LPITEMIDLIST)pidl);
393 }
394 else if(wFlags & SBSP_PARENT)
395 {
396 /* Browse the parent folder (ignores the pidl) */
397 pidlTmp = GetParentPidl(fodInfos->ShellInfos.pidlAbsCurrent);
398 psfTmp = GetShellFolderFromPidl(pidlTmp);
399
400 }
401 else /* SBSP_ABSOLUTE is 0x0000 */
402 {
403 /* An absolute pidl (relative from the desktop) */
404 pidlTmp = COMDLG32_PIDL_ILClone((LPITEMIDLIST)pidl);
405 psfTmp = GetShellFolderFromPidl(pidlTmp);
406 }
407
408 if(!psfTmp)
409 {
410 ERR("could not browse to folder\n");
411 return E_FAIL;
412 }
413
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))
417 {
418 IShellFolder_Release(psfTmp);
419 COMDLG32_SHFree(pidlTmp);
420 TRACE("keep current folder\n");
421 return NOERROR;
422 }
423
424 /* Release the current DataObject */
425 if (fodInfos->Shell.FOIDataObject)
426 {
427 IDataObject_Release(fodInfos->Shell.FOIDataObject);
428 fodInfos->Shell.FOIDataObject = NULL;
429 }
430
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;
435
436 /* Check if listview has focus */
437 bViewHasFocus = IsChild(fodInfos->ShellInfos.hwndView,GetFocus());
438
439 /* Get the foldersettings from the old view */
440 if(fodInfos->Shell.FOIShellView)
441 IShellView_GetCurrentInfo(fodInfos->Shell.FOIShellView, &fodInfos->ShellInfos.folderSettings);
442
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)
447 {
448 IShellView_DestroyViewWindow(fodInfos->Shell.FOIShellView);
449 IShellView_Release(fodInfos->Shell.FOIShellView);
450 }
451 fodInfos->Shell.FOIShellView = psvTmp;
452
453 /* Release old FOIShellFolder and update its value */
454 if (fodInfos->Shell.FOIShellFolder)
455 IShellFolder_Release(fodInfos->Shell.FOIShellFolder);
456 fodInfos->Shell.FOIShellFolder = psfTmp;
457
458 /* Release old pidlAbsCurrent and update its value */
459 COMDLG32_SHFree((LPVOID)fodInfos->ShellInfos.pidlAbsCurrent);
460 fodInfos->ShellInfos.pidlAbsCurrent = pidlTmp;
461
462 COMDLG32_UpdateCurrentDir(fodInfos);
463
464 GetWindowRect(GetDlgItem(This->hwndOwner, IDC_SHELLSTATIC), &rectView);
465 MapWindowPoints(0, This->hwndOwner, (LPPOINT)&rectView, 2);
466
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;
472
473 fodInfos->ShellInfos.hwndView = hwndView;
474
475 /* Set view window control id to 5002 */
476 SetWindowLongPtrW(hwndView, GWLP_ID, lst2);
477
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);
480
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);
484
485 /* Since we destroyed the old view if it had focus set focus to the newly created view */
486 if (bViewHasFocus)
487 SetFocus(fodInfos->ShellInfos.hwndView);
488
489 return hRes;
490 error:
491 ERR("Failed with error 0x%08lx\n", hRes);
492 return hRes;
493 }
494
495 /**************************************************************************
496 * IShellBrowserImpl_EnableModelessSB
497 */
498 static HRESULT WINAPI IShellBrowserImpl_EnableModelessSB(IShellBrowser *iface,
499 BOOL fEnable)
500
501 {
502 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
503
504 TRACE("(%p)\n", This);
505
506 /* Feature not implemented */
507 return E_NOTIMPL;
508 }
509
510 /**************************************************************************
511 * IShellBrowserImpl_GetControlWindow
512 */
513 static HRESULT WINAPI IShellBrowserImpl_GetControlWindow(IShellBrowser *iface,
514 UINT id,
515 HWND *lphwnd)
516
517 {
518 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
519
520 TRACE("(%p)\n", This);
521
522 /* Feature not implemented */
523 return E_NOTIMPL;
524 }
525
526 /**************************************************************************
527 * IShellBrowserImpl_GetViewStateStream
528 */
529 static HRESULT WINAPI IShellBrowserImpl_GetViewStateStream(IShellBrowser *iface,
530 DWORD grfMode,
531 LPSTREAM *ppStrm)
532
533 {
534 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
535
536 FIXME("(%p 0x%08lx %p)\n", This, grfMode, ppStrm);
537
538 /* Feature not implemented */
539 return E_NOTIMPL;
540 }
541
542 /**************************************************************************
543 * IShellBrowserImpl_InsertMenusSB
544 */
545 static HRESULT WINAPI IShellBrowserImpl_InsertMenusSB(IShellBrowser *iface,
546 HMENU hmenuShared,
547 LPOLEMENUGROUPWIDTHS lpMenuWidths)
548
549 {
550 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
551
552 TRACE("(%p)\n", This);
553
554 /* Feature not implemented */
555 return E_NOTIMPL;
556 }
557
558 /**************************************************************************
559 * IShellBrowserImpl_OnViewWindowActive
560 */
561 static HRESULT WINAPI IShellBrowserImpl_OnViewWindowActive(IShellBrowser *iface,
562 IShellView *ppshv)
563
564 {
565 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
566
567 TRACE("(%p)\n", This);
568
569 /* Feature not implemented */
570 return E_NOTIMPL;
571 }
572
573 /**************************************************************************
574 * IShellBrowserImpl_QueryActiveShellView
575 */
576 static HRESULT WINAPI IShellBrowserImpl_QueryActiveShellView(IShellBrowser *iface,
577 IShellView **ppshv)
578
579 {
580 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
581
582 FileOpenDlgInfos *fodInfos;
583
584 TRACE("(%p)\n", This);
585
586 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
587
588 if(!(*ppshv = fodInfos->Shell.FOIShellView))
589 {
590 return E_FAIL;
591 }
592 IShellView_AddRef(fodInfos->Shell.FOIShellView);
593 return NOERROR;
594 }
595
596 /**************************************************************************
597 * IShellBrowserImpl_RemoveMenusSB
598 */
599 static HRESULT WINAPI IShellBrowserImpl_RemoveMenusSB(IShellBrowser *iface,
600 HMENU hmenuShared)
601
602 {
603 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
604
605 TRACE("(%p)\n", This);
606
607 /* Feature not implemented */
608 return E_NOTIMPL;
609 }
610
611 /**************************************************************************
612 * IShellBrowserImpl_SendControlMsg
613 */
614 static HRESULT WINAPI IShellBrowserImpl_SendControlMsg(IShellBrowser *iface,
615 UINT id,
616 UINT uMsg,
617 WPARAM wParam,
618 LPARAM lParam,
619 LRESULT *pret)
620
621 {
622 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
623 LRESULT lres;
624
625 TRACE("(%p)->(0x%08x 0x%08x 0x%08x 0x%08lx %p)\n", This, id, uMsg, wParam, lParam, pret);
626
627 switch (id)
628 {
629 case FCW_TOOLBAR:
630 lres = SendDlgItemMessageA( This->hwndOwner, IDC_TOOLBAR, uMsg, wParam, lParam);
631 break;
632 default:
633 FIXME("ctrl id: %x\n", id);
634 return E_NOTIMPL;
635 }
636 if (pret) *pret = lres;
637 return S_OK;
638 }
639
640 /**************************************************************************
641 * IShellBrowserImpl_SetMenuSB
642 */
643 static HRESULT WINAPI IShellBrowserImpl_SetMenuSB(IShellBrowser *iface,
644 HMENU hmenuShared,
645 HOLEMENU holemenuReserved,
646 HWND hwndActiveObject)
647
648 {
649 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
650
651 TRACE("(%p)\n", This);
652
653 /* Feature not implemented */
654 return E_NOTIMPL;
655 }
656
657 /**************************************************************************
658 * IShellBrowserImpl_SetStatusTextSB
659 */
660 static HRESULT WINAPI IShellBrowserImpl_SetStatusTextSB(IShellBrowser *iface,
661 LPCOLESTR lpszStatusText)
662
663 {
664 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
665
666 TRACE("(%p)\n", This);
667
668 /* Feature not implemented */
669 return E_NOTIMPL;
670 }
671
672 /**************************************************************************
673 * IShellBrowserImpl_SetToolbarItems
674 */
675 static HRESULT WINAPI IShellBrowserImpl_SetToolbarItems(IShellBrowser *iface,
676 LPTBBUTTON lpButtons,
677 UINT nButtons,
678 UINT uFlags)
679
680 {
681 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
682
683 TRACE("(%p)\n", This);
684
685 /* Feature not implemented */
686 return E_NOTIMPL;
687 }
688
689 /**************************************************************************
690 * IShellBrowserImpl_TranslateAcceleratorSB
691 */
692 static HRESULT WINAPI IShellBrowserImpl_TranslateAcceleratorSB(IShellBrowser *iface,
693 LPMSG lpmsg,
694 WORD wID)
695
696 {
697 IShellBrowserImpl *This = (IShellBrowserImpl *)iface;
698
699 TRACE("(%p)\n", This);
700
701 /* Feature not implemented */
702 return E_NOTIMPL;
703 }
704
705 static const IShellBrowserVtbl IShellBrowserImpl_Vtbl =
706 {
707 /* IUnknown */
708 IShellBrowserImpl_QueryInterface,
709 IShellBrowserImpl_AddRef,
710 IShellBrowserImpl_Release,
711 /* IOleWindow */
712 IShellBrowserImpl_GetWindow,
713 IShellBrowserImpl_ContextSensitiveHelp,
714 /* IShellBrowser */
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
728 };
729
730
731
732 /*
733 * ICommDlgBrowser
734 */
735
736 /***************************************************************************
737 * IShellBrowserImpl_ICommDlgBrowser_QueryInterface
738 */
739 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_QueryInterface(
740 ICommDlgBrowser *iface,
741 REFIID riid,
742 LPVOID *ppvObj)
743 {
744 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
745
746 TRACE("(%p)\n", This);
747
748 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
749 }
750
751 /**************************************************************************
752 * IShellBrowserImpl_ICommDlgBrowser_AddRef
753 */
754 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_AddRef(ICommDlgBrowser * iface)
755 {
756 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
757
758 TRACE("(%p)\n", This);
759
760 return IShellBrowserImpl_AddRef((IShellBrowser *)This);
761 }
762
763 /**************************************************************************
764 * IShellBrowserImpl_ICommDlgBrowser_Release
765 */
766 static ULONG WINAPI IShellBrowserImpl_ICommDlgBrowser_Release(ICommDlgBrowser * iface)
767 {
768 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
769
770 TRACE("(%p)\n", This);
771
772 return IShellBrowserImpl_Release((IShellBrowser *)This);
773 }
774
775 /**************************************************************************
776 * IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand
777 *
778 * Called when a user double-clicks in the view or presses the ENTER key
779 */
780 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnDefaultCommand(ICommDlgBrowser *iface,
781 IShellView *ppshv)
782 {
783 LPITEMIDLIST pidl;
784 FileOpenDlgInfos *fodInfos;
785
786 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
787
788 TRACE("(%p)\n", This);
789
790 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
791
792 /* If the selected object is not a folder, send an IDOK command to parent window */
793 if((pidl = GetPidlFromDataObject(fodInfos->Shell.FOIDataObject, 1)))
794 {
795 HRESULT hRes;
796
797 ULONG ulAttr = SFGAO_FOLDER | SFGAO_HASSUBFOLDER;
798 IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, (LPCITEMIDLIST *)&pidl, &ulAttr);
799 if (ulAttr & (SFGAO_FOLDER | SFGAO_HASSUBFOLDER) )
800 {
801 hRes = IShellBrowser_BrowseObject((IShellBrowser *)This,pidl,SBSP_RELATIVE);
802 SendCustomDlgNotificationMessage(This->hwndOwner, CDN_FOLDERCHANGE);
803 }
804 else
805 {
806 /* Tell the dialog that the user selected a file */
807 PostMessageA(This->hwndOwner, WM_COMMAND, IDOK, 0L);
808 hRes = S_OK;
809 }
810
811 /* Free memory used by pidl */
812 COMDLG32_SHFree((LPVOID)pidl);
813
814 return hRes;
815 }
816
817 return E_FAIL;
818 }
819
820 /**************************************************************************
821 * IShellBrowserImpl_ICommDlgBrowser_OnStateChange
822 */
823 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_OnStateChange(ICommDlgBrowser *iface,
824 IShellView *ppshv,
825 ULONG uChange)
826 {
827
828 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
829
830 TRACE("(%p shv=%p)\n", This, ppshv);
831
832 switch (uChange)
833 {
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);
840
841 break;
842 case CDBOSC_KILLFOCUS:
843 {
844 FileOpenDlgInfos *fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
845 if(fodInfos->DlgInfos.dwDlgProp & FODPROP_SAVEDLG)
846 SetDlgItemTextA(fodInfos->ShellInfos.hwndOwner,IDOK,"&Save");
847 }
848 break;
849 case CDBOSC_SELCHANGE:
850 return IShellBrowserImpl_ICommDlgBrowser_OnSelChange(iface,ppshv);
851 case CDBOSC_RENAME:
852 /* nothing to do */
853 break;
854 }
855
856 return NOERROR;
857 }
858
859 /**************************************************************************
860 * IShellBrowserImpl_ICommDlgBrowser_IncludeObject
861 */
862 static HRESULT WINAPI IShellBrowserImpl_ICommDlgBrowser_IncludeObject(ICommDlgBrowser *iface,
863 IShellView * ppshv,
864 LPCITEMIDLIST pidl)
865 {
866 FileOpenDlgInfos *fodInfos;
867 ULONG ulAttr;
868 STRRET str;
869 WCHAR szPathW[MAX_PATH];
870
871 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
872
873 TRACE("(%p)\n", This);
874
875 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
876
877 ulAttr = SFGAO_HIDDEN | SFGAO_FOLDER | SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR | SFGAO_LINK;
878 IShellFolder_GetAttributesOf(fodInfos->Shell.FOIShellFolder, 1, &pidl, &ulAttr);
879
880 if( (ulAttr & SFGAO_HIDDEN) /* hidden */
881 | !(ulAttr & (SFGAO_FILESYSTEM | SFGAO_FILESYSANCESTOR))) /* special folder */
882 return S_FALSE;
883
884 /* always include directories and links */
885 if(ulAttr & (SFGAO_FOLDER | SFGAO_LINK))
886 return S_OK;
887
888 /* Check if there is a mask to apply if not */
889 if(!fodInfos->ShellInfos.lpstrCurrentFilter || !lstrlenW(fodInfos->ShellInfos.lpstrCurrentFilter))
890 return S_OK;
891
892 if (SUCCEEDED(IShellFolder_GetDisplayNameOf(fodInfos->Shell.FOIShellFolder, pidl, SHGDN_INFOLDER | SHGDN_FORPARSING, &str)))
893 {
894 if (SUCCEEDED(COMDLG32_StrRetToStrNW(szPathW, MAX_PATH, &str, pidl)))
895 {
896 if (PathMatchSpecW(szPathW, fodInfos->ShellInfos.lpstrCurrentFilter))
897 return S_OK;
898 }
899 }
900 return S_FALSE;
901
902 }
903
904 /**************************************************************************
905 * IShellBrowserImpl_ICommDlgBrowser_OnSelChange
906 */
907 static HRESULT IShellBrowserImpl_ICommDlgBrowser_OnSelChange(ICommDlgBrowser *iface, IShellView *ppshv)
908 {
909 FileOpenDlgInfos *fodInfos;
910
911 IShellBrowserImpl *This = impl_from_ICommDlgBrowser(iface);
912
913 fodInfos = (FileOpenDlgInfos *) GetPropA(This->hwndOwner,FileOpenDlgInfosStr);
914 TRACE("(%p do=%p view=%p)\n", This, fodInfos->Shell.FOIDataObject, fodInfos->Shell.FOIShellView);
915
916 /* release old selections */
917 if (fodInfos->Shell.FOIDataObject)
918 IDataObject_Release(fodInfos->Shell.FOIDataObject);
919
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)))
923 return E_FAIL;
924
925 FILEDLG95_FILENAME_FillFromSelection(This->hwndOwner);
926
927 SendCustomDlgNotificationMessage(This->hwndOwner, CDN_SELCHANGE);
928 return S_OK;
929 }
930
931 static const ICommDlgBrowserVtbl IShellBrowserImpl_ICommDlgBrowser_Vtbl =
932 {
933 /* IUnknown */
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
941 };
942
943
944
945
946 /*
947 * IServiceProvider
948 */
949
950 /***************************************************************************
951 * IShellBrowserImpl_IServiceProvider_QueryInterface
952 */
953 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryInterface(
954 IServiceProvider *iface,
955 REFIID riid,
956 LPVOID *ppvObj)
957 {
958 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
959
960 FIXME("(%p)\n", This);
961
962 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppvObj);
963 }
964
965 /**************************************************************************
966 * IShellBrowserImpl_IServiceProvider_AddRef
967 */
968 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_AddRef(IServiceProvider * iface)
969 {
970 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
971
972 FIXME("(%p)\n", This);
973
974 return IShellBrowserImpl_AddRef((IShellBrowser *)This);
975 }
976
977 /**************************************************************************
978 * IShellBrowserImpl_IServiceProvider_Release
979 */
980 static ULONG WINAPI IShellBrowserImpl_IServiceProvider_Release(IServiceProvider * iface)
981 {
982 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
983
984 FIXME("(%p)\n", This);
985
986 return IShellBrowserImpl_Release((IShellBrowser *)This);
987 }
988
989 /**************************************************************************
990 * IShellBrowserImpl_IServiceProvider_Release
991 *
992 * NOTES
993 * the w2k shellview asks for (guidService = SID_STopLevelBrowser,
994 * riid = IShellBrowser) to call SendControlMsg ().
995 *
996 * FIXME
997 * this is a hack!
998 */
999
1000 static HRESULT WINAPI IShellBrowserImpl_IServiceProvider_QueryService(
1001 IServiceProvider * iface,
1002 REFGUID guidService,
1003 REFIID riid,
1004 void** ppv)
1005 {
1006 IShellBrowserImpl *This = impl_from_IServiceProvider(iface);
1007
1008 FIXME("(%p)\n\t%s\n\t%s\n", This,debugstr_guid(guidService), debugstr_guid(riid) );
1009
1010 *ppv = NULL;
1011 if(guidService && IsEqualIID(guidService, &SID_STopLevelBrowser))
1012 {
1013 return IShellBrowserImpl_QueryInterface((IShellBrowser *)This,riid,ppv);
1014 }
1015 FIXME("(%p) unknown interface requested\n", This);
1016 return E_NOINTERFACE;
1017
1018 }
1019
1020 static const IServiceProviderVtbl IShellBrowserImpl_IServiceProvider_Vtbl =
1021 {
1022 /* IUnknown */
1023 IShellBrowserImpl_IServiceProvider_QueryInterface,
1024 IShellBrowserImpl_IServiceProvider_AddRef,
1025 IShellBrowserImpl_IServiceProvider_Release,
1026 /* IServiceProvider */
1027 IShellBrowserImpl_IServiceProvider_QueryService
1028 };