/**
 * @file XTPBrowseDialog.cpp
 *
 * @copyright
 * (c) 1998-2025 Codejock Software, All Rights Reserved.
 *
 * This source file is the property of Codejock Software and must not be
 * redistributed by any means without the explicit written permission of
 * Codejock Software.
 *
 * The use of this source code is governed by the terms and conditions specified
 * in the Toolkit Pro license agreement. Codejock Software grants you, as a
 * single software developer, the limited right to use this software on one
 * computer only.
 *
 * Contact Information:
 * support@codejock.com
 * http://www.codejock.com
 *
 */

#include "stdafx.h"

#include "Common/XTPTypeId.h"
#include "Common/XTPSystemHelpers.h"
#include "Common/XTPSynchro.h"
#include "Common/XTPApplication.h"
#include "Common/XTPSingleton.h"
#include "Common/XTPVC80Helpers.h" // Visual Studio 2005 helper functions
#include "Common/XTPResourceManager.h"

#include "Controls/Resource.h"
#include "Controls/Dialog/XTPBrowseDialog.h"

#include "Common/Base/Diagnostic/XTPDisableNoisyWarnings.h"

#ifdef _DEBUG
#	undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#	define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CXTPBrowseDialog::CXTPBrowseDialog(CWnd* pParent /*= NULL*/)
	: CCommonDialog(pParent)
{
	// Initialize member data to 0.
	::ZeroMemory(&m_bi, sizeof(BROWSEINFO));
	::ZeroMemory(&m_szSelPath, sizeof(m_szSelPath));

	CXTPResourceManager::AssertValid(XTPResourceManager()->LoadString(&m_strTitle, XTP_IDS_SELDIR));

	// Setup some defaults for the BROWSEINFO base members.
	SetOwner(pParent ? pParent->m_hWnd : NULL);
	SetPidlRoot(NULL);
	SetDisplayName(m_szSelPath);
	SetTitle((TCHAR*)(LPCTSTR)m_strTitle);
	SetOptions(BIF_RETURNFSANCESTORS | BIF_RETURNONLYFSDIRS
			   | BIF_NEWDIALOGSTYLE /*BIF_STATUSTEXT*/);
	SetCallback(BrowseCtrlCallback);
	SetData((LPARAM)this);
}

CXTPBrowseDialog::~CXTPBrowseDialog()
{
}

int CALLBACK CXTPBrowseDialog::BrowseCtrlCallback(HWND hwnd, UINT uMsg, LPARAM lParam,
												  LPARAM lpData)
{
	TCHAR szDir[MAX_PATH];
	szDir[0] = 0;

	switch (uMsg)
	{
		// Set the selected directory at startup.
		case BFFM_INITIALIZED:
		{
			// use previously selected path if availiable.
			CXTPBrowseDialog* pBrowseDlg = (CXTPBrowseDialog*)lpData;
			if (pBrowseDlg && _tcslen(pBrowseDlg->GetSelPath()) != 0)
			{
				STRCPY_S(szDir, MAX_PATH, pBrowseDlg->GetSelPath());
			}

			// if no path was availiable, try the current directory.
			if (_tcslen(szDir) == 0)
			{
				::GetCurrentDirectory(_countof(szDir), szDir);
			}

			// set the directory path only if szDir is defined.
			if (_tcslen(szDir) != 0)
			{
				// wParam is TRUE since you are passing a path,
				// it would be FALSE if you were passing a pidl.
				::SendMessage(hwnd, BFFM_SETSELECTION, TRUE, (LPARAM)szDir);
			}
		}
		break;

		// Set the status window to the currently selected path.
		case BFFM_SELCHANGED:
		{
			CXTPBrowseDialog* pBrowseDlg = (CXTPBrowseDialog*)lpData;
			if (pBrowseDlg && (pBrowseDlg->m_bi.ulFlags & BIF_STATUSTEXT) != 0)
			{
				if (::SHGetPathFromIDList((LPITEMIDLIST)lParam, szDir))
				{
					::SendMessage(hwnd, BFFM_SETSTATUSTEXT, TRUE, (LPARAM)szDir);
				}
			}
		}
		break;

		case BFFM_VALIDATEFAILED: break;

		default: break;
	}
	return 0;
}

INT_PTR CXTPBrowseDialog::DoModal()
{
	INT_PTR uReturn  = IDCANCEL;
	LPMALLOC pMalloc = NULL;

#ifdef _XTP_ACTIVEX
	HWND hWndParent	= 0;
	BOOL bEnableParent = FALSE;
	CWinApp* pApp	  = AfxGetApp();

	if (!XTPSystemVersion()->IsWinVistaOrGreater()) // Was not modal in old OS
	{
		if (pApp != NULL)
			pApp->EnableModeless(FALSE);

		HWND hWndTop = 0;
#	if (_MSC_VER <= 1100)
		CWnd* pParentWnd = CWnd::GetSafeOwner(CWnd::FromHandle(m_bi.hwndOwner), &hWndTop);
		hWndParent		 = pParentWnd->GetSafeHwnd();
#	else
		hWndParent = CWnd::GetSafeOwner_(m_bi.hwndOwner, &hWndTop);
#	endif

		if (hWndParent != NULL && ::IsWindowEnabled(hWndParent))
		{
			::EnableWindow(hWndParent, FALSE);
			bEnableParent = TRUE;
		}
	}

#endif

	// Retrieve a pointer to the shell's IMalloc interface.
	if (::SHGetMalloc(&pMalloc) == NOERROR)
	{
		LPITEMIDLIST pItemIDList = SHBrowseForFolder(&m_bi);

		// Display the browse dialog box that enables the user to
		// select a shell folder.
		if (pItemIDList != NULL)
		{
			TCHAR szSelPath[MAX_PATH];

			// Converts an item identifier list to a file system path,
			// this will be the path that the user has just selected.
			if (::SHGetPathFromIDList(pItemIDList, szSelPath))
			{
				SetSelPath(szSelPath);
				uReturn = IDOK;
			}
			else if ((m_bi.ulFlags & BIF_BROWSEFORCOMPUTER) && m_szSelPath[0] != 0)
			{
				// a machine is selected. Although a valid pidl
				// is returned, SHGetPathFromIDList only return
				// paths to valid file system objects, of which
				// a networked machine is not. However, the
				// BROWSEINFO displayname member does contain
				// the selected item, which we return

				int nLength = (int)_tcslen(m_szSelPath);
				for (int i = nLength - 1; i >= 0; i--)
					m_szSelPath[i + 2] = m_szSelPath[i];

				m_szSelPath[0] = m_szSelPath[1] = '\\';
				m_szSelPath[nLength + 2]		= 0;

				uReturn = IDOK;
			}
			pMalloc->Free(pItemIDList);
		}
		pMalloc->Release();
	}

#ifdef _XTP_ACTIVEX
	if (!XTPSystemVersion()->IsWinVistaOrGreater()) // Was not modal in old OS
	{
		if (bEnableParent)
			::EnableWindow(hWndParent, TRUE);
		if (hWndParent != NULL && ::GetActiveWindow() == m_hWnd)
			::SetActiveWindow(hWndParent);

		if (pApp != NULL)
			pApp->EnableModeless(TRUE);
	}
#endif

	return uReturn;
}

void CXTPBrowseDialog::SetSelPath(LPCTSTR szSelPath)
{
	STRCPY_S(m_szSelPath, MAX_PATH, szSelPath);
}