mirror/CMake
1
0
Fork 0
mirror of https://github.com/Kitware/CMake.git synced 2026-01-06 05:40:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

ENH: add better path chooser dialog

Browse Source
This commit is contained in:
Bill Hoffman
2001-06-05 17:26:48 -04:00
parent 8e281e5d5f
commit 9c149dda81
4 changed files with 469 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Source/MFCDialog/PropertyList.cpp
View File

@@ -3,6 +3,7 @@
#include "stdafx.h"
#include "PropertyList.h"
#include "PathDialog.h"
#include "../cmCacheManager.h"
#define IDC_PROPCMBBOX 712
@@ -366,20 +367,6 @@ void CPropertyList::OnCheckBox()
m_Dirty = true;
}
// Insane Microsoft way of setting the initial directory
// for the Shbrowseforfolder function...
// SetSelProc
// Callback procedure to set the initial selection of the browser.
int CALLBACK SetSelProc( HWND hWnd, UINT uMsg, LPARAM lParam, LPARAM
lpData )
{
if (uMsg==BFFM_INITIALIZED)
{
::SendMessage(hWnd, BFFM_SETSELECTION, TRUE, lpData );
}
return 0;
}
void CPropertyList::OnButton()
{
@@ -471,24 +458,12 @@ void CPropertyList::OnButton()
initialDir = currPath.Left(endSlash);
}
initialDir.Replace("/", "\\");
char szPathName[4096];
BROWSEINFO bi;
bi.lpfn = SetSelProc;
bi.lParam = (LPARAM)(LPCSTR) initialDir;
bi.hwndOwner = m_hWnd;
bi.pidlRoot = NULL;
bi.pszDisplayName = (LPTSTR)szPathName;
bi.lpszTitle = "Select Directory";
bi.ulFlags = BIF_EDITBOX | BIF_RETURNONLYFSDIRS;
LPITEMIDLIST pidl = SHBrowseForFolder(&bi);
BOOL bSuccess = SHGetPathFromIDList(pidl, szPathName);
CString SelectedFile;
if(bSuccess)
CString title = "Setting Cache Value: ";
title += pItem->m_propName;
CPathDialog dlg("Select Path", title, initialDir);
if(dlg.DoModal()==IDOK)
{
SelectedFile = szPathName;
CString SelectedFile = dlg.GetPathName();
m_btnCtrl.ShowWindow(SW_HIDE);
pItem->m_curValue = SelectedFile;
m_Dirty = true;