1 /*
2 * IContextMenu for items in the shellview
3 *
4 * Copyright 1998-2000 Juergen Schmied <juergen.schmied@debitel.net>,
5 * <juergen.schmied@metronet.de>
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 */
21
22 #include <string.h>
23
24 #define COBJMACROS
25 #define NONAMELESSUNION
26 #define NONAMELESSSTRUCT
27
28 #include "winerror.h"
29 #include "wine/debug.h"
30
31 #include "windef.h"
32 #include "wingdi.h"
33 #include "pidl.h"
34 #include "undocshell.h"
35 #include "shlobj.h"
36 #include "winreg.h"
37 #include "prsht.h"
38
39 #include "shell32_main.h"
40 #include "shellfolder.h"
41
42 #include "shresdef.h"
43
44 WINE_DEFAULT_DEBUG_CHANNEL(shell);
45
46 typedef struct
47 {
48 IContextMenu3 IContextMenu3_iface;
49 LONG ref;
50
51 IShellFolder* parent;
52 UINT verb_offset;
53
54 /* item menu data */
55 LPITEMIDLIST pidl; /* root pidl */
56 LPITEMIDLIST *apidl; /* array of child pidls */
57 UINT cidl;
58 BOOL allvalues;
59
60 /* background menu data */
61 BOOL desktop;
62 } ContextMenu;
63
64 static inline ContextMenu *impl_from_IContextMenu3(IContextMenu3 *iface)
65 {
66 return CONTAINING_RECORD(iface, ContextMenu, IContextMenu3_iface);
67 }
68
69 static HRESULT WINAPI ContextMenu_QueryInterface(IContextMenu3 *iface, REFIID riid, LPVOID *ppvObj)
70 {
71 ContextMenu *This = impl_from_IContextMenu3(iface);
72
73 TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObj);
74
75 *ppvObj = NULL;
76
77 if (IsEqualIID(riid, &IID_IUnknown) ||
78 IsEqualIID(riid, &IID_IContextMenu) ||
79 IsEqualIID(riid, &IID_IContextMenu2) ||
80 IsEqualIID(riid, &IID_IContextMenu3))
81 {
82 *ppvObj = This;
83 }
84 else if (IsEqualIID(riid, &IID_IShellExtInit)) /*IShellExtInit*/
85 {
86 FIXME("-- LPSHELLEXTINIT pointer requested\n");
87 }
88
89 if(*ppvObj)
90 {
91 IContextMenu3_AddRef(iface);
92 return S_OK;
93 }
94
95 TRACE("-- Interface: E_NOINTERFACE\n");
96 return E_NOINTERFACE;
97 }
98
99 static ULONG WINAPI ContextMenu_AddRef(IContextMenu3 *iface)
100 {
101 ContextMenu *This = impl_from_IContextMenu3(iface);
102 ULONG ref = InterlockedIncrement(&This->ref);
103 TRACE("(%p)->(%u)\n", This, ref);
104 return ref;
105 }
106
107 static ULONG WINAPI ContextMenu_Release(IContextMenu3 *iface)
108 {
109 ContextMenu *This = impl_from_IContextMenu3(iface);
110 ULONG ref = InterlockedDecrement(&This->ref);
111
112 TRACE("(%p)->(%u)\n", This, ref);
113
114 if (!ref)
115 {
116 if(This->parent)
117 IShellFolder_Release(This->parent);
118
119 SHFree(This->pidl);
120 _ILFreeaPidl(This->apidl, This->cidl);
121
122 HeapFree(GetProcessHeap(), 0, This);
123 }
124
125 return ref;
126 }
127
128 static HRESULT WINAPI ItemMenu_QueryContextMenu(
129 IContextMenu3 *iface,
130 HMENU hmenu,
131 UINT indexMenu,
132 UINT idCmdFirst,
133 UINT idCmdLast,
134 UINT uFlags)
135 {
136 ContextMenu *This = impl_from_IContextMenu3(iface);
137 INT uIDMax;
138
139 TRACE("(%p)->(%p %d 0x%x 0x%x 0x%x )\n", This, hmenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
140
141 This->verb_offset = idCmdFirst;
142
143 if(!(CMF_DEFAULTONLY & uFlags) && This->cidl > 0)
144 {
145 HMENU hmenures = LoadMenuW(shell32_hInstance, MAKEINTRESOURCEW(MENU_SHV_FILE));
146
147 if(uFlags & CMF_EXPLORE)
148 RemoveMenu(hmenures, FCIDM_SHVIEW_OPEN, MF_BYCOMMAND);
149
150 uIDMax = Shell_MergeMenus(hmenu, GetSubMenu(hmenures, 0), indexMenu, idCmdFirst, idCmdLast, MM_SUBMENUSHAVEIDS);
151
152 DestroyMenu(hmenures);
153
154 if(This->allvalues)
155 {
156 MENUITEMINFOW mi;
157 WCHAR str[255];
158 mi.cbSize = sizeof(mi);
159 mi.fMask = MIIM_ID | MIIM_STRING | MIIM_FTYPE;
160 mi.dwTypeData = str;
161 mi.cch = 255;
162 GetMenuItemInfoW(hmenu, FCIDM_SHVIEW_EXPLORE, MF_BYCOMMAND, &mi);
163 RemoveMenu(hmenu, FCIDM_SHVIEW_EXPLORE, MF_BYCOMMAND);
164
165 mi.cbSize = sizeof(mi);
166 mi.fMask = MIIM_ID | MIIM_TYPE | MIIM_STATE;
167 mi.dwTypeData = str;
168 mi.fState = MFS_ENABLED;
169 mi.wID = FCIDM_SHVIEW_EXPLORE;
170 mi.fType = MFT_STRING;
171 InsertMenuItemW(hmenu, (uFlags & CMF_EXPLORE) ? 1 : 2, MF_BYPOSITION, &mi);
172 }
173
174 SetMenuDefaultItem(hmenu, 0, MF_BYPOSITION);
175
176 if(uFlags & ~CMF_CANRENAME)
177 RemoveMenu(hmenu, FCIDM_SHVIEW_RENAME, MF_BYCOMMAND);
178 else
179 {
180 UINT enable = MF_BYCOMMAND;
181
182 /* can't rename more than one item at a time*/
183 if (!This->apidl || This->cidl > 1)
184 enable |= MFS_DISABLED;
185 else
186 {
187 DWORD attr = SFGAO_CANRENAME;
188
189 IShellFolder_GetAttributesOf(This->parent, 1, (LPCITEMIDLIST*)This->apidl, &attr);
190 enable |= (attr & SFGAO_CANRENAME) ? MFS_ENABLED : MFS_DISABLED;
191 }
192
193 EnableMenuItem(hmenu, FCIDM_SHVIEW_RENAME, enable);
194 }
195
196 return MAKE_HRESULT(SEVERITY_SUCCESS, 0, uIDMax-idCmdFirst);
197 }
198 return MAKE_HRESULT(SEVERITY_SUCCESS, 0, 0);
199 }
200
201 /**************************************************************************
202 * DoOpenExplore
203 *
204 * for folders only
205 */
206
207 static void DoOpenExplore(ContextMenu *This, HWND hwnd, LPCSTR verb)
208 {
209 UINT i, bFolderFound = FALSE;
210 LPITEMIDLIST pidlFQ;
211 SHELLEXECUTEINFOA sei;
212
213 /* Find the first item in the list that is not a value. These commands
214 should never be invoked if there isn't at least one folder item in the list.*/
215
216 for(i = 0; i<This->cidl; i++)
217 {
218 if(!_ILIsValue(This->apidl[i]))
219 {
220 bFolderFound = TRUE;
221 break;
222 }
223 }
224
225 if (!bFolderFound) return;
226
227 pidlFQ = ILCombine(This->pidl, This->apidl[i]);
228
229 ZeroMemory(&sei, sizeof(sei));
230 sei.cbSize = sizeof(sei);
231 sei.fMask = SEE_MASK_IDLIST | SEE_MASK_CLASSNAME;
232 sei.lpIDList = pidlFQ;
233 sei.lpClass = "Folder";
234 sei.hwnd = hwnd;
235 sei.nShow = SW_SHOWNORMAL;
236 sei.lpVerb = verb;
237 ShellExecuteExA(&sei);
238 SHFree(pidlFQ);
239 }
240
241 /**************************************************************************
242 * DoDelete
243 *
244 * deletes the currently selected items
245 */
246 static void DoDelete(ContextMenu *This)
247 {
248 ISFHelper *helper;
249
250 IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&helper);
251 if (helper)
252 {
253 ISFHelper_DeleteItems(helper, This->cidl, (LPCITEMIDLIST*)This->apidl);
254 ISFHelper_Release(helper);
255 }
256 }
257
258 /**************************************************************************
259 * DoCopyOrCut
260 *
261 * copies the currently selected items into the clipboard
262 */
263 static BOOL DoCopyOrCut(ContextMenu *This, HWND hwnd, BOOL cut)
264 {
265 IDataObject *dataobject;
266 IShellBrowser *browser;
267 IShellView *view;
268
269 TRACE("(%p)->(wnd=%p, cut=%d)\n", This, hwnd, cut);
270
271 /* get the active IShellView */
272 if ((browser = (IShellBrowser*)SendMessageA(hwnd, CWM_GETISHELLBROWSER, 0, 0)))
273 {
274 if (SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
275 {
276 if (SUCCEEDED(IShellView_GetItemObject(view, SVGIO_SELECTION, &IID_IDataObject, (void**)&dataobject)))
277 {
278 OleSetClipboard(dataobject);
279 IDataObject_Release(dataobject);
280 }
281 IShellView_Release(view);
282 }
283 }
284
285 return TRUE;
286 }
287
288 /**************************************************************************
289 * Properties_AddPropSheetCallback
290 *
291 * Used by DoOpenProperties through SHCreatePropSheetExtArrayEx to add
292 * propertysheet pages from shell extensions.
293 */
294 static BOOL CALLBACK Properties_AddPropSheetCallback(HPROPSHEETPAGE hpage, LPARAM lparam)
295 {
296 LPPROPSHEETHEADERW psh = (LPPROPSHEETHEADERW) lparam;
297 psh->u3.phpage[psh->nPages++] = hpage;
298
299 return TRUE;
300 }
301
302 static void DoOpenProperties(ContextMenu *This, HWND hwnd)
303 {
304 static const UINT MAX_PROP_PAGES = 99;
305 static const WCHAR wszFolder[] = {'F','o','l','d','e','r', 0};
306 static const WCHAR wszFiletypeAll[] = {'*',0};
307 LPSHELLFOLDER lpDesktopSF;
308 LPSHELLFOLDER lpSF;
309 LPDATAOBJECT lpDo;
310 WCHAR wszFiletype[MAX_PATH];
311 WCHAR wszFilename[MAX_PATH];
312 PROPSHEETHEADERW psh;
313 HPROPSHEETPAGE hpages[MAX_PROP_PAGES];
314 HPSXA hpsxa;
315 UINT ret;
316
317 TRACE("(%p)->(wnd=%p)\n", This, hwnd);
318
319 ZeroMemory(&psh, sizeof(PROPSHEETHEADERW));
320 psh.dwSize = sizeof (PROPSHEETHEADERW);
321 psh.hwndParent = hwnd;
322 psh.dwFlags = PSH_PROPTITLE;
323 psh.nPages = 0;
324 psh.u3.phpage = hpages;
325 psh.u2.nStartPage = 0;
326
327 _ILSimpleGetTextW(This->apidl[0], (LPVOID)wszFilename, MAX_PATH);
328 psh.pszCaption = (LPCWSTR)wszFilename;
329
330 /* Find out where to look for the shell extensions */
331 if (_ILIsValue(This->apidl[0]))
332 {
333 char sTemp[64];
334 sTemp[0] = 0;
335 if (_ILGetExtension(This->apidl[0], sTemp, 64))
336 {
337 HCR_MapTypeToValueA(sTemp, sTemp, 64, TRUE);
338 MultiByteToWideChar(CP_ACP, 0, sTemp, -1, wszFiletype, MAX_PATH);
339 }
340 else
341 {
342 wszFiletype[0] = 0;
343 }
344 }
345 else if (_ILIsFolder(This->apidl[0]))
346 {
347 lstrcpynW(wszFiletype, wszFolder, 64);
348 }
349 else if (_ILIsSpecialFolder(This->apidl[0]))
350 {
351 LPGUID folderGUID;
352 static const WCHAR wszclsid[] = {'C','L','S','I','D','\\', 0};
353 folderGUID = _ILGetGUIDPointer(This->apidl[0]);
354 lstrcpyW(wszFiletype, wszclsid);
355 StringFromGUID2(folderGUID, &wszFiletype[6], MAX_PATH - 6);
356 }
357 else
358 {
359 FIXME("Requested properties for unknown type.\n");
360 return;
361 }
362
363 /* Get a suitable DataObject for accessing the files */
364 SHGetDesktopFolder(&lpDesktopSF);
365 if (_ILIsPidlSimple(This->pidl))
366 {
367 ret = IShellFolder_GetUIObjectOf(lpDesktopSF, hwnd, This->cidl, (LPCITEMIDLIST*)This->apidl,
368 &IID_IDataObject, NULL, (LPVOID *)&lpDo);
369 IShellFolder_Release(lpDesktopSF);
370 }
371 else
372 {
373 IShellFolder_BindToObject(lpDesktopSF, This->pidl, NULL, &IID_IShellFolder, (LPVOID*) &lpSF);
374 ret = IShellFolder_GetUIObjectOf(lpSF, hwnd, This->cidl, (LPCITEMIDLIST*)This->apidl,
375 &IID_IDataObject, NULL, (LPVOID *)&lpDo);
376 IShellFolder_Release(lpSF);
377 IShellFolder_Release(lpDesktopSF);
378 }
379
380 if (SUCCEEDED(ret))
381 {
382 hpsxa = SHCreatePropSheetExtArrayEx(HKEY_CLASSES_ROOT, wszFiletype, MAX_PROP_PAGES - psh.nPages, lpDo);
383 if (hpsxa != NULL)
384 {
385 SHAddFromPropSheetExtArray(hpsxa, Properties_AddPropSheetCallback, (LPARAM)&psh);
386 SHDestroyPropSheetExtArray(hpsxa);
387 }
388 hpsxa = SHCreatePropSheetExtArrayEx(HKEY_CLASSES_ROOT, wszFiletypeAll, MAX_PROP_PAGES - psh.nPages, lpDo);
389 if (hpsxa != NULL)
390 {
391 SHAddFromPropSheetExtArray(hpsxa, Properties_AddPropSheetCallback, (LPARAM)&psh);
392 SHDestroyPropSheetExtArray(hpsxa);
393 }
394 IDataObject_Release(lpDo);
395 }
396
397 if (psh.nPages)
398 PropertySheetW(&psh);
399 else
400 FIXME("No property pages found.\n");
401 }
402
403 static HRESULT WINAPI ItemMenu_InvokeCommand(
404 IContextMenu3 *iface,
405 LPCMINVOKECOMMANDINFO lpcmi)
406 {
407 ContextMenu *This = impl_from_IContextMenu3(iface);
408
409 if (lpcmi->cbSize != sizeof(CMINVOKECOMMANDINFO))
410 FIXME("Is an EX structure\n");
411
412 TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n",This,lpcmi,lpcmi->lpVerb, lpcmi->hwnd);
413
414 if( HIWORD(lpcmi->lpVerb)==0 && LOWORD(lpcmi->lpVerb) > FCIDM_SHVIEWLAST)
415 {
416 TRACE("Invalid Verb %x\n",LOWORD(lpcmi->lpVerb));
417 return E_INVALIDARG;
418 }
419
420 if (HIWORD(lpcmi->lpVerb) == 0)
421 {
422 switch(LOWORD(lpcmi->lpVerb - This->verb_offset))
423 {
424 case FCIDM_SHVIEW_EXPLORE:
425 TRACE("Verb FCIDM_SHVIEW_EXPLORE\n");
426 DoOpenExplore(This, lpcmi->hwnd, "explore");
427 break;
428 case FCIDM_SHVIEW_OPEN:
429 TRACE("Verb FCIDM_SHVIEW_OPEN\n");
430 DoOpenExplore(This, lpcmi->hwnd, "open");
431 break;
432 case FCIDM_SHVIEW_RENAME:
433 {
434 IShellBrowser *browser;
435
436 /* get the active IShellView */
437 browser = (IShellBrowser*)SendMessageA(lpcmi->hwnd, CWM_GETISHELLBROWSER, 0, 0);
438 if (browser)
439 {
440 IShellView *view;
441
442 if(SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
443 {
444 TRACE("(shellview=%p)\n", view);
445 IShellView_SelectItem(view, This->apidl[0],
446 SVSI_DESELECTOTHERS|SVSI_EDIT|SVSI_ENSUREVISIBLE|SVSI_FOCUSED|SVSI_SELECT);
447 IShellView_Release(view);
448 }
449 }
450 break;
451 }
452 case FCIDM_SHVIEW_DELETE:
453 TRACE("Verb FCIDM_SHVIEW_DELETE\n");
454 DoDelete(This);
455 break;
456 case FCIDM_SHVIEW_COPY:
457 TRACE("Verb FCIDM_SHVIEW_COPY\n");
458 DoCopyOrCut(This, lpcmi->hwnd, FALSE);
459 break;
460 case FCIDM_SHVIEW_CUT:
461 TRACE("Verb FCIDM_SHVIEW_CUT\n");
462 DoCopyOrCut(This, lpcmi->hwnd, TRUE);
463 break;
464 case FCIDM_SHVIEW_PROPERTIES:
465 TRACE("Verb FCIDM_SHVIEW_PROPERTIES\n");
466 DoOpenProperties(This, lpcmi->hwnd);
467 break;
468 default:
469 FIXME("Unhandled Verb %xl\n",LOWORD(lpcmi->lpVerb)-This->verb_offset);
470 return E_INVALIDARG;
471 }
472 }
473 else
474 {
475 TRACE("Verb is %s\n",debugstr_a(lpcmi->lpVerb));
476 if (strcmp(lpcmi->lpVerb,"delete")==0)
477 DoDelete(This);
478 else if (strcmp(lpcmi->lpVerb,"properties")==0)
479 DoOpenProperties(This, lpcmi->hwnd);
480 else {
481 FIXME("Unhandled string verb %s\n",debugstr_a(lpcmi->lpVerb));
482 return E_FAIL;
483 }
484 }
485 return S_OK;
486 }
487
488 static HRESULT WINAPI ItemMenu_GetCommandString(
489 IContextMenu3 *iface,
490 UINT_PTR idCommand,
491 UINT uFlags,
492 UINT* lpReserved,
493 LPSTR lpszName,
494 UINT uMaxNameLen)
495 {
496 ContextMenu *This = impl_from_IContextMenu3(iface);
497 HRESULT hr = E_INVALIDARG;
498
499 TRACE("(%p)->(%lx flags=%x %p name=%p len=%x)\n", This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
500
501 switch(uFlags)
502 {
503 case GCS_HELPTEXTA:
504 case GCS_HELPTEXTW:
505 hr = E_NOTIMPL;
506 break;
507
508 case GCS_VERBA:
509 switch(idCommand-This->verb_offset)
510 {
511 case FCIDM_SHVIEW_RENAME:
512 strcpy(lpszName, "rename");
513 hr = S_OK;
514 break;
515 }
516 break;
517
518 /* NT 4.0 with IE 3.0x or no IE will always call This with GCS_VERBW. In This
519 case, you need to do the lstrcpyW to the pointer passed.*/
520 case GCS_VERBW:
521 switch(idCommand-This->verb_offset)
522 {
523 case FCIDM_SHVIEW_RENAME:
524 MultiByteToWideChar( CP_ACP, 0, "rename", -1, (LPWSTR)lpszName, uMaxNameLen );
525 hr = S_OK;
526 break;
527 }
528 break;
529
530 case GCS_VALIDATEA:
531 case GCS_VALIDATEW:
532 hr = S_OK;
533 break;
534 }
535 TRACE("-- (%p)->(name=%s)\n", This, lpszName);
536 return hr;
537 }
538
539 /**************************************************************************
540 * NOTES
541 * should be only in IContextMenu2 and IContextMenu3
542 * is nevertheless called from word95
543 */
544 static HRESULT WINAPI ContextMenu_HandleMenuMsg(IContextMenu3 *iface, UINT msg,
545 WPARAM wParam, LPARAM lParam)
546 {
547 ContextMenu *This = impl_from_IContextMenu3(iface);
548 FIXME("(%p)->(0x%x 0x%lx 0x%lx): stub\n", This, msg, wParam, lParam);
549 return E_NOTIMPL;
550 }
551
552 static HRESULT WINAPI ContextMenu_HandleMenuMsg2(IContextMenu3 *iface, UINT msg,
553 WPARAM wParam, LPARAM lParam, LRESULT *result)
554 {
555 ContextMenu *This = impl_from_IContextMenu3(iface);
556 FIXME("(%p)->(0x%x 0x%lx 0x%lx %p): stub\n", This, msg, wParam, lParam, result);
557 return E_NOTIMPL;
558 }
559
560 static const IContextMenu3Vtbl ItemContextMenuVtbl =
561 {
562 ContextMenu_QueryInterface,
563 ContextMenu_AddRef,
564 ContextMenu_Release,
565 ItemMenu_QueryContextMenu,
566 ItemMenu_InvokeCommand,
567 ItemMenu_GetCommandString,
568 ContextMenu_HandleMenuMsg,
569 ContextMenu_HandleMenuMsg2
570 };
571
572 HRESULT ItemMenu_Constructor(IShellFolder *parent, LPCITEMIDLIST pidl, const LPCITEMIDLIST *apidl, UINT cidl,
573 REFIID riid, void **pObj)
574 {
575 ContextMenu* This;
576 HRESULT hr;
577 int i;
578
579 This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
580 if (!This) return E_OUTOFMEMORY;
581
582 This->IContextMenu3_iface.lpVtbl = &ItemContextMenuVtbl;
583 This->ref = 1;
584 This->verb_offset = 0;
585 This->parent = parent;
586 if (parent) IShellFolder_AddRef(parent);
587
588 This->pidl = ILClone(pidl);
589 This->apidl = _ILCopyaPidl(apidl, cidl);
590 This->cidl = cidl;
591 This->allvalues = TRUE;
592
593 This->desktop = FALSE;
594
595 for (i = 0; i < cidl; i++)
596 This->allvalues &= (_ILIsValue(apidl[i]) ? 1 : 0);
597
598 hr = IContextMenu3_QueryInterface(&This->IContextMenu3_iface, riid, pObj);
599 IContextMenu3_Release(&This->IContextMenu3_iface);
600
601 return hr;
602 }
603
604 /* Background menu implementation */
605 static HRESULT WINAPI BackgroundMenu_QueryContextMenu(
606 IContextMenu3 *iface,
607 HMENU hMenu,
608 UINT indexMenu,
609 UINT idCmdFirst,
610 UINT idCmdLast,
611 UINT uFlags)
612 {
613 ContextMenu *This = impl_from_IContextMenu3(iface);
614 HMENU hMyMenu;
615 UINT idMax;
616 HRESULT hr;
617
618 TRACE("(%p)->(hmenu=%p indexmenu=%x cmdfirst=%x cmdlast=%x flags=%x )\n",
619 This, hMenu, indexMenu, idCmdFirst, idCmdLast, uFlags);
620
621 This->verb_offset = idCmdFirst;
622
623 hMyMenu = LoadMenuA(shell32_hInstance, "MENU_002");
624 if (uFlags & CMF_DEFAULTONLY)
625 {
626 HMENU ourMenu = GetSubMenu(hMyMenu,0);
627 UINT oldDef = GetMenuDefaultItem(hMenu,TRUE,GMDI_USEDISABLED);
628 UINT newDef = GetMenuDefaultItem(ourMenu,TRUE,GMDI_USEDISABLED);
629 if (newDef != oldDef)
630 SetMenuDefaultItem(hMenu,newDef,TRUE);
631 if (newDef!=0xFFFFFFFF)
632 hr = MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, newDef+1);
633 else
634 hr = MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, 0);
635 }
636 else
637 {
638 idMax = Shell_MergeMenus (hMenu, GetSubMenu(hMyMenu,0), indexMenu,
639 idCmdFirst, idCmdLast, MM_SUBMENUSHAVEIDS);
640 hr = MAKE_HRESULT(SEVERITY_SUCCESS, FACILITY_NULL, idMax-idCmdFirst);
641 }
642 DestroyMenu(hMyMenu);
643
644 TRACE("(%p)->returning 0x%x\n",This,hr);
645 return hr;
646 }
647
648 static void DoNewFolder(ContextMenu *This, IShellView *view)
649 {
650 ISFHelper *helper;
651
652 IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&helper);
653 if (helper)
654 {
655 WCHAR nameW[MAX_PATH];
656 LPITEMIDLIST pidl;
657
658 ISFHelper_GetUniqueName(helper, nameW, MAX_PATH);
659 ISFHelper_AddFolder(helper, 0, nameW, &pidl);
660
661 if (view)
662 {
663 /* if we are in a shellview do labeledit */
664 IShellView_SelectItem(view,
665 pidl,(SVSI_DESELECTOTHERS | SVSI_EDIT | SVSI_ENSUREVISIBLE
666 |SVSI_FOCUSED|SVSI_SELECT));
667 }
668
669 SHFree(pidl);
670 ISFHelper_Release(helper);
671 }
672 }
673
674 static BOOL DoPaste(ContextMenu *This)
675 {
676 BOOL bSuccess = FALSE;
677 IDataObject * pda;
678
679 TRACE("\n");
680
681 if(SUCCEEDED(OleGetClipboard(&pda)))
682 {
683 STGMEDIUM medium;
684 FORMATETC formatetc;
685
686 TRACE("pda=%p\n", pda);
687
688 /* Set the FORMATETC structure*/
689 InitFormatEtc(formatetc, RegisterClipboardFormatW(CFSTR_SHELLIDLISTW), TYMED_HGLOBAL);
690
691 /* Get the pidls from IDataObject */
692 if(SUCCEEDED(IDataObject_GetData(pda,&formatetc,&medium)))
693 {
694 LPITEMIDLIST * apidl;
695 LPITEMIDLIST pidl;
696 IShellFolder *psfFrom = NULL, *psfDesktop;
697
698 LPIDA lpcida = GlobalLock(medium.u.hGlobal);
699 TRACE("cida=%p\n", lpcida);
700
701 apidl = _ILCopyCidaToaPidl(&pidl, lpcida);
702
703 /* bind to the source shellfolder */
704 SHGetDesktopFolder(&psfDesktop);
705 if(psfDesktop)
706 {
707 IShellFolder_BindToObject(psfDesktop, pidl, NULL, &IID_IShellFolder, (LPVOID*)&psfFrom);
708 IShellFolder_Release(psfDesktop);
709 }
710
711 if (psfFrom)
712 {
713 /* get source and destination shellfolder */
714 ISFHelper *psfhlpdst, *psfhlpsrc;
715 IShellFolder_QueryInterface(This->parent, &IID_ISFHelper, (void**)&psfhlpdst);
716 IShellFolder_QueryInterface(psfFrom, &IID_ISFHelper, (void**)&psfhlpsrc);
717
718 /* do the copy/move */
719 if (psfhlpdst && psfhlpsrc)
720 {
721 ISFHelper_CopyItems(psfhlpdst, psfFrom, lpcida->cidl, (LPCITEMIDLIST*)apidl);
722 /* FIXME handle move
723 ISFHelper_DeleteItems(psfhlpsrc, lpcida->cidl, apidl);
724 */
725 }
726 if(psfhlpdst) ISFHelper_Release(psfhlpdst);
727 if(psfhlpsrc) ISFHelper_Release(psfhlpsrc);
728 IShellFolder_Release(psfFrom);
729 }
730
731 _ILFreeaPidl(apidl, lpcida->cidl);
732 SHFree(pidl);
733
734 /* release the medium*/
735 ReleaseStgMedium(&medium);
736 }
737 IDataObject_Release(pda);
738 }
739 #if 0
740 HGLOBAL hMem;
741
742 OpenClipboard(NULL);
743 hMem = GetClipboardData(CF_HDROP);
744
745 if(hMem)
746 {
747 char * pDropFiles = GlobalLock(hMem);
748 if(pDropFiles)
749 {
750 int len, offset = sizeof(DROPFILESTRUCT);
751
752 while( pDropFiles[offset] != 0)
753 {
754 len = strlen(pDropFiles + offset);
755 TRACE("%s\n", pDropFiles + offset);
756 offset += len+1;
757 }
758 }
759 GlobalUnlock(hMem);
760 }
761 CloseClipboard();
762 #endif
763 return bSuccess;
764 }
765
766 static HRESULT WINAPI BackgroundMenu_InvokeCommand(
767 IContextMenu3 *iface,
768 LPCMINVOKECOMMANDINFO lpcmi)
769 {
770 ContextMenu *This = impl_from_IContextMenu3(iface);
771 IShellBrowser *browser;
772 IShellView *view = NULL;
773 HWND hWnd = NULL;
774
775 TRACE("(%p)->(invcom=%p verb=%p wnd=%p)\n", This, lpcmi, lpcmi->lpVerb, lpcmi->hwnd);
776
777 /* get the active IShellView */
778 if ((browser = (IShellBrowser*)SendMessageA(lpcmi->hwnd, CWM_GETISHELLBROWSER, 0, 0)))
779 {
780 if (SUCCEEDED(IShellBrowser_QueryActiveShellView(browser, &view)))
781 IShellView_GetWindow(view, &hWnd);
782 }
783
784 if(HIWORD(lpcmi->lpVerb))
785 {
786 TRACE("%s\n", debugstr_a(lpcmi->lpVerb));
787
788 if (!strcmp(lpcmi->lpVerb, CMDSTR_NEWFOLDERA))
789 {
790 DoNewFolder(This, view);
791 }
792 else if (!strcmp(lpcmi->lpVerb, CMDSTR_VIEWLISTA))
793 {
794 if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_LISTVIEW, 0), 0);
795 }
796 else if (!strcmp(lpcmi->lpVerb, CMDSTR_VIEWDETAILSA))
797 {
798 if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(FCIDM_SHVIEW_REPORTVIEW, 0), 0);
799 }
800 else
801 {
802 FIXME("please report: unknown verb %s\n", debugstr_a(lpcmi->lpVerb));
803 }
804 }
805 else
806 {
807 switch (LOWORD(lpcmi->lpVerb) - This->verb_offset)
808 {
809 case FCIDM_SHVIEW_REFRESH:
810 if (view) IShellView_Refresh(view);
811 break;
812
813 case FCIDM_SHVIEW_NEWFOLDER:
814 DoNewFolder(This, view);
815 break;
816
817 case FCIDM_SHVIEW_INSERT:
818 DoPaste(This);
819 break;
820
821 case FCIDM_SHVIEW_PROPERTIES:
822 if (This->desktop) {
823 ShellExecuteA(lpcmi->hwnd, "open", "rundll32.exe shell32.dll,Control_RunDLL desk.cpl", NULL, NULL, SW_SHOWNORMAL);
824 } else {
825 FIXME("launch item properties dialog\n");
826 }
827 break;
828
829 default:
830 /* if it's an id just pass it to the parent shv */
831 if (hWnd) SendMessageA(hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(lpcmi->lpVerb), 0), 0);
832 break;
833 }
834 }
835
836 if (view)
837 IShellView_Release(view);
838
839 return S_OK;
840 }
841
842 static HRESULT WINAPI BackgroundMenu_GetCommandString(
843 IContextMenu3 *iface,
844 UINT_PTR idCommand,
845 UINT uFlags,
846 UINT* lpReserved,
847 LPSTR lpszName,
848 UINT uMaxNameLen)
849 {
850 ContextMenu *This = impl_from_IContextMenu3(iface);
851
852 TRACE("(%p)->(idcom=%lx flags=%x %p name=%p len=%x)\n",This, idCommand, uFlags, lpReserved, lpszName, uMaxNameLen);
853
854 /* test the existence of the menu items, the file dialog enables
855 the buttons according to this */
856 if (uFlags == GCS_VALIDATEA)
857 {
858 if(HIWORD(idCommand))
859 {
860 if (!strcmp((LPSTR)idCommand, CMDSTR_VIEWLISTA) ||
861 !strcmp((LPSTR)idCommand, CMDSTR_VIEWDETAILSA) ||
862 !strcmp((LPSTR)idCommand, CMDSTR_NEWFOLDERA))
863 {
864 return S_OK;
865 }
866 }
867 }
868
869 FIXME("unknown command string\n");
870 return E_FAIL;
871 }
872
873 static const IContextMenu3Vtbl BackgroundContextMenuVtbl =
874 {
875 ContextMenu_QueryInterface,
876 ContextMenu_AddRef,
877 ContextMenu_Release,
878 BackgroundMenu_QueryContextMenu,
879 BackgroundMenu_InvokeCommand,
880 BackgroundMenu_GetCommandString,
881 ContextMenu_HandleMenuMsg,
882 ContextMenu_HandleMenuMsg2
883 };
884
885 HRESULT BackgroundMenu_Constructor(IShellFolder *parent, BOOL desktop, REFIID riid, void **pObj)
886 {
887 ContextMenu *This;
888 HRESULT hr;
889
890 This = HeapAlloc(GetProcessHeap(), 0, sizeof(*This));
891 if (!This) return E_OUTOFMEMORY;
892
893 This->IContextMenu3_iface.lpVtbl = &BackgroundContextMenuVtbl;
894 This->ref = 1;
895 This->parent = parent;
896 This->verb_offset = 0;
897
898 This->pidl = NULL;
899 This->apidl = NULL;
900 This->cidl = 0;
901 This->allvalues = FALSE;
902
903 This->desktop = desktop;
904 if (parent) IShellFolder_AddRef(parent);
905
906 hr = IContextMenu3_QueryInterface(&This->IContextMenu3_iface, riid, pObj);
907 IContextMenu3_Release(&This->IContextMenu3_iface);
908
909 return hr;
910 }
911
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.