dlls/shell32/shv_item_cmenu.c

   1 /*
   2  *      IContextMenu for items in the shellview
   3  *
   4  * Copyright 1998, 2000 Juergen Schmied <juergen.schmied@debitel.net>
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <string.h>
  22
  23 #define NONAMELESSUNION
  24 #define NONAMELESSSTRUCT
  25 #include "winerror.h"
  26 #include "wine/debug.h"
  27
  28 #include "windef.h"
  29 #include "wingdi.h"
  30 #include "pidl.h"
  31 #include "shlguid.h"
  32 #include "undocshell.h"
  33 #include "shlobj.h"
  34
  35 #include "shell32_main.h"
  36 #include "shellfolder.h"
  37
  38 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  39
  40 /**************************************************************************
  41 *  IContextMenu Implementation
  42 */
  43 typedef struct
  44 {       ICOM_VFIELD(IContextMenu);
  45         DWORD           ref;
  46         IShellFolder*   pSFParent;
  47         LPITEMIDLIST    pidl;           /* root pidl */
  48         LPITEMIDLIST    *apidl;         /* array of child pidls */
  49         UINT            cidl;
  50         BOOL            bAllValues;
  51 } ItemCmImpl;
  52
  53
  54 static struct ICOM_VTABLE(IContextMenu) cmvt;
  55
  56 /**************************************************************************
  57 * ISvItemCm_CanRenameItems()
  58 */
  59 static BOOL ISvItemCm_CanRenameItems(ItemCmImpl *This)
  60 {       UINT  i;
  61         DWORD dwAttributes;
  62
  63         TRACE("(%p)->()\n",This);
  64
  65         if(This->apidl)
  66         {
  67           for(i = 0; i < This->cidl; i++){}
  68           if(i > 1) return FALSE;               /* can't rename more than one item at a time*/
  69           dwAttributes = SFGAO_CANRENAME;
  70           IShellFolder_GetAttributesOf(This->pSFParent, 1, (LPCITEMIDLIST*)This->apidl, &dwAttributes);
  71           return dwAttributes & SFGAO_CANRENAME;
  72         }
  73         return FALSE;
  74 }
  75
  76 /**************************************************************************
  77 *   ISvItemCm_Constructor()
  78 */
  79 IContextMenu *ISvItemCm_Constructor(LPSHELLFOLDER pSFParent, LPCITEMIDLIST pidl, LPCITEMIDLIST *apidl, UINT cidl)
  80 {       ItemCmImpl* cm;
  81         UINT  u;
  82
  83         cm = (ItemCmImpl*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(ItemCmImpl));
  84         cm->lpVtbl = &cmvt;
  85         cm->ref = 1;
  86         cm->pidl = ILClone(pidl);
  87         cm->pSFParent = pSFParent;
  88
  89         if(pSFParent) IShellFolder_AddRef(pSFParent);
  90
  91         cm->apidl = _ILCopyaPidl(apidl, cidl);
  92         cm->cidl = cidl;
  93
  94         cm->bAllValues = 1;
  95         for(u = 0; u < cidl; u++)
  96         {
  97           cm->bAllValues &= (_ILIsValue(apidl[u]) ? 1 : 0);
  98         }
  99
 100         TRACE("(%p)->()\n",cm);
 101
 102         return (IContextMenu*)cm;
 103 }
 104
 105 /**************************************************************************
 106 *  ISvItemCm_fnQueryInterface
 107 */
 108 static HRESULT WINAPI ISvItemCm_fnQueryInterface(IContextMenu *iface, REFIID riid, LPVOID *ppvObj)
 109 {
 110         ICOM_THIS(ItemCmImpl, iface);
 111
 112         TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
 113
 114         *ppvObj = NULL;
 115
 116         if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
 117         {
 118           *ppvObj = This;
 119         }
 120         else if(IsEqualIID(riid, &IID_IContextMenu))  /*IContextMenu*/
 121         {
 122           *ppvObj = This;
 123         }
 124         else if(IsEqualIID(riid, &IID_IShellExtInit))  /*IShellExtInit*/
 125         {
 126           FIXME("-- LPSHELLEXTINIT pointer requested\n");
 127         }
 128
 129         if(*ppvObj)
 130         {
 131           IUnknown_AddRef((IUnknown*)*ppvObj);
 132           TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
 133           return S_OK;
 134         }
 135         TRACE("-- Interface: E_NOINTERFACE\n");
 136         return E_NOINTERFACE;
 137 }
 138
 139 /**************************************************************************
 140 *  ISvItemCm_fnAddRef
 141 */
 142 static ULONG WINAPI ISvItemCm_fnAddRef(IContextMenu *iface)
 143 {
 144         ICOM_THIS(ItemCmImpl, iface);
 145
 146         TRACE("(%p)->(count=%lu)\n",This, This->ref);
 147
 148         return ++(This->ref);
 149 }
 150
 151 /**************************************************************************
 152 *  ISvItemCm_fnRelease
 153 */
 154 static ULONG WINAPI ISvItemCm_fnRelease(IContextMenu *iface)
 155 {
 156         ICOM_THIS(ItemCmImpl, iface);
 157
 158         TRACE("(%p)->()\n",This);
 159
 160         if (!--(This->ref))
 161         {
 162           TRACE(" destroying IContextMenu(%p)\n",This);
 163
 164           if(This->pSFParent)
 165             IShellFolder_Release(This->pSFParent);
 166
 167           if(This->pidl)
 168             SHFree(This->pidl);
 169
 170           /*make sure the pidl is freed*/
 171           _ILFreeaPidl(This->apidl, This->cidl);
 172
 173           HeapFree(GetProcessHeap(),0,This);
 174           return 0;
 175         }
 176         return This->ref;
 177 }
 178
 179 /**************************************************************************
 180 *  ICM_InsertItem()
 181 */
 182 void WINAPI _InsertMenuItem (
 183         HMENU hmenu,
 184         UINT indexMenu,
 185         BOOL fByPosition,
 186         UINT wID,
 187         UINT fType,
 188         LPSTR dwTypeData,
 189         UINT fState)
 190 {
 191         MENUITEMINFOA   mii;
 192
 193         ZeroMemory(&mii, sizeof(mii));
 194         mii.cbSize = sizeof(mii);
 195         if (fType == MFT_SEPARATOR)
 196         {
 197           mii.fMask = MIIM_ID | MIIM_TYPE;
 198         }
 199         else
 200         {
 201           mii.fMask = MIIM_ID | MIIM_TYPE | MIIM_STATE;
 202           mii.dwTypeData = dwTypeData;
 203           mii.fState = fState;
 204         }
 205         mii.wID = wID;
 206         mii.fType = fType;
 207         InsertMenuItemA( hmenu, indexMenu, fByPosition, &mii);
 208 }
 209 /**************************************************************************
 210 * ISvItemCm_fnQueryContextMenu()
 211 */
 212
 213 static HRESULT WINAPI ISvItemCm_fnQueryContextMenu(
 214         IContextMenu *iface,
 215         HMENU hmenu,
 216         UINT indexMenu,
 217         UINT idCmdFirst,
 218         UINT idCmdLast,
 219         UINT uFlags)
 220 {
 221         ICOM_THIS(ItemCmImpl, iface);
 222
 223         TRACE("(%p)->(hmenu=%p indexmenu=%x cmdfirst=%x cmdlast=%x flags=%x )\n",This, hmenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
 224
 225         if(!(CMF_DEFAULTONLY & uFlags))
 226         {
 227           if(uFlags & CMF_EXPLORE)
 228           {
 229             if(This->bAllValues)
 230             {
 231               _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Open", MFS_ENABLED);
 232               _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED|MFS_DEFAULT);
 233             }
 234             else
 235             {
 236               _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED|MFS_DEFAULT);
 237               _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Open", MFS_ENABLED);
 238             }
 239           }
 240           else
 241           {
 242             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_OPEN, MFT_STRING, "&Select", MFS_ENABLED|MFS_DEFAULT);
 243           }
 244           _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
 245           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_COPY, MFT_STRING, "&Copy", MFS_ENABLED);
 246           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_CUT, MFT_STRING, "&Cut", MFS_ENABLED);
 247
 248           _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
 249           _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_DELETE, MFT_STRING, "&Delete", MFS_ENABLED);
 250
 251           if(uFlags & CMF_CANRENAME)
 252             _InsertMenuItem(hmenu, indexMenu++, TRUE, FCIDM_SHVIEW_RENAME, MFT_STRING, "&Rename", ISvItemCm_CanRenameItems(This) ? MFS_ENABLED : MFS_DISABLED);
 253
 254           return MAKE_HRESULT(SEVERITY_SUCCESS, 0, (FCIDM_SHVIEWLAST));
 255         }
 256         return MAKE_HRESULT(SEVERITY_SUCCESS, 0, 0);
 257 }
 258
 259 /**************************************************************************
 260 * DoOpenExplore
 261 *
 262 *  for folders only
 263 */
 264
 265 static void DoOpenExplore(
 266         IContextMenu *iface,
 267         HWND hwnd,
 268         LPCSTR verb)
 269 {
 270         ICOM_THIS(ItemCmImpl, iface);
 271
 272         UINT i, bFolderFound = FALSE;
 273         LPITEMIDLIST    pidlFQ;
 274         SHELLEXECUTEINFOA       sei;
 275
 276         /* Find the first item in the list that is not a value. These commands
 277             should never be invoked if there isn't at least one folder item in the list.*/
 278
 279         for(i = 0; i<This->cidl; i++)
 280         {
 281           if(!_ILIsValue(This->apidl[i]))
 282           {
 283             bFolderFound = TRUE;
 284             break;
 285           }
 286         }
 287
 288         if (!bFolderFound) return;
 289
 290         pidlFQ = ILCombine(This->pidl, This->apidl[i]);
 291
 292         ZeroMemory(&sei, sizeof(sei));
 293         sei.cbSize = sizeof(sei);
 294         sei.fMask = SEE_MASK_IDLIST | SEE_MASK_CLASSNAME;
 295         sei.lpIDList = pidlFQ;
 296         sei.lpClass = "folder";
 297         sei.hwnd = hwnd;
 298         sei.nShow = SW_SHOWNORMAL;
 299         sei.lpVerb = verb;
 300         ShellExecuteExA(&sei);
 301         SHFree(pidlFQ);
 302 }
 303
 304 /**************************************************************************
 305 * DoRename
 306 */
 307 static void DoRename(
 308         IContextMenu *iface,
 309         HWND hwnd)
 310 {
 311         ICOM_THIS(ItemCmImpl, iface);
 312
 313         LPSHELLBROWSER  lpSB;
 314         LPSHELLVIEW     lpSV;
 315
 316         TRACE("(%p)->(wnd=%p)\n",This, hwnd);
 317
 318         /* get the active IShellView */
 319         if ((lpSB = (LPSHELLBROWSER)SendMessageA(hwnd, CWM_GETISHELLBROWSER,0,0)))
 320         {
 321           if(SUCCEEDED(IShellBrowser_QueryActiveShellView(lpSB, &lpSV)))
 322           {
 323             TRACE("(sv=%p)\n",lpSV);
 324             IShellView_SelectItem(lpSV, This->apidl[0],
 325               SVSI_DESELECTOTHERS|SVSI_EDIT|SVSI_ENSUREVISIBLE|SVSI_FOCUSED|SVSI_SELECT);
 326             IShellView_Release(lpSV);
 327           }
 328         }
 329 }
 330
 331 /**************************************************************************
 332  * DoDelete
 333  *
 334  * deletes the currently selected items
 335  */
 336 static void DoDelete(IContextMenu *iface)
 337 {
 338         ICOM_THIS(ItemCmImpl, iface);
 339         ISFHelper * psfhlp;
 340
 341         IShellFolder_QueryInterface(This->pSFParent, &IID_ISFHelper, (LPVOID*)&psfhlp);
 342         if (psfhlp)
 343         {
 344           ISFHelper_DeleteItems(psfhlp, This->cidl, (LPCITEMIDLIST *)This->apidl);
 345           ISFHelper_Release(psfhlp);
 346         }
 347 }
 348
 349 /**************************************************************************
 350  * DoCopyOrCut
 351  *
 352  * copies the currently selected items into the clipboard
 353  */
 354 static BOOL DoCopyOrCut(
 355         IContextMenu *iface,
 356         HWND hwnd,
 357         BOOL bCut)
 358 {
 359         ICOM_THIS(ItemCmImpl, iface);
 360
 361         LPSHELLBROWSER  lpSB;
 362         LPSHELLVIEW     lpSV;
 363         LPDATAOBJECT    lpDo;
 364
 365         TRACE("(%p)->(wnd=%p,bCut=0x%08x)\n",This, hwnd, bCut);
 366
 367         if(GetShellOle())
 368         {
 369           /* get the active IShellView */
 370           if ((lpSB = (LPSHELLBROWSER)SendMessageA(hwnd, CWM_GETISHELLBROWSER,0,0)))
 371           {
 372             if (SUCCEEDED(IShellBrowser_QueryActiveShellView(lpSB, &lpSV)))
 373             {
 374               if (SUCCEEDED(IShellView_GetItemObject(lpSV, SVGIO_SELECTION, &IID_IDataObject, (LPVOID*)&lpDo)))
 375               {
 376                 pOleSetClipboard(lpDo);
 377                 IDataObject_Release(lpDo);
 378               }
 379               IShellView_Release(lpSV);
 380             }
 381           }
 382         }
 383         return TRUE;
 384 #if 0
 385 /*
 386   the following code does the copy operation witout ole32.dll
 387   we might need this possibility too (js)
 388 */
 389         BOOL bSuccess = FALSE;
 390
 391         TRACE("(%p)\n", iface);
 392
 393         if(OpenClipboard(NULL))
 394         {
 395           if(EmptyClipboard())
 396           {
 397             IPersistFolder2 * ppf2;
 398             IShellFolder_QueryInterface(This->pSFParent, &IID_IPersistFolder2, (LPVOID*)&ppf2);
 399             if (ppf2)
 400             {
 401               LPITEMIDLIST pidl;
 402               IPersistFolder2_GetCurFolder(ppf2, &pidl);
 403               if(pidl)
 404               {
 405                 HGLOBAL hMem;
 406
 407                 hMem = RenderHDROP(pidl, This->apidl, This->cidl);
 408
 409                 if(SetClipboardData(CF_HDROP, hMem))
 410                 {
 411                   bSuccess = TRUE;
 412                 }
 413                 SHFree(pidl);
 414               }
 415               IPersistFolder2_Release(ppf2);
 416             }
 417
 418           }
 419           CloseClipboard();
 420         }
 421         return bSuccess;
 422 #endif
 423 }
 424 /**************************************************************************
 425 * ISvItemCm_fnInvokeCommand()
 426 */
 427 static HRESULT WINAPI ISvItemCm_fnInvokeCommand(
 428         IContextMenu *iface,
 429         LPCMINVOKECOMMANDINFO lpcmi)
 430 {
 431     ICOM_THIS(ItemCmImpl, iface);
 432
 433     if (lpcmi->cbSize != sizeof(CMINVOKECOMMANDINFO))
 434         FIXME("Is an EX structure\n");
 435
 436     TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n",This,lpcmi,lpcmi->lpVerb, lpcmi->hwnd);
 437
 438     if( HIWORD(lpcmi->lpVerb)==0 && LOWORD(lpcmi->lpVerb) > FCIDM_SHVIEWLAST)
 439     {
 440         TRACE("Invalid Verb %x\n",LOWORD(lpcmi->lpVerb));
 441         return E_INVALIDARG;
 442     }
 443
 444     if (HIWORD(lpcmi->lpVerb) == 0)
 445     {
 446         switch(LOWORD(lpcmi->lpVerb))
 447         {
 448         case FCIDM_SHVIEW_EXPLORE:
 449             TRACE("Verb FCIDM_SHVIEW_EXPLORE\n");
 450             DoOpenExplore(iface, lpcmi->hwnd, "explore");
 451             break;
 452         case FCIDM_SHVIEW_OPEN:
 453             TRACE("Verb FCIDM_SHVIEW_OPEN\n");
 454             DoOpenExplore(iface, lpcmi->hwnd, "open");
 455             break;
 456         case FCIDM_SHVIEW_RENAME:
 457             TRACE("Verb FCIDM_SHVIEW_RENAME\n");
 458             DoRename(iface, lpcmi->hwnd);
 459             break;
 460         case FCIDM_SHVIEW_DELETE:
 461             TRACE("Verb FCIDM_SHVIEW_DELETE\n");
 462             DoDelete(iface);
 463             break;
 464         case FCIDM_SHVIEW_COPY:
 465             TRACE("Verb FCIDM_SHVIEW_COPY\n");
 466             DoCopyOrCut(iface, lpcmi->hwnd, FALSE);
 467             break;
 468         case FCIDM_SHVIEW_CUT:
 469             TRACE("Verb FCIDM_SHVIEW_CUT\n");
 470             DoCopyOrCut(iface, lpcmi->hwnd, TRUE);
 471             break;
 472         default:
 473             FIXME("Unhandled Verb %xl\n",LOWORD(lpcmi->lpVerb));
 474         }
 475     }
 476     else
 477     {
 478         TRACE("Verb is %s\n",debugstr_a(lpcmi->lpVerb));
 479         if (strcmp(lpcmi->lpVerb,"delete")==0)
 480             DoDelete(iface);
 481         else
 482             FIXME("Unhandled string verb %s\n",debugstr_a(lpcmi->lpVerb));
 483     }
 484     return NOERROR;
 485 }
 486
 487 /**************************************************************************
 488 *  ISvItemCm_fnGetCommandString()
 489 */
 490 static HRESULT WINAPI ISvItemCm_fnGetCommandString(
 491         IContextMenu *iface,
 492         UINT idCommand,
 493         UINT uFlags,
 494         UINT* lpReserved,
 495         LPSTR lpszName,
 496         UINT uMaxNameLen)
 497 {
 498         ICOM_THIS(ItemCmImpl, iface);
 499
 500         HRESULT  hr = E_INVALIDARG;
 501
 502         TRACE("(%p)->(idcom=%x flags=%x %p name=%p len=%x)\n",This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
 503
 504         switch(uFlags)
 505         {
 506           case GCS_HELPTEXT:
 507             hr = E_NOTIMPL;
 508             break;
 509
 510           case GCS_VERBA:
 511             switch(idCommand)
 512             {
 513               case FCIDM_SHVIEW_RENAME:
 514                 strcpy((LPSTR)lpszName, "rename");
 515                 hr = NOERROR;
 516                 break;
 517             }
 518             break;
 519
 520              /* NT 4.0 with IE 3.0x or no IE will always call This with GCS_VERBW. In This
 521              case, you need to do the lstrcpyW to the pointer passed.*/
 522           case GCS_VERBW:
 523             switch(idCommand)
 524             { case FCIDM_SHVIEW_RENAME:
 525                 MultiByteToWideChar( CP_ACP, 0, "rename", -1, (LPWSTR)lpszName, uMaxNameLen );
 526                 hr = NOERROR;
 527                 break;
 528             }
 529             break;
 530
 531           case GCS_VALIDATE:
 532             hr = NOERROR;
 533             break;
 534         }
 535         TRACE("-- (%p)->(name=%s)\n",This, lpszName);
 536         return hr;
 537 }
 538
 539 /**************************************************************************
 540 * ISvItemCm_fnHandleMenuMsg()
 541 * NOTES
 542 *  should be only in IContextMenu2 and IContextMenu3
 543 *  is nevertheless called from word95
 544 */
 545 static HRESULT WINAPI ISvItemCm_fnHandleMenuMsg(
 546         IContextMenu *iface,
 547         UINT uMsg,
 548         WPARAM wParam,
 549         LPARAM lParam)
 550 {
 551         ICOM_THIS(ItemCmImpl, iface);
 552
 553         TRACE("(%p)->(msg=%x wp=%x lp=%lx)\n",This, uMsg, wParam, lParam);
 554
 555         return E_NOTIMPL;
 556 }
 557
 558 static struct ICOM_VTABLE(IContextMenu) cmvt =
 559 {
 560         ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
 561         ISvItemCm_fnQueryInterface,
 562         ISvItemCm_fnAddRef,
 563         ISvItemCm_fnRelease,
 564         ISvItemCm_fnQueryContextMenu,
 565         ISvItemCm_fnInvokeCommand,
 566         ISvItemCm_fnGetCommandString,
 567         ISvItemCm_fnHandleMenuMsg,
 568         (void *) 0xdeadbabe     /* just paranoia */
 569 };