src/msw/filedlg.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        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 and Markus Holzem
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13     #pragma implementation "filedlg.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20     #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24     #include <stdio.h>
  25     #include "wx/defs.h"
  26     #include "wx/utils.h"
  27     #include "wx/msgdlg.h"
  28     #include "wx/dialog.h"
  29     #include "wx/filedlg.h"
  30     #include "wx/intl.h"
  31 #endif
  32
  33 #include <windows.h>
  34
  35 #if !defined(__WIN32__) || defined(__SALFORDC__) || defined(__WXWINE__)
  36     #include <commdlg.h>
  37 #endif
  38
  39 #include "wx/msw/private.h"
  40
  41 #include <math.h>
  42 #include <stdlib.h>
  43 #include <string.h>
  44
  45 #if !USE_SHARED_LIBRARY
  46     IMPLEMENT_CLASS(wxFileDialog, wxDialog)
  47 #endif
  48
  49 wxString wxFileSelector(const wxChar *title,
  50                         const wxChar *defaultDir,
  51                         const wxChar *defaultFileName,
  52                         const wxChar *defaultExtension,
  53                         const wxChar *filter,
  54                         int flags,
  55                         wxWindow *parent,
  56                         int x, int y)
  57 {
  58     // In the original implementation, defaultExtension is passed to the
  59     // lpstrDefExt member of OPENFILENAME. This extension, if non-NULL, is
  60     // appended to the filename if the user fails to type an extension. The new
  61     // implementation (taken from wxFileSelectorEx) appends the extension
  62     // automatically, by looking at the filter specification. In fact this
  63     // should be better than the native Microsoft implementation because
  64     // Windows only allows *one* default extension, whereas here we do the
  65     // right thing depending on the filter the user has chosen.
  66
  67     // If there's a default extension specified but no filter, we create a
  68     // suitable filter.
  69
  70     wxString filter2;
  71     if ( defaultExtension && !filter )
  72         filter2 = wxString(_T("*.")) + defaultExtension;
  73     else if ( filter )
  74         filter2 = filter;
  75
  76     wxString defaultDirString;
  77     if (defaultDir)
  78         defaultDirString = defaultDir;
  79
  80     wxString defaultFilenameString;
  81     if (defaultFileName)
  82         defaultFilenameString = defaultFileName;
  83
  84     wxFileDialog fileDialog(parent, title, defaultDirString,
  85                             defaultFilenameString, filter2,
  86                             flags, wxPoint(x, y));
  87     if( wxStrlen(defaultExtension) != 0 )
  88     {
  89         int filterFind = 1,
  90             filterIndex = 0;
  91
  92         for( unsigned int i = 0; i < filter2.Len(); i++ )
  93         {
  94             if( filter2.GetChar(i) == _T('|') )
  95             {
  96                 // save the start index of the new filter
  97                 unsigned int is = i++;
  98                 filterIndex++;
  99
 100                 // find the end of the filter
 101                 for( ; i < filter2.Len(); i++ )
 102                 {
 103                     if(filter2[i] == _T('|'))
 104                         break;
 105                 }
 106
 107                 if( i-is-1 > 0 && is+1 < filter2.Len() )
 108                 {
 109                     if( filter2.Mid(is+1,i-is-1).Contains(defaultExtension) )
 110 //                    if( filter2.Mid(is+1,i-is-1) == defaultExtension )
 111                     {
 112                         filterFind = filterIndex;
 113                         break;
 114                     }
 115                 }
 116             }
 117         }
 118
 119         fileDialog.SetFilterIndex(filterFind);
 120     }
 121
 122     if ( fileDialog.ShowModal() == wxID_OK )
 123     {
 124         wxStrcpy(wxBuffer, (const wxChar *)fileDialog.GetPath());
 125         return wxBuffer;
 126     }
 127     else
 128         return wxGetEmptyString();
 129 }
 130
 131 # if __BORLANDC__
 132 #   include <dir.h>  // for MAXPATH etc. ( Borland 3.1 )
 133 # endif
 134
 135 # ifndef MAXPATH
 136 # define MAXPATH   400
 137 # endif
 138
 139 # ifndef MAXDRIVE
 140 # define MAXDRIVE  3
 141 # endif
 142
 143 # ifndef MAXFILE
 144 # define MAXFILE   9
 145 # endif
 146
 147 # ifndef MAXEXT
 148 # define MAXEXT    5
 149 # endif
 150
 151
 152 wxString wxFileSelectorEx(const wxChar *title,
 153                        const wxChar *defaultDir,
 154                        const wxChar *defaultFileName,
 155                        int* defaultFilterIndex,
 156                        const wxChar *filter,
 157                        int       flags,
 158                        wxWindow* parent,
 159                        int       x,
 160                        int       y)
 161
 162 {
 163     wxFileDialog fileDialog(parent, title ? title : _T(""), defaultDir ? defaultDir : _T(""),
 164         defaultFileName ? defaultFileName : _T(""), filter ? filter : _T(""), flags, wxPoint(x, y));
 165
 166     if ( fileDialog.ShowModal() == wxID_OK )
 167     {
 168         *defaultFilterIndex = fileDialog.GetFilterIndex();
 169         wxStrcpy(wxBuffer, (const wxChar *)fileDialog.GetPath());
 170         return wxBuffer;
 171     }
 172     else
 173         return wxGetEmptyString();
 174 }
 175
 176 wxFileDialog::wxFileDialog(wxWindow *parent, const wxString& message,
 177         const wxString& defaultDir, const wxString& defaultFileName, const wxString& wildCard,
 178         long style, const wxPoint& pos)
 179 {
 180     m_message = message;
 181     m_dialogStyle = style;
 182     m_parent = parent;
 183     m_path = _T("");
 184     m_fileName = defaultFileName;
 185     m_dir = defaultDir;
 186     m_wildCard = wildCard;
 187     m_filterIndex = 1;
 188 }
 189
 190 int wxFileDialog::ShowModal(void)
 191 {
 192     HWND hWnd = 0;
 193     if (m_parent) hWnd = (HWND) m_parent->GetHWND();
 194
 195     static wxChar fileNameBuffer [ MAXPATH ];           // the file-name
 196     wxChar        titleBuffer    [ MAXFILE+1+MAXEXT ];  // the file-name, without path
 197
 198     *fileNameBuffer = _T('\0');
 199     *titleBuffer    = _T('\0');
 200
 201     long msw_flags = 0;
 202     if ( (m_dialogStyle & wxHIDE_READONLY) || (m_dialogStyle & wxSAVE) )
 203         msw_flags |= OFN_HIDEREADONLY;
 204     if ( m_dialogStyle & wxFILE_MUST_EXIST )
 205         msw_flags |= OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST;
 206
 207     OPENFILENAME of;
 208     memset(&of, 0, sizeof(OPENFILENAME));
 209
 210     of.lpstrCustomFilter = NULL;   // system should not save custom filter
 211     of.nMaxCustFilter    = 0L;
 212
 213     of.nFileOffset       = 0;      // 0-based pointer to filname in lpstFile
 214     of.nFileExtension    = 0;      // 0-based pointer to extension in lpstrFile
 215     of.lpstrDefExt       = NULL;   // no default extension
 216
 217     of.lStructSize       = sizeof(OPENFILENAME);
 218     of.hwndOwner         = hWnd;
 219     of.lpstrTitle        = WXSTRINGCAST m_message;
 220
 221
 222     of.lpstrFileTitle    = titleBuffer;
 223     of.nMaxFileTitle     = MAXFILE + 1 + MAXEXT;    // Windows 3.0 and 3.1
 224
 225     // Convert forward slashes to backslashes (file selector doesn't like
 226     // forward slashes)
 227     size_t i = 0;
 228     size_t len = m_dir.Length();
 229     for (i = 0; i < len; i++)
 230         if (m_dir[i] == _T('/'))
 231             m_dir[i] = _T('\\');
 232
 233     of.lpstrInitialDir   = m_dir.c_str();
 234
 235     of.Flags             = msw_flags;
 236
 237
 238     //=== Like Alejandro Sierra's wildcard modification >>===================
 239     /*
 240        In wxFileSelector you can put, instead of a single wild_card,
 241        pairs of strings separated by '|'.
 242        The first string is a description, and the
 243        second is the wild card. You can put any number of pairs.
 244
 245        eg.  "description1 (*.ex1)|*.ex1|description2 (*.ex2)|*.ex2"
 246
 247        If you put a single wild card, it works as before the modification.
 248      */
 249     //=======================================================================
 250
 251     wxString theFilter;
 252     if ( wxStrlen(m_wildCard) == 0 )
 253         theFilter = wxString(_T("*.*"));
 254     else
 255         theFilter = m_wildCard ;
 256     wxString filterBuffer;
 257
 258     if ( !wxStrchr( theFilter, _T('|') ) ) {    // only one filter ==> default text
 259         filterBuffer.Printf(_("Files (%s)|%s"),
 260                             theFilter.c_str(), theFilter.c_str());
 261     }
 262     else {                                // more then one filter
 263         filterBuffer = theFilter;
 264
 265     }
 266
 267     filterBuffer += _T("|");
 268     // Replace | with \0
 269     for (i = 0; i < filterBuffer.Len(); i++ ) {
 270         if ( filterBuffer.GetChar(i) == _T('|') ) {
 271             filterBuffer[i] = _T('\0');
 272         }
 273     }
 274
 275     of.lpstrFilter  = (LPTSTR)(const wxChar *)filterBuffer;
 276     of.nFilterIndex = m_filterIndex;
 277
 278     //=== Setting defaultFileName >>=========================================
 279
 280     wxStrncpy( fileNameBuffer, (const wxChar *)m_fileName, MAXPATH-1 );
 281     fileNameBuffer[ MAXPATH-1 ] = _T('\0');
 282
 283     of.lpstrFile = fileNameBuffer;  // holds returned filename
 284     of.nMaxFile  = MAXPATH;
 285
 286     //== Execute FileDialog >>=================================================
 287
 288     bool success = (m_dialogStyle & wxSAVE) ? (GetSaveFileName(&of) != 0)
 289                                             : (GetOpenFileName(&of) != 0);
 290
 291     if ( success )
 292     {
 293         const wxChar* extension = NULL;
 294
 295         //=== Adding the correct extension >>=================================
 296
 297         m_filterIndex = (int)of.nFilterIndex;
 298
 299         if ( of.nFileExtension && fileNameBuffer[ of.nFileExtension-1] != _T('.') )
 300         {                                    // user has typed an filename
 301             // without an extension:
 302
 303             int   maxFilter = (int)(of.nFilterIndex*2L-1L);
 304             extension = filterBuffer;
 305
 306             for( int i = 0; i < maxFilter; i++ ) {          // get extension
 307                 extension = extension + wxStrlen( extension ) +1;
 308             }
 309
 310             extension = wxStrrchr( extension, _T('.') );
 311             if (  extension                                 // != "blabla"
 312                     && !wxStrrchr( extension, _T('*') )       // != "blabla.*"
 313                     && !wxStrrchr( extension, _T('?') )       // != "blabla.?"
 314                     && extension[1]                           // != "blabla."
 315                     && extension[1] != _T(' ') )              // != "blabla. "
 316             {
 317                 // now concat extension to the fileName:
 318                 m_fileName = wxString(fileNameBuffer) + extension;
 319
 320                 int len = wxStrlen( fileNameBuffer );
 321                 wxStrncpy( fileNameBuffer + len, extension, MAXPATH - len );
 322                 fileNameBuffer[ MAXPATH -1 ] = _T('\0');
 323             }
 324         }
 325
 326         m_path = fileNameBuffer;
 327         m_fileName = wxFileNameFromPath(fileNameBuffer);
 328
 329
 330         //=== Simulating the wxOVERWRITE_PROMPT >>============================
 331
 332         if ( (m_dialogStyle & wxOVERWRITE_PROMPT) &&
 333              ::wxFileExists( fileNameBuffer ) )
 334         {
 335             wxString messageText;
 336             messageText.Printf(_("Replace file '%s'?"), fileNameBuffer);
 337
 338             if ( wxMessageBox(messageText, m_message, wxYES_NO ) != wxYES )
 339             {
 340                 success = FALSE;
 341             }
 342         }
 343
 344     }
 345     else
 346     {
 347         // common dialog failed - why?
 348 #ifdef __WXDEBUG__
 349         DWORD dwErr = CommDlgExtendedError();
 350         if ( dwErr != 0 )
 351         {
 352             // this msg is only for developers
 353             wxLogError(_T("Common dialog failed with error code %0lx."),
 354                        dwErr);
 355         }
 356         //else: it was just cancelled
 357 #endif
 358     }
 359
 360     return success ? wxID_OK : wxID_CANCEL;
 361
 362 }
 363
 364 // Generic file load/save dialog (for internal use only)
 365 static
 366 wxString wxDefaultFileSelector(bool load,
 367                                const wxChar *what,
 368                                const wxChar *extension,
 369                                const wxChar *default_name,
 370                                wxWindow *parent)
 371 {
 372   wxString prompt;
 373   wxString str;
 374   if (load) str = _("Load %s file");
 375   else str = _("Save %s file");
 376   prompt.Printf(str, what);
 377
 378   const wxChar *ext = extension;
 379   if (*ext == _T('.'))
 380       ext++;
 381
 382   wxString wild;
 383   wild.Printf(_T("*.%s"), ext);
 384
 385   return wxFileSelector (prompt, NULL, default_name, ext, wild, 0, parent);
 386 }
 387
 388 // Generic file load dialog
 389 WXDLLEXPORT wxString wxLoadFileSelector(const wxChar *what,
 390                                         const wxChar *extension,
 391                                         const wxChar *default_name,
 392                                         wxWindow *parent)
 393 {
 394     return wxDefaultFileSelector(TRUE, what, extension, default_name, parent);
 395 }
 396
 397 // Generic file save dialog
 398 WXDLLEXPORT wxString wxSaveFileSelector(const wxChar *what,
 399                                         const wxChar *extension,
 400                                         const wxChar *default_name,
 401                                         wxWindow *parent)
 402 {
 403     return wxDefaultFileSelector(FALSE, what, extension, default_name, parent);
 404 }
 405