]> git.saurik.com Git - wxWidgets.git/blob - src/msw/filedlg.cpp
Update compile support for OpenVMS
[wxWidgets.git] / src / msw / filedlg.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/msw/filedlg.cpp
3 // Purpose: wxFileDialog
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 01/02/97
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 // For compilers that support precompilation, includes "wx.h".
21 #include "wx/wxprec.h"
22
23 #ifdef __BORLANDC__
24 #pragma hdrstop
25 #endif
26
27 #if wxUSE_FILEDLG && !(defined(__SMARTPHONE__) && defined(__WXWINCE__))
28
29 #include "wx/filedlg.h"
30
31 #ifndef WX_PRECOMP
32 #include "wx/msw/wrapcdlg.h"
33 #include "wx/msw/missing.h"
34 #include "wx/utils.h"
35 #include "wx/msgdlg.h"
36 #include "wx/filefn.h"
37 #include "wx/intl.h"
38 #include "wx/log.h"
39 #include "wx/app.h"
40 #include "wx/math.h"
41 #endif
42
43 #include <stdlib.h>
44 #include <string.h>
45
46 #include "wx/filename.h"
47 #include "wx/tokenzr.h"
48
49 // ----------------------------------------------------------------------------
50 // constants
51 // ----------------------------------------------------------------------------
52
53 #ifdef __WIN32__
54 # define wxMAXPATH 65534
55 #else
56 # define wxMAXPATH 1024
57 #endif
58
59 # define wxMAXFILE 1024
60
61 # define wxMAXEXT 5
62
63 // ----------------------------------------------------------------------------
64 // globals
65 // ----------------------------------------------------------------------------
66
67 // standard dialog size for the old Windows systems where the dialog wasn't
68 // resizeable
69 static wxRect gs_rectDialog(0, 0, 428, 266);
70
71 // ============================================================================
72 // implementation
73 // ============================================================================
74
75 IMPLEMENT_CLASS(wxFileDialog, wxFileDialogBase)
76
77 // ----------------------------------------------------------------------------
78 // hook function for moving the dialog
79 // ----------------------------------------------------------------------------
80
81 UINT_PTR APIENTRY
82 wxFileDialogHookFunction(HWND hDlg,
83 UINT iMsg,
84 WPARAM WXUNUSED(wParam),
85 LPARAM lParam)
86 {
87 switch ( iMsg )
88 {
89 case WM_NOTIFY:
90 {
91 OFNOTIFY *pNotifyCode = reinterpret_cast<OFNOTIFY *>(lParam);
92 if ( pNotifyCode->hdr.code == CDN_INITDONE )
93 {
94 reinterpret_cast<wxFileDialog *>(
95 pNotifyCode->lpOFN->lCustData)
96 ->MSWOnInitDone((WXHWND)hDlg);
97 }
98 }
99 break;
100
101 case WM_DESTROY:
102 // reuse the position used for the dialog the next time by default
103 //
104 // NB: at least under Windows 2003 this is useless as after the
105 // first time it's shown the dialog always remembers its size
106 // and position itself and ignores any later SetWindowPos calls
107 wxCopyRECTToRect(wxGetWindowRect(::GetParent(hDlg)), gs_rectDialog);
108 break;
109 }
110
111 // do the default processing
112 return 0;
113 }
114
115 // ----------------------------------------------------------------------------
116 // wxFileDialog
117 // ----------------------------------------------------------------------------
118
119 wxFileDialog::wxFileDialog(wxWindow *parent,
120 const wxString& message,
121 const wxString& defaultDir,
122 const wxString& defaultFileName,
123 const wxString& wildCard,
124 long style,
125 const wxPoint& pos,
126 const wxSize& sz,
127 const wxString& name)
128 : wxFileDialogBase(parent, message, defaultDir, defaultFileName,
129 wildCard, style, pos, sz, name)
130
131 {
132 // NB: all style checks are done by wxFileDialogBase::Create
133
134 m_bMovedWindow = false;
135 m_centreDir = 0;
136
137 // Must set to zero, otherwise the wx routines won't size the window
138 // the second time you call the file dialog, because it thinks it is
139 // already at the requested size.. (when centering)
140 gs_rectDialog.x =
141 gs_rectDialog.y = 0;
142 }
143
144 void wxFileDialog::GetPaths(wxArrayString& paths) const
145 {
146 paths.Empty();
147
148 wxString dir(m_dir);
149 if ( m_dir.Last() != _T('\\') )
150 dir += _T('\\');
151
152 size_t count = m_fileNames.GetCount();
153 for ( size_t n = 0; n < count; n++ )
154 {
155 if (wxFileName(m_fileNames[n]).IsAbsolute())
156 paths.Add(m_fileNames[n]);
157 else
158 paths.Add(dir + m_fileNames[n]);
159 }
160 }
161
162 void wxFileDialog::GetFilenames(wxArrayString& files) const
163 {
164 files = m_fileNames;
165 }
166
167 void wxFileDialog::SetPath(const wxString& path)
168 {
169 wxString ext;
170 wxFileName::SplitPath(path, &m_dir, &m_fileName, &ext);
171 if ( !ext.empty() )
172 m_fileName << _T('.') << ext;
173 }
174
175 void wxFileDialog::DoGetPosition(int *x, int *y) const
176 {
177 if ( x )
178 *x = gs_rectDialog.x;
179 if ( y )
180 *y = gs_rectDialog.y;
181 }
182
183 void wxFileDialog::DoGetSize(int *width, int *height) const
184 {
185 if ( width )
186 *width = gs_rectDialog.width;
187 if ( height )
188 *height = gs_rectDialog.height;
189 }
190
191 void wxFileDialog::DoMoveWindow(int x, int y, int WXUNUSED(w), int WXUNUSED(h))
192 {
193 gs_rectDialog.x = x;
194 gs_rectDialog.y = y;
195
196 // our HWND is only set when we're called from MSWOnInitDone(), test if
197 // this is the case
198 HWND hwnd = GetHwnd();
199 if ( hwnd )
200 {
201 // size of the dialog can't be changed because the controls are not
202 // laid out correctly then
203 ::SetWindowPos(hwnd, HWND_TOP, x, y, 0, 0, SWP_NOZORDER | SWP_NOSIZE);
204 }
205 else // just remember that we were requested to move the window
206 {
207 m_bMovedWindow = true;
208
209 // if Centre() had been called before, it shouldn't be taken into
210 // account now
211 m_centreDir = 0;
212 }
213 }
214
215 void wxFileDialog::DoCentre(int dir)
216 {
217 m_centreDir = dir;
218 m_bMovedWindow = true;
219
220 // it's unnecessary to do anything else at this stage as we'll redo it in
221 // MSWOnInitDone() anyhow
222 }
223
224 void wxFileDialog::MSWOnInitDone(WXHWND hDlg)
225 {
226 // note the the dialog is the parent window: hDlg is a child of it when
227 // OFN_EXPLORER is used
228 HWND hFileDlg = ::GetParent((HWND)hDlg);
229
230 // set HWND so that our DoMoveWindow() works correctly
231 SetHWND((WXHWND)hFileDlg);
232
233 if ( m_centreDir )
234 {
235 // now we have the real dialog size, remember it
236 RECT rect;
237 GetWindowRect(hFileDlg, &rect);
238 gs_rectDialog = wxRectFromRECT(rect);
239
240 // and position the window correctly: notice that we must use the base
241 // class version as our own doesn't do anything except setting flags
242 wxFileDialogBase::DoCentre(m_centreDir);
243 }
244 else // need to just move it to the correct place
245 {
246 SetPosition(gs_rectDialog.GetPosition());
247 }
248
249 // we shouldn't destroy this HWND
250 SetHWND(NULL);
251 }
252
253 // helper used below in ShowCommFileDialog(): style is used to determine
254 // whether to show the "Save file" dialog (if it contains wxFD_SAVE bit) or
255 // "Open file" one; returns true on success or false on failure in which case
256 // err is filled with the CDERR_XXX constant
257 static bool DoShowCommFileDialog(OPENFILENAME *of, long style, DWORD *err)
258 {
259 if ( style & wxFD_SAVE ? GetSaveFileName(of) : GetOpenFileName(of) )
260 return true;
261
262 if ( err )
263 {
264 #ifdef __WXWINCE__
265 // according to MSDN, CommDlgExtendedError() should work under CE as
266 // well but apparently in practice it doesn't (anybody has more
267 // details?)
268 *err = GetLastError();
269 #else
270 *err = CommDlgExtendedError();
271 #endif
272 }
273
274 return false;
275 }
276
277 // We want to use OPENFILENAME struct version 5 (Windows 2000/XP) but we don't
278 // know if the OPENFILENAME declared in the currently used headers is a V5 or
279 // V4 (smaller) one so we try to manually extend the struct in case it is the
280 // old one.
281 //
282 // We don't do this on Windows CE nor under Win64, however, as there are no
283 // compilers with old headers for these architectures
284 #if defined(__WXWINCE__) || defined(__WIN64__)
285 typedef OPENFILENAME wxOPENFILENAME;
286
287 static const DWORD gs_ofStructSize = sizeof(OPENFILENAME);
288 #else // !__WXWINCE__ || __WIN64__
289 #define wxTRY_SMALLER_OPENFILENAME
290
291 struct wxOPENFILENAME : public OPENFILENAME
292 {
293 // fields added in Windows 2000/XP comdlg32.dll version
294 void *pVoid;
295 DWORD dw1;
296 DWORD dw2;
297 };
298
299 // hardcoded sizeof(OPENFILENAME) in the Platform SDK: we have to do it
300 // because sizeof(OPENFILENAME) in the headers we use when compiling the
301 // library could be less if _WIN32_WINNT is not >= 0x500
302 static const DWORD wxOPENFILENAME_V5_SIZE = 88;
303
304 // this is hardcoded sizeof(OPENFILENAME_NT4) from Platform SDK
305 static const DWORD wxOPENFILENAME_V4_SIZE = 76;
306
307 // always try the new one first
308 static DWORD gs_ofStructSize = wxOPENFILENAME_V5_SIZE;
309 #endif // __WXWINCE__ || __WIN64__/!...
310
311 static bool ShowCommFileDialog(OPENFILENAME *of, long style)
312 {
313 DWORD errCode;
314 bool success = DoShowCommFileDialog(of, style, &errCode);
315
316 #ifdef wxTRY_SMALLER_OPENFILENAME
317 // the system might be too old to support the new version file dialog
318 // boxes, try with the old size
319 if ( !success && errCode == CDERR_STRUCTSIZE &&
320 of->lStructSize != wxOPENFILENAME_V4_SIZE )
321 {
322 of->lStructSize = wxOPENFILENAME_V4_SIZE;
323
324 success = DoShowCommFileDialog(of, style, &errCode);
325
326 if ( success || !errCode )
327 {
328 // use this struct size for subsequent dialogs
329 gs_ofStructSize = of->lStructSize;
330 }
331 }
332 #endif // wxTRY_SMALLER_OPENFILENAME
333
334 if ( !success &&
335 // FNERR_INVALIDFILENAME is not defined under CE (besides we don't
336 // use CommDlgExtendedError() there anyhow)
337 #ifndef __WXWINCE__
338 errCode == FNERR_INVALIDFILENAME &&
339 #endif // !__WXWINCE__
340 of->lpstrFile[0] )
341 {
342 // this can happen if the default file name is invalid, try without it
343 // now
344 of->lpstrFile[0] = _T('\0');
345 success = DoShowCommFileDialog(of, style, &errCode);
346 }
347
348 if ( !success )
349 {
350 // common dialog failed - why?
351 if ( errCode != 0 )
352 {
353 wxLogError(_("File dialog failed with error code %0lx."), errCode);
354 }
355 //else: it was just cancelled
356
357 return false;
358 }
359
360 return true;
361 }
362
363 int wxFileDialog::ShowModal()
364 {
365 HWND hWnd = 0;
366 if (m_parent) hWnd = (HWND) m_parent->GetHWND();
367 if (!hWnd && wxTheApp->GetTopWindow())
368 hWnd = (HWND) wxTheApp->GetTopWindow()->GetHWND();
369
370 static wxChar fileNameBuffer [ wxMAXPATH ]; // the file-name
371 wxChar titleBuffer [ wxMAXFILE+1+wxMAXEXT ]; // the file-name, without path
372
373 *fileNameBuffer = wxT('\0');
374 *titleBuffer = wxT('\0');
375
376 long msw_flags = OFN_HIDEREADONLY;
377
378 if ( HasFdFlag(wxFD_FILE_MUST_EXIST) )
379 msw_flags |= OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;
380 /*
381 If the window has been moved the programmer is probably
382 trying to center or position it. Thus we set the callback
383 or hook function so that we can actually adjust the position.
384 Without moving or centering the dlg, it will just stay
385 in the upper left of the frame, it does not center
386 automatically.
387 */
388 if (m_bMovedWindow) // we need these flags.
389 {
390 msw_flags |= OFN_EXPLORER|OFN_ENABLEHOOK;
391 #ifndef __WXWINCE__
392 msw_flags |= OFN_ENABLESIZING;
393 #endif
394 }
395
396 if ( HasFdFlag(wxFD_MULTIPLE) )
397 {
398 // OFN_EXPLORER must always be specified with OFN_ALLOWMULTISELECT
399 msw_flags |= OFN_EXPLORER | OFN_ALLOWMULTISELECT;
400 }
401
402 // if wxFD_CHANGE_DIR flag is not given we shouldn't change the CWD which the
403 // standard dialog does by default (notice that under NT it does it anyhow,
404 // OFN_NOCHANGEDIR or not, see below)
405 if ( !HasFdFlag(wxFD_CHANGE_DIR) )
406 {
407 msw_flags |= OFN_NOCHANGEDIR;
408 }
409
410 if ( HasFdFlag(wxFD_OVERWRITE_PROMPT) )
411 {
412 msw_flags |= OFN_OVERWRITEPROMPT;
413 }
414
415 wxOPENFILENAME of;
416 wxZeroMemory(of);
417
418 of.lStructSize = gs_ofStructSize;
419 of.hwndOwner = hWnd;
420 of.lpstrTitle = m_message.wx_str();
421 of.lpstrFileTitle = titleBuffer;
422 of.nMaxFileTitle = wxMAXFILE + 1 + wxMAXEXT;
423
424 // Convert forward slashes to backslashes (file selector doesn't like
425 // forward slashes) and also squeeze multiple consecutive slashes into one
426 // as it doesn't like two backslashes in a row neither
427
428 wxString dir;
429 size_t i, len = m_dir.length();
430 dir.reserve(len);
431 for ( i = 0; i < len; i++ )
432 {
433 wxChar ch = m_dir[i];
434 switch ( ch )
435 {
436 case _T('/'):
437 // convert to backslash
438 ch = _T('\\');
439
440 // fall through
441
442 case _T('\\'):
443 while ( i < len - 1 )
444 {
445 wxChar chNext = m_dir[i + 1];
446 if ( chNext != _T('\\') && chNext != _T('/') )
447 break;
448
449 // ignore the next one, unless it is at the start of a UNC path
450 if (i > 0)
451 i++;
452 else
453 break;
454 }
455 // fall through
456
457 default:
458 // normal char
459 dir += ch;
460 }
461 }
462
463 of.lpstrInitialDir = dir.c_str();
464
465 of.Flags = msw_flags;
466 of.lpfnHook = wxFileDialogHookFunction;
467 of.lCustData = (LPARAM)this;
468
469 wxArrayString wildDescriptions, wildFilters;
470
471 size_t items = wxParseCommonDialogsFilter(m_wildCard, wildDescriptions, wildFilters);
472
473 wxASSERT_MSG( items > 0 , _T("empty wildcard list") );
474
475 wxString filterBuffer;
476
477 for (i = 0; i < items ; i++)
478 {
479 filterBuffer += wildDescriptions[i];
480 filterBuffer += wxT("|");
481 filterBuffer += wildFilters[i];
482 filterBuffer += wxT("|");
483 }
484
485 // Replace | with \0
486 for (i = 0; i < filterBuffer.length(); i++ ) {
487 if ( filterBuffer.GetChar(i) == wxT('|') ) {
488 filterBuffer[i] = wxT('\0');
489 }
490 }
491
492 of.lpstrFilter = (LPTSTR)filterBuffer.wx_str();
493 of.nFilterIndex = m_filterIndex + 1;
494
495 //=== Setting defaultFileName >>=========================================
496
497 wxStrlcpy(fileNameBuffer, m_fileName.c_str(), WXSIZEOF(fileNameBuffer));
498
499 of.lpstrFile = fileNameBuffer; // holds returned filename
500 of.nMaxFile = wxMAXPATH;
501
502 // we must set the default extension because otherwise Windows would check
503 // for the existing of a wrong file with wxFD_OVERWRITE_PROMPT (i.e. if the
504 // user types "foo" and the default extension is ".bar" we should force it
505 // to check for "foo.bar" existence and not "foo")
506 wxString defextBuffer; // we need it to be alive until GetSaveFileName()!
507 if (HasFdFlag(wxFD_SAVE))
508 {
509 const wxChar* extension = filterBuffer.wx_str();
510 int maxFilter = (int)(of.nFilterIndex*2L) - 1;
511
512 for( int i = 0; i < maxFilter; i++ ) // get extension
513 extension = extension + wxStrlen( extension ) + 1;
514
515 // use dummy name a to avoid assert in AppendExtension
516 defextBuffer = AppendExtension(wxT("a"), extension);
517 if (defextBuffer.StartsWith(wxT("a.")))
518 {
519 defextBuffer = defextBuffer.Mid(2); // remove "a."
520 of.lpstrDefExt = defextBuffer.c_str();
521 }
522 }
523
524 // store off before the standard windows dialog can possibly change it
525 const wxString cwdOrig = wxGetCwd();
526
527 //== Execute FileDialog >>=================================================
528
529 if ( !ShowCommFileDialog(&of, m_windowStyle) )
530 return wxID_CANCEL;
531
532 // GetOpenFileName will always change the current working directory on
533 // (according to MSDN) "Windows NT 4.0/2000/XP" because the flag
534 // OFN_NOCHANGEDIR has no effect. If the user did not specify
535 // wxFD_CHANGE_DIR let's restore the current working directory to what it
536 // was before the dialog was shown.
537 if ( msw_flags & OFN_NOCHANGEDIR )
538 {
539 wxSetWorkingDirectory(cwdOrig);
540 }
541
542 m_fileNames.Empty();
543
544 if ( ( HasFdFlag(wxFD_MULTIPLE) ) &&
545 #if defined(OFN_EXPLORER)
546 ( fileNameBuffer[of.nFileOffset-1] == wxT('\0') )
547 #else
548 ( fileNameBuffer[of.nFileOffset-1] == wxT(' ') )
549 #endif // OFN_EXPLORER
550 )
551 {
552 #if defined(OFN_EXPLORER)
553 m_dir = fileNameBuffer;
554 i = of.nFileOffset;
555 m_fileName = &fileNameBuffer[i];
556 m_fileNames.Add(m_fileName);
557 i += m_fileName.length() + 1;
558
559 while (fileNameBuffer[i] != wxT('\0'))
560 {
561 m_fileNames.Add(&fileNameBuffer[i]);
562 i += wxStrlen(&fileNameBuffer[i]) + 1;
563 }
564 #else
565 wxStringTokenizer toke(fileNameBuffer, _T(" \t\r\n"));
566 m_dir = toke.GetNextToken();
567 m_fileName = toke.GetNextToken();
568 m_fileNames.Add(m_fileName);
569
570 while (toke.HasMoreTokens())
571 m_fileNames.Add(toke.GetNextToken());
572 #endif // OFN_EXPLORER
573
574 wxString dir(m_dir);
575 if ( m_dir.Last() != _T('\\') )
576 dir += _T('\\');
577
578 m_path = dir + m_fileName;
579 m_filterIndex = (int)of.nFilterIndex - 1;
580 }
581 else
582 {
583 //=== Adding the correct extension >>=================================
584
585 m_filterIndex = (int)of.nFilterIndex - 1;
586
587 if ( !of.nFileExtension ||
588 (of.nFileExtension && fileNameBuffer[of.nFileExtension] == wxT('\0')) )
589 {
590 // User has typed a filename without an extension:
591 const wxChar* extension = filterBuffer.wx_str();
592 int maxFilter = (int)(of.nFilterIndex*2L) - 1;
593
594 for( int i = 0; i < maxFilter; i++ ) // get extension
595 extension = extension + wxStrlen( extension ) + 1;
596
597 m_fileName = AppendExtension(fileNameBuffer, extension);
598 wxStrlcpy(fileNameBuffer, m_fileName.c_str(), WXSIZEOF(fileNameBuffer));
599 }
600
601 m_path = fileNameBuffer;
602 m_fileName = wxFileNameFromPath(fileNameBuffer);
603 m_fileNames.Add(m_fileName);
604 m_dir = wxPathOnly(fileNameBuffer);
605 }
606
607 return wxID_OK;
608
609 }
610
611 #endif // wxUSE_FILEDLG && !(__SMARTPHONE__ && __WXWINCE__)