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