🚀 go-pugleaf

"Mark Jacobs" <http://www.jacobsm.com/mjmsg.htm?BorlandNG> wrote:

>This is to present a directory selector with an edit box to manually enter a 
>directory name. The directory chosen or entered, does not have to exist. When 
>the dialog appears, it changes itself to the current directory. When I enter 
>text into the edit box on this dialog, and hit OK, the dialog returns the 
>directory in the window above the text box, but not that entered into the text 
>box itself. How do I get to the text in the edit box in this dialog?

It looks like you are almost there.

>int CALLBACK mjBrowseCallbackProc(HWND hwnd,UINT uMsg,LPARAM lParam,LPARAM 
>lpData)
>{
>  if (uMsg==BFFM_INITIALIZED) SendMessage(hwnd,BFFM_SETSELECTION,TRUE,lpData);

	 if( uMsg == BFFM_INITIALIZED )
	{
	    if( lpData )
	    {
		if( *lpData)
		    SendMessage(hwnd,BFFM_SETSELECTION,TRUE,lpData);
		* lpData = 0;
	    };
		return 0;
	};

	if (uMsg==BFFM_VALIDATEFAILED )
	{
		lstrcpy( lpData, lParam );
		return 0; /*end dialog*/
	};

    - - - - -
  mjbi.ulFlags=BIF_USENEWUI |
		BIF_VALIDATE;
>  mjbi.lpfn=mjBrowseCallbackProc;
>  mjbi.lParam=(long)rcvdir;
>  ITEMIDLIST *mjites=SHBrowseForFolder(&mjbi);

	if( rcvdir[0] == 0 )
	{	get rcvdir from pidl
	}else{
		use rcvdir directly
	}

>  rcvdir[0]='\0'; if (mjites) SHGetPathFromIDList(mjites,rcvdir);
>  CoTaskMemFree(mjites);
>  if (rcvdir[0]) Edit1->Text=AnsiString(rcvdir);
>}
>