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