9 #include "sysmetrics.h"
10 #include "debugtools.h"
17 #include "wine/obj_base.h"
18 #include "wine/obj_enumidlist.h"
19 #include "wine/obj_shellfolder.h"
22 #include "shell32_main.h"
25 DEFAULT_DEBUG_CHANNEL(shell
)
27 #define IDD_TREEVIEW 99
29 static HWND hwndTreeView
;
30 static LPBROWSEINFOA lpBrowseInfo
;
31 static LPITEMIDLIST pidlRet
;
33 static void FillTreeView(LPSHELLFOLDER lpsf
, LPITEMIDLIST lpifq
, HTREEITEM hParent
);
35 static void InitializeTreeView(HWND hwndParent
)
37 HIMAGELIST hImageList
;
41 hwndTreeView
= GetDlgItem (hwndParent
, IDD_TREEVIEW
);
42 Shell_GetImageList(NULL
, &hImageList
);
44 TRACE("dlg=%x tree=%x\n", hwndParent
, hwndTreeView
);
46 if (hImageList
&& hwndTreeView
)
47 { TreeView_SetImageList(hwndTreeView
, hImageList
, 0);
50 hr
= SHGetDesktopFolder(&lpsf
);
52 if (SUCCEEDED(hr
) && hwndTreeView
)
53 { TreeView_DeleteAllItems(hwndTreeView
);
54 FillTreeView(lpsf
, NULL
, TVI_ROOT
);
58 { IShellFolder_Release(lpsf
);
62 static int GetIcon(LPITEMIDLIST lpi
, UINT uFlags
)
64 SHGetFileInfoA((LPCSTR
)lpi
,0,&sfi
, sizeof(SHFILEINFOA
), uFlags
);
68 static void GetNormalAndSelectedIcons(LPITEMIDLIST lpifq
,LPTVITEMA lpTV_ITEM
)
69 { TRACE("%p %p\n",lpifq
, lpTV_ITEM
);
71 lpTV_ITEM
->iImage
= GetIcon(lpifq
, SHGFI_PIDL
| SHGFI_SYSICONINDEX
| SHGFI_SMALLICON
);
72 lpTV_ITEM
->iSelectedImage
= GetIcon(lpifq
, SHGFI_PIDL
| SHGFI_SYSICONINDEX
| SHGFI_SMALLICON
| SHGFI_OPENICON
);
79 LPSHELLFOLDER lpsfParent
;
82 } TV_ITEMDATA
, *LPTV_ITEMDATA
;
84 static BOOL
GetName(LPSHELLFOLDER lpsf
, LPITEMIDLIST lpi
, DWORD dwFlags
, LPSTR lpFriendlyName
)
89 TRACE("%p %p %lx %p\n", lpsf
, lpi
, dwFlags
, lpFriendlyName
);
90 if (SUCCEEDED(IShellFolder_GetDisplayNameOf(lpsf
, lpi
, dwFlags
, &str
)))
91 { bSuccess
= StrRetToStrN (lpFriendlyName
, MAX_PATH
, &str
, lpi
);
96 TRACE("-- %s\n",lpFriendlyName
);
100 static void FillTreeView(IShellFolder
* lpsf
, LPITEMIDLIST pidl
, HTREEITEM hParent
)
103 TVINSERTSTRUCTA tvins
;
106 LPITEMIDLIST pidlTemp
=0;
107 LPTV_ITEMDATA lptvid
=0;
111 HWND hwnd
=GetParent(hwndTreeView
);
113 TRACE("%p %p %x\n",lpsf
, pidl
, (INT
)hParent
);
115 SetCapture(GetParent(hwndTreeView
));
116 SetCursor(LoadCursorA(0, IDC_WAITA
));
118 hr
=IShellFolder_EnumObjects(lpsf
,hwnd
, SHCONTF_FOLDERS
| SHCONTF_NONFOLDERS
,&lpe
);
121 { while (NOERROR
== IEnumIDList_Next(lpe
,1,&pidlTemp
,&ulFetched
))
122 { ULONG ulAttrs
= SFGAO_HASSUBFOLDER
| SFGAO_FOLDER
;
123 IShellFolder_GetAttributesOf(lpsf
, 1, &pidlTemp
, &ulAttrs
);
124 if (ulAttrs
& (SFGAO_HASSUBFOLDER
| SFGAO_FOLDER
))
125 { if (ulAttrs
& SFGAO_FOLDER
)
126 { tvi
.mask
= TVIF_TEXT
| TVIF_IMAGE
| TVIF_SELECTEDIMAGE
| TVIF_PARAM
;
128 if (ulAttrs
& SFGAO_HASSUBFOLDER
)
130 tvi
.mask
|= TVIF_CHILDREN
;
133 if (! ( lptvid
= (LPTV_ITEMDATA
)SHAlloc(sizeof(TV_ITEMDATA
)) ) )
136 if (!GetName(lpsf
, pidlTemp
, SHGDN_NORMAL
, szBuff
))
139 tvi
.pszText
= szBuff
;
140 tvi
.cchTextMax
= MAX_PATH
;
141 tvi
.lParam
= (LPARAM
)lptvid
;
143 IShellFolder_AddRef(lpsf
);
144 lptvid
->lpsfParent
= lpsf
;
145 lptvid
->lpi
= ILClone(pidlTemp
);
146 lptvid
->lpifq
= ILCombine(pidl
, pidlTemp
);
147 GetNormalAndSelectedIcons(lptvid
->lpifq
, &tvi
);
149 tvins
.DUMMYUNIONNAME
.item
= tvi
;
150 tvins
.hInsertAfter
= hPrev
;
151 tvins
.hParent
= hParent
;
153 hPrev
= (HTREEITEM
)TreeView_InsertItemA (hwndTreeView
, &tvins
);
157 SHFree(pidlTemp
); /* Finally, free the pidl that the shell gave us... */
164 SetCursor(LoadCursorA(0, IDC_ARROWA
));
167 lpe
->lpvtbl
->fnRelease(lpe
);
172 static LRESULT
MsgNotify(HWND hWnd
, UINT CtlID
, LPNMHDR lpnmh
)
174 NMTREEVIEWA
*pnmtv
= (NMTREEVIEWA
*)lpnmh
;
175 LPTV_ITEMDATA lptvid
; /* Long pointer to TreeView item data */
176 IShellFolder
* lpsf2
=0;
179 TRACE("%x %x %p msg=%x\n", hWnd
, CtlID
, lpnmh
, pnmtv
->hdr
.code
);
181 switch (pnmtv
->hdr
.idFrom
)
183 switch (pnmtv
->hdr
.code
)
184 { case TVN_DELETEITEM
:
185 { FIXME("TVN_DELETEITEM\n");
186 lptvid
=(LPTV_ITEMDATA
)pnmtv
->itemOld
.lParam
;
187 IShellFolder_Release(lptvid
->lpsfParent
);
189 SHFree(lptvid
->lpifq
);
194 case TVN_ITEMEXPANDING
:
195 { FIXME("TVN_ITEMEXPANDING\n");
196 if ((pnmtv
->itemNew
.state
& TVIS_EXPANDEDONCE
))
199 lptvid
=(LPTV_ITEMDATA
)pnmtv
->itemNew
.lParam
;
200 if (SUCCEEDED(IShellFolder_BindToObject(lptvid
->lpsfParent
, lptvid
->lpi
,0,(REFIID
)&IID_IShellFolder
,(LPVOID
*)&lpsf2
)))
201 { FillTreeView( lpsf2
, lptvid
->lpifq
, pnmtv
->itemNew
.hItem
);
203 TreeView_SortChildren(hwndTreeView
, pnmtv
->itemNew
.hItem
, FALSE
);
207 lptvid
=(LPTV_ITEMDATA
)pnmtv
->itemNew
.lParam
;
208 pidlRet
= lptvid
->lpifq
;
212 FIXME("unhandled\n");
225 /*************************************************************************
226 * BrsFolderDlgProc32 (not an exported API function)
228 BOOL WINAPI
BrsFolderDlgProc( HWND hWnd
, UINT msg
, WPARAM wParam
,
230 { TRACE("hwnd=%i msg=%i 0x%08x 0x%08lx\n", hWnd
, msg
, wParam
, lParam
);
233 { case WM_INITDIALOG
:
235 lpBrowseInfo
= (LPBROWSEINFOA
) lParam
;
236 if (lpBrowseInfo
->lpfn
)
237 FIXME("Callbacks not implemented\n");
238 if (lpBrowseInfo
->ulFlags
)
239 FIXME("flag %x not implemented\n", lpBrowseInfo
->ulFlags
);
240 if (lpBrowseInfo
->lpszTitle
)
241 FIXME("title %s not displayed\n", lpBrowseInfo
->lpszTitle
);
242 if ( lpBrowseInfo
->pidlRoot
)
243 FIXME("root is desktop\n");
245 InitializeTreeView ( hWnd
);
249 MsgNotify( hWnd
, (UINT
)wParam
, (LPNMHDR
)lParam
);
256 _ILGetPidlPath (pidlRet
, lpBrowseInfo
->pszDisplayName
, MAX_PATH
);
257 EndDialog(hWnd
, (DWORD
) ILClone(pidlRet
));
269 /*************************************************************************
270 * SHBrowseForFolderA [SHELL32.209]
273 LPITEMIDLIST WINAPI
SHBrowseForFolderA (LPBROWSEINFOA lpbi
)
275 TRACE("(%lx,%s) empty stub!\n", (DWORD
)lpbi
, lpbi
->lpszTitle
);
277 return (LPITEMIDLIST
) DialogBoxParamA( shell32_hInstance
,
278 "SHBRSFORFOLDER_MSGBOX", 0,
279 BrsFolderDlgProc
, (INT
)lpbi
);