src/msw/dirdlg.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dirdlg.cpp
   3 // Purpose:     wxDirDialog
   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 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 #ifdef __GNUG__
  21     #pragma implementation "dirdlg.h"
  22 #endif
  23
  24 // For compilers that support precompilation, includes "wx.h".
  25 #include "wx/wxprec.h"
  26
  27 #ifdef __BORLANDC__
  28     #pragma hdrstop
  29 #endif
  30
  31 #if wxUSE_DIRDLG
  32
  33 #if defined(__WIN95__) && !defined(__GNUWIN32_OLD__)
  34
  35 #ifndef WX_PRECOMP
  36     #include "wx/utils.h"
  37     #include "wx/dialog.h"
  38     #include "wx/dirdlg.h"
  39     #include "wx/log.h"
  40 #endif
  41
  42 #include "wx/msw/private.h"
  43
  44 #include "shlobj.h" // Win95 shell
  45
  46 // ----------------------------------------------------------------------------
  47 // constants
  48 // ----------------------------------------------------------------------------
  49
  50 #ifndef MAX_PATH
  51     #define MAX_PATH 4096      // be generous
  52 #endif
  53
  54 // ----------------------------------------------------------------------------
  55 // wxWindows macros
  56 // ----------------------------------------------------------------------------
  57
  58 IMPLEMENT_CLASS(wxDirDialog, wxDialog)
  59
  60 // ----------------------------------------------------------------------------
  61 // private functions prototypes
  62 // ----------------------------------------------------------------------------
  63
  64 // free the parameter
  65 static void ItemListFree(LPITEMIDLIST pidl);
  66
  67 // the callback proc for the dir dlg
  68 static int CALLBACK BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lp,
  69                                        LPARAM pData);
  70
  71
  72 // ============================================================================
  73 // implementation
  74 // ============================================================================
  75
  76 // ----------------------------------------------------------------------------
  77 // wxDirDialog
  78 // ----------------------------------------------------------------------------
  79
  80 wxDirDialog::wxDirDialog(wxWindow *parent,
  81                          const wxString& message,
  82                          const wxString& defaultPath,
  83                          long WXUNUSED(style),
  84                          const wxPoint& WXUNUSED(pos))
  85 {
  86     m_message = message;
  87     m_parent = parent;
  88     m_path = defaultPath;
  89     m_path.Replace(_T("/"), _T("\\")); // SHBrowseForFolder doesn't like '/'s
  90 }
  91
  92 int wxDirDialog::ShowModal()
  93 {
  94     BROWSEINFO bi;
  95     bi.hwndOwner      = m_parent ? GetHwndOf(m_parent) : NULL;
  96     bi.pidlRoot       = NULL;
  97     bi.pszDisplayName = NULL;
  98     bi.lpszTitle      = m_message.c_str();
  99     bi.ulFlags        = BIF_RETURNONLYFSDIRS | BIF_STATUSTEXT;
 100     bi.lpfn           = BrowseCallbackProc;
 101     bi.lParam         = (LPARAM)m_path.c_str();    // param for the callback
 102
 103     LPITEMIDLIST pidl = SHBrowseForFolder(&bi);
 104
 105     if ( bi.pidlRoot )
 106     {
 107         ItemListFree((LPITEMIDLIST)bi.pidlRoot);
 108     }
 109
 110     if ( !pidl )
 111     {
 112         // Cancel button pressed
 113         return wxID_CANCEL;
 114     }
 115
 116     BOOL ok = SHGetPathFromIDList(pidl, m_path.GetWriteBuf(MAX_PATH));
 117     m_path.UngetWriteBuf();
 118
 119     ItemListFree(pidl);
 120
 121     if ( !ok )
 122     {
 123         wxLogLastError(wxT("SHGetPathFromIDList"));
 124
 125         return wxID_CANCEL;
 126     }
 127
 128     return wxID_OK;
 129 }
 130
 131 // ----------------------------------------------------------------------------
 132 // private functions
 133 // ----------------------------------------------------------------------------
 134
 135 static int CALLBACK
 136 BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lp, LPARAM pData)
 137 {
 138     switch(uMsg)
 139     {
 140         case BFFM_INITIALIZED:
 141             // sent immediately after initialisation and so we may set the
 142             // initial selection here
 143             //
 144             // wParam = TRUE => lParam is a string and not a PIDL
 145             SendMessage(hwnd, BFFM_SETSELECTION, TRUE, pData);
 146             break;
 147
 148         case BFFM_SELCHANGED:
 149             {
 150                 // Set the status window to the currently selected path.
 151                 TCHAR szDir[MAX_PATH];
 152                 if ( SHGetPathFromIDList((LPITEMIDLIST)lp, szDir) )
 153                 {
 154                     wxString strDir(szDir);
 155                     int maxChars = 40; // Have to truncate string else it displays incorrectly
 156                     if (strDir.Len() > (size_t) (maxChars - 3))
 157                     {
 158                         strDir = strDir.Right(maxChars - 3);
 159                         strDir = wxString(wxT("...")) + strDir;
 160                     }
 161                     SendMessage(hwnd, BFFM_SETSTATUSTEXT, 0, (LPARAM) (const wxChar*) strDir);
 162                 }
 163             }
 164             break;
 165
 166         //case BFFM_VALIDATEFAILED: -- might be used to provide custom message
 167         //                             if the user types in invalid dir name
 168     }
 169
 170     return 0;
 171 }
 172
 173
 174 static void ItemListFree(LPITEMIDLIST pidl)
 175 {
 176     if ( pidl )
 177     {
 178         LPMALLOC pMalloc;
 179         SHGetMalloc(&pMalloc);
 180         if ( pMalloc )
 181         {
 182             pMalloc->Free(pidl);
 183             pMalloc->Release();
 184         }
 185         else
 186         {
 187             wxLogLastError(wxT("SHGetMalloc"));
 188         }
 189     }
 190 }
 191
 192 #else
 193     #include "../generic/dirdlgg.cpp"
 194 #endif // compiler/platform on which the code here compiles
 195
 196 #endif // wxUSE_DIRDLG