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