dlls/shell32/contmenu.c

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