Synchronize.cpp 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include <Common.h>
  5. #include "WinInterface.h"
  6. #include "Synchronize.h"
  7. #include "VCLCommon.h"
  8. #include "CopyParams.h"
  9. #include "Terminal.h"
  10. #include "GUITools.h"
  11. #include <CoreMain.h>
  12. #include <Configuration.h>
  13. #include <TextsWin.h>
  14. #include <HelpWin.h>
  15. #include <WinConfiguration.h>
  16. #include <StrUtils.hpp>
  17. #include <Tools.h>
  18. //---------------------------------------------------------------------------
  19. #pragma package(smart_init)
  20. #pragma link "HistoryComboBox"
  21. #pragma link "GrayedCheckBox"
  22. #ifndef NO_RESOURCES
  23. #pragma resource "*.dfm"
  24. #endif
  25. //---------------------------------------------------------------------------
  26. const int WM_USER_STOP = WM_WINSCP_USER + 2;
  27. //---------------------------------------------------------------------------
  28. bool __fastcall DoSynchronizeDialog(TSynchronizeParamType & Params,
  29. const TCopyParamType * CopyParams, TSynchronizeStartStopEvent OnStartStop,
  30. bool & SaveSettings, int Options, int CopyParamAttrs,
  31. TGetSynchronizeOptionsEvent OnGetOptions,
  32. TSynchronizeSessionLog OnSynchronizeSessionLog,
  33. TFeedSynchronizeError & OnFeedSynchronizeError,
  34. TSynchronizeInNewWindow OnSynchronizeInNewWindow,
  35. bool Start)
  36. {
  37. bool Result;
  38. TSynchronizeDialog * Dialog = SafeFormCreate<TSynchronizeDialog>(Application);
  39. Dialog->Init(OnStartStop, OnGetOptions, OnSynchronizeSessionLog, OnFeedSynchronizeError, OnSynchronizeInNewWindow, Start);
  40. try
  41. {
  42. Dialog->Options = Options;
  43. Dialog->CopyParamAttrs = CopyParamAttrs;
  44. Dialog->Params = Params;
  45. Dialog->CopyParams = *CopyParams;
  46. Dialog->SaveSettings = SaveSettings;
  47. Result = Dialog->Execute();
  48. if (Result)
  49. {
  50. SaveSettings = Dialog->SaveSettings;
  51. Params = Dialog->Params;
  52. }
  53. }
  54. __finally
  55. {
  56. delete Dialog;
  57. }
  58. return Result;
  59. }
  60. //---------------------------------------------------------------------------
  61. const TSynchronizeDialog::MaxLogItems = 1000;
  62. //---------------------------------------------------------------------------
  63. struct TLogItemData
  64. {
  65. TSynchronizeLogEntry Entry;
  66. UnicodeString Message;
  67. std::unique_ptr<TStrings> MoreMessages;
  68. TQueryType Type;
  69. UnicodeString HelpKeyword;
  70. };
  71. //---------------------------------------------------------------------------
  72. __fastcall TSynchronizeDialog::TSynchronizeDialog(TComponent * Owner)
  73. : TForm(Owner)
  74. {
  75. UseSystemSettings(this);
  76. FOptions = 0;
  77. FSynchronizing = false;
  78. FMinimizedByMe = false;
  79. FPresetsMenu = new TPopupMenu(this);
  80. FSynchronizeOptions = NULL;
  81. HotTrackLabel(CopyParamLabel);
  82. CopyParamListButton(TransferSettingsButton);
  83. LoadDialogImage(Image, L"Keep remote directory up to date");
  84. SetGlobalMinimizeHandler(this, GlobalMinimize);
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TSynchronizeDialog::Init(TSynchronizeStartStopEvent OnStartStop,
  88. TGetSynchronizeOptionsEvent OnGetOptions,
  89. TSynchronizeSessionLog OnSynchronizeSessionLog,
  90. TFeedSynchronizeError & OnFeedSynchronizeError,
  91. TSynchronizeInNewWindow OnSynchronizeInNewWindow,
  92. bool StartImmediately)
  93. {
  94. FOnStartStop = OnStartStop;
  95. FOnGetOptions = OnGetOptions;
  96. FOnSynchronizeSessionLog = OnSynchronizeSessionLog;
  97. FOnFeedSynchronizeError = &OnFeedSynchronizeError;
  98. DebugAssert(OnSynchronizeInNewWindow != NULL);
  99. FOnSynchronizeInNewWindow = OnSynchronizeInNewWindow;
  100. FStartImmediately = StartImmediately;
  101. }
  102. //---------------------------------------------------------------------------
  103. __fastcall TSynchronizeDialog::~TSynchronizeDialog()
  104. {
  105. // if application is closing OnCloseQuery might not get called
  106. // (this particularly happens if last terminal is disconnected while dialog is
  107. // open)
  108. if (FSynchronizing)
  109. {
  110. OnlyStop();
  111. }
  112. ClearGlobalMinimizeHandler(GlobalMinimize);
  113. delete FSynchronizeOptions;
  114. delete FPresetsMenu;
  115. }
  116. //---------------------------------------------------------------------------
  117. void __fastcall TSynchronizeDialog::FeedSynchronizeError(
  118. const UnicodeString & Message, TStrings * MoreMessages, TQueryType Type,
  119. const UnicodeString & HelpKeyword)
  120. {
  121. DoLogInternal(slContinuedError, Message, MoreMessages, Type, HelpKeyword);
  122. }
  123. //---------------------------------------------------------------------------
  124. void __fastcall TSynchronizeDialog::UpdateControls()
  125. {
  126. EnableControl(StartButton, !LocalDirectoryEdit->Text.IsEmpty() &&
  127. !RemoteDirectoryEdit->Text.IsEmpty());
  128. TButton * OldButton = FSynchronizing ? StartButton : StopButton;
  129. TButton * NewButton = FSynchronizing ? StopButton : StartButton;
  130. if (!NewButton->Visible || OldButton->Visible)
  131. {
  132. NewButton->Visible = true;
  133. if (OldButton->Focused())
  134. {
  135. NewButton->SetFocus();
  136. }
  137. OldButton->Default = false;
  138. NewButton->Default = true;
  139. OldButton->Visible = false;
  140. // some of the above steps hides accelerators when start button is pressed with mouse
  141. ResetSystemSettings(this);
  142. }
  143. Caption = FormatFormCaption(this, LoadStr(FSynchronizing ? SYNCHRONIZE_SYCHRONIZING : SYNCHRONIZE_TITLE));
  144. EnableControl(TransferSettingsButton, !FSynchronizing);
  145. CancelButton->Visible = !FSynchronizing || FLAGSET(FOptions, soNoMinimize);
  146. EnableControl(CancelButton, !FSynchronizing);
  147. EnableControl(DirectoriesGroup, !FSynchronizing);
  148. EnableControl(OptionsGroup, !FSynchronizing);
  149. EnableControl(CopyParamGroup, !FSynchronizing);
  150. MinimizeButton->Visible = FSynchronizing && FLAGCLEAR(FOptions, soNoMinimize);
  151. EnableControl(SynchronizeSelectedOnlyCheck,
  152. OptionsGroup->Enabled && FLAGSET(FOptions, soAllowSelectedOnly));
  153. UnicodeString InfoStr = CopyParams.GetInfoStr(L"; ", ActualCopyParamAttrs());
  154. SetLabelHintPopup(CopyParamLabel, InfoStr);
  155. TransferSettingsButton->Style =
  156. FLAGCLEAR(Options, soDoNotUsePresets) ?
  157. TCustomButton::bsSplitButton : TCustomButton::bsPushButton;
  158. if (LogPanel->Visible != FSynchronizing)
  159. {
  160. if (FSynchronizing)
  161. {
  162. LogPanel->Visible = true;
  163. ClientHeight = ClientHeight + LogPanel->Height;
  164. }
  165. else
  166. {
  167. ClientHeight = ClientHeight - LogPanel->Height;
  168. LogPanel->Visible = false;
  169. }
  170. }
  171. // When minimizing to tray globally, no point showing special "minimize to tray" command
  172. MinimizeButton->Style =
  173. !WinConfiguration->MinimizeToTray ? TCustomButton::bsSplitButton : TCustomButton::bsPushButton;
  174. StartButton->Style = AllowStartInNewWindow() ? TCustomButton::bsSplitButton : TCustomButton::bsPushButton;
  175. }
  176. //---------------------------------------------------------------------------
  177. bool __fastcall TSynchronizeDialog::AllowStartInNewWindow()
  178. {
  179. return !IsMainFormLike(this);
  180. }
  181. //---------------------------------------------------------------------------
  182. void __fastcall TSynchronizeDialog::ControlChange(TObject * /*Sender*/)
  183. {
  184. UpdateControls();
  185. }
  186. //---------------------------------------------------------------------------
  187. bool __fastcall TSynchronizeDialog::Execute()
  188. {
  189. // at start assume that copy param is current preset
  190. FPreset = GUIConfiguration->CopyParamCurrent;
  191. LocalDirectoryEdit->Items = CustomWinConfiguration->History[L"LocalDirectory"];
  192. RemoteDirectoryEdit->Items = CustomWinConfiguration->History[L"RemoteDirectory"];
  193. ShowModal();
  194. return true;
  195. }
  196. //---------------------------------------------------------------------------
  197. void __fastcall TSynchronizeDialog::SetParams(const TSynchronizeParamType& value)
  198. {
  199. FParams = value;
  200. RemoteDirectoryEdit->Text = value.RemoteDirectory;
  201. LocalDirectoryEdit->Text = value.LocalDirectory;
  202. SynchronizeDeleteCheck->Checked = FLAGSET(value.Params, TTerminal::spDelete);
  203. SynchronizeExistingOnlyCheck->Checked = FLAGSET(value.Params, TTerminal::spExistingOnly);
  204. SynchronizeSelectedOnlyCheck->Checked = FLAGSET(value.Params, TTerminal::spSelectedOnly);
  205. SynchronizeRecursiveCheck->Checked = FLAGSET(value.Options, soRecurse);
  206. SynchronizeSynchronizeCheck->State =
  207. FLAGSET(value.Options, soSynchronizeAsk) ? cbGrayed :
  208. (FLAGSET(value.Options, soSynchronize) ? cbChecked : cbUnchecked);
  209. ContinueOnErrorCheck->Checked = FLAGSET(value.Options, soContinueOnError);
  210. }
  211. //---------------------------------------------------------------------------
  212. TSynchronizeParamType __fastcall TSynchronizeDialog::GetParams()
  213. {
  214. TSynchronizeParamType Result = FParams;
  215. Result.RemoteDirectory = RemoteDirectoryEdit->Text;
  216. Result.LocalDirectory = LocalDirectoryEdit->Text;
  217. Result.Params =
  218. (Result.Params & ~(TTerminal::spDelete | TTerminal::spExistingOnly | TTerminal::spSelectedOnly | TTerminal::spTimestamp)) |
  219. FLAGMASK(SynchronizeDeleteCheck->Checked, TTerminal::spDelete) |
  220. FLAGMASK(SynchronizeExistingOnlyCheck->Checked, TTerminal::spExistingOnly) |
  221. FLAGMASK(SynchronizeSelectedOnlyCheck->Checked, TTerminal::spSelectedOnly);
  222. Result.Options =
  223. (Result.Options & ~(soRecurse | soSynchronize | soSynchronizeAsk | soContinueOnError)) |
  224. FLAGMASK(SynchronizeRecursiveCheck->Checked, soRecurse) |
  225. FLAGMASK(SynchronizeSynchronizeCheck->State == cbChecked, soSynchronize) |
  226. FLAGMASK(SynchronizeSynchronizeCheck->State == cbGrayed, soSynchronizeAsk) |
  227. FLAGMASK(ContinueOnErrorCheck->Checked, soContinueOnError);
  228. return Result;
  229. }
  230. //---------------------------------------------------------------------------
  231. void __fastcall TSynchronizeDialog::LocalDirectoryBrowseButtonClick(
  232. TObject * /*Sender*/)
  233. {
  234. UnicodeString Directory = LocalDirectoryEdit->Text;
  235. if (SelectDirectory(Directory, LoadStr(SELECT_LOCAL_DIRECTORY), false))
  236. {
  237. LocalDirectoryEdit->Text = Directory;
  238. }
  239. }
  240. //---------------------------------------------------------------------------
  241. void __fastcall TSynchronizeDialog::SetOptions(int value)
  242. {
  243. if (Options != value)
  244. {
  245. FOptions = value;
  246. UpdateControls();
  247. }
  248. }
  249. //---------------------------------------------------------------------------
  250. void __fastcall TSynchronizeDialog::CopyParamListPopup(TRect R, int AdditionalOptions)
  251. {
  252. // We pass in FCopyParams, although it may not be the exact copy param
  253. // that will be used (because of PreserveTime). The reason is to
  254. // display checkbox next to user-selected preset
  255. ::CopyParamListPopup(
  256. R, FPresetsMenu, FCopyParams, FPreset, CopyParamClick,
  257. cplCustomize | AdditionalOptions, ActualCopyParamAttrs());
  258. }
  259. //---------------------------------------------------------------------------
  260. void __fastcall TSynchronizeDialog::TransferSettingsButtonClick(
  261. TObject * /*Sender*/)
  262. {
  263. if (FLAGCLEAR(FOptions, soDoNotUsePresets) && !SupportsSplitButton())
  264. {
  265. CopyParamListPopup(CalculatePopupRect(TransferSettingsButton), 0);
  266. }
  267. else
  268. {
  269. CopyParamGroupClick(NULL);
  270. }
  271. }
  272. //---------------------------------------------------------------------------
  273. void __fastcall TSynchronizeDialog::DoStartStop(bool Start, bool Synchronize)
  274. {
  275. if (FOnStartStop)
  276. {
  277. TSynchronizeParamType SParams = GetParams();
  278. SParams.Options =
  279. (SParams.Options & ~(soSynchronize | soSynchronizeAsk)) |
  280. FLAGMASK(Synchronize, soSynchronize);
  281. if (Start)
  282. {
  283. DebugAssert(*FOnFeedSynchronizeError == NULL);
  284. *FOnFeedSynchronizeError =
  285. (FLAGSET(SParams.Options, soContinueOnError) ? &FeedSynchronizeError : TFeedSynchronizeError(NULL));
  286. delete FSynchronizeOptions;
  287. FSynchronizeOptions = new TSynchronizeOptions;
  288. FOnGetOptions(SParams.Params, *FSynchronizeOptions);
  289. }
  290. else
  291. {
  292. *FOnFeedSynchronizeError = NULL;
  293. }
  294. FOnStartStop(this, Start, SParams, CopyParams, FSynchronizeOptions, DoAbort,
  295. NULL, DoLog);
  296. }
  297. }
  298. //---------------------------------------------------------------------------
  299. void __fastcall TSynchronizeDialog::Dispatch(void * AMessage)
  300. {
  301. DebugAssert(AMessage != NULL);
  302. TMessage & Message = *reinterpret_cast<TMessage *>(AMessage);
  303. if ((Message.Msg == WM_USER_STOP) && FAbort)
  304. {
  305. if (FSynchronizing)
  306. {
  307. Stop();
  308. }
  309. if (FClose)
  310. {
  311. FClose = false;
  312. ModalResult = mrCancel;
  313. }
  314. }
  315. else if (Message.Msg == WM_MANAGES_CAPTION)
  316. {
  317. // caption managed in UpdateControls()
  318. Message.Result = 1;
  319. }
  320. else
  321. {
  322. TForm::Dispatch(AMessage);
  323. }
  324. }
  325. //---------------------------------------------------------------------------
  326. void __fastcall TSynchronizeDialog::DoAbort(TObject * /*Sender*/, bool Close)
  327. {
  328. FAbort = true;
  329. FClose = Close;
  330. PostMessage(Handle, WM_USER_STOP, 0, 0);
  331. }
  332. //---------------------------------------------------------------------------
  333. void __fastcall TSynchronizeDialog::DoLogInternal(
  334. TSynchronizeLogEntry Entry, const UnicodeString & Message,
  335. TStrings * MoreMessages, TQueryType Type, const UnicodeString & HelpKeyword)
  336. {
  337. LogView->Items->BeginUpdate();
  338. try
  339. {
  340. TListItem * Item = LogView->Items->Add();
  341. TLogItemData * LogItemData = new TLogItemData();
  342. Item->Data = LogItemData;
  343. LogItemData->Entry = Entry;
  344. LogItemData->Message = Message;
  345. if (MoreMessages != NULL)
  346. {
  347. LogItemData->MoreMessages.reset(new TStringList());
  348. LogItemData->MoreMessages->Assign(MoreMessages);
  349. }
  350. LogItemData->Type = Type;
  351. LogItemData->HelpKeyword = HelpKeyword;
  352. Item->Caption = Now().TimeString();
  353. UnicodeString UnformattedMessage = UnformatMessage(Message);
  354. UnformattedMessage = ReplaceStr(UnformattedMessage, L"\r", L"");
  355. UnformattedMessage = ReplaceStr(UnformattedMessage, L"\n", L" ");
  356. Item->SubItems->Add(UnformattedMessage);
  357. Item->MakeVisible(false);
  358. while (LogView->Items->Count > MaxLogItems)
  359. {
  360. LogView->Items->Delete(0);
  361. }
  362. }
  363. __finally
  364. {
  365. LogView->Items->EndUpdate();
  366. if (Entry == slScan)
  367. {
  368. // redraw log before the scanning block update
  369. LogView->Repaint();
  370. }
  371. }
  372. FOnSynchronizeSessionLog(Message);
  373. }
  374. //---------------------------------------------------------------------------
  375. void __fastcall TSynchronizeDialog::DoLog(TSynchronizeController * /*Controller*/,
  376. TSynchronizeLogEntry Entry, const UnicodeString Message)
  377. {
  378. DoLogInternal(Entry, Message,
  379. // these are unused (as Entry is not slContinuedError here)
  380. NULL, qtInformation, UnicodeString());
  381. }
  382. //---------------------------------------------------------------------------
  383. void __fastcall TSynchronizeDialog::StartButtonClick(TObject * /*Sender*/)
  384. {
  385. if (AllowStartInNewWindow() && OpenInNewWindow())
  386. {
  387. StartInNewWindow();
  388. }
  389. else
  390. {
  391. Start();
  392. }
  393. }
  394. //---------------------------------------------------------------------------
  395. void __fastcall TSynchronizeDialog::Start()
  396. {
  397. bool Synchronize;
  398. bool Continue = true;
  399. if (SynchronizeSynchronizeCheck->State == cbGrayed)
  400. {
  401. TMessageParams Params(mpNeverAskAgainCheck);
  402. switch (MoreMessageDialog(LoadStr(SYNCHRONISE_BEFORE_KEEPUPTODATE2),
  403. NULL, qtConfirmation, qaYes | qaNo | qaCancel, HELP_KEEPUPTODATE_SYNCHRONIZE,
  404. &Params))
  405. {
  406. case qaNeverAskAgain:
  407. SynchronizeSynchronizeCheck->State = cbChecked;
  408. // fall thru
  409. case qaYes:
  410. Synchronize = true;
  411. break;
  412. case qaNo:
  413. Synchronize = false;
  414. break;
  415. default:
  416. case qaCancel:
  417. Continue = false;
  418. break;
  419. };
  420. }
  421. else
  422. {
  423. Synchronize = SynchronizeSynchronizeCheck->Checked;
  424. }
  425. if (Continue)
  426. {
  427. DebugAssert(!FSynchronizing);
  428. SaveHistory();
  429. FSynchronizing = true;
  430. try
  431. {
  432. UpdateControls();
  433. Repaint();
  434. FAbort = false;
  435. DoStartStop(true, Synchronize);
  436. }
  437. catch(...)
  438. {
  439. FSynchronizing = false;
  440. UpdateControls();
  441. throw;
  442. }
  443. }
  444. }
  445. //---------------------------------------------------------------------------
  446. void __fastcall TSynchronizeDialog::SaveHistory()
  447. {
  448. LocalDirectoryEdit->SaveToHistory();
  449. CustomWinConfiguration->History[L"LocalDirectory"] = LocalDirectoryEdit->Items;
  450. RemoteDirectoryEdit->SaveToHistory();
  451. CustomWinConfiguration->History[L"RemoteDirectory"] = RemoteDirectoryEdit->Items;
  452. }
  453. //---------------------------------------------------------------------------
  454. void __fastcall TSynchronizeDialog::StopButtonClick(TObject * /*Sender*/)
  455. {
  456. Stop();
  457. }
  458. //---------------------------------------------------------------------------
  459. void __fastcall TSynchronizeDialog::OnlyStop()
  460. {
  461. FSynchronizing = false;
  462. DoStartStop(false, false);
  463. }
  464. //---------------------------------------------------------------------------
  465. void __fastcall TSynchronizeDialog::Stop()
  466. {
  467. OnlyStop();
  468. UpdateControls();
  469. Repaint();
  470. if (IsApplicationMinimized() && FMinimizedByMe)
  471. {
  472. FMinimizedByMe = false;
  473. ApplicationRestore();
  474. Application->BringToFront();
  475. }
  476. }
  477. //---------------------------------------------------------------------------
  478. void __fastcall TSynchronizeDialog::Minimize(TObject * Sender)
  479. {
  480. CallGlobalMinimizeHandler(Sender);
  481. }
  482. //---------------------------------------------------------------------------
  483. void __fastcall TSynchronizeDialog::MinimizeButtonClick(TObject * Sender)
  484. {
  485. Minimize(Sender);
  486. }
  487. //---------------------------------------------------------------------------
  488. void __fastcall TSynchronizeDialog::GlobalMinimize(TObject * /*Sender*/)
  489. {
  490. ApplicationMinimize();
  491. FMinimizedByMe = true;
  492. }
  493. //---------------------------------------------------------------------------
  494. void __fastcall TSynchronizeDialog::SetSaveSettings(bool value)
  495. {
  496. SaveSettingsCheck->Checked = value;
  497. }
  498. //---------------------------------------------------------------------------
  499. bool __fastcall TSynchronizeDialog::GetSaveSettings()
  500. {
  501. return SaveSettingsCheck->Checked;
  502. }
  503. //---------------------------------------------------------------------------
  504. void __fastcall TSynchronizeDialog::FormShow(TObject * /*Sender*/)
  505. {
  506. InstallPathWordBreakProc(LocalDirectoryEdit);
  507. InstallPathWordBreakProc(RemoteDirectoryEdit);
  508. // OnShow gets called more than once sometimes
  509. if (!FSynchronizing)
  510. {
  511. ClearLog();
  512. UpdateControls();
  513. if (FStartImmediately)
  514. {
  515. // if starting get cancelled (from SYNCHRONISE_BEFORE_KEEPUPTODATE2 prompt),
  516. // and OnShow gets called again (FSynchronizing is false),
  517. // we do not want to try to start again
  518. FStartImmediately = false;
  519. StartButtonClick(NULL);
  520. }
  521. }
  522. }
  523. //---------------------------------------------------------------------------
  524. void __fastcall TSynchronizeDialog::FormCloseQuery(TObject * /*Sender*/,
  525. bool & /*CanClose*/)
  526. {
  527. if (FSynchronizing)
  528. {
  529. Stop();
  530. }
  531. }
  532. //---------------------------------------------------------------------------
  533. TCopyParamType __fastcall TSynchronizeDialog::GetCopyParams()
  534. {
  535. TCopyParamType Result = FCopyParams;
  536. Result.PreserveTime = true;
  537. Result.NewerOnly = false;
  538. return Result;
  539. }
  540. //---------------------------------------------------------------------------
  541. void __fastcall TSynchronizeDialog::SetCopyParams(const TCopyParamType & value)
  542. {
  543. FCopyParams = value;
  544. UpdateControls();
  545. }
  546. //---------------------------------------------------------------------------
  547. int __fastcall TSynchronizeDialog::ActualCopyParamAttrs()
  548. {
  549. return FCopyParamAttrs | cpaNoPreserveTime | cpaNoNewerOnly;
  550. }
  551. //---------------------------------------------------------------------------
  552. void __fastcall TSynchronizeDialog::CopyParamClick(TObject * Sender)
  553. {
  554. DebugAssert(FLAGCLEAR(FOptions, soDoNotUsePresets));
  555. // PreserveTime is forced for some settings, but avoid hard-setting it until
  556. // user really confirms it on custom dialog
  557. TCopyParamType ACopyParams = CopyParams;
  558. if (CopyParamListPopupClick(Sender, ACopyParams, FPreset,
  559. ActualCopyParamAttrs()) > 0)
  560. {
  561. FCopyParams = ACopyParams;
  562. UpdateControls();
  563. }
  564. }
  565. //---------------------------------------------------------------------------
  566. void __fastcall TSynchronizeDialog::CopyParamGroupContextPopup(
  567. TObject * /*Sender*/, TPoint & MousePos, bool & Handled)
  568. {
  569. if (FLAGCLEAR(FOptions, soDoNotUsePresets))
  570. {
  571. CopyParamListPopup(CalculatePopupRect(CopyParamGroup, MousePos),
  572. cplCustomizeDefault);
  573. Handled = true;
  574. }
  575. }
  576. //---------------------------------------------------------------------------
  577. void __fastcall TSynchronizeDialog::CopyParamGroupClick(TObject * /*Sender*/)
  578. {
  579. // PreserveTime is forced for some settings, but avoid hard-setting it until
  580. // user really confirms it on cutom dialog
  581. TCopyParamType ACopyParams = CopyParams;
  582. if (DoCopyParamCustomDialog(ACopyParams, ActualCopyParamAttrs()))
  583. {
  584. FCopyParams = ACopyParams;
  585. UpdateControls();
  586. }
  587. }
  588. //---------------------------------------------------------------------------
  589. void __fastcall TSynchronizeDialog::HelpButtonClick(TObject * /*Sender*/)
  590. {
  591. FormHelp(this);
  592. }
  593. //---------------------------------------------------------------------------
  594. void __fastcall TSynchronizeDialog::ClearLog()
  595. {
  596. // TListItems::Clear() does nothing without allocated handle
  597. LogView->HandleNeeded();
  598. LogView->Items->Clear();
  599. }
  600. //---------------------------------------------------------------------------
  601. void __fastcall TSynchronizeDialog::CopyLog()
  602. {
  603. TInstantOperationVisualizer Visualizer;
  604. UnicodeString Content;
  605. for (int i = 0; i < LogView->Items->Count; i++)
  606. {
  607. TListItem * Item = LogView->Items->Item[i];
  608. Content += Item->Caption + L"\t" + Item->SubItems->Strings[0] + L"\r\n";
  609. }
  610. CopyToClipboard(Content);
  611. }
  612. //---------------------------------------------------------------------------
  613. void __fastcall TSynchronizeDialog::LogViewKeyDown(TObject * /*Sender*/,
  614. WORD & Key, TShiftState Shift)
  615. {
  616. if (Key == VK_DELETE)
  617. {
  618. ClearLog();
  619. Key = 0;
  620. }
  621. else if ((Key == L'C') && Shift.Contains(ssCtrl) && (LogView->Items->Count > 0))
  622. {
  623. CopyLog();
  624. Key = 0;
  625. }
  626. }
  627. //---------------------------------------------------------------------------
  628. void __fastcall TSynchronizeDialog::FormKeyDown(TObject * /*Sender*/, WORD & Key,
  629. TShiftState /*Shift*/)
  630. {
  631. if ((Key == VK_ESCAPE) && FSynchronizing)
  632. {
  633. Stop();
  634. Key = 0;
  635. }
  636. }
  637. //---------------------------------------------------------------------------
  638. void __fastcall TSynchronizeDialog::TransferSettingsButtonDropDownClick(TObject * /*Sender*/)
  639. {
  640. CopyParamListPopup(CalculatePopupRect(TransferSettingsButton), cplCustomizeDefault);
  641. }
  642. //---------------------------------------------------------------------------
  643. void __fastcall TSynchronizeDialog::LogViewCustomDrawItem(TCustomListView * Sender,
  644. TListItem * Item, TCustomDrawState /*State*/, bool & /*DefaultDraw*/)
  645. {
  646. TLogItemData * LogItemData = GetLogItemData(Item);
  647. if (LogItemData->Entry == slContinuedError)
  648. {
  649. Sender->Canvas->Font->Color = clRed;
  650. }
  651. }
  652. //---------------------------------------------------------------------------
  653. TLogItemData * __fastcall TSynchronizeDialog::GetLogItemData(TListItem * Item)
  654. {
  655. return reinterpret_cast<TLogItemData *>(Item->Data);
  656. }
  657. //---------------------------------------------------------------------------
  658. void __fastcall TSynchronizeDialog::LogViewDeletion(TObject * /*Sender*/, TListItem * Item)
  659. {
  660. delete GetLogItemData(Item);
  661. Item->Data = NULL;
  662. }
  663. //---------------------------------------------------------------------------
  664. void __fastcall TSynchronizeDialog::LogViewDblClick(TObject * /*Sender*/)
  665. {
  666. if (LogView->ItemFocused != NULL)
  667. {
  668. TLogItemData * LogItemData = GetLogItemData(LogView->ItemFocused);
  669. if (LogItemData->Entry == slContinuedError)
  670. {
  671. MoreMessageDialog(
  672. LogItemData->Message, LogItemData->MoreMessages.get(), LogItemData->Type,
  673. qaOK, LogItemData->HelpKeyword);
  674. }
  675. }
  676. }
  677. //---------------------------------------------------------------------------
  678. void __fastcall TSynchronizeDialog::Minimize1Click(TObject * Sender)
  679. {
  680. Minimize(Sender);
  681. }
  682. //---------------------------------------------------------------------------
  683. void __fastcall TSynchronizeDialog::MinimizetoTray1Click(TObject * Sender)
  684. {
  685. WinConfiguration->MinimizeToTrayOnce();
  686. Minimize(Sender);
  687. }
  688. //---------------------------------------------------------------------------
  689. void __fastcall TSynchronizeDialog::MinimizeButtonDropDownClick(TObject * /*Sender*/)
  690. {
  691. MenuPopup(MinimizeMenu, MinimizeButton);
  692. }
  693. //---------------------------------------------------------------------------
  694. void __fastcall TSynchronizeDialog::StartInNewWindow1Click(TObject * /*Sender*/)
  695. {
  696. StartInNewWindow();
  697. }
  698. //---------------------------------------------------------------------------
  699. void __fastcall TSynchronizeDialog::StartInNewWindow()
  700. {
  701. SaveHistory();
  702. TSynchronizeParamType AParams = Params;
  703. TCopyParamType ACopyParams = CopyParams;
  704. FOnSynchronizeInNewWindow(AParams, &ACopyParams);
  705. Close();
  706. }
  707. //---------------------------------------------------------------------------
  708. void __fastcall TSynchronizeDialog::StartButtonDropDownClick(TObject * /*Sender*/)
  709. {
  710. MenuPopup(StartMenu, StartButton);
  711. }
  712. //---------------------------------------------------------------------------