?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
user: Use computed icon rectangle if SS_CENTERIMAGE style is set.
[wine/multimedia.git] / dlls / shell32 / shlview.c
blob1385e363f4374964a14b15412e7d5471993e1fad
1 /*
2 * ShellView
3 *
4 * Copyright 1998,1999 <juergen.schmied@debitel.net>
5 *
6 * This is the view visualizing the data provied by the shellfolder.
7 * No direct access to data from pidls should be done from here.
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 *
23 * FIXME: The order by part of the background context menu should be
24 * buily according to the columns shown.
25 *
26 * FIXME: Load/Save the view state from/into the stream provied by
27 * the ShellBrowser
28 *
29 * FIXME: CheckToolbar: handle the "new folder" and "folder up" button
30 *
31 * FIXME: ShellView_FillList: consider sort orders
32 *
33 * FIXME: implement the drag and drop in the old (msg-based) way
34 *
35 * FIXME: when the ShellView_WndProc gets a WM_NCDESTROY should we do a
36 * Release() ???
37 */
38
39 #include "config.h"
40 #include "wine/port.h"
41
42 #include <stdarg.h>
43 #include <stdlib.h>
44 #include <string.h>
45
46 #define COBJMACROS
47 #define NONAMELESSUNION
48 #define NONAMELESSSTRUCT
49
50 #include "windef.h"
51 #include "winerror.h"
52 #include "winbase.h"
53 #include "winnls.h"
54 #include "objbase.h"
55 #include "servprov.h"
56 #include "shlguid.h"
57 #include "wingdi.h"
58 #include "winuser.h"
59 #include "shlobj.h"
60 #include "undocshell.h"
61 #include "shresdef.h"
62 #include "wine/debug.h"
63
64 #include "docobj.h"
65 #include "pidl.h"
66 #include "shell32_main.h"
67 #include "shellfolder.h"
68
69 WINE_DEFAULT_DEBUG_CHANNEL(shell);
70
71 typedef struct
72 { BOOL bIsAscending;
73 INT nHeaderID;
74 INT nLastHeaderID;
75 }LISTVIEW_SORT_INFO, *LPLISTVIEW_SORT_INFO;
76
77 typedef struct
78 {
79 const IShellViewVtbl* lpVtbl;
80 LONG ref;
81 const IOleCommandTargetVtbl* lpvtblOleCommandTarget;
82 const IDropTargetVtbl* lpvtblDropTarget;
83 const IDropSourceVtbl* lpvtblDropSource;
84 const IViewObjectVtbl* lpvtblViewObject;
85 IShellFolder* pSFParent;
86 IShellFolder2* pSF2Parent;
87 IShellBrowser* pShellBrowser;
88 ICommDlgBrowser* pCommDlgBrowser;
89 HWND hWnd; /* SHELLDLL_DefView */
90 HWND hWndList; /* ListView control */
91 HWND hWndParent;
92 FOLDERSETTINGS FolderSettings;
93 HMENU hMenu;
94 UINT uState;
95 UINT cidl;
96 LPITEMIDLIST *apidl;
97 LISTVIEW_SORT_INFO ListViewSortInfo;
98 ULONG hNotify; /* change notification handle */
99 HANDLE hAccel;
100 DWORD dwAspects;
101 DWORD dwAdvf;
102 IAdviseSink *pAdvSink;
103 IDropTarget* pCurDropTarget; /* The sub-item, which is currently dragged over */
104 IDataObject* pCurDataObject; /* The dragged data-object */
105 LONG iDragOverItem; /* Dragged over item's index, iff pCurDropTarget != NULL */
106 UINT cScrollDelay; /* Send a WM_*SCROLL msg every 250 ms during drag-scroll */
107 POINT ptLastMousePos; /* Mouse position at last DragOver call */
108 } IShellViewImpl;
109
110 static const IShellViewVtbl svvt;
111 static const IOleCommandTargetVtbl ctvt;
112 static const IDropTargetVtbl dtvt;
113 static const IDropSourceVtbl dsvt;
114 static const IViewObjectVtbl vovt;
115
116
117 static inline IShellViewImpl *impl_from_IOleCommandTarget( IOleCommandTarget *iface )
118 {
119 return (IShellViewImpl *)((char*)iface - FIELD_OFFSET(IShellViewImpl, lpvtblOleCommandTarget));
120 }
121
122 static inline IShellViewImpl *impl_from_IDropTarget( IDropTarget *iface )
123 {
124 return (IShellViewImpl *)((char*)iface - FIELD_OFFSET(IShellViewImpl, lpvtblDropTarget));
125 }
126
127 static inline IShellViewImpl *impl_from_IDropSource( IDropSource *iface )
128 {
129 return (IShellViewImpl *)((char*)iface - FIELD_OFFSET(IShellViewImpl, lpvtblDropSource));
130 }
131
132 static inline IShellViewImpl *impl_from_IViewObject( IViewObject *iface )
133 {
134 return (IShellViewImpl *)((char*)iface - FIELD_OFFSET(IShellViewImpl, lpvtblViewObject));
135 }
136
137 /* ListView Header ID's */
138 #define LISTVIEW_COLUMN_NAME 0
139 #define LISTVIEW_COLUMN_SIZE 1
140 #define LISTVIEW_COLUMN_TYPE 2
141 #define LISTVIEW_COLUMN_TIME 3
142 #define LISTVIEW_COLUMN_ATTRIB 4
143
144 /*menu items */
145 #define IDM_VIEW_FILES (FCIDM_SHVIEWFIRST + 0x500)
146 #define IDM_VIEW_IDW (FCIDM_SHVIEWFIRST + 0x501)
147 #define IDM_MYFILEITEM (FCIDM_SHVIEWFIRST + 0x502)
148
149 #define ID_LISTVIEW 1
150
151 #define SHV_CHANGE_NOTIFY WM_USER + 0x1111
152
153 /*windowsx.h */
154 #define GET_WM_COMMAND_ID(wp, lp) LOWORD(wp)
155 #define GET_WM_COMMAND_HWND(wp, lp) (HWND)(lp)
156 #define GET_WM_COMMAND_CMD(wp, lp) HIWORD(wp)
157
158 /*
159 Items merged into the toolbar and and the filemenu
160 */
161 typedef struct
162 { int idCommand;
163 int iImage;
164 int idButtonString;
165 int idMenuString;
166 BYTE bState;
167 BYTE bStyle;
168 } MYTOOLINFO, *LPMYTOOLINFO;
169
170 static const MYTOOLINFO Tools[] =
171 {
172 { FCIDM_SHVIEW_BIGICON, 0, 0, IDS_VIEW_LARGE, TBSTATE_ENABLED, BTNS_BUTTON },
173 { FCIDM_SHVIEW_SMALLICON, 0, 0, IDS_VIEW_SMALL, TBSTATE_ENABLED, BTNS_BUTTON },
174 { FCIDM_SHVIEW_LISTVIEW, 0, 0, IDS_VIEW_LIST, TBSTATE_ENABLED, BTNS_BUTTON },
175 { FCIDM_SHVIEW_REPORTVIEW, 0, 0, IDS_VIEW_DETAILS, TBSTATE_ENABLED, BTNS_BUTTON },
176 { -1, 0, 0, 0, 0, 0}
177 };
178
179 typedef void (CALLBACK *PFNSHGETSETTINGSPROC)(LPSHELLFLAGSTATE lpsfs, DWORD dwMask);
180
181 /**********************************************************
182 * IShellView_Constructor
183 */
184 IShellView * IShellView_Constructor( IShellFolder * pFolder)
185 { IShellViewImpl * sv;
186 sv=HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(IShellViewImpl));
187 sv->ref=1;
188 sv->lpVtbl=&svvt;
189 sv->lpvtblOleCommandTarget=&ctvt;
190 sv->lpvtblDropTarget=&dtvt;
191 sv->lpvtblDropSource=&dsvt;
192 sv->lpvtblViewObject=&vovt;
193
194 sv->pSFParent = pFolder;
195 if(pFolder) IShellFolder_AddRef(pFolder);
196 IShellFolder_QueryInterface(sv->pSFParent, &IID_IShellFolder2, (LPVOID*)&sv->pSF2Parent);
197
198 sv->pCurDropTarget = NULL;
199 sv->pCurDataObject = NULL;
200 sv->iDragOverItem = 0;
201 sv->cScrollDelay = 0;
202 sv->ptLastMousePos.x = 0;
203 sv->ptLastMousePos.y = 0;
204
205 TRACE("(%p)->(%p)\n",sv, pFolder);
206 return (IShellView *) sv;
207 }
208
209 /**********************************************************
210 *
211 * ##### helperfunctions for communication with ICommDlgBrowser #####
212 */
213 static BOOL IsInCommDlg(IShellViewImpl * This)
214 { return(This->pCommDlgBrowser != NULL);
215 }
216
217 static HRESULT IncludeObject(IShellViewImpl * This, LPCITEMIDLIST pidl)
218 {
219 HRESULT ret = S_OK;
220
221 if ( IsInCommDlg(This) )
222 {
223 TRACE("ICommDlgBrowser::IncludeObject pidl=%p\n", pidl);
224 ret = ICommDlgBrowser_IncludeObject(This->pCommDlgBrowser, (IShellView*)This, pidl);
225 TRACE("--0x%08lx\n", ret);
226 }
227 return ret;
228 }
229
230 static HRESULT OnDefaultCommand(IShellViewImpl * This)
231 {
232 HRESULT ret = S_FALSE;
233
234 if (IsInCommDlg(This))
235 {
236 TRACE("ICommDlgBrowser::OnDefaultCommand\n");
237 ret = ICommDlgBrowser_OnDefaultCommand(This->pCommDlgBrowser, (IShellView*)This);
238 TRACE("-- returns %08lx\n", ret);
239 }
240 return ret;
241 }
242
243 static HRESULT OnStateChange(IShellViewImpl * This, UINT uFlags)
244 {
245 HRESULT ret = S_FALSE;
246
247 if (IsInCommDlg(This))
248 {
249 TRACE("ICommDlgBrowser::OnStateChange flags=%x\n", uFlags);
250 ret = ICommDlgBrowser_OnStateChange(This->pCommDlgBrowser, (IShellView*)This, uFlags);
251 TRACE("--\n");
252 }
253 return ret;
254 }
255 /**********************************************************
256 * set the toolbar of the filedialog buttons
257 *
258 * - activates the buttons from the shellbrowser according to
259 * the view state
260 */
261 static void CheckToolbar(IShellViewImpl * This)
262 {
263 LRESULT result;
264
265 TRACE("\n");
266
267 if (IsInCommDlg(This))
268 {
269 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_TOOLBAR, TB_CHECKBUTTON,
270 FCIDM_TB_SMALLICON, (This->FolderSettings.ViewMode==FVM_LIST)? TRUE : FALSE, &result);
271 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_TOOLBAR, TB_CHECKBUTTON,
272 FCIDM_TB_REPORTVIEW, (This->FolderSettings.ViewMode==FVM_DETAILS)? TRUE : FALSE, &result);
273 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_TOOLBAR, TB_ENABLEBUTTON,
274 FCIDM_TB_SMALLICON, TRUE, &result);
275 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_TOOLBAR, TB_ENABLEBUTTON,
276 FCIDM_TB_REPORTVIEW, TRUE, &result);
277 }
278 }
279
280 /**********************************************************
281 *
282 * ##### helperfunctions for initializing the view #####
283 */
284 /**********************************************************
285 * change the style of the listview control
286 */
287 static void SetStyle(IShellViewImpl * This, DWORD dwAdd, DWORD dwRemove)
288 {
289 DWORD tmpstyle;
290
291 TRACE("(%p)\n", This);
292
293 tmpstyle = GetWindowLongA(This->hWndList, GWL_STYLE);
294 SetWindowLongA(This->hWndList, GWL_STYLE, dwAdd | (tmpstyle & ~dwRemove));
295 }
296
297 /**********************************************************
298 * ShellView_CreateList()
299 *
300 * - creates the list view window
301 */
302 static BOOL ShellView_CreateList (IShellViewImpl * This)
303 { DWORD dwStyle, dwExStyle;
304
305 TRACE("%p\n",This);
306
307 dwStyle = WS_TABSTOP | WS_VISIBLE | WS_CHILDWINDOW | WS_CLIPSIBLINGS | WS_CLIPCHILDREN |
308 LVS_SHAREIMAGELISTS | LVS_EDITLABELS | LVS_ALIGNLEFT | LVS_AUTOARRANGE;
309 dwExStyle = WS_EX_CLIENTEDGE;
310
311 switch (This->FolderSettings.ViewMode)
312 {
313 case FVM_ICON: dwStyle |= LVS_ICON; break;
314 case FVM_DETAILS: dwStyle |= LVS_REPORT; break;
315 case FVM_SMALLICON: dwStyle |= LVS_SMALLICON; break;
316 case FVM_LIST: dwStyle |= LVS_LIST; break;
317 default: dwStyle |= LVS_LIST; break;
318 }
319
320 if (This->FolderSettings.fFlags & FWF_AUTOARRANGE) dwStyle |= LVS_AUTOARRANGE;
321 if (This->FolderSettings.fFlags & FWF_DESKTOP)
322 This->FolderSettings.fFlags |= FWF_NOCLIENTEDGE | FWF_NOSCROLL;
323 if (This->FolderSettings.fFlags & FWF_SINGLESEL) dwStyle |= LVS_SINGLESEL;
324 if (This->FolderSettings.fFlags & FWF_NOCLIENTEDGE)
325 dwExStyle &= ~WS_EX_CLIENTEDGE;
326
327 This->hWndList=CreateWindowExA( dwExStyle,
328 WC_LISTVIEWA,
329 NULL,
330 dwStyle,
331 0,0,0,0,
332 This->hWnd,
333 (HMENU)ID_LISTVIEW,
334 shell32_hInstance,
335 NULL);
336
337 if(!This->hWndList)
338 return FALSE;
339
340 This->ListViewSortInfo.bIsAscending = TRUE;
341 This->ListViewSortInfo.nHeaderID = -1;
342 This->ListViewSortInfo.nLastHeaderID = -1;
343
344 if (This->FolderSettings.fFlags & FWF_DESKTOP) {
345 /*
346 * FIXME: look at the registry value
347 * HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewShadow
348 * and activate drop shadows if necessary
349 */
350 if (0)
351 SendMessageW(This->hWndList, LVM_SETTEXTBKCOLOR, 0, CLR_NONE);
352 else
353 SendMessageW(This->hWndList, LVM_SETTEXTBKCOLOR, 0, GetSysColor(COLOR_DESKTOP));
354
355 SendMessageW(This->hWndList, LVM_SETTEXTCOLOR, 0, RGB(255,255,255));
356 }
357
358 /* UpdateShellSettings(); */
359 return TRUE;
360 }
361
362 /**********************************************************
363 * ShellView_InitList()
364 *
365 * - adds all needed columns to the shellview
366 */
367 static BOOL ShellView_InitList(IShellViewImpl * This)
368 {
369 LVCOLUMNW lvColumn;
370 SHELLDETAILS sd;
371 int i;
372 WCHAR szTemp[50];
373
374 TRACE("%p\n",This);
375
376 SendMessageW(This->hWndList, LVM_DELETEALLITEMS, 0, 0);
377
378 lvColumn.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT;
379 lvColumn.pszText = szTemp;
380
381 if (This->pSF2Parent)
382 {
383 for (i=0; 1; i++)
384 {
385 if (!SUCCEEDED(IShellFolder2_GetDetailsOf(This->pSF2Parent, NULL, i, &sd)))
386 break;
387 lvColumn.fmt = sd.fmt;
388 lvColumn.cx = sd.cxChar*8; /* chars->pixel */
389 StrRetToStrNW( szTemp, 50, &sd.str, NULL);
390 SendMessageW(This->hWndList, LVM_INSERTCOLUMNW, i, (LPARAM) &lvColumn);
391 }
392 }
393 else
394 {
395 FIXME("no SF2\n");
396 }
397
398 SendMessageW(This->hWndList, LVM_SETIMAGELIST, LVSIL_SMALL, (LPARAM)ShellSmallIconList);
399 SendMessageW(This->hWndList, LVM_SETIMAGELIST, LVSIL_NORMAL, (LPARAM)ShellBigIconList);
400
401 return TRUE;
402 }
403 /**********************************************************
404 * ShellView_CompareItems()
405 *
406 * NOTES
407 * internal, CALLBACK for DSA_Sort
408 */
409 static INT CALLBACK ShellView_CompareItems(LPVOID lParam1, LPVOID lParam2, LPARAM lpData)
410 {
411 int ret;
412 TRACE("pidl1=%p pidl2=%p lpsf=%p\n", lParam1, lParam2, (LPVOID) lpData);
413
414 if(!lpData) return 0;
415
416 ret = (SHORT) SCODE_CODE(IShellFolder_CompareIDs((LPSHELLFOLDER)lpData, 0, (LPITEMIDLIST)lParam1, (LPITEMIDLIST)lParam2));
417 TRACE("ret=%i\n",ret);
418 return ret;
419 }
420
421 /*************************************************************************
422 * ShellView_ListViewCompareItems
423 *
424 * Compare Function for the Listview (FileOpen Dialog)
425 *
426 * PARAMS
427 * lParam1 [I] the first ItemIdList to compare with
428 * lParam2 [I] the second ItemIdList to compare with
429 * lpData [I] The column ID for the header Ctrl to process
430 *
431 * RETURNS
432 * A negative value if the first item should precede the second,
433 * a positive value if the first item should follow the second,
434 * or zero if the two items are equivalent
435 *
436 * NOTES
437 * FIXME: function does what ShellView_CompareItems is supposed to do.
438 * unify it and figure out how to use the undocumented first parameter
439 * of IShellFolder_CompareIDs to do the job this function does and
440 * move this code to IShellFolder.
441 * make LISTVIEW_SORT_INFO obsolete
442 * the way this function works is only usable if we had only
443 * filesystemfolders (25/10/99 jsch)
444 */
445 static INT CALLBACK ShellView_ListViewCompareItems(LPVOID lParam1, LPVOID lParam2, LPARAM lpData)
446 {
447 INT nDiff=0;
448 FILETIME fd1, fd2;
449 char strName1[MAX_PATH], strName2[MAX_PATH];
450 BOOL bIsFolder1, bIsFolder2,bIsBothFolder;
451 LPITEMIDLIST pItemIdList1 = (LPITEMIDLIST) lParam1;
452 LPITEMIDLIST pItemIdList2 = (LPITEMIDLIST) lParam2;
453 LISTVIEW_SORT_INFO *pSortInfo = (LPLISTVIEW_SORT_INFO) lpData;
454
455
456 bIsFolder1 = _ILIsFolder(pItemIdList1);
457 bIsFolder2 = _ILIsFolder(pItemIdList2);
458 bIsBothFolder = bIsFolder1 && bIsFolder2;
459
460 /* When sorting between a File and a Folder, the Folder gets sorted first */
461 if( (bIsFolder1 || bIsFolder2) && !bIsBothFolder)
462 {
463 nDiff = bIsFolder1 ? -1 : 1;
464 }
465 else
466 {
467 /* Sort by Time: Folders or Files can be sorted */
468
469 if(pSortInfo->nHeaderID == LISTVIEW_COLUMN_TIME)
470 {
471 _ILGetFileDateTime(pItemIdList1, &fd1);
472 _ILGetFileDateTime(pItemIdList2, &fd2);
473 nDiff = CompareFileTime(&fd2, &fd1);
474 }
475 /* Sort by Attribute: Folder or Files can be sorted */
476 else if(pSortInfo->nHeaderID == LISTVIEW_COLUMN_ATTRIB)
477 {
478 _ILGetFileAttributes(pItemIdList1, strName1, MAX_PATH);
479 _ILGetFileAttributes(pItemIdList2, strName2, MAX_PATH);
480 nDiff = lstrcmpiA(strName1, strName2);
481 }
482 /* Sort by FileName: Folder or Files can be sorted */
483 else if(pSortInfo->nHeaderID == LISTVIEW_COLUMN_NAME || bIsBothFolder)
484 {
485 /* Sort by Text */
486 _ILSimpleGetText(pItemIdList1, strName1, MAX_PATH);
487 _ILSimpleGetText(pItemIdList2, strName2, MAX_PATH);
488 nDiff = lstrcmpiA(strName1, strName2);
489 }
490 /* Sort by File Size, Only valid for Files */
491 else if(pSortInfo->nHeaderID == LISTVIEW_COLUMN_SIZE)
492 {
493 nDiff = (INT)(_ILGetFileSize(pItemIdList1, NULL, 0) - _ILGetFileSize(pItemIdList2, NULL, 0));
494 }
495 /* Sort by File Type, Only valid for Files */
496 else if(pSortInfo->nHeaderID == LISTVIEW_COLUMN_TYPE)
497 {
498 /* Sort by Type */
499 _ILGetFileType(pItemIdList1, strName1, MAX_PATH);
500 _ILGetFileType(pItemIdList2, strName2, MAX_PATH);
501 nDiff = lstrcmpiA(strName1, strName2);
502 }
503 }
504 /* If the Date, FileSize, FileType, Attrib was the same, sort by FileName */
505
506 if(nDiff == 0)
507 {
508 _ILSimpleGetText(pItemIdList1, strName1, MAX_PATH);
509 _ILSimpleGetText(pItemIdList2, strName2, MAX_PATH);
510 nDiff = lstrcmpiA(strName1, strName2);
511 }
512
513 if(!pSortInfo->bIsAscending)
514 {
515 nDiff = -nDiff;
516 }
517
518 return nDiff;
519
520 }
521
522 /**********************************************************
523 * LV_FindItemByPidl()
524 */
525 static int LV_FindItemByPidl(
526 IShellViewImpl * This,
527 LPCITEMIDLIST pidl)
528 {
529 LVITEMA lvItem;
530 ZeroMemory(&lvItem, sizeof(LVITEMA));
531 lvItem.mask = LVIF_PARAM;
532 for(lvItem.iItem = 0;
533 SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &lvItem);
534 lvItem.iItem++)
535 {
536 LPITEMIDLIST currentpidl = (LPITEMIDLIST) lvItem.lParam;
537 HRESULT hr = IShellFolder_CompareIDs(This->pSFParent, 0, pidl, currentpidl);
538 if(SUCCEEDED(hr) && !HRESULT_CODE(hr))
539 {
540 return lvItem.iItem;
541 }
542 }
543 return -1;
544 }
545
546 /**********************************************************
547 * LV_AddItem()
548 */
549 static BOOLEAN LV_AddItem(IShellViewImpl * This, LPCITEMIDLIST pidl)
550 {
551 LVITEMA lvItem;
552
553 TRACE("(%p)(pidl=%p)\n", This, pidl);
554
555 ZeroMemory(&lvItem, sizeof(lvItem)); /* create the listview item*/
556 lvItem.mask = LVIF_TEXT | LVIF_IMAGE | LVIF_PARAM; /*set the mask*/
557 lvItem.iItem = ListView_GetItemCount(This->hWndList); /*add the item to the end of the list*/
558 lvItem.lParam = (LPARAM) ILClone(ILFindLastID(pidl)); /*set the item's data*/
559 lvItem.pszText = LPSTR_TEXTCALLBACKA; /*get text on a callback basis*/
560 lvItem.iImage = I_IMAGECALLBACK; /*get the image on a callback basis*/
561 return (-1==ListView_InsertItemA(This->hWndList, &lvItem))? FALSE: TRUE;
562 }
563
564 /**********************************************************
565 * LV_DeleteItem()
566 */
567 static BOOLEAN LV_DeleteItem(IShellViewImpl * This, LPCITEMIDLIST pidl)
568 {
569 int nIndex;
570
571 TRACE("(%p)(pidl=%p)\n", This, pidl);
572
573 nIndex = LV_FindItemByPidl(This, ILFindLastID(pidl));
574 return (-1==ListView_DeleteItem(This->hWndList, nIndex))? FALSE: TRUE;
575 }
576
577 /**********************************************************
578 * LV_RenameItem()
579 */
580 static BOOLEAN LV_RenameItem(IShellViewImpl * This, LPCITEMIDLIST pidlOld, LPCITEMIDLIST pidlNew )
581 {
582 int nItem;
583 LVITEMA lvItem;
584
585 TRACE("(%p)(pidlold=%p pidlnew=%p)\n", This, pidlOld, pidlNew);
586
587 nItem = LV_FindItemByPidl(This, ILFindLastID(pidlOld));
588 if ( -1 != nItem )
589 {
590 ZeroMemory(&lvItem, sizeof(lvItem)); /* create the listview item*/
591 lvItem.mask = LVIF_PARAM; /* only the pidl */
592 lvItem.iItem = nItem;
593 SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &lvItem);
594
595 SHFree((LPITEMIDLIST)lvItem.lParam);
596 lvItem.mask = LVIF_PARAM;
597 lvItem.iItem = nItem;
598 lvItem.lParam = (LPARAM) ILClone(ILFindLastID(pidlNew)); /* set the item's data */
599 SendMessageA(This->hWndList, LVM_SETITEMA, 0, (LPARAM) &lvItem);
600 SendMessageA(This->hWndList, LVM_UPDATE, nItem, 0);
601 return TRUE; /* FIXME: better handling */
602 }
603 return FALSE;
604 }
605 /**********************************************************
606 * ShellView_FillList()
607 *
608 * - gets the objectlist from the shellfolder
609 * - sorts the list
610 * - fills the list into the view
611 */
612
613 static INT CALLBACK fill_list( LPVOID ptr, LPVOID arg )
614 {
615 LPITEMIDLIST pidl = ptr;
616 IShellViewImpl *This = arg;
617 /* in a commdlg This works as a filemask*/
618 if ( IncludeObject(This, pidl)==S_OK ) LV_AddItem(This, pidl);
619 SHFree(pidl);
620 return TRUE;
621 }
622
623 static HRESULT ShellView_FillList(IShellViewImpl * This)
624 {
625 LPENUMIDLIST pEnumIDList;
626 LPITEMIDLIST pidl;
627 DWORD dwFetched;
628 HRESULT hRes;
629 HDPA hdpa;
630
631 TRACE("%p\n",This);
632
633 /* get the itemlist from the shfolder*/
634 hRes = IShellFolder_EnumObjects(This->pSFParent,This->hWnd, SHCONTF_NONFOLDERS | SHCONTF_FOLDERS, &pEnumIDList);
635 if (hRes != S_OK)
636 {
637 if (hRes==S_FALSE)
638 return(NOERROR);
639 return(hRes);
640 }
641
642 /* create a pointer array */
643 hdpa = DPA_Create(16);
644 if (!hdpa)
645 {
646 return(E_OUTOFMEMORY);
647 }
648
649 /* copy the items into the array*/
650 while((S_OK == IEnumIDList_Next(pEnumIDList,1, &pidl, &dwFetched)) && dwFetched)
651 {
652 if (DPA_InsertPtr(hdpa, 0x7fff, pidl) == -1)
653 {
654 SHFree(pidl);
655 }
656 }
657
658 /* sort the array */
659 DPA_Sort(hdpa, ShellView_CompareItems, (LPARAM)This->pSFParent);
660
661 /*turn the listview's redrawing off*/
662 SendMessageA(This->hWndList, WM_SETREDRAW, FALSE, 0);
663
664 DPA_DestroyCallback( hdpa, fill_list, This );
665
666 /*turn the listview's redrawing back on and force it to draw*/
667 SendMessageA(This->hWndList, WM_SETREDRAW, TRUE, 0);
668
669 IEnumIDList_Release(pEnumIDList); /* destroy the list*/
670
671 return S_OK;
672 }
673
674 /**********************************************************
675 * ShellView_OnCreate()
676 */
677 static LRESULT ShellView_OnCreate(IShellViewImpl * This)
678 {
679 IDropTarget* pdt;
680 SHChangeNotifyEntry ntreg;
681 IPersistFolder2 * ppf2 = NULL;
682
683 TRACE("%p\n",This);
684
685 if(ShellView_CreateList(This))
686 {
687 if(ShellView_InitList(This))
688 {
689 ShellView_FillList(This);
690 }
691 }
692
693 if (SUCCEEDED(IUnknown_QueryInterface((IUnknown*)&This->lpVtbl, &IID_IDropTarget, (LPVOID*)&pdt)))
694 {
695 RegisterDragDrop(This->hWnd, pdt);
696 IDropTarget_Release(pdt);
697 }
698
699 /* register for receiving notifications */
700 IShellFolder_QueryInterface(This->pSFParent, &IID_IPersistFolder2, (LPVOID*)&ppf2);
701 if (ppf2)
702 {
703 IPersistFolder2_GetCurFolder(ppf2, (LPITEMIDLIST*)&ntreg.pidl);
704 ntreg.fRecursive = TRUE;
705 This->hNotify = SHChangeNotifyRegister(This->hWnd, SHCNF_IDLIST, SHCNE_ALLEVENTS, SHV_CHANGE_NOTIFY, 1, &ntreg);
706 SHFree((LPITEMIDLIST)ntreg.pidl);
707 IPersistFolder2_Release(ppf2);
708 }
709
710 This->hAccel = LoadAcceleratorsA(shell32_hInstance, "shv_accel");
711
712 return S_OK;
713 }
714
715 /**********************************************************
716 * #### Handling of the menus ####
717 */
718
719 /**********************************************************
720 * ShellView_BuildFileMenu()
721 */
722 static HMENU ShellView_BuildFileMenu(IShellViewImpl * This)
723 { CHAR szText[MAX_PATH];
724 MENUITEMINFOA mii;
725 int nTools,i;
726 HMENU hSubMenu;
727
728 TRACE("(%p)\n",This);
729
730 hSubMenu = CreatePopupMenu();
731 if(hSubMenu)
732 { /*get the number of items in our global array*/
733 for(nTools = 0; Tools[nTools].idCommand != -1; nTools++){}
734
735 /*add the menu items*/
736 for(i = 0; i < nTools; i++)
737 {
738 LoadStringA(shell32_hInstance, Tools[i].idMenuString, szText, MAX_PATH);
739
740 ZeroMemory(&mii, sizeof(mii));
741 mii.cbSize = sizeof(mii);
742 mii.fMask = MIIM_TYPE | MIIM_ID | MIIM_STATE;
743
744 if(BTNS_SEP != Tools[i].bStyle) /* no separator*/
745 {
746 mii.fType = MFT_STRING;
747 mii.fState = MFS_ENABLED;
748 mii.dwTypeData = szText;
749 mii.wID = Tools[i].idCommand;
750 }
751 else
752 {
753 mii.fType = MFT_SEPARATOR;
754 }
755 /* tack This item onto the end of the menu */
756 InsertMenuItemA(hSubMenu, (UINT)-1, TRUE, &mii);
757 }
758 }
759 TRACE("-- return (menu=%p)\n",hSubMenu);
760 return hSubMenu;
761 }
762 /**********************************************************
763 * ShellView_MergeFileMenu()
764 */
765 static void ShellView_MergeFileMenu(IShellViewImpl * This, HMENU hSubMenu)
766 { TRACE("(%p)->(submenu=%p) stub\n",This,hSubMenu);
767
768 if(hSubMenu)
769 { /*insert This item at the beginning of the menu */
770 _InsertMenuItem(hSubMenu, 0, TRUE, 0, MFT_SEPARATOR, NULL, MFS_ENABLED);
771 _InsertMenuItem(hSubMenu, 0, TRUE, IDM_MYFILEITEM, MFT_STRING, "dummy45", MFS_ENABLED);
772
773 }
774 TRACE("--\n");
775 }
776
777 /**********************************************************
778 * ShellView_MergeViewMenu()
779 */
780
781 static void ShellView_MergeViewMenu(IShellViewImpl * This, HMENU hSubMenu)
782 {
783 TRACE("(%p)->(submenu=%p)\n",This,hSubMenu);
784
785 if(hSubMenu)
786 { /*add a separator at the correct position in the menu*/
787 MENUITEMINFOA mii;
788 static char view[] = "View";
789
790 _InsertMenuItem(hSubMenu, FCIDM_MENU_VIEW_SEP_OPTIONS, FALSE, 0, MFT_SEPARATOR, NULL, MFS_ENABLED);
791
792 ZeroMemory(&mii, sizeof(mii));
793 mii.cbSize = sizeof(mii);
794 mii.fMask = MIIM_SUBMENU | MIIM_TYPE | MIIM_DATA;
795 mii.fType = MFT_STRING;
796 mii.dwTypeData = view;
797 mii.hSubMenu = LoadMenuA(shell32_hInstance, "MENU_001");
798 InsertMenuItemA(hSubMenu, FCIDM_MENU_VIEW_SEP_OPTIONS, FALSE, &mii);
799 }
800 }
801
802 /**********************************************************
803 * ShellView_GetSelections()
804 *
805 * - fills the this->apidl list with the selected objects
806 *
807 * RETURNS
808 * number of selected items
809 */
810 static UINT ShellView_GetSelections(IShellViewImpl * This)
811 {
812 LVITEMA lvItem;
813 UINT i = 0;
814
815 if (This->apidl)
816 {
817 SHFree(This->apidl);
818 }
819
820 This->cidl = ListView_GetSelectedCount(This->hWndList);
821 This->apidl = (LPITEMIDLIST*)SHAlloc(This->cidl * sizeof(LPITEMIDLIST));
822
823 TRACE("selected=%i\n", This->cidl);
824
825 if(This->apidl)
826 {
827 TRACE("-- Items selected =%u\n", This->cidl);
828
829 ZeroMemory(&lvItem, sizeof(lvItem));
830 lvItem.mask = LVIF_STATE | LVIF_PARAM;
831 lvItem.stateMask = LVIS_SELECTED;
832
833 while(ListView_GetItemA(This->hWndList, &lvItem) && (i < This->cidl))
834 {
835 if(lvItem.state & LVIS_SELECTED)
836 {
837 This->apidl[i] = (LPITEMIDLIST)lvItem.lParam;
838 i++;
839 TRACE("-- selected Item found\n");
840 }
841 lvItem.iItem++;
842 }
843 }
844 return This->cidl;
845
846 }
847
848 /**********************************************************
849 * ShellView_OpenSelectedItems()
850 */
851 static HRESULT ShellView_OpenSelectedItems(IShellViewImpl * This)
852 {
853 static UINT CF_IDLIST = 0;
854 HRESULT hr;
855 IDataObject* selection;
856 FORMATETC fetc;
857 STGMEDIUM stgm;
858 LPIDA pIDList;
859 LPCITEMIDLIST parent_pidl;
860 int i;
861
862 if (0 == ShellView_GetSelections(This))
863 {
864 return S_OK;
865 }
866 hr = IShellFolder_GetUIObjectOf(This->pSFParent, This->hWnd, This->cidl,
867 (LPCITEMIDLIST*)This->apidl, &IID_IDataObject,
868 0, (LPVOID *)&selection);
869 if (FAILED(hr))
870 return hr;
871
872 if (0 == CF_IDLIST)
873 {
874 CF_IDLIST = RegisterClipboardFormatA(CFSTR_SHELLIDLIST);
875 }
876 fetc.cfFormat = CF_IDLIST;
877 fetc.ptd = NULL;
878 fetc.dwAspect = DVASPECT_CONTENT;
879 fetc.lindex = -1;
880 fetc.tymed = TYMED_HGLOBAL;
881
882 hr = IDataObject_QueryGetData(selection, &fetc);
883 if (FAILED(hr))
884 return hr;
885
886 hr = IDataObject_GetData(selection, &fetc, &stgm);
887 if (FAILED(hr))
888 return hr;
889
890 pIDList = GlobalLock(stgm.u.hGlobal);
891
892 parent_pidl = (LPCITEMIDLIST) ((LPBYTE)pIDList+pIDList->aoffset[0]);
893 for (i = pIDList->cidl; i > 0; --i)
894 {
895 LPCITEMIDLIST pidl;
896 SFGAOF attribs;
897
898 pidl = (LPCITEMIDLIST)((LPBYTE)pIDList+pIDList->aoffset[i]);
899
900 attribs = SFGAO_FOLDER;
901 hr = IShellFolder_GetAttributesOf(This->pSFParent, 1, &pidl, &attribs);
902
903 if (SUCCEEDED(hr) && ! (attribs & SFGAO_FOLDER))
904 {
905 SHELLEXECUTEINFOA shexinfo;
906
907 shexinfo.cbSize = sizeof(SHELLEXECUTEINFOA);
908 shexinfo.fMask = SEE_MASK_INVOKEIDLIST; /* SEE_MASK_IDLIST is also possible. */
909 shexinfo.hwnd = NULL;
910 shexinfo.lpVerb = NULL;
911 shexinfo.lpFile = NULL;
912 shexinfo.lpParameters = NULL;
913 shexinfo.lpDirectory = NULL;
914 shexinfo.nShow = SW_NORMAL;
915 shexinfo.lpIDList = ILCombine(parent_pidl, pidl);
916
917 ShellExecuteExA(&shexinfo); /* Discard error/success info */
918
919 ILFree((LPITEMIDLIST)shexinfo.lpIDList);
920 }
921 }
922
923 GlobalUnlock(stgm.u.hGlobal);
924 ReleaseStgMedium(&stgm);
925
926 IDataObject_Release(selection);
927
928 return S_OK;
929 }
930
931 /**********************************************************
932 * ShellView_DoContextMenu()
933 */
934 static void ShellView_DoContextMenu(IShellViewImpl * This, WORD x, WORD y, BOOL bDefault)
935 { UINT uCommand;
936 DWORD wFlags;
937 HMENU hMenu;
938 BOOL fExplore = FALSE;
939 HWND hwndTree = 0;
940 LPCONTEXTMENU pContextMenu = NULL;
941 IContextMenu2 *pCM = NULL;
942 CMINVOKECOMMANDINFO cmi;
943
944 TRACE("(%p)->(0x%08x 0x%08x 0x%08x) stub\n",This, x, y, bDefault);
945
946 /* look, what's selected and create a context menu object of it*/
947 if( ShellView_GetSelections(This) )
948 {
949 IShellFolder_GetUIObjectOf( This->pSFParent, This->hWndParent, This->cidl, (LPCITEMIDLIST*)This->apidl,
950 (REFIID)&IID_IContextMenu, NULL, (LPVOID *)&pContextMenu);
951
952 if(pContextMenu)
953 {
954 TRACE("-- pContextMenu\n");
955 hMenu = CreatePopupMenu();
956
957 if( hMenu )
958 {
959 /* See if we are in Explore or Open mode. If the browser's tree is present, we are in Explore mode.*/
960 if(SUCCEEDED(IShellBrowser_GetControlWindow(This->pShellBrowser,FCW_TREE, &hwndTree)) && hwndTree)
961 {
962 TRACE("-- explore mode\n");
963 fExplore = TRUE;
964 }
965
966 /* build the flags depending on what we can do with the selected item */
967 wFlags = CMF_NORMAL | (This->cidl != 1 ? 0 : CMF_CANRENAME) | (fExplore ? CMF_EXPLORE : 0);
968
969 /* let the ContextMenu merge its items in */
970 if (SUCCEEDED(IContextMenu_QueryContextMenu( pContextMenu, hMenu, 0, FCIDM_SHVIEWFIRST, FCIDM_SHVIEWLAST, wFlags )))
971 {
972 if (This->FolderSettings.fFlags & FWF_DESKTOP)
973 SetMenuDefaultItem(hMenu, FCIDM_SHVIEW_OPEN, MF_BYCOMMAND);
974
975 if( bDefault )
976 {
977 TRACE("-- get menu default command\n");
978 uCommand = GetMenuDefaultItem(hMenu, FALSE, GMDI_GOINTOPOPUPS);
979 }
980 else
981 {
982 TRACE("-- track popup\n");
983 uCommand = TrackPopupMenu( hMenu,TPM_LEFTALIGN | TPM_RETURNCMD,x,y,0,This->hWnd,NULL);
984 }
985
986 if(uCommand > 0)
987 {
988 TRACE("-- uCommand=%u\n", uCommand);
989 if (uCommand==FCIDM_SHVIEW_OPEN && IsInCommDlg(This))
990 {
991 TRACE("-- dlg: OnDefaultCommand\n");
992 if (OnDefaultCommand(This) != S_OK)
993 {
994 ShellView_OpenSelectedItems(This);
995 }
996 }
997 else
998 {
999 TRACE("-- explore -- invoke command\n");
1000 ZeroMemory(&cmi, sizeof(cmi));
1001 cmi.cbSize = sizeof(cmi);
1002 cmi.hwnd = This->hWndParent; /* this window has to answer CWM_GETISHELLBROWSER */
1003 cmi.lpVerb = (LPCSTR)MAKEINTRESOURCEA(uCommand);
1004 IContextMenu_InvokeCommand(pContextMenu, &cmi);
1005 }
1006 }
1007 DestroyMenu(hMenu);
1008 }
1009 }
1010 if (pContextMenu)
1011 IContextMenu_Release(pContextMenu);
1012 }
1013 }
1014 else /* background context menu */
1015 {
1016 hMenu = CreatePopupMenu();
1017
1018 pCM = ISvBgCm_Constructor(This->pSFParent, FALSE);
1019 IContextMenu2_QueryContextMenu(pCM, hMenu, 0, FCIDM_SHVIEWFIRST, FCIDM_SHVIEWLAST, 0);
1020
1021 uCommand = TrackPopupMenu( hMenu, TPM_LEFTALIGN | TPM_RETURNCMD,x,y,0,This->hWnd,NULL);
1022 DestroyMenu(hMenu);
1023
1024 TRACE("-- (%p)->(uCommand=0x%08x )\n",This, uCommand);
1025
1026 ZeroMemory(&cmi, sizeof(cmi));
1027 cmi.cbSize = sizeof(cmi);
1028 cmi.lpVerb = (LPCSTR)MAKEINTRESOURCEA(uCommand);
1029 cmi.hwnd = This->hWndParent;
1030 IContextMenu2_InvokeCommand(pCM, &cmi);
1031
1032 IContextMenu2_Release(pCM);
1033 }
1034 }
1035
1036 /**********************************************************
1037 * ##### message handling #####
1038 */
1039
1040 /**********************************************************
1041 * ShellView_OnSize()
1042 */
1043 static LRESULT ShellView_OnSize(IShellViewImpl * This, WORD wWidth, WORD wHeight)
1044 {
1045 TRACE("%p width=%u height=%u\n",This, wWidth,wHeight);
1046
1047 /*resize the ListView to fit our window*/
1048 if(This->hWndList)
1049 {
1050 MoveWindow(This->hWndList, 0, 0, wWidth, wHeight, TRUE);
1051 }
1052
1053 return S_OK;
1054 }
1055 /**********************************************************
1056 * ShellView_OnDeactivate()
1057 *
1058 * NOTES
1059 * internal
1060 */
1061 static void ShellView_OnDeactivate(IShellViewImpl * This)
1062 {
1063 TRACE("%p\n",This);
1064
1065 if(This->uState != SVUIA_DEACTIVATE)
1066 {
1067 if(This->hMenu)
1068 {
1069 IShellBrowser_SetMenuSB(This->pShellBrowser,0, 0, 0);
1070 IShellBrowser_RemoveMenusSB(This->pShellBrowser,This->hMenu);
1071 DestroyMenu(This->hMenu);
1072 This->hMenu = 0;
1073 }
1074
1075 This->uState = SVUIA_DEACTIVATE;
1076 }
1077 }
1078
1079 /**********************************************************
1080 * ShellView_OnActivate()
1081 */
1082 static LRESULT ShellView_OnActivate(IShellViewImpl * This, UINT uState)
1083 { OLEMENUGROUPWIDTHS omw = { {0, 0, 0, 0, 0, 0} };
1084 MENUITEMINFOA mii;
1085 CHAR szText[MAX_PATH];
1086
1087 TRACE("%p uState=%x\n",This,uState);
1088
1089 /*don't do anything if the state isn't really changing */
1090 if(This->uState == uState)
1091 {
1092 return S_OK;
1093 }
1094
1095 ShellView_OnDeactivate(This);
1096
1097 /*only do This if we are active */
1098 if(uState != SVUIA_DEACTIVATE)
1099 {
1100 /*merge the menus */
1101 This->hMenu = CreateMenu();
1102
1103 if(This->hMenu)
1104 {
1105 IShellBrowser_InsertMenusSB(This->pShellBrowser, This->hMenu, &omw);
1106 TRACE("-- after fnInsertMenusSB\n");
1107
1108 /*build the top level menu get the menu item's text*/
1109 strcpy(szText,"dummy 31");
1110
1111 ZeroMemory(&mii, sizeof(mii));
1112 mii.cbSize = sizeof(mii);
1113 mii.fMask = MIIM_SUBMENU | MIIM_TYPE | MIIM_STATE;
1114 mii.fType = MFT_STRING;
1115 mii.fState = MFS_ENABLED;
1116 mii.dwTypeData = szText;
1117 mii.hSubMenu = ShellView_BuildFileMenu(This);
1118
1119 /*insert our menu into the menu bar*/
1120 if(mii.hSubMenu)
1121 {
1122 InsertMenuItemA(This->hMenu, FCIDM_MENU_HELP, FALSE, &mii);
1123 }
1124
1125 /*get the view menu so we can merge with it*/
1126 ZeroMemory(&mii, sizeof(mii));
1127 mii.cbSize = sizeof(mii);
1128 mii.fMask = MIIM_SUBMENU;
1129
1130 if(GetMenuItemInfoA(This->hMenu, FCIDM_MENU_VIEW, FALSE, &mii))
1131 {
1132 ShellView_MergeViewMenu(This, mii.hSubMenu);
1133 }
1134
1135 /*add the items that should only be added if we have the focus*/
1136 if(SVUIA_ACTIVATE_FOCUS == uState)
1137 {
1138 /*get the file menu so we can merge with it */
1139 ZeroMemory(&mii, sizeof(mii));
1140 mii.cbSize = sizeof(mii);
1141 mii.fMask = MIIM_SUBMENU;
1142
1143 if(GetMenuItemInfoA(This->hMenu, FCIDM_MENU_FILE, FALSE, &mii))
1144 {
1145 ShellView_MergeFileMenu(This, mii.hSubMenu);
1146 }
1147 }
1148 TRACE("-- before fnSetMenuSB\n");
1149 IShellBrowser_SetMenuSB(This->pShellBrowser, This->hMenu, 0, This->hWnd);
1150 }
1151 }
1152 This->uState = uState;
1153 TRACE("--\n");
1154 return S_OK;
1155 }
1156
1157 /**********************************************************
1158 * ShellView_OnSetFocus()
1159 *
1160 */
1161 static LRESULT ShellView_OnSetFocus(IShellViewImpl * This)
1162 {
1163 TRACE("%p\n",This);
1164
1165 /* Tell the browser one of our windows has received the focus. This
1166 should always be done before merging menus (OnActivate merges the
1167 menus) if one of our windows has the focus.*/
1168
1169 IShellBrowser_OnViewWindowActive(This->pShellBrowser,(IShellView*) This);
1170 ShellView_OnActivate(This, SVUIA_ACTIVATE_FOCUS);
1171
1172 /* Set the focus to the listview */
1173 SetFocus(This->hWndList);
1174
1175 /* Notify the ICommDlgBrowser interface */
1176 OnStateChange(This,CDBOSC_SETFOCUS);
1177
1178 return 0;
1179 }
1180
1181 /**********************************************************
1182 * ShellView_OnKillFocus()
1183 */
1184 static LRESULT ShellView_OnKillFocus(IShellViewImpl * This)
1185 {
1186 TRACE("(%p) stub\n",This);
1187
1188 ShellView_OnActivate(This, SVUIA_ACTIVATE_NOFOCUS);
1189 /* Notify the ICommDlgBrowser */
1190 OnStateChange(This,CDBOSC_KILLFOCUS);
1191
1192 return 0;
1193 }
1194
1195 /**********************************************************
1196 * ShellView_OnCommand()
1197 *
1198 * NOTES
1199 * the CmdID's are the ones from the context menu
1200 */
1201 static LRESULT ShellView_OnCommand(IShellViewImpl * This,DWORD dwCmdID, DWORD dwCmd, HWND hwndCmd)
1202 {
1203 TRACE("(%p)->(0x%08lx 0x%08lx %p) stub\n",This, dwCmdID, dwCmd, hwndCmd);
1204
1205 switch(dwCmdID)
1206 {
1207 case FCIDM_SHVIEW_SMALLICON:
1208 This->FolderSettings.ViewMode = FVM_SMALLICON;
1209 SetStyle (This, LVS_SMALLICON, LVS_TYPEMASK);
1210 CheckToolbar(This);
1211 break;
1212
1213 case FCIDM_SHVIEW_BIGICON:
1214 This->FolderSettings.ViewMode = FVM_ICON;
1215 SetStyle (This, LVS_ICON, LVS_TYPEMASK);
1216 CheckToolbar(This);
1217 break;
1218
1219 case FCIDM_SHVIEW_LISTVIEW:
1220 This->FolderSettings.ViewMode = FVM_LIST;
1221 SetStyle (This, LVS_LIST, LVS_TYPEMASK);
1222 CheckToolbar(This);
1223 break;
1224
1225 case FCIDM_SHVIEW_REPORTVIEW:
1226 This->FolderSettings.ViewMode = FVM_DETAILS;
1227 SetStyle (This, LVS_REPORT, LVS_TYPEMASK);
1228 CheckToolbar(This);
1229 break;
1230
1231 /* the menu-ID's for sorting are 0x30... see shrec.rc */
1232 case 0x30:
1233 case 0x31:
1234 case 0x32:
1235 case 0x33:
1236 This->ListViewSortInfo.nHeaderID = (LPARAM) (dwCmdID - 0x30);
1237 This->ListViewSortInfo.bIsAscending = TRUE;
1238 This->ListViewSortInfo.nLastHeaderID = This->ListViewSortInfo.nHeaderID;
1239 SendMessageA(This->hWndList, LVM_SORTITEMS, (WPARAM) &This->ListViewSortInfo, (LPARAM)ShellView_ListViewCompareItems);
1240 break;
1241
1242 default:
1243 TRACE("-- COMMAND 0x%04lx unhandled\n", dwCmdID);
1244 }
1245 return 0;
1246 }
1247
1248 /**********************************************************
1249 * ShellView_OnNotify()
1250 */
1251
1252 static LRESULT ShellView_OnNotify(IShellViewImpl * This, UINT CtlID, LPNMHDR lpnmh)
1253 { LPNMLISTVIEW lpnmlv = (LPNMLISTVIEW)lpnmh;
1254 NMLVDISPINFOA *lpdi = (NMLVDISPINFOA *)lpnmh;
1255 LPITEMIDLIST pidl;
1256
1257 TRACE("%p CtlID=%u lpnmh->code=%x\n",This,CtlID,lpnmh->code);
1258
1259 switch(lpnmh->code)
1260 {
1261 case NM_SETFOCUS:
1262 TRACE("-- NM_SETFOCUS %p\n",This);
1263 ShellView_OnSetFocus(This);
1264 break;
1265
1266 case NM_KILLFOCUS:
1267 TRACE("-- NM_KILLFOCUS %p\n",This);
1268 ShellView_OnDeactivate(This);
1269 /* Notify the ICommDlgBrowser interface */
1270 OnStateChange(This,CDBOSC_KILLFOCUS);
1271 break;
1272
1273 case NM_CUSTOMDRAW:
1274 TRACE("-- NM_CUSTOMDRAW %p\n",This);
1275 return CDRF_DODEFAULT;
1276
1277 case NM_RELEASEDCAPTURE:
1278 TRACE("-- NM_RELEASEDCAPTURE %p\n",This);
1279 break;
1280
1281 case NM_CLICK:
1282 TRACE("-- NM_CLICK %p\n",This);
1283 break;
1284
1285 case NM_RCLICK:
1286 TRACE("-- NM_RCLICK %p\n",This);
1287 break;
1288
1289 case NM_DBLCLK:
1290 TRACE("-- NM_DBLCLK %p\n",This);
1291 if (OnDefaultCommand(This) != S_OK) ShellView_OpenSelectedItems(This);
1292 break;
1293
1294 case NM_RETURN:
1295 TRACE("-- NM_DBLCLK %p\n",This);
1296 if (OnDefaultCommand(This) != S_OK) ShellView_OpenSelectedItems(This);
1297 break;
1298
1299 case HDN_ENDTRACKA:
1300 TRACE("-- HDN_ENDTRACKA %p\n",This);
1301 /*nColumn1 = ListView_GetColumnWidth(This->hWndList, 0);
1302 nColumn2 = ListView_GetColumnWidth(This->hWndList, 1);*/
1303 break;
1304
1305 case LVN_DELETEITEM:
1306 TRACE("-- LVN_DELETEITEM %p\n",This);
1307 SHFree((LPITEMIDLIST)lpnmlv->lParam); /*delete the pidl because we made a copy of it*/
1308 break;
1309
1310 case LVN_DELETEALLITEMS:
1311 TRACE("-- LVN_DELETEALLITEMS %p\n",This);
1312 return FALSE;
1313
1314 case LVN_INSERTITEM:
1315 TRACE("-- LVN_INSERTITEM (STUB)%p\n",This);
1316 break;
1317
1318 case LVN_ITEMACTIVATE:
1319 TRACE("-- LVN_ITEMACTIVATE %p\n",This);
1320 OnStateChange(This, CDBOSC_SELCHANGE); /* the browser will get the IDataObject now */
1321 break;
1322
1323 case LVN_COLUMNCLICK:
1324 This->ListViewSortInfo.nHeaderID = lpnmlv->iSubItem;
1325 if(This->ListViewSortInfo.nLastHeaderID == This->ListViewSortInfo.nHeaderID)
1326 {
1327 This->ListViewSortInfo.bIsAscending = !This->ListViewSortInfo.bIsAscending;
1328 }
1329 else
1330 {
1331 This->ListViewSortInfo.bIsAscending = TRUE;
1332 }
1333 This->ListViewSortInfo.nLastHeaderID = This->ListViewSortInfo.nHeaderID;
1334
1335 SendMessageA(lpnmlv->hdr.hwndFrom, LVM_SORTITEMS, (WPARAM) &This->ListViewSortInfo, (LPARAM)ShellView_ListViewCompareItems);
1336 break;
1337
1338 case LVN_GETDISPINFOA:
1339 case LVN_GETDISPINFOW:
1340 TRACE("-- LVN_GETDISPINFO %p\n",This);
1341 pidl = (LPITEMIDLIST)lpdi->item.lParam;
1342
1343 if(lpdi->item.mask & LVIF_TEXT) /* text requested */
1344 {
1345 if (This->pSF2Parent)
1346 {
1347 SHELLDETAILS sd;
1348 IShellFolder2_GetDetailsOf(This->pSF2Parent, pidl, lpdi->item.iSubItem, &sd);
1349 if (lpnmh->code == LVN_GETDISPINFOA)
1350 {
1351 StrRetToStrNA( lpdi->item.pszText, lpdi->item.cchTextMax, &sd.str, NULL);
1352 TRACE("-- text=%s\n",lpdi->item.pszText);
1353 }
1354 else /* LVN_GETDISPINFOW */
1355 {
1356 StrRetToStrNW( ((NMLVDISPINFOW *)lpdi)->item.pszText, lpdi->item.cchTextMax, &sd.str, NULL);
1357 TRACE("-- text=%s\n",debugstr_w((WCHAR*)(lpdi->item.pszText)));
1358 }
1359 }
1360 else
1361 {
1362 FIXME("no SF2\n");
1363 }
1364 }
1365 if(lpdi->item.mask & LVIF_IMAGE) /* image requested */
1366 {
1367 lpdi->item.iImage = SHMapPIDLToSystemImageListIndex(This->pSFParent, pidl, 0);
1368 }
1369 break;
1370
1371 case LVN_ITEMCHANGED:
1372 TRACE("-- LVN_ITEMCHANGED %p\n",This);
1373 OnStateChange(This, CDBOSC_SELCHANGE); /* the browser will get the IDataObject now */
1374 break;
1375
1376 case LVN_BEGINDRAG:
1377 case LVN_BEGINRDRAG:
1378 TRACE("-- LVN_BEGINDRAG\n");
1379
1380 if (ShellView_GetSelections(This))
1381 {
1382 IDataObject * pda;
1383 DWORD dwAttributes = SFGAO_CANLINK;
1384 DWORD dwEffect = DROPEFFECT_COPY | DROPEFFECT_MOVE;
1385
1386 if (SUCCEEDED(IShellFolder_GetUIObjectOf(This->pSFParent, This->hWnd, This->cidl, (LPCITEMIDLIST*)This->apidl, &IID_IDataObject,0,(LPVOID *)&pda)))
1387 {
1388 IDropSource * pds = (IDropSource*)&(This->lpvtblDropSource); /* own DropSource interface */
1389
1390 if (SUCCEEDED(IShellFolder_GetAttributesOf(This->pSFParent, This->cidl, (LPCITEMIDLIST*)This->apidl, &dwAttributes)))
1391 {
1392 if (dwAttributes & SFGAO_CANLINK)
1393 {
1394 dwEffect |= DROPEFFECT_LINK;
1395 }
1396 }
1397
1398 if (pds)
1399 {
1400 DWORD dwEffect;
1401 DoDragDrop(pda, pds, dwEffect, &dwEffect);
1402 }
1403 IDataObject_Release(pda);
1404 }
1405 }
1406 break;
1407
1408 case LVN_BEGINLABELEDITA:
1409 {
1410 DWORD dwAttr = SFGAO_CANRENAME;
1411 pidl = (LPITEMIDLIST)lpdi->item.lParam;
1412
1413 TRACE("-- LVN_BEGINLABELEDITA %p\n",This);
1414
1415 IShellFolder_GetAttributesOf(This->pSFParent, 1, (LPCITEMIDLIST*)&pidl, &dwAttr);
1416 if (SFGAO_CANRENAME & dwAttr)
1417 {
1418 return FALSE;
1419 }
1420 return TRUE;
1421 }
1422
1423 case LVN_ENDLABELEDITA:
1424 {
1425 TRACE("-- LVN_ENDLABELEDITA %p\n",This);
1426 if (lpdi->item.pszText)
1427 {
1428 HRESULT hr;
1429 WCHAR wszNewName[MAX_PATH];
1430 LVITEMA lvItem;
1431
1432 ZeroMemory(&lvItem, sizeof(LVITEMA));
1433 lvItem.iItem = lpdi->item.iItem;
1434 lvItem.mask = LVIF_PARAM;
1435 SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &lvItem);
1436
1437 pidl = (LPITEMIDLIST)lpdi->item.lParam;
1438 if (!MultiByteToWideChar( CP_ACP, 0, lpdi->item.pszText, -1, wszNewName, MAX_PATH ))
1439 wszNewName[MAX_PATH-1] = 0;
1440 hr = IShellFolder_SetNameOf(This->pSFParent, 0, pidl, wszNewName, SHGDN_INFOLDER, &pidl);
1441
1442 if(SUCCEEDED(hr) && pidl)
1443 {
1444 lvItem.mask = LVIF_PARAM;
1445 lvItem.lParam = (LPARAM)pidl;
1446 SendMessageA(This->hWndList, LVM_SETITEMA, 0, (LPARAM) &lvItem);
1447 return TRUE;
1448 }
1449 }
1450 return FALSE;
1451 }
1452
1453 case LVN_KEYDOWN:
1454 {
1455 /* MSG msg;
1456 msg.hwnd = This->hWnd;
1457 msg.message = WM_KEYDOWN;
1458 msg.wParam = plvKeyDown->wVKey;
1459 msg.lParam = 0;
1460 msg.time = 0;
1461 msg.pt = 0;*/
1462
1463 LPNMLVKEYDOWN plvKeyDown = (LPNMLVKEYDOWN) lpnmh;
1464
1465 /* initiate a rename of the selected file or directory */
1466 if(plvKeyDown->wVKey == VK_F2)
1467 {
1468 /* see how many files are selected */
1469 int i = ListView_GetSelectedCount(This->hWndList);
1470
1471 /* get selected item */
1472 if(i == 1)
1473 {
1474 /* get selected item */
1475 i = ListView_GetNextItem(This->hWndList, -1,
1476 LVNI_SELECTED);
1477
1478 SendMessageW(This->hWndList, LVM_ENSUREVISIBLE, i, 0);
1479 SendMessageW(This->hWndList, LVM_EDITLABELW, i, 0);
1480 }
1481 }
1482 #if 0
1483 TranslateAccelerator(This->hWnd, This->hAccel, &msg)
1484 #endif
1485 else if(plvKeyDown->wVKey == VK_DELETE)
1486 {
1487 UINT i;
1488 int item_index;
1489 LVITEMA item;
1490 LPITEMIDLIST* pItems;
1491 ISFHelper *psfhlp;
1492
1493 IShellFolder_QueryInterface(This->pSFParent, &IID_ISFHelper,
1494 (LPVOID*)&psfhlp);
1495
1496 if (psfhlp == NULL)
1497 break;
1498
1499 if(!(i = ListView_GetSelectedCount(This->hWndList)))
1500 break;
1501
1502 /* allocate memory for the pidl array */
1503 pItems = HeapAlloc(GetProcessHeap(), 0,
1504 sizeof(LPITEMIDLIST) * i);
1505
1506 /* retrieve all selected items */
1507 i = 0;
1508 item_index = -1;
1509 while(ListView_GetSelectedCount(This->hWndList) > i)
1510 {
1511 /* get selected item */
1512 item_index = ListView_GetNextItem(This->hWndList,
1513 item_index, LVNI_SELECTED);
1514 item.iItem = item_index;
1515 item.mask = LVIF_PARAM;
1516 SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &item);
1517
1518 /* get item pidl */
1519 pItems[i] = (LPITEMIDLIST)item.lParam;
1520
1521 i++;
1522 }
1523
1524 /* perform the item deletion */
1525 ISFHelper_DeleteItems(psfhlp, i, (LPCITEMIDLIST*)pItems);
1526
1527 /* free pidl array memory */
1528 HeapFree(GetProcessHeap(), 0, pItems);
1529 }
1530
1531 /* Initiate a refresh */
1532 else if(plvKeyDown->wVKey == VK_F5)
1533 {
1534 IShellView_Refresh((IShellView*)This);
1535 }
1536
1537 else
1538 FIXME("LVN_KEYDOWN key=0x%08x\n",plvKeyDown->wVKey);
1539 }
1540 break;
1541
1542 default:
1543 TRACE("-- %p WM_COMMAND %x unhandled\n", This, lpnmh->code);
1544 break;
1545 }
1546 return 0;
1547 }
1548
1549 /**********************************************************
1550 * ShellView_OnChange()
1551 */
1552
1553 static LRESULT ShellView_OnChange(IShellViewImpl * This, LPITEMIDLIST * Pidls, LONG wEventId)
1554 {
1555
1556 TRACE("(%p)(%p,%p,0x%08lx)\n", This, Pidls[0], Pidls[1], wEventId);
1557 switch(wEventId)
1558 {
1559 case SHCNE_MKDIR:
1560 case SHCNE_CREATE:
1561 LV_AddItem(This, Pidls[0]);
1562 break;
1563 case SHCNE_RMDIR:
1564 case SHCNE_DELETE:
1565 LV_DeleteItem(This, Pidls[0]);
1566 break;
1567 case SHCNE_RENAMEFOLDER:
1568 case SHCNE_RENAMEITEM:
1569 LV_RenameItem(This, Pidls[0], Pidls[1]);
1570 break;
1571 case SHCNE_UPDATEITEM:
1572 break;
1573 }
1574 return TRUE;
1575 }
1576 /**********************************************************
1577 * ShellView_WndProc
1578 */
1579
1580 static LRESULT CALLBACK ShellView_WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam)
1581 {
1582 IShellViewImpl * pThis = (IShellViewImpl*)GetWindowLongPtrW(hWnd, GWLP_USERDATA);
1583 LPCREATESTRUCTA lpcs;
1584
1585 TRACE("(hwnd=%p msg=%x wparm=%x lparm=%lx)\n",hWnd, uMessage, wParam, lParam);
1586
1587 switch (uMessage)
1588 {
1589 case WM_NCCREATE:
1590 lpcs = (LPCREATESTRUCTA)lParam;
1591 pThis = (IShellViewImpl*)(lpcs->lpCreateParams);
1592 SetWindowLongPtrW(hWnd, GWLP_USERDATA, (ULONG_PTR)pThis);
1593 pThis->hWnd = hWnd; /*set the window handle*/
1594 break;
1595
1596 case WM_SIZE: return ShellView_OnSize(pThis,LOWORD(lParam), HIWORD(lParam));
1597 case WM_SETFOCUS: return ShellView_OnSetFocus(pThis);
1598 case WM_KILLFOCUS: return ShellView_OnKillFocus(pThis);
1599 case WM_CREATE: return ShellView_OnCreate(pThis);
1600 case WM_ACTIVATE: return ShellView_OnActivate(pThis, SVUIA_ACTIVATE_FOCUS);
1601 case WM_NOTIFY: return ShellView_OnNotify(pThis,(UINT)wParam, (LPNMHDR)lParam);
1602 case WM_COMMAND: return ShellView_OnCommand(pThis,
1603 GET_WM_COMMAND_ID(wParam, lParam),
1604 GET_WM_COMMAND_CMD(wParam, lParam),
1605 GET_WM_COMMAND_HWND(wParam, lParam));
1606 case SHV_CHANGE_NOTIFY: return ShellView_OnChange(pThis, (LPITEMIDLIST*)wParam, (LONG)lParam);
1607
1608 case WM_CONTEXTMENU: ShellView_DoContextMenu(pThis, LOWORD(lParam), HIWORD(lParam), FALSE);
1609 return 0;
1610
1611 case WM_SHOWWINDOW: UpdateWindow(pThis->hWndList);
1612 break;
1613
1614 case WM_GETDLGCODE: return SendMessageA(pThis->hWndList,uMessage,0,0);
1615
1616 case WM_DESTROY:
1617 RevokeDragDrop(pThis->hWnd);
1618 SHChangeNotifyDeregister(pThis->hNotify);
1619 break;
1620
1621 case WM_ERASEBKGND:
1622 if ((pThis->FolderSettings.fFlags & FWF_DESKTOP) ||
1623 (pThis->FolderSettings.fFlags & FWF_TRANSPARENT))
1624 return 1;
1625 break;
1626 }
1627
1628 return DefWindowProcA (hWnd, uMessage, wParam, lParam);
1629 }
1630 /**********************************************************
1631 *
1632 *
1633 * The INTERFACE of the IShellView object
1634 *
1635 *
1636 **********************************************************
1637 * IShellView_QueryInterface
1638 */
1639 static HRESULT WINAPI IShellView_fnQueryInterface(IShellView * iface,REFIID riid, LPVOID *ppvObj)
1640 {
1641 IShellViewImpl *This = (IShellViewImpl *)iface;
1642
1643 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
1644
1645 *ppvObj = NULL;
1646
1647 if(IsEqualIID(riid, &IID_IUnknown))
1648 {
1649 *ppvObj = This;
1650 }
1651 else if(IsEqualIID(riid, &IID_IShellView))
1652 {
1653 *ppvObj = (IShellView*)This;
1654 }
1655 else if(IsEqualIID(riid, &IID_IOleCommandTarget))
1656 {
1657 *ppvObj = (IOleCommandTarget*)&(This->lpvtblOleCommandTarget);
1658 }
1659 else if(IsEqualIID(riid, &IID_IDropTarget))
1660 {
1661 *ppvObj = (IDropTarget*)&(This->lpvtblDropTarget);
1662 }
1663 else if(IsEqualIID(riid, &IID_IDropSource))
1664 {
1665 *ppvObj = (IDropSource*)&(This->lpvtblDropSource);
1666 }
1667 else if(IsEqualIID(riid, &IID_IViewObject))
1668 {
1669 *ppvObj = (IViewObject*)&(This->lpvtblViewObject);
1670 }
1671
1672 if(*ppvObj)
1673 {
1674 IUnknown_AddRef( (IUnknown*)*ppvObj );
1675 TRACE("-- Interface: (%p)->(%p)\n",ppvObj,*ppvObj);
1676 return S_OK;
1677 }
1678 TRACE("-- Interface: E_NOINTERFACE\n");
1679 return E_NOINTERFACE;
1680 }
1681
1682 /**********************************************************
1683 * IShellView_AddRef
1684 */
1685 static ULONG WINAPI IShellView_fnAddRef(IShellView * iface)
1686 {
1687 IShellViewImpl *This = (IShellViewImpl *)iface;
1688 ULONG refCount = InterlockedIncrement(&This->ref);
1689
1690 TRACE("(%p)->(count=%lu)\n", This, refCount - 1);
1691
1692 return refCount;
1693 }
1694 /**********************************************************
1695 * IShellView_Release
1696 */
1697 static ULONG WINAPI IShellView_fnRelease(IShellView * iface)
1698 {
1699 IShellViewImpl *This = (IShellViewImpl *)iface;
1700 ULONG refCount = InterlockedDecrement(&This->ref);
1701
1702 TRACE("(%p)->(count=%li)\n", This, refCount + 1);
1703
1704 if (!refCount)
1705 {
1706 TRACE(" destroying IShellView(%p)\n",This);
1707
1708 DestroyWindow(This->hWndList);
1709
1710 if(This->pSFParent)
1711 IShellFolder_Release(This->pSFParent);
1712
1713 if(This->pSF2Parent)
1714 IShellFolder2_Release(This->pSF2Parent);
1715
1716 if(This->apidl)
1717 SHFree(This->apidl);
1718
1719 if(This->pAdvSink)
1720 IAdviseSink_Release(This->pAdvSink);
1721
1722 HeapFree(GetProcessHeap(),0,This);
1723 }
1724 return refCount;
1725 }
1726
1727 /**********************************************************
1728 * ShellView_GetWindow
1729 */
1730 static HRESULT WINAPI IShellView_fnGetWindow(IShellView * iface,HWND * phWnd)
1731 {
1732 IShellViewImpl *This = (IShellViewImpl *)iface;
1733
1734 TRACE("(%p)\n",This);
1735
1736 *phWnd = This->hWnd;
1737
1738 return S_OK;
1739 }
1740
1741 static HRESULT WINAPI IShellView_fnContextSensitiveHelp(IShellView * iface,BOOL fEnterMode)
1742 {
1743 IShellViewImpl *This = (IShellViewImpl *)iface;
1744
1745 FIXME("(%p) stub\n",This);
1746
1747 return E_NOTIMPL;
1748 }
1749
1750 /**********************************************************
1751 * IShellView_TranslateAccelerator
1752 *
1753 * FIXME:
1754 * use the accel functions
1755 */
1756 static HRESULT WINAPI IShellView_fnTranslateAccelerator(IShellView * iface,LPMSG lpmsg)
1757 {
1758 #if 0
1759 IShellViewImpl *This = (IShellViewImpl *)iface;
1760
1761 FIXME("(%p)->(%p: hwnd=%x msg=%x lp=%lx wp=%x) stub\n",This,lpmsg, lpmsg->hwnd, lpmsg->message, lpmsg->lParam, lpmsg->wParam);
1762 #endif
1763
1764 if ((lpmsg->message>=WM_KEYFIRST) && (lpmsg->message>=WM_KEYLAST))
1765 {
1766 TRACE("-- key=0x04%x\n",lpmsg->wParam) ;
1767 }
1768 return S_FALSE; /* not handled */
1769 }
1770
1771 static HRESULT WINAPI IShellView_fnEnableModeless(IShellView * iface,BOOL fEnable)
1772 {
1773 IShellViewImpl *This = (IShellViewImpl *)iface;
1774
1775 FIXME("(%p) stub\n",This);
1776
1777 return E_NOTIMPL;
1778 }
1779
1780 static HRESULT WINAPI IShellView_fnUIActivate(IShellView * iface,UINT uState)
1781 {
1782 IShellViewImpl *This = (IShellViewImpl *)iface;
1783
1784 /*
1785 CHAR szName[MAX_PATH];
1786 */
1787 LRESULT lResult;
1788 int nPartArray[1] = {-1};
1789
1790 TRACE("(%p)->(state=%x) stub\n",This, uState);
1791
1792 /*don't do anything if the state isn't really changing*/
1793 if(This->uState == uState)
1794 {
1795 return S_OK;
1796 }
1797
1798 /*OnActivate handles the menu merging and internal state*/
1799 ShellView_OnActivate(This, uState);
1800
1801 /*only do This if we are active*/
1802 if(uState != SVUIA_DEACTIVATE)
1803 {
1804
1805 /*
1806 GetFolderPath is not a method of IShellFolder
1807 IShellFolder_GetFolderPath( This->pSFParent, szName, sizeof(szName) );
1808 */
1809 /* set the number of parts */
1810 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_STATUS, SB_SETPARTS, 1,
1811 (LPARAM)nPartArray, &lResult);
1812
1813 /* set the text for the parts */
1814 /*
1815 IShellBrowser_SendControlMsg(This->pShellBrowser, FCW_STATUS, SB_SETTEXTA,
1816 0, (LPARAM)szName, &lResult);
1817 */
1818 }
1819
1820 return S_OK;
1821 }
1822
1823 static HRESULT WINAPI IShellView_fnRefresh(IShellView * iface)
1824 {
1825 IShellViewImpl *This = (IShellViewImpl *)iface;
1826
1827 TRACE("(%p)\n",This);
1828
1829 SendMessageW(This->hWndList, LVM_DELETEALLITEMS, 0, 0);
1830 ShellView_FillList(This);
1831
1832 return S_OK;
1833 }
1834
1835 static HRESULT WINAPI IShellView_fnCreateViewWindow(
1836 IShellView * iface,
1837 IShellView *lpPrevView,
1838 LPCFOLDERSETTINGS lpfs,
1839 IShellBrowser * psb,
1840 RECT * prcView,
1841 HWND *phWnd)
1842 {
1843 IShellViewImpl *This = (IShellViewImpl *)iface;
1844
1845 WNDCLASSA wc;
1846 *phWnd = 0;
1847
1848
1849 TRACE("(%p)->(shlview=%p set=%p shlbrs=%p rec=%p hwnd=%p) incomplete\n",This, lpPrevView,lpfs, psb, prcView, phWnd);
1850 TRACE("-- vmode=%x flags=%x left=%li top=%li right=%li bottom=%li\n",lpfs->ViewMode, lpfs->fFlags ,prcView->left,prcView->top, prcView->right, prcView->bottom);
1851
1852 /*set up the member variables*/
1853 This->pShellBrowser = psb;
1854 This->FolderSettings = *lpfs;
1855
1856 /*get our parent window*/
1857 IShellBrowser_AddRef(This->pShellBrowser);
1858 IShellBrowser_GetWindow(This->pShellBrowser, &(This->hWndParent));
1859
1860 /* try to get the ICommDlgBrowserInterface, adds a reference !!! */
1861 This->pCommDlgBrowser=NULL;
1862 if ( SUCCEEDED (IShellBrowser_QueryInterface( This->pShellBrowser,
1863 (REFIID)&IID_ICommDlgBrowser, (LPVOID*) &This->pCommDlgBrowser)))
1864 {
1865 TRACE("-- CommDlgBrowser\n");
1866 }
1867
1868 /*if our window class has not been registered, then do so*/
1869 if(!GetClassInfoA(shell32_hInstance, SV_CLASS_NAME, &wc))
1870 {
1871 ZeroMemory(&wc, sizeof(wc));
1872 wc.style = CS_HREDRAW | CS_VREDRAW;
1873 wc.lpfnWndProc = ShellView_WndProc;
1874 wc.cbClsExtra = 0;
1875 wc.cbWndExtra = 0;
1876 wc.hInstance = shell32_hInstance;
1877 wc.hIcon = 0;
1878 wc.hCursor = LoadCursorA (0, (LPSTR)IDC_ARROW);
1879 wc.hbrBackground = (HBRUSH) (COLOR_WINDOW + 1);
1880 wc.lpszMenuName = NULL;
1881 wc.lpszClassName = SV_CLASS_NAME;
1882
1883 if(!RegisterClassA(&wc))
1884 return E_FAIL;
1885 }
1886
1887 *phWnd = CreateWindowExA(0,
1888 SV_CLASS_NAME,
1889 NULL,
1890 WS_CHILD | WS_TABSTOP,
1891 prcView->left,
1892 prcView->top,
1893 prcView->right - prcView->left,
1894 prcView->bottom - prcView->top,
1895 This->hWndParent,
1896 0,
1897 shell32_hInstance,
1898 (LPVOID)This);
1899
1900 CheckToolbar(This);
1901
1902 if(!*phWnd) return E_FAIL;
1903
1904 SetWindowPos(*phWnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE | SWP_SHOWWINDOW);
1905 UpdateWindow(*phWnd);
1906
1907 return S_OK;
1908 }
1909
1910 static HRESULT WINAPI IShellView_fnDestroyViewWindow(IShellView * iface)
1911 {
1912 IShellViewImpl *This = (IShellViewImpl *)iface;
1913
1914 TRACE("(%p)\n",This);
1915
1916 /*Make absolutely sure all our UI is cleaned up.*/
1917 IShellView_UIActivate((IShellView*)This, SVUIA_DEACTIVATE);
1918
1919 if(This->hMenu)
1920 {
1921 DestroyMenu(This->hMenu);
1922 }
1923
1924 DestroyWindow(This->hWnd);
1925 if(This->pShellBrowser) IShellBrowser_Release(This->pShellBrowser);
1926 if(This->pCommDlgBrowser) ICommDlgBrowser_Release(This->pCommDlgBrowser);
1927
1928
1929 return S_OK;
1930 }
1931
1932 static HRESULT WINAPI IShellView_fnGetCurrentInfo(IShellView * iface, LPFOLDERSETTINGS lpfs)
1933 {
1934 IShellViewImpl *This = (IShellViewImpl *)iface;
1935
1936 TRACE("(%p)->(%p) vmode=%x flags=%x\n",This, lpfs,
1937 This->FolderSettings.ViewMode, This->FolderSettings.fFlags);
1938
1939 if (!lpfs) return E_INVALIDARG;
1940
1941 *lpfs = This->FolderSettings;
1942 return NOERROR;
1943 }
1944
1945 static HRESULT WINAPI IShellView_fnAddPropertySheetPages(IShellView * iface, DWORD dwReserved,LPFNADDPROPSHEETPAGE lpfn, LPARAM lparam)
1946 {
1947 IShellViewImpl *This = (IShellViewImpl *)iface;
1948
1949 FIXME("(%p) stub\n",This);
1950
1951 return E_NOTIMPL;
1952 }
1953
1954 static HRESULT WINAPI IShellView_fnSaveViewState(IShellView * iface)
1955 {
1956 IShellViewImpl *This = (IShellViewImpl *)iface;
1957
1958 FIXME("(%p) stub\n",This);
1959
1960 return S_OK;
1961 }
1962
1963 static HRESULT WINAPI IShellView_fnSelectItem(
1964 IShellView * iface,
1965 LPCITEMIDLIST pidl,
1966 UINT uFlags)
1967 {
1968 IShellViewImpl *This = (IShellViewImpl *)iface;
1969 int i;
1970
1971 TRACE("(%p)->(pidl=%p, 0x%08x) stub\n",This, pidl, uFlags);
1972
1973 i = LV_FindItemByPidl(This, pidl);
1974
1975 if (i != -1)
1976 {
1977 LVITEMA lvItem;
1978
1979 if(uFlags & SVSI_ENSUREVISIBLE)
1980 SendMessageW(This->hWndList, LVM_ENSUREVISIBLE, i, 0);
1981
1982 ZeroMemory(&lvItem, sizeof(LVITEMA));
1983 lvItem.mask = LVIF_STATE;
1984 lvItem.iItem = 0;
1985
1986 while(SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &lvItem))
1987 {
1988 if (lvItem.iItem == i)
1989 {
1990 if (uFlags & SVSI_SELECT)
1991 lvItem.state |= LVIS_SELECTED;
1992 else
1993 lvItem.state &= ~LVIS_SELECTED;
1994
1995 if(uFlags & SVSI_FOCUSED)
1996 lvItem.state &= ~LVIS_FOCUSED;
1997 }
1998 else
1999 {
2000 if (uFlags & SVSI_DESELECTOTHERS)
2001 lvItem.state &= ~LVIS_SELECTED;
2002 }
2003 SendMessageA(This->hWndList, LVM_SETITEMA, 0, (LPARAM) &lvItem);
2004 lvItem.iItem++;
2005 }
2006
2007
2008 if(uFlags & SVSI_EDIT)
2009 SendMessageW(This->hWndList, LVM_EDITLABELW, i, 0);
2010
2011 }
2012 return S_OK;
2013 }
2014
2015 static HRESULT WINAPI IShellView_fnGetItemObject(IShellView * iface, UINT uItem, REFIID riid, LPVOID *ppvOut)
2016 {
2017 IShellViewImpl *This = (IShellViewImpl *)iface;
2018
2019 TRACE("(%p)->(uItem=0x%08x,\n\tIID=%s, ppv=%p)\n",This, uItem, debugstr_guid(riid), ppvOut);
2020
2021 *ppvOut = NULL;
2022
2023 switch(uItem)
2024 {
2025 case SVGIO_BACKGROUND:
2026 *ppvOut = ISvBgCm_Constructor(This->pSFParent, FALSE);
2027 break;
2028
2029 case SVGIO_SELECTION:
2030 ShellView_GetSelections(This);
2031 IShellFolder_GetUIObjectOf(This->pSFParent, This->hWnd, This->cidl, (LPCITEMIDLIST*)This->apidl, riid, 0, ppvOut);
2032 break;
2033 }
2034 TRACE("-- (%p)->(interface=%p)\n",This, *ppvOut);
2035
2036 if(!*ppvOut) return E_OUTOFMEMORY;
2037
2038 return S_OK;
2039 }
2040
2041 static const IShellViewVtbl svvt =
2042 {
2043 IShellView_fnQueryInterface,
2044 IShellView_fnAddRef,
2045 IShellView_fnRelease,
2046 IShellView_fnGetWindow,
2047 IShellView_fnContextSensitiveHelp,
2048 IShellView_fnTranslateAccelerator,
2049 IShellView_fnEnableModeless,
2050 IShellView_fnUIActivate,
2051 IShellView_fnRefresh,
2052 IShellView_fnCreateViewWindow,
2053 IShellView_fnDestroyViewWindow,
2054 IShellView_fnGetCurrentInfo,
2055 IShellView_fnAddPropertySheetPages,
2056 IShellView_fnSaveViewState,
2057 IShellView_fnSelectItem,
2058 IShellView_fnGetItemObject
2059 };
2060
2061
2062 /**********************************************************
2063 * ISVOleCmdTarget_QueryInterface (IUnknown)
2064 */
2065 static HRESULT WINAPI ISVOleCmdTarget_QueryInterface(
2066 IOleCommandTarget * iface,
2067 REFIID iid,
2068 LPVOID* ppvObj)
2069 {
2070 IShellViewImpl *This = impl_from_IOleCommandTarget(iface);
2071
2072 return IShellFolder_QueryInterface((IShellFolder*)This, iid, ppvObj);
2073 }
2074
2075 /**********************************************************
2076 * ISVOleCmdTarget_AddRef (IUnknown)
2077 */
2078 static ULONG WINAPI ISVOleCmdTarget_AddRef(
2079 IOleCommandTarget * iface)
2080 {
2081 IShellViewImpl *This = impl_from_IOleCommandTarget(iface);
2082
2083 return IShellFolder_AddRef((IShellFolder*)This);
2084 }
2085
2086 /**********************************************************
2087 * ISVOleCmdTarget_Release (IUnknown)
2088 */
2089 static ULONG WINAPI ISVOleCmdTarget_Release(
2090 IOleCommandTarget * iface)
2091 {
2092 IShellViewImpl *This = impl_from_IOleCommandTarget(iface);
2093
2094 return IShellFolder_Release((IShellFolder*)This);
2095 }
2096
2097 /**********************************************************
2098 * ISVOleCmdTarget_QueryStatus (IOleCommandTarget)
2099 */
2100 static HRESULT WINAPI ISVOleCmdTarget_QueryStatus(
2101 IOleCommandTarget *iface,
2102 const GUID* pguidCmdGroup,
2103 ULONG cCmds,
2104 OLECMD * prgCmds,
2105 OLECMDTEXT* pCmdText)
2106 {
2107 UINT i;
2108 IShellViewImpl *This = impl_from_IOleCommandTarget(iface);
2109
2110 FIXME("(%p)->(%p(%s) 0x%08lx %p %p\n",
2111 This, pguidCmdGroup, debugstr_guid(pguidCmdGroup), cCmds, prgCmds, pCmdText);
2112
2113 if (!prgCmds)
2114 return E_POINTER;
2115 for (i = 0; i < cCmds; i++)
2116 {
2117 FIXME("\tprgCmds[%d].cmdID = %ld\n", i, prgCmds[i].cmdID);
2118 prgCmds[i].cmdf = 0;
2119 }
2120 return OLECMDERR_E_UNKNOWNGROUP;
2121 }
2122
2123 /**********************************************************
2124 * ISVOleCmdTarget_Exec (IOleCommandTarget)
2125 *
2126 * nCmdID is the OLECMDID_* enumeration
2127 */
2128 static HRESULT WINAPI ISVOleCmdTarget_Exec(
2129 IOleCommandTarget *iface,
2130 const GUID* pguidCmdGroup,
2131 DWORD nCmdID,
2132 DWORD nCmdexecopt,
2133 VARIANT* pvaIn,
2134 VARIANT* pvaOut)
2135 {
2136 IShellViewImpl *This = impl_from_IOleCommandTarget(iface);
2137
2138 FIXME("(%p)->(\n\tTarget GUID:%s Command:0x%08lx Opt:0x%08lx %p %p)\n",
2139 This, debugstr_guid(pguidCmdGroup), nCmdID, nCmdexecopt, pvaIn, pvaOut);
2140
2141 if (IsEqualIID(pguidCmdGroup, &CGID_Explorer) &&
2142 (nCmdID == 0x29) &&
2143 (nCmdexecopt == 4) && pvaOut)
2144 return S_OK;
2145 if (IsEqualIID(pguidCmdGroup, &CGID_ShellDocView) &&
2146 (nCmdID == 9) &&
2147 (nCmdexecopt == 0))
2148 return 1;
2149
2150 return OLECMDERR_E_UNKNOWNGROUP;
2151 }
2152
2153 static const IOleCommandTargetVtbl ctvt =
2154 {
2155 ISVOleCmdTarget_QueryInterface,
2156 ISVOleCmdTarget_AddRef,
2157 ISVOleCmdTarget_Release,
2158 ISVOleCmdTarget_QueryStatus,
2159 ISVOleCmdTarget_Exec
2160 };
2161
2162 /**********************************************************
2163 * ISVDropTarget implementation
2164 */
2165
2166 static HRESULT WINAPI ISVDropTarget_QueryInterface(
2167 IDropTarget *iface,
2168 REFIID riid,
2169 LPVOID *ppvObj)
2170 {
2171 IShellViewImpl *This = impl_from_IDropTarget(iface);
2172
2173 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
2174
2175 return IShellFolder_QueryInterface((IShellFolder*)This, riid, ppvObj);
2176 }
2177
2178 static ULONG WINAPI ISVDropTarget_AddRef( IDropTarget *iface)
2179 {
2180 IShellViewImpl *This = impl_from_IDropTarget(iface);
2181
2182 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2183
2184 return IShellFolder_AddRef((IShellFolder*)This);
2185 }
2186
2187 static ULONG WINAPI ISVDropTarget_Release( IDropTarget *iface)
2188 {
2189 IShellViewImpl *This = impl_from_IDropTarget(iface);
2190
2191 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2192
2193 return IShellFolder_Release((IShellFolder*)This);
2194 }
2195
2196 /******************************************************************************
2197 * drag_notify_subitem [Internal]
2198 *
2199 * Figure out the shellfolder object, which is currently under the mouse cursor
2200 * and notify it via the IDropTarget interface.
2201 */
2202
2203 #define SCROLLAREAWIDTH 20
2204
2205 static HRESULT drag_notify_subitem(IShellViewImpl *This, DWORD grfKeyState, POINTL pt,
2206 DWORD *pdwEffect)
2207 {
2208 LVHITTESTINFO htinfo;
2209 LVITEMA lvItem;
2210 LONG lResult;
2211 HRESULT hr;
2212 RECT clientRect;
2213
2214 /* Map from global to client coordinates and query the index of the listview-item, which is
2215 * currently under the mouse cursor. */
2216 htinfo.pt.x = pt.x;
2217 htinfo.pt.y = pt.y;
2218 htinfo.flags = LVHT_ONITEM;
2219 ScreenToClient(This->hWndList, &htinfo.pt);
2220 lResult = SendMessageW(This->hWndList, LVM_HITTEST, 0, (LPARAM)&htinfo);
2221
2222 /* Send WM_*SCROLL messages every 250 ms during drag-scrolling */
2223 GetClientRect(This->hWndList, &clientRect);
2224 if (htinfo.pt.x == This->ptLastMousePos.x && htinfo.pt.y == This->ptLastMousePos.y &&
2225 (htinfo.pt.x < SCROLLAREAWIDTH || htinfo.pt.x > clientRect.right - SCROLLAREAWIDTH ||
2226 htinfo.pt.y < SCROLLAREAWIDTH || htinfo.pt.y > clientRect.bottom - SCROLLAREAWIDTH ))
2227 {
2228 This->cScrollDelay = (This->cScrollDelay + 1) % 5; /* DragOver is called every 50 ms */
2229 if (This->cScrollDelay == 0) { /* Mouse did hover another 250 ms over the scroll-area */
2230 if (htinfo.pt.x < SCROLLAREAWIDTH)
2231 SendMessageW(This->hWndList, WM_HSCROLL, SB_LINEUP, 0);
2232 if (htinfo.pt.x > clientRect.right - SCROLLAREAWIDTH)
2233 SendMessageW(This->hWndList, WM_HSCROLL, SB_LINEDOWN, 0);
2234 if (htinfo.pt.y < SCROLLAREAWIDTH)
2235 SendMessageW(This->hWndList, WM_VSCROLL, SB_LINEUP, 0);
2236 if (htinfo.pt.y > clientRect.bottom - SCROLLAREAWIDTH)
2237 SendMessageW(This->hWndList, WM_VSCROLL, SB_LINEDOWN, 0);
2238 }
2239 } else {
2240 This->cScrollDelay = 0; /* Reset, if the cursor is not over the listview's scroll-area */
2241 }
2242 This->ptLastMousePos = htinfo.pt;
2243
2244 /* If we are still over the previous sub-item, notify it via DragOver and return. */
2245 if (This->pCurDropTarget && lResult == This->iDragOverItem)
2246 return IDropTarget_DragOver(This->pCurDropTarget, grfKeyState, pt, pdwEffect);
2247
2248 /* We've left the previous sub-item, notify it via DragLeave and Release it. */
2249 if (This->pCurDropTarget) {
2250 IDropTarget_DragLeave(This->pCurDropTarget);
2251 IDropTarget_Release(This->pCurDropTarget);
2252 This->pCurDropTarget = NULL;
2253 }
2254
2255 This->iDragOverItem = lResult;
2256 if (lResult == -1) {
2257 /* We are not above one of the listview's subitems. Bind to the parent folder's
2258 * DropTarget interface. */
2259 hr = IShellFolder_QueryInterface(This->pSFParent, &IID_IDropTarget,
2260 (LPVOID*)&This->pCurDropTarget);
2261 } else {
2262 /* Query the relative PIDL of the shellfolder object represented by the currently
2263 * dragged over listview-item ... */
2264 ZeroMemory(&lvItem, sizeof(lvItem));
2265 lvItem.mask = LVIF_PARAM;
2266 lvItem.iItem = lResult;
2267 SendMessageA(This->hWndList, LVM_GETITEMA, 0, (LPARAM) &lvItem);
2268
2269 /* ... and bind pCurDropTarget to the IDropTarget interface of an UIObject of this object */
2270 hr = IShellFolder_GetUIObjectOf(This->pSFParent, This->hWndList, 1,
2271 (LPCITEMIDLIST*)&lvItem.lParam, &IID_IDropTarget, NULL, (LPVOID*)&This->pCurDropTarget);
2272 }
2273
2274 /* If anything failed, pCurDropTarget should be NULL now, which ought to be a save state. */
2275 if (FAILED(hr))
2276 return hr;
2277
2278 /* Notify the item just entered via DragEnter. */
2279 return IDropTarget_DragEnter(This->pCurDropTarget, This->pCurDataObject, grfKeyState, pt, pdwEffect);
2280 }
2281
2282 static HRESULT WINAPI ISVDropTarget_DragEnter(IDropTarget *iface, IDataObject *pDataObject,
2283 DWORD grfKeyState, POINTL pt, DWORD *pdwEffect)
2284 {
2285 IShellViewImpl *This = impl_from_IDropTarget(iface);
2286
2287 /* Get a hold on the data object for later calls to DragEnter on the sub-folders */
2288 This->pCurDataObject = pDataObject;
2289 IDataObject_AddRef(pDataObject);
2290
2291 return drag_notify_subitem(This, grfKeyState, pt, pdwEffect);
2292 }
2293
2294 static HRESULT WINAPI ISVDropTarget_DragOver(IDropTarget *iface, DWORD grfKeyState, POINTL pt,
2295 DWORD *pdwEffect)
2296 {
2297 IShellViewImpl *This = impl_from_IDropTarget(iface);
2298 return drag_notify_subitem(This, grfKeyState, pt, pdwEffect);
2299 }
2300
2301 static HRESULT WINAPI ISVDropTarget_DragLeave(IDropTarget *iface) {
2302 IShellViewImpl *This = impl_from_IDropTarget(iface);
2303
2304 IDropTarget_DragLeave(This->pCurDropTarget);
2305
2306 IDropTarget_Release(This->pCurDropTarget);
2307 IDataObject_Release(This->pCurDataObject);
2308 This->pCurDataObject = NULL;
2309 This->pCurDropTarget = NULL;
2310 This->iDragOverItem = 0;
2311
2312 return S_OK;
2313 }
2314
2315 static HRESULT WINAPI ISVDropTarget_Drop(IDropTarget *iface, IDataObject* pDataObject,
2316 DWORD grfKeyState, POINTL pt, DWORD *pdwEffect)
2317 {
2318 IShellViewImpl *This = impl_from_IDropTarget(iface);
2319
2320 IDropTarget_Drop(This->pCurDropTarget, pDataObject, grfKeyState, pt, pdwEffect);
2321
2322 IDropTarget_Release(This->pCurDropTarget);
2323 IDataObject_Release(This->pCurDataObject);
2324 This->pCurDataObject = NULL;
2325 This->pCurDropTarget = NULL;
2326 This->iDragOverItem = 0;
2327
2328 return S_OK;
2329 }
2330
2331 static const IDropTargetVtbl dtvt =
2332 {
2333 ISVDropTarget_QueryInterface,
2334 ISVDropTarget_AddRef,
2335 ISVDropTarget_Release,
2336 ISVDropTarget_DragEnter,
2337 ISVDropTarget_DragOver,
2338 ISVDropTarget_DragLeave,
2339 ISVDropTarget_Drop
2340 };
2341
2342 /**********************************************************
2343 * ISVDropSource implementation
2344 */
2345
2346 static HRESULT WINAPI ISVDropSource_QueryInterface(
2347 IDropSource *iface,
2348 REFIID riid,
2349 LPVOID *ppvObj)
2350 {
2351 IShellViewImpl *This = impl_from_IDropSource(iface);
2352
2353 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
2354
2355 return IShellFolder_QueryInterface((IShellFolder*)This, riid, ppvObj);
2356 }
2357
2358 static ULONG WINAPI ISVDropSource_AddRef( IDropSource *iface)
2359 {
2360 IShellViewImpl *This = impl_from_IDropSource(iface);
2361
2362 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2363
2364 return IShellFolder_AddRef((IShellFolder*)This);
2365 }
2366
2367 static ULONG WINAPI ISVDropSource_Release( IDropSource *iface)
2368 {
2369 IShellViewImpl *This = impl_from_IDropSource(iface);
2370
2371 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2372
2373 return IShellFolder_Release((IShellFolder*)This);
2374 }
2375 static HRESULT WINAPI ISVDropSource_QueryContinueDrag(
2376 IDropSource *iface,
2377 BOOL fEscapePressed,
2378 DWORD grfKeyState)
2379 {
2380 IShellViewImpl *This = impl_from_IDropSource(iface);
2381 TRACE("(%p)\n",This);
2382
2383 if (fEscapePressed)
2384 return DRAGDROP_S_CANCEL;
2385 else if (!(grfKeyState & MK_LBUTTON) && !(grfKeyState & MK_RBUTTON))
2386 return DRAGDROP_S_DROP;
2387 else
2388 return NOERROR;
2389 }
2390
2391 static HRESULT WINAPI ISVDropSource_GiveFeedback(
2392 IDropSource *iface,
2393 DWORD dwEffect)
2394 {
2395 IShellViewImpl *This = impl_from_IDropSource(iface);
2396 TRACE("(%p)\n",This);
2397
2398 return DRAGDROP_S_USEDEFAULTCURSORS;
2399 }
2400
2401 static const IDropSourceVtbl dsvt =
2402 {
2403 ISVDropSource_QueryInterface,
2404 ISVDropSource_AddRef,
2405 ISVDropSource_Release,
2406 ISVDropSource_QueryContinueDrag,
2407 ISVDropSource_GiveFeedback
2408 };
2409 /**********************************************************
2410 * ISVViewObject implementation
2411 */
2412
2413 static HRESULT WINAPI ISVViewObject_QueryInterface(
2414 IViewObject *iface,
2415 REFIID riid,
2416 LPVOID *ppvObj)
2417 {
2418 IShellViewImpl *This = impl_from_IViewObject(iface);
2419
2420 TRACE("(%p)->(\n\tIID:\t%s,%p)\n",This,debugstr_guid(riid),ppvObj);
2421
2422 return IShellFolder_QueryInterface((IShellFolder*)This, riid, ppvObj);
2423 }
2424
2425 static ULONG WINAPI ISVViewObject_AddRef( IViewObject *iface)
2426 {
2427 IShellViewImpl *This = impl_from_IViewObject(iface);
2428
2429 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2430
2431 return IShellFolder_AddRef((IShellFolder*)This);
2432 }
2433
2434 static ULONG WINAPI ISVViewObject_Release( IViewObject *iface)
2435 {
2436 IShellViewImpl *This = impl_from_IViewObject(iface);
2437
2438 TRACE("(%p)->(count=%lu)\n",This,This->ref);
2439
2440 return IShellFolder_Release((IShellFolder*)This);
2441 }
2442
2443 static HRESULT WINAPI ISVViewObject_Draw(
2444 IViewObject *iface,
2445 DWORD dwDrawAspect,
2446 LONG lindex,
2447 void* pvAspect,
2448 DVTARGETDEVICE* ptd,
2449 HDC hdcTargetDev,
2450 HDC hdcDraw,
2451 LPCRECTL lprcBounds,
2452 LPCRECTL lprcWBounds,
2453 BOOL (CALLBACK *pfnContinue)(ULONG_PTR dwContinue),
2454 ULONG_PTR dwContinue)
2455 {
2456
2457 IShellViewImpl *This = impl_from_IViewObject(iface);
2458
2459 FIXME("Stub: This=%p\n",This);
2460
2461 return E_NOTIMPL;
2462 }
2463 static HRESULT WINAPI ISVViewObject_GetColorSet(
2464 IViewObject *iface,
2465 DWORD dwDrawAspect,
2466 LONG lindex,
2467 void *pvAspect,
2468 DVTARGETDEVICE* ptd,
2469 HDC hicTargetDevice,
2470 LOGPALETTE** ppColorSet)
2471 {
2472
2473 IShellViewImpl *This = impl_from_IViewObject(iface);
2474
2475 FIXME("Stub: This=%p\n",This);
2476
2477 return E_NOTIMPL;
2478 }
2479 static HRESULT WINAPI ISVViewObject_Freeze(
2480 IViewObject *iface,
2481 DWORD dwDrawAspect,
2482 LONG lindex,
2483 void* pvAspect,
2484 DWORD* pdwFreeze)
2485 {
2486
2487 IShellViewImpl *This = impl_from_IViewObject(iface);
2488
2489 FIXME("Stub: This=%p\n",This);
2490
2491 return E_NOTIMPL;
2492 }
2493 static HRESULT WINAPI ISVViewObject_Unfreeze(
2494 IViewObject *iface,
2495 DWORD dwFreeze)
2496 {
2497
2498 IShellViewImpl *This = impl_from_IViewObject(iface);
2499
2500 FIXME("Stub: This=%p\n",This);
2501
2502 return E_NOTIMPL;
2503 }
2504 static HRESULT WINAPI ISVViewObject_SetAdvise(
2505 IViewObject *iface,
2506 DWORD aspects,
2507 DWORD advf,
2508 IAdviseSink* pAdvSink)
2509 {
2510
2511 IShellViewImpl *This = impl_from_IViewObject(iface);
2512
2513 FIXME("partial stub: %p %08lx %08lx %p\n",
2514 This, aspects, advf, pAdvSink);
2515
2516 /* FIXME: we set the AdviseSink, but never use it to send any advice */
2517 This->pAdvSink = pAdvSink;
2518 This->dwAspects = aspects;
2519 This->dwAdvf = advf;
2520
2521 return S_OK;
2522 }
2523
2524 static HRESULT WINAPI ISVViewObject_GetAdvise(
2525 IViewObject *iface,
2526 DWORD* pAspects,
2527 DWORD* pAdvf,
2528 IAdviseSink** ppAdvSink)
2529 {
2530
2531 IShellViewImpl *This = impl_from_IViewObject(iface);
2532
2533 TRACE("This=%p pAspects=%p pAdvf=%p ppAdvSink=%p\n",
2534 This, pAspects, pAdvf, ppAdvSink);
2535
2536 if( ppAdvSink )
2537 {
2538 IAdviseSink_AddRef( This->pAdvSink );
2539 *ppAdvSink = This->pAdvSink;
2540 }
2541 if( pAspects )
2542 *pAspects = This->dwAspects;
2543 if( pAdvf )
2544 *pAdvf = This->dwAdvf;
2545
2546 return S_OK;
2547 }
2548
2549
2550 static const IViewObjectVtbl vovt =
2551 {
2552 ISVViewObject_QueryInterface,
2553 ISVViewObject_AddRef,
2554 ISVViewObject_Release,
2555 ISVViewObject_Draw,
2556 ISVViewObject_GetColorSet,
2557 ISVViewObject_Freeze,
2558 ISVViewObject_Unfreeze,
2559 ISVViewObject_SetAdvise,
2560 ISVViewObject_GetAdvise
2561 };
Maarten's multimedia branch