//---------------------------------------------------------------------------
void __fastcall TSearchFilesFrm::btSelectSearchPathClick(TObject *Sender)
{
String path;
if (SelectDirectory(path, TSelectDirOpts(), NULL))
{
path += "\\";
edtSearchPath->Text = path;
}
}
// callback on button-output-directory --------------------------------------
void __fastcall TMainWindow::BtnOutDirClick(TObject *Sender)
{
#ifdef TCPP
AnsiString dir=OutDir->Text;
if (!SelectDirectory("Output Directory","",dir)) return;
OutDir->Text=dir;
#else
UnicodeString dir=OutDir->Text;
TSelectDirOpts opt=TSelectDirOpts()<<sdAllowCreate<<sdPerformCreate;
if (!SelectDirectory(dir,opt,0)) return;
OutDir->Text=dir;
#endif
}
