dlls/shell32/contmenu.c

   1 /*
   2  *      IContextMenu
   3  *
   4  *      Copyright 1998  Juergen Schmied <juergen.schmied@metronet.de>
   5  */
   6 #include <string.h>
   7
   8 #include "winerror.h"
   9 #include "debug.h"
  10
  11 #include "pidl.h"
  12 #include "wine/obj_base.h"
  13 #include "if_macros.h"
  14 #include "shlguid.h"
  15 #include "shell32_main.h"
  16 #include "shresdef.h"
  17
  18 /**************************************************************************
  19 *  IContextMenu Implementation
  20 */
  21 typedef struct
  22 { ICOM_VTABLE(IContextMenu)* lpvtbl;
  23   DWORD     ref;
  24   LPSHELLFOLDER pSFParent;
  25   LPITEMIDLIST  *aPidls;
  26   BOOL    bAllValues;
  27 } IContextMenuImpl;
  28
  29 static HRESULT WINAPI IContextMenu_fnQueryInterface(IContextMenu *,REFIID , LPVOID *);
  30 static ULONG WINAPI IContextMenu_fnAddRef(IContextMenu *);
  31 static ULONG WINAPI IContextMenu_fnRelease(IContextMenu *);
  32 static HRESULT WINAPI IContextMenu_fnQueryContextMenu(IContextMenu *, HMENU ,UINT ,UINT ,UINT ,UINT);
  33 static HRESULT WINAPI IContextMenu_fnInvokeCommand(IContextMenu *, LPCMINVOKECOMMANDINFO);
  34 static HRESULT WINAPI IContextMenu_fnGetCommandString(IContextMenu *, UINT ,UINT ,LPUINT ,LPSTR ,UINT);
  35 static HRESULT WINAPI IContextMenu_fnHandleMenuMsg(IContextMenu *, UINT, WPARAM, LPARAM);
  36
  37 /* Private Methods */
  38 BOOL IContextMenu_AllocPidlTable(IContextMenuImpl*, DWORD);
  39 void IContextMenu_FreePidlTable(IContextMenuImpl*);
  40 BOOL IContextMenu_CanRenameItems(IContextMenuImpl*);
  41 BOOL IContextMenu_FillPidlTable(IContextMenuImpl*, LPCITEMIDLIST *, UINT);
  42
  43 /**************************************************************************
  44 * IContextMenu VTable
  45 *
  46 */
  47 static struct ICOM_VTABLE(IContextMenu) cmvt = {
  48         IContextMenu_fnQueryInterface,
  49         IContextMenu_fnAddRef,
  50         IContextMenu_fnRelease,
  51         IContextMenu_fnQueryContextMenu,
  52         IContextMenu_fnInvokeCommand,
  53         IContextMenu_fnGetCommandString,
  54         IContextMenu_fnHandleMenuMsg,
  55         (void *) 0xdeadbabe     /* just paranoia */
  56 };
  57
  58 /**************************************************************************
  59 *  IContextMenu_fnQueryInterface
  60 */
  61 static HRESULT WINAPI IContextMenu_fnQueryInterface(IContextMenu *iface, REFIID riid, LPVOID *ppvObj)
  62 { ICOM_THIS(IContextMenuImpl, iface);
  63         char    xriid[50];
  64   WINE_StringFromCLSID((LPCLSID)riid,xriid);
  65   TRACE(shell,"(%p)->(\n\tIID:\t%s,%p)\n",This,xriid,ppvObj);
  66
  67   *ppvObj = NULL;
  68
  69   if(IsEqualIID(riid, &IID_IUnknown))          /*IUnknown*/
  70   { *ppvObj = This;
  71   }
  72   else if(IsEqualIID(riid, &IID_IContextMenu))  /*IContextMenu*/
  73   { *ppvObj = This;
  74   }
  75   else if(IsEqualIID(riid, &IID_IShellExtInit))  /*IShellExtInit*/
  76   { FIXME (shell,"-- LPSHELLEXTINIT pointer requested\n");
  77   }
  78
  79   if(*ppvObj)
  80   {
  81     (*(IContextMenuImpl**)ppvObj)->lpvtbl->fnAddRef(iface);
  82     TRACE(shell,"-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
  83     return S_OK;
  84   }
  85   TRACE(shell,"-- Interface: E_NOINTERFACE\n");
  86   return E_NOINTERFACE;
  87 }
  88
  89 /**************************************************************************
  90 *  IContextMenu_fnAddRef
  91 */
  92 static ULONG WINAPI IContextMenu_fnAddRef(IContextMenu *iface)
  93 { ICOM_THIS(IContextMenuImpl, iface);
  94         TRACE(shell,"(%p)->(count=%lu)\n",This,(This->ref)+1);
  95         shell32_ObjCount++;
  96         return ++(This->ref);
  97 }
  98 /**************************************************************************
  99 *  IContextMenu_fnRelease
 100 */
 101 static ULONG WINAPI IContextMenu_fnRelease(IContextMenu *iface)
 102 {       ICOM_THIS(IContextMenuImpl, iface);
 103         TRACE(shell,"(%p)->()\n",This);
 104
 105         shell32_ObjCount--;
 106
 107         if (!--(This->ref))
 108         { TRACE(shell," destroying IContextMenu(%p)\n",This);
 109
 110           if(This->pSFParent)
 111             This->pSFParent->lpvtbl->fnRelease(This->pSFParent);
 112
 113           /*make sure the pidl is freed*/
 114           if(This->aPidls)
 115           { IContextMenu_FreePidlTable(This);
 116           }
 117
 118           HeapFree(GetProcessHeap(),0,This);
 119           return 0;
 120         }
 121         return This->ref;
 122 }
 123
 124 /**************************************************************************
 125 *   IContextMenu_Constructor()
 126 */
 127 IContextMenu *IContextMenu_Constructor(LPSHELLFOLDER pSFParent, LPCITEMIDLIST *aPidls, UINT uItemCount)
 128 {       IContextMenuImpl* cm;
 129         UINT  u;
 130   FIXME(shell, "HELLO age\n")  ;
 131         cm = (IContextMenuImpl*)HeapAlloc(GetProcessHeap(),0,sizeof(IContextMenuImpl));
 132         cm->lpvtbl=&cmvt;
 133         cm->ref = 1;
 134
 135         cm->pSFParent = pSFParent;
 136         if(cm->pSFParent)
 137            cm->pSFParent->lpvtbl->fnAddRef(cm->pSFParent);
 138
 139         cm->aPidls = NULL;
 140
 141         IContextMenu_AllocPidlTable(cm, uItemCount);
 142
 143         if(cm->aPidls)
 144         { IContextMenu_FillPidlTable(cm, aPidls, uItemCount);
 145         }
 146
 147         cm->bAllValues = 1;
 148         for(u = 0; u < uItemCount; u++)
 149         { cm->bAllValues &= (_ILIsValue(aPidls[u]) ? 1 : 0);
 150         }
 151         TRACE(shell,"(%p)->()\n",cm);
 152         shell32_ObjCount++;
 153         return (IContextMenu*)cm;
 154 }
 155 /**************************************************************************
 156 *  ICM_InsertItem()
 157 */
 158 void WINAPI _InsertMenuItem (HMENU hmenu, UINT indexMenu, BOOL fByPosition,
 159                         UINT wID, UINT fType, LPSTR dwTypeData, UINT fState)
 160 {       MENUITEMINFOA   mii;
 161
 162         ZeroMemory(&mii, sizeof(mii));
 163         mii.cbSize = sizeof(mii);
 164         if (fType == MFT_SEPARATOR)
 165         { mii.fMask = MIIM_ID | MIIM_TYPE;
 166         }
 167         else
 168         { mii.fMask = MIIM_ID | MIIM_TYPE | MIIM_STATE;
 169           mii.dwTypeData = dwTypeData;
 170           mii.fState = MFS_ENABLED | MFS_DEFAULT;
 171         }
 172         mii.wID = wID;
 173         mii.fType = fType;
 174         InsertMenuItemA( hmenu, indexMenu, fByPosition, &mii);
 175 }
 176 /**************************************************************************
 177 * IContextMenu_fnQueryContextMenu()
 178 */
 179
 180 static HRESULT WINAPI IContextMenu_fnQueryContextMenu(IContextMenu *iface, HMENU hmenu, UINT indexMenu,
 181                                                         UINT idCmdFirst,UINT idCmdLast,UINT uFlags)
 182 {       ICOM_THIS(IContextMenuImpl, iface);
 183         BOOL    fExplore ;
 184
 185         TRACE(shell,"(%p)->(hmenu=%x indexmenu=%x cmdfirst=%x cmdlast=%x flags=%x )\n",This, hmenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
 186
 187         if(!(CMF_DEFAULTONLY & uFlags))
 188         { if(!This->bAllValues)
 189           { /* folder menu */
 190             fExplore = uFlags & CMF_EXPLORE;
 191             if(fExplore)
 192             { _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED|MFS_DEFAULT);
 193               _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_OPEN, MFT_STRING, "&Open", MFS_ENABLED);
 194             }
 195             else
 196             { _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_OPEN, MFT_STRING, "&Open", MFS_ENABLED|MFS_DEFAULT);
 197               _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_EXPLORE, MFT_STRING, "&Explore", MFS_ENABLED);
 198             }
 199
 200             if(uFlags & CMF_CANRENAME)
 201             { _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
 202               _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_RENAME, MFT_STRING, "&Rename", (IContextMenu_CanRenameItems(This) ? MFS_ENABLED : MFS_DISABLED));
 203             }
 204           }
 205           else  /* file menu */
 206           { _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_OPEN, MFT_STRING, "&Open", MFS_ENABLED|MFS_DEFAULT);
 207             if(uFlags & CMF_CANRENAME)
 208             { _InsertMenuItem(hmenu, indexMenu++, TRUE, 0, MFT_SEPARATOR, NULL, 0);
 209               _InsertMenuItem(hmenu, indexMenu++, TRUE, idCmdFirst+IDM_RENAME, MFT_STRING, "&Rename", (IContextMenu_CanRenameItems(This) ? MFS_ENABLED : MFS_DISABLED));
 210             }
 211           }
 212           return MAKE_HRESULT(SEVERITY_SUCCESS, 0, (IDM_LAST + 1));
 213         }
 214         return MAKE_HRESULT(SEVERITY_SUCCESS, 0, 0);
 215 }
 216
 217 /**************************************************************************
 218 * IContextMenu_fnInvokeCommand()
 219 */
 220 static HRESULT WINAPI IContextMenu_fnInvokeCommand(IContextMenu *iface, LPCMINVOKECOMMANDINFO lpcmi)
 221 {       ICOM_THIS(IContextMenuImpl, iface);
 222         LPITEMIDLIST    pidlTemp,pidlFQ;
 223         LPSHELLBROWSER  lpSB;
 224         LPSHELLVIEW     lpSV;
 225         HWND    hWndSV;
 226         SHELLEXECUTEINFOA       sei;
 227         int   i;
 228
 229         TRACE(shell,"(%p)->(invcom=%p verb=%p wnd=%x)\n",This,lpcmi,lpcmi->lpVerb, lpcmi->hwnd);
 230
 231         if(HIWORD(lpcmi->lpVerb))
 232         { /* get the active IShellView */
 233           lpSB = (LPSHELLBROWSER)SendMessageA(lpcmi->hwnd, CWM_GETISHELLBROWSER,0,0);
 234           IShellBrowser_QueryActiveShellView(lpSB, &lpSV);      /* does AddRef() on lpSV */
 235           lpSV->lpvtbl->fnGetWindow(lpSV, &hWndSV);
 236
 237           /* these verbs are used by the filedialogs*/
 238           TRACE(shell,"%s\n",lpcmi->lpVerb);
 239           if (! strcmp(lpcmi->lpVerb,CMDSTR_NEWFOLDER))
 240           { FIXME(shell,"%s not implemented\n",lpcmi->lpVerb);
 241           }
 242           else if (! strcmp(lpcmi->lpVerb,CMDSTR_VIEWLIST))
 243           { SendMessageA(hWndSV, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_LISTVIEW,0),0 );
 244           }
 245           else if (! strcmp(lpcmi->lpVerb,CMDSTR_VIEWDETAILS))
 246           { SendMessageA(hWndSV, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_REPORTVIEW,0),0 );
 247           }
 248           else
 249           { FIXME(shell,"please report: unknown verb %s\n",lpcmi->lpVerb);
 250           }
 251           lpSV->lpvtbl->fnRelease(lpSV);
 252           return NOERROR;
 253         }
 254
 255         if(LOWORD(lpcmi->lpVerb) > IDM_LAST)
 256           return E_INVALIDARG;
 257
 258         switch(LOWORD(lpcmi->lpVerb))
 259         { case IDM_EXPLORE:
 260           case IDM_OPEN:
 261             /* Find the first item in the list that is not a value. These commands
 262             should never be invoked if there isn't at least one folder item in the list.*/
 263
 264             for(i = 0; This->aPidls[i]; i++)
 265             { if(!_ILIsValue(This->aPidls[i]))
 266                 break;
 267             }
 268
 269             pidlTemp = ILCombine(((IGenericSFImpl*)(This->pSFParent))->mpidl, This->aPidls[i]);
 270             pidlFQ = ILCombine(((IGenericSFImpl*)(This->pSFParent))->pMyPidl, pidlTemp);
 271             SHFree(pidlTemp);
 272
 273             ZeroMemory(&sei, sizeof(sei));
 274             sei.cbSize = sizeof(sei);
 275             sei.fMask = SEE_MASK_IDLIST | SEE_MASK_CLASSNAME;
 276             sei.lpIDList = pidlFQ;
 277             sei.lpClass = "folder";
 278             sei.hwnd = lpcmi->hwnd;
 279             sei.nShow = SW_SHOWNORMAL;
 280
 281             if(LOWORD(lpcmi->lpVerb) == IDM_EXPLORE)
 282             { sei.lpVerb = "explore";
 283             }
 284             else
 285             { sei.lpVerb = "open";
 286             }
 287             ShellExecuteExA(&sei);
 288             SHFree(pidlFQ);
 289             break;
 290
 291           case IDM_RENAME:
 292             MessageBeep(MB_OK);
 293             /*handle rename for the view here*/
 294             break;
 295         }
 296         return NOERROR;
 297 }
 298
 299 /**************************************************************************
 300 *  IContextMenu_fnGetCommandString()
 301 */
 302 static HRESULT WINAPI IContextMenu_fnGetCommandString(IContextMenu *iface, UINT idCommand,
 303                 UINT uFlags,LPUINT lpReserved,LPSTR lpszName,UINT uMaxNameLen)
 304 {       ICOM_THIS(IContextMenuImpl, iface);
 305         HRESULT  hr = E_INVALIDARG;
 306
 307         TRACE(shell,"(%p)->(idcom=%x flags=%x %p name=%p len=%x)\n",This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
 308
 309         switch(uFlags)
 310         { case GCS_HELPTEXT:
 311             hr = E_NOTIMPL;
 312             break;
 313
 314           case GCS_VERBA:
 315             switch(idCommand)
 316             { case IDM_RENAME:
 317                 strcpy((LPSTR)lpszName, "rename");
 318                 hr = NOERROR;
 319                 break;
 320             }
 321             break;
 322
 323              /* NT 4.0 with IE 3.0x or no IE will always call This with GCS_VERBW. In This
 324              case, you need to do the lstrcpyW to the pointer passed.*/
 325           case GCS_VERBW:
 326             switch(idCommand)
 327             { case IDM_RENAME:
 328                 lstrcpyAtoW((LPWSTR)lpszName, "rename");
 329                 hr = NOERROR;
 330                 break;
 331             }
 332             break;
 333
 334           case GCS_VALIDATE:
 335             hr = NOERROR;
 336             break;
 337         }
 338         TRACE(shell,"-- (%p)->(name=%s)\n",This, lpszName);
 339         return hr;
 340 }
 341
 342 /**************************************************************************
 343 * IContextMenu_fnHandleMenuMsg()
 344 * NOTES
 345 *  should be only in IContextMenu2 and IContextMenu3
 346 *  is nevertheless called from word95
 347 */
 348 static HRESULT WINAPI IContextMenu_fnHandleMenuMsg(IContextMenu *iface, UINT uMsg,WPARAM wParam,LPARAM lParam)
 349 {       ICOM_THIS(IContextMenuImpl, iface);
 350         TRACE(shell,"(%p)->(msg=%x wp=%x lp=%lx)\n",This, uMsg, wParam, lParam);
 351         return E_NOTIMPL;
 352 }
 353
 354
 355
 356 /**************************************************************************
 357 *  IContextMenu_AllocPidlTable()
 358 */
 359 BOOL IContextMenu_AllocPidlTable(IContextMenuImpl *This, DWORD dwEntries)
 360 {       TRACE(shell,"(%p)->(entrys=%lu)\n",This, dwEntries);
 361
 362         /*add one for NULL terminator */
 363         dwEntries++;
 364
 365         This->aPidls = (LPITEMIDLIST*)SHAlloc(dwEntries * sizeof(LPITEMIDLIST));
 366
 367         if(This->aPidls)
 368         { ZeroMemory(This->aPidls, dwEntries * sizeof(LPITEMIDLIST));   /*set all of the entries to NULL*/
 369         }
 370         return (This->aPidls != NULL);
 371 }
 372
 373 /**************************************************************************
 374 * IContextMenu_FreePidlTable()
 375 */
 376 void IContextMenu_FreePidlTable(IContextMenuImpl *This)
 377 {       int   i;
 378
 379         TRACE(shell,"(%p)->()\n",This);
 380
 381         if(This->aPidls)
 382         { for(i = 0; This->aPidls[i]; i++)
 383           { SHFree(This->aPidls[i]);
 384           }
 385
 386           SHFree(This->aPidls);
 387           This->aPidls = NULL;
 388         }
 389 }
 390
 391 /**************************************************************************
 392 * IContextMenu_FillPidlTable()
 393 */
 394 BOOL IContextMenu_FillPidlTable(IContextMenuImpl *This, LPCITEMIDLIST *aPidls, UINT uItemCount)
 395 {   UINT  i;
 396         TRACE(shell,"(%p)->(apidl=%p count=%u)\n",This, aPidls, uItemCount);
 397         if(This->aPidls)
 398         { for(i = 0; i < uItemCount; i++)
 399           { This->aPidls[i] = ILClone(aPidls[i]);
 400           }
 401           return TRUE;
 402         }
 403         return FALSE;
 404 }
 405
 406 /**************************************************************************
 407 * IContextMenu_CanRenameItems()
 408 */
 409 BOOL IContextMenu_CanRenameItems(IContextMenuImpl *This)
 410 {       UINT  i;
 411         DWORD dwAttributes;
 412
 413         TRACE(shell,"(%p)->()\n",This);
 414
 415         if(This->aPidls)
 416         { for(i = 0; This->aPidls[i]; i++){} /*get the number of items assigned to This object*/
 417             if(i > 1)   /*you can't rename more than one item at a time*/
 418             { return FALSE;
 419             }
 420             dwAttributes = SFGAO_CANRENAME;
 421             This->pSFParent->lpvtbl->fnGetAttributesOf(This->pSFParent, i,
 422                                                          (LPCITEMIDLIST*)This->aPidls, &dwAttributes);
 423
 424             return dwAttributes & SFGAO_CANRENAME;
 425         }
 426         return FALSE;
 427 }
 428