]>
Commit | Line | Data |
---|---|---|
2bda0e17 KB |
1 | ///////////////////////////////////////////////////////////////////////////// |
2 | // Name: dirdlg.cpp | |
3 | // Purpose: wxDirDialog | |
4 | // Author: Julian Smart | |
5 | // Modified by: | |
6 | // Created: 01/02/97 | |
7 | // RCS-ID: $Id$ | |
6c9a19aa | 8 | // Copyright: (c) Julian Smart |
65571936 | 9 | // Licence: wxWindows licence |
2bda0e17 KB |
10 | ///////////////////////////////////////////////////////////////////////////// |
11 | ||
3f2711d5 VZ |
12 | // ============================================================================ |
13 | // declarations | |
14 | // ============================================================================ | |
15 | ||
16 | // ---------------------------------------------------------------------------- | |
17 | // headers | |
18 | // ---------------------------------------------------------------------------- | |
1e6feb95 | 19 | |
14f355c2 | 20 | #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA) |
3f2711d5 | 21 | #pragma implementation "dirdlg.h" |
2bda0e17 KB |
22 | #endif |
23 | ||
24 | // For compilers that support precompilation, includes "wx.h". | |
25 | #include "wx/wxprec.h" | |
26 | ||
27 | #ifdef __BORLANDC__ | |
3f2711d5 | 28 | #pragma hdrstop |
2bda0e17 KB |
29 | #endif |
30 | ||
1e6feb95 VZ |
31 | #if wxUSE_DIRDLG |
32 | ||
7fc0bd1c | 33 | #if defined(__WIN95__) && !defined(__GNUWIN32_OLD__) && wxUSE_OLE |
54744d3a | 34 | |
2bda0e17 | 35 | #ifndef WX_PRECOMP |
3f2711d5 VZ |
36 | #include "wx/utils.h" |
37 | #include "wx/dialog.h" | |
38 | #include "wx/dirdlg.h" | |
77902671 | 39 | #include "wx/log.h" |
15ad98b7 | 40 | #include "wx/app.h" // for GetComCtl32Version() |
2bda0e17 KB |
41 | #endif |
42 | ||
3f2711d5 VZ |
43 | #include "wx/msw/private.h" |
44 | ||
4676948b JS |
45 | #ifdef __WXWINCE__ |
46 | #include <winreg.h> | |
47 | #include <objbase.h> | |
48 | #include <shlguid.h> | |
49 | #endif | |
e7b0dcd9 | 50 | #include <shlobj.h> // Win95 shell |
2bda0e17 | 51 | |
3f2711d5 VZ |
52 | // ---------------------------------------------------------------------------- |
53 | // constants | |
54 | // ---------------------------------------------------------------------------- | |
2bda0e17 | 55 | |
3f2711d5 | 56 | #ifndef MAX_PATH |
54744d3a | 57 | #define MAX_PATH 4096 // be generous |
3f2711d5 VZ |
58 | #endif |
59 | ||
cf54972e VZ |
60 | #ifndef BIF_NEWDIALOGSTYLE |
61 | #define BIF_NEWDIALOGSTYLE 0x0040 | |
62 | #endif | |
63 | ||
64 | #ifndef BIF_NONEWFOLDERBUTTON | |
65 | #define BIF_NONEWFOLDERBUTTON 0x0200 | |
66 | #endif | |
67 | ||
94311eef MB |
68 | #ifndef BIF_EDITBOX |
69 | #define BIF_EDITBOX 16 | |
70 | #endif | |
71 | ||
3f2711d5 | 72 | // ---------------------------------------------------------------------------- |
77ffb593 | 73 | // wxWidgets macros |
3f2711d5 | 74 | // ---------------------------------------------------------------------------- |
2bda0e17 | 75 | |
54744d3a | 76 | IMPLEMENT_CLASS(wxDirDialog, wxDialog) |
2bda0e17 | 77 | |
3f2711d5 VZ |
78 | // ---------------------------------------------------------------------------- |
79 | // private functions prototypes | |
80 | // ---------------------------------------------------------------------------- | |
81 | ||
82 | // free the parameter | |
83 | static void ItemListFree(LPITEMIDLIST pidl); | |
bfa2e032 | 84 | |
3f2711d5 VZ |
85 | // the callback proc for the dir dlg |
86 | static int CALLBACK BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lp, | |
87 | LPARAM pData); | |
bfa2e032 | 88 | |
54744d3a | 89 | |
3f2711d5 VZ |
90 | // ============================================================================ |
91 | // implementation | |
92 | // ============================================================================ | |
bfa2e032 | 93 | |
3f2711d5 VZ |
94 | // ---------------------------------------------------------------------------- |
95 | // wxDirDialog | |
96 | // ---------------------------------------------------------------------------- | |
97 | ||
98 | wxDirDialog::wxDirDialog(wxWindow *parent, | |
99 | const wxString& message, | |
100 | const wxString& defaultPath, | |
90a6f1cc | 101 | long style, |
e78d4a23 VZ |
102 | const wxPoint& WXUNUSED(pos), |
103 | const wxSize& WXUNUSED(size), | |
104 | const wxString& WXUNUSED(name)) | |
2bda0e17 KB |
105 | { |
106 | m_message = message; | |
2bda0e17 | 107 | m_parent = parent; |
90a6f1cc RD |
108 | |
109 | SetStyle(style); | |
f3558acc VZ |
110 | SetPath(defaultPath); |
111 | } | |
112 | ||
113 | void wxDirDialog::SetPath(const wxString& path) | |
114 | { | |
115 | m_path = path; | |
e7b0dcd9 VZ |
116 | |
117 | // SHBrowseForFolder doesn't like '/'s nor the trailing backslashes | |
118 | m_path.Replace(_T("/"), _T("\\")); | |
f3558acc | 119 | if ( !m_path.empty() ) |
e7b0dcd9 | 120 | { |
f3558acc VZ |
121 | while ( *(m_path.end() - 1) == _T('\\') ) |
122 | { | |
da03e330 VZ |
123 | m_path.erase(m_path.length() - 1); |
124 | } | |
125 | ||
126 | // but the root drive should have a trailing slash (again, this is just | |
127 | // the way the native dialog works) | |
128 | if ( *(m_path.end() - 1) == _T(':') ) | |
129 | { | |
130 | m_path += _T('\\'); | |
f3558acc | 131 | } |
e7b0dcd9 | 132 | } |
2bda0e17 KB |
133 | } |
134 | ||
3f2711d5 | 135 | int wxDirDialog::ShowModal() |
2bda0e17 | 136 | { |
f3558acc VZ |
137 | wxWindow *parent = GetParent(); |
138 | ||
2bda0e17 | 139 | BROWSEINFO bi; |
f3558acc | 140 | bi.hwndOwner = parent ? GetHwndOf(parent) : NULL; |
3f2711d5 VZ |
141 | bi.pidlRoot = NULL; |
142 | bi.pszDisplayName = NULL; | |
4676948b JS |
143 | #ifdef __WXWINCE__ |
144 | bi.lpszTitle = m_message.mb_str(); | |
145 | #else | |
3f2711d5 | 146 | bi.lpszTitle = m_message.c_str(); |
4676948b | 147 | #endif |
3f2711d5 VZ |
148 | bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT; |
149 | bi.lpfn = BrowseCallbackProc; | |
150 | bi.lParam = (LPARAM)m_path.c_str(); // param for the callback | |
151 | ||
cf54972e VZ |
152 | static const int verComCtl32 = wxApp::GetComCtl32Version(); |
153 | ||
154 | // we always add the edit box (it doesn't hurt anybody, does it?) if it is | |
155 | // supported by the system | |
156 | if ( verComCtl32 >= 471 ) | |
157 | { | |
158 | bi.ulFlags |= BIF_EDITBOX; | |
159 | } | |
160 | ||
cf54972e VZ |
161 | // to have the "New Folder" button we must use the "new" dialog style which |
162 | // is also the only way to have a resizable dialog | |
163 | // | |
164 | // "new" style is only available in the version 5.0+ of comctl32.dll | |
165 | const bool needNewDir = HasFlag(wxDD_NEW_DIR_BUTTON); | |
166 | if ( (needNewDir || HasFlag(wxRESIZE_BORDER)) && (verComCtl32 >= 500) ) | |
167 | { | |
03776753 JS |
168 | if (needNewDir) |
169 | { | |
170 | bi.ulFlags |= BIF_NEWDIALOGSTYLE; | |
171 | } | |
172 | else | |
173 | { | |
174 | // Versions < 600 doesn't support BIF_NONEWFOLDERBUTTON | |
175 | // The only way to get rid of the Make New Folder button is use | |
176 | // the old dialog style which doesn't have the button thus we | |
177 | // simply don't set the New Dialog Style for such comctl versions. | |
178 | if (verComCtl32 >= 600) | |
179 | { | |
180 | bi.ulFlags |= BIF_NEWDIALOGSTYLE; | |
181 | bi.ulFlags |= BIF_NONEWFOLDERBUTTON; | |
182 | } | |
183 | } | |
90a6f1cc RD |
184 | } |
185 | ||
cf54972e | 186 | // do show the dialog |
3f2711d5 VZ |
187 | LPITEMIDLIST pidl = SHBrowseForFolder(&bi); |
188 | ||
189 | if ( bi.pidlRoot ) | |
190 | { | |
191 | ItemListFree((LPITEMIDLIST)bi.pidlRoot); | |
192 | } | |
193 | ||
194 | if ( !pidl ) | |
2bda0e17 | 195 | { |
3f2711d5 | 196 | // Cancel button pressed |
2bda0e17 KB |
197 | return wxID_CANCEL; |
198 | } | |
199 | ||
cf54972e | 200 | BOOL ok = SHGetPathFromIDList(pidl, wxStringBuffer(m_path, MAX_PATH)); |
3f2711d5 VZ |
201 | |
202 | ItemListFree(pidl); | |
203 | ||
204 | if ( !ok ) | |
205 | { | |
f6bcfd97 | 206 | wxLogLastError(wxT("SHGetPathFromIDList")); |
3f2711d5 | 207 | |
2bda0e17 | 208 | return wxID_CANCEL; |
2bda0e17 | 209 | } |
3f2711d5 VZ |
210 | |
211 | return wxID_OK; | |
3f2711d5 VZ |
212 | } |
213 | ||
214 | // ---------------------------------------------------------------------------- | |
215 | // private functions | |
216 | // ---------------------------------------------------------------------------- | |
217 | ||
218 | static int CALLBACK | |
219 | BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lp, LPARAM pData) | |
220 | { | |
221 | switch(uMsg) | |
222 | { | |
223 | case BFFM_INITIALIZED: | |
224 | // sent immediately after initialisation and so we may set the | |
225 | // initial selection here | |
226 | // | |
227 | // wParam = TRUE => lParam is a string and not a PIDL | |
4676948b | 228 | #ifndef __WXWINCE__ |
d71cc120 | 229 | ::SendMessage(hwnd, BFFM_SETSELECTION, TRUE, pData); |
4676948b | 230 | #endif |
3f2711d5 VZ |
231 | break; |
232 | ||
233 | case BFFM_SELCHANGED: | |
cf54972e VZ |
234 | // note that this doesn't work with the new style UI (MSDN doesn't |
235 | // say anything about it, but the comments in shlobj.h do!) but we | |
236 | // still execute this code in case it starts working again with the | |
237 | // "new new UI" (or would it be "NewUIEx" according to tradition?) | |
3f2711d5 VZ |
238 | { |
239 | // Set the status window to the currently selected path. | |
cf54972e VZ |
240 | wxString strDir; |
241 | if ( SHGetPathFromIDList((LPITEMIDLIST)lp, | |
242 | wxStringBuffer(strDir, MAX_PATH)) ) | |
3f2711d5 | 243 | { |
cf54972e VZ |
244 | // NB: this shouldn't be necessary with the new style box |
245 | // (which is resizable), but as for now it doesn't work | |
246 | // anyhow (see the comment above) no harm in doing it | |
247 | ||
248 | // need to truncate or it displays incorrectly | |
249 | static const size_t maxChars = 37; | |
250 | if ( strDir.length() > maxChars ) | |
6a097cd6 | 251 | { |
cf54972e | 252 | strDir = strDir.Right(maxChars); |
6a097cd6 JS |
253 | strDir = wxString(wxT("...")) + strDir; |
254 | } | |
cf54972e VZ |
255 | |
256 | SendMessage(hwnd, BFFM_SETSTATUSTEXT, | |
257 | 0, (LPARAM)strDir.c_str()); | |
3f2711d5 VZ |
258 | } |
259 | } | |
260 | break; | |
261 | ||
262 | //case BFFM_VALIDATEFAILED: -- might be used to provide custom message | |
263 | // if the user types in invalid dir name | |
264 | } | |
265 | ||
266 | return 0; | |
267 | } | |
268 | ||
269 | ||
270 | static void ItemListFree(LPITEMIDLIST pidl) | |
271 | { | |
272 | if ( pidl ) | |
273 | { | |
274 | LPMALLOC pMalloc; | |
275 | SHGetMalloc(&pMalloc); | |
276 | if ( pMalloc ) | |
277 | { | |
278 | pMalloc->Free(pidl); | |
279 | pMalloc->Release(); | |
280 | } | |
281 | else | |
282 | { | |
f6bcfd97 | 283 | wxLogLastError(wxT("SHGetMalloc")); |
3f2711d5 VZ |
284 | } |
285 | } | |
2bda0e17 KB |
286 | } |
287 | ||
54744d3a VZ |
288 | #else |
289 | #include "../generic/dirdlgg.cpp" | |
290 | #endif // compiler/platform on which the code here compiles | |
1e6feb95 VZ |
291 | |
292 | #endif // wxUSE_DIRDLG |