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