//---------------------------------------------------------------------
bool __fastcall TConsoleDialog::Execute(const UnicodeString Command,
const TStrings * Log)
{
try
{
CommandEdit->Items = CustomWinConfiguration->History[L"Commands"];
if (Log != NULL)
{
OutputMemo->Lines->BeginUpdate();
try
{
TStrings * ALog = const_cast<TStrings *>(Log);
for (int i = 0; i < ALog->Count; i++)
{
AddLine(ALog->Strings[i], cotOutput);
}
}
__finally
{
OutputMemo->Lines->EndUpdate();
}
}
if (!Command.IsEmpty())
{
CommandEdit->Text = Command;
DoExecuteCommand();
}
UpdateControls();
ShowModal();
TConsoleWinConfiguration ConsoleWin = CustomWinConfiguration->ConsoleWin;
if ((FAutoBounds.Width() != Width) ||
(FAutoBounds.Height() != Height))
{
ConsoleWin.WindowSize = StoreFormSize(this);
}
CustomWinConfiguration->ConsoleWin = ConsoleWin;
}
//---------------------------------------------------------------------------
bool __fastcall TFileFindDialog::Execute(UnicodeString Directory, UnicodeString & Path)
{
MaskEdit->Text = WinConfiguration->SelectMask;
RemoteDirectoryEdit->Text = UnixExcludeTrailingBackslash(Directory);
// have to set history after value, to prevent autocompletition
MaskEdit->Items = WinConfiguration->History[L"Mask"];
RemoteDirectoryEdit->Items = CustomWinConfiguration->History[L"RemoteDirectory"];
bool Result = (ShowModal() == FocusButton->ModalResult);
if (Result)
{
Path = static_cast<TRemoteFile *>(FileView->ItemFocused->Data)->FullFileName;
}
TFindFileConfiguration FormConfiguration = CustomWinConfiguration->FindFile;
FormConfiguration.ListParams = FileView->ColProperties->ParamsStr;
FormConfiguration.WindowParams = StoreFormSize(this);
CustomWinConfiguration->FindFile = FormConfiguration;
return Result;
}
