//--------------------------------------------------------------------- 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; }