UnixDirView.cpp 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include <Common.h>
  5. #include "UnixDirView.h"
  6. #include "UnixDriveView.h"
  7. #include <FileCtrl.hpp>
  8. #ifndef DESIGN_ONLY
  9. #include <CoreMain.h>
  10. #include <Terminal.h>
  11. #include <WinConfiguration.h>
  12. #include <VCLCommon.h>
  13. #endif
  14. #pragma package(smart_init)
  15. #ifndef DESIGN_ONLY
  16. #define ITEMFILE ((TRemoteFile *)(Item->Data))
  17. // noop, previously this tested that the file was in terminal's file listing,
  18. // but that cannot be safely checked now the terminal is used in multithreaded
  19. // environment
  20. #define ASSERT_VALID_ITEM
  21. #endif
  22. //---------------------------------------------------------------------------
  23. static inline void ValidCtrCheck(TUnixDirView *)
  24. {
  25. new TUnixDirView(NULL);
  26. }
  27. //---------------------------------------------------------------------------
  28. namespace Unixdirview
  29. {
  30. void __fastcall PACKAGE Register()
  31. {
  32. TComponentClass classes[1] = {__classid(TUnixDirView)};
  33. RegisterComponents(L"Scp", classes, 0);
  34. }
  35. }
  36. //---------------------------------------------------------------------------
  37. #define HOMEDIRECTORY L""
  38. //---------------------------------------------------------------------------
  39. __fastcall TUnixDirView::TUnixDirView(TComponent* Owner)
  40. : TCustomUnixDirView(Owner)
  41. {
  42. #ifndef DESIGN_ONLY
  43. FTerminal = NULL;
  44. #endif
  45. FCaseSensitive = true;
  46. DDAllowMove = false;
  47. FShowInaccesibleDirectories = true;
  48. FFullLoad = false;
  49. FDriveView = NULL;
  50. FInvalidNameChars = L"/";
  51. }
  52. //---------------------------------------------------------------------------
  53. __fastcall TUnixDirView::~TUnixDirView()
  54. {
  55. #ifndef DESIGN_ONLY
  56. Terminal = NULL;
  57. #endif
  58. }
  59. //---------------------------------------------------------------------------
  60. void __fastcall TUnixDirView::DisplayContextMenu(const TPoint &Where)
  61. {
  62. bool Handled = false;
  63. if (OnContextPopup)
  64. {
  65. OnContextPopup(this, ScreenToClient(Where), Handled);
  66. }
  67. if (!Handled)
  68. {
  69. if (PopupMenu && !PopupMenu->AutoPopup)
  70. {
  71. PopupMenu->Popup(Where.x, Where.y);
  72. }
  73. }
  74. }
  75. //---------------------------------------------------------------------------
  76. void __fastcall TUnixDirView::DisplayPropertiesMenu()
  77. {
  78. if (OnDisplayProperties) OnDisplayProperties(this);
  79. }
  80. //---------------------------------------------------------------------------
  81. void __fastcall TUnixDirView::ExecuteFile(TListItem * Item)
  82. {
  83. #ifndef DESIGN_ONLY
  84. ASSERT_VALID_ITEM;
  85. if (ITEMFILE->IsDirectory ||
  86. (!Terminal->ResolvingSymlinks && !Terminal->IsEncryptingFiles()))
  87. {
  88. PathChanging(true);
  89. ChangeDirectory(ITEMFILE->FileName);
  90. }
  91. else
  92. {
  93. if (ItemFocused != Item) ItemFocused = Item;
  94. DisplayPropertiesMenu();
  95. }
  96. #else
  97. DebugUsedParam(Item);
  98. #endif
  99. }
  100. //---------------------------------------------------------------------------
  101. void __fastcall TUnixDirView::ExecuteParentDirectory()
  102. {
  103. PathChanging(true);
  104. #ifndef DESIGN_ONLY
  105. ChangeDirectory(PARENTDIRECTORY);
  106. #endif
  107. }
  108. //---------------------------------------------------------------------------
  109. void __fastcall TUnixDirView::ExecuteHomeDirectory()
  110. {
  111. #ifndef DESIGN_ONLY
  112. // don't select any directory
  113. PathChanging(false);
  114. UnicodeString APath = Terminal->SessionData->RemoteDirectory;
  115. if (WinConfiguration->DefaultDirIsHome && !APath.IsEmpty() &&
  116. !Terminal->SessionData->UpdateDirectories)
  117. {
  118. if (APath[1] != L'/')
  119. {
  120. Terminal->BeginTransaction();
  121. try
  122. {
  123. ChangeDirectory(HOMEDIRECTORY);
  124. ChangeDirectory(APath);
  125. }
  126. __finally
  127. {
  128. Terminal->EndTransaction();
  129. }
  130. }
  131. else
  132. {
  133. ChangeDirectory(APath);
  134. }
  135. }
  136. else
  137. {
  138. ChangeDirectory(HOMEDIRECTORY);
  139. }
  140. #endif
  141. }
  142. //---------------------------------------------------------------------------
  143. void __fastcall TUnixDirView::ReloadDirectory()
  144. {
  145. #ifndef DESIGN_ONLY
  146. FLastPath = L"";
  147. DoAnimation(true);
  148. Terminal->ReloadDirectory();
  149. #endif
  150. }
  151. //---------------------------------------------------------------------------
  152. void __fastcall TUnixDirView::ExecuteRootDirectory()
  153. {
  154. #ifndef DESIGN_ONLY
  155. // We set LastPath to top directory, so it will be selected
  156. // after entering root directory
  157. // DISABLED: see PathChanged(): back moves to top directory, not to current
  158. PathChanging(false);
  159. ChangeDirectory(ROOTDIRECTORY);
  160. #endif
  161. }
  162. //---------------------------------------------------------------------------
  163. bool __fastcall TUnixDirView::ItemIsDirectory(TListItem * Item)
  164. {
  165. #ifndef DESIGN_ONLY
  166. ASSERT_VALID_ITEM;
  167. return ITEMFILE->IsDirectory;
  168. #else
  169. DebugUsedParam(Item);
  170. return false;
  171. #endif
  172. }
  173. //---------------------------------------------------------------------------
  174. bool __fastcall TUnixDirView::ItemIsFile(TListItem * Item)
  175. {
  176. #ifndef DESIGN_ONLY
  177. ASSERT_VALID_ITEM;
  178. return !(ITEMFILE->IsParentDirectory);
  179. #else
  180. DebugUsedParam(Item);
  181. return false;
  182. #endif
  183. }
  184. //---------------------------------------------------------------------------
  185. bool __fastcall TUnixDirView::ItemIsParentDirectory(TListItem * Item)
  186. {
  187. #ifndef DESIGN_ONLY
  188. ASSERT_VALID_ITEM;
  189. return ITEMFILE->IsParentDirectory;
  190. #else
  191. DebugUsedParam(Item);
  192. return false;
  193. #endif
  194. }
  195. //---------------------------------------------------------------------------
  196. UnicodeString __fastcall TUnixDirView::ItemFileName(TListItem * Item)
  197. {
  198. #ifndef DESIGN_ONLY
  199. ASSERT_VALID_ITEM;
  200. return ITEMFILE->FileName;
  201. #else
  202. DebugUsedParam(Item);
  203. return UnicodeString();
  204. #endif
  205. }
  206. //---------------------------------------------------------------------------
  207. __int64 __fastcall TUnixDirView::ItemFileSize(TListItem * Item)
  208. {
  209. #ifndef DESIGN_ONLY
  210. ASSERT_VALID_ITEM;
  211. return ITEMFILE->Size;
  212. #else
  213. DebugUsedParam(Item);
  214. return 0;
  215. #endif
  216. }
  217. //---------------------------------------------------------------------------
  218. UnicodeString __fastcall TUnixDirView::ItemFullFileName(TListItem * Item)
  219. {
  220. #ifndef DESIGN_ONLY
  221. ASSERT_VALID_ITEM;
  222. return ITEMFILE->FullFileName;
  223. #else
  224. DebugUsedParam(Item);
  225. return UnicodeString();
  226. #endif
  227. }
  228. //---------------------------------------------------------------------------
  229. int __fastcall TUnixDirView::ItemImageIndex(TListItem * Item, bool /*Cache*/)
  230. {
  231. #ifndef DESIGN_ONLY
  232. ASSERT_VALID_ITEM;
  233. // TCustomDirView::ItemImageIndex is used for icon caching
  234. // so we don't need it here. But it's implemented anyway.
  235. return ITEMFILE->IconIndex;
  236. #else
  237. DebugUsedParam(Item);
  238. return 0;
  239. #endif
  240. }
  241. //---------------------------------------------------------------------------
  242. bool __fastcall TUnixDirView::ItemMatchesFilter(TListItem * Item,
  243. const TFileFilter &Filter)
  244. {
  245. #ifndef DESIGN_ONLY
  246. ASSERT_VALID_ITEM;
  247. TRemoteFile *File = ITEMFILE;
  248. return
  249. ((Filter.Masks.IsEmpty()) ||
  250. FileNameMatchesMasks(File->FileName, File->IsDirectory, File->Size, File->Modification, Filter.Masks, false) ||
  251. (File->IsDirectory && Filter.Directories &&
  252. FileNameMatchesMasks(File->FileName, false, File->Size, File->Modification, Filter.Masks, false)));
  253. #else
  254. DebugUsedParam(Item);
  255. DebugUsedParam(Filter);
  256. return false;
  257. #endif
  258. }
  259. //---------------------------------------------------------------------------
  260. Word __fastcall TUnixDirView::ItemOverlayIndexes(TListItem * Item)
  261. {
  262. #ifndef DESIGN_ONLY
  263. ASSERT_VALID_ITEM;
  264. Word Result = TCustomDirView::ItemOverlayIndexes(Item);
  265. if (ITEMFILE->IsParentDirectory)
  266. {
  267. Result |= oiDirUp;
  268. }
  269. if (ITEMFILE->IsSymLink)
  270. {
  271. Result |= ITEMFILE->BrokenLink ? oiBrokenLink : oiLink;
  272. }
  273. if (ITEMFILE->IsEncrypted)
  274. {
  275. Result |= oiEncrypted;
  276. }
  277. return Result;
  278. #else
  279. DebugUsedParam(Item);
  280. return 0;
  281. #endif
  282. }
  283. //---------------------------------------------------------------------------
  284. void __fastcall TUnixDirView::LoadFiles()
  285. {
  286. #ifndef DESIGN_ONLY
  287. DebugAssert(Terminal);
  288. if (DirOK)
  289. {
  290. // it's enough if we reach this point, we don't require that loading files into
  291. // list succeeded. FDirLoadedAfterChangeDir == false tells only that
  292. // loding file list from server failed, not loading into listview
  293. FDirLoadedAfterChangeDir = true;
  294. FFilesSize = 0;
  295. FHasParentDir = false;
  296. int VisibleFiles = 0;
  297. FHiddenCount = 0;
  298. FFilteredCount = 0;
  299. for (int Index = 0; Index < Terminal->Files->Count; Index++)
  300. {
  301. TRemoteFile *File = Terminal->Files->Files[Index];
  302. DebugAssert(File);
  303. if ((!ShowHiddenFiles && File->IsHidden) ||
  304. (!ShowInaccesibleDirectories && File->IsInaccesibleDirectory))
  305. {
  306. FHiddenCount++;
  307. }
  308. else if (!Mask.IsEmpty() &&
  309. !File->IsParentDirectory && !File->IsThisDirectory &&
  310. !FileNameMatchesMasks(File->FileName, File->IsDirectory, File->Size, File->Modification, Mask, true))
  311. {
  312. FFilteredCount++;
  313. }
  314. else
  315. {
  316. VisibleFiles++;
  317. FFilesSize += File->Size;
  318. if (File->IsParentDirectory) FHasParentDir = true;
  319. TListItem * Item = new TListItem(Items);
  320. Item->Data = File;
  321. // Need to add before assigning to .Caption and .OverlayIndex,
  322. // as the setters these call back to owning view.
  323. // Assignment is redundant
  324. Item = Items->AddItem(Item);
  325. Item->Caption = File->FileName;
  326. if (FFullLoad)
  327. {
  328. // this is out of date
  329. // (missing columns and does not update then file properties are loaded)
  330. Item->ImageIndex = File->IconIndex;
  331. Item->SubItems->Add(!File->IsDirectory ? FormatPanelBytes(File->Size, FormatSizeBytes) : UnicodeString());
  332. Item->SubItems->Add(File->UserModificationStr);
  333. Item->SubItems->Add(File->RightsStr);
  334. Item->SubItems->Add(File->Owner.DisplayText);
  335. Item->SubItems->Add(File->Group.DisplayText);
  336. Item->SubItems->Add(File->Extension);
  337. }
  338. }
  339. }
  340. if (OwnerData)
  341. {
  342. Items->Count = VisibleFiles;
  343. }
  344. }
  345. #endif
  346. }
  347. //---------------------------------------------------------------------------
  348. void __fastcall TUnixDirView::GetDisplayInfo(TListItem * Item, tagLVITEMW &DispInfo)
  349. {
  350. if (!FFullLoad)
  351. {
  352. #ifndef DESIGN_ONLY
  353. TRemoteFile * File = ITEMFILE;
  354. if (DispInfo.mask & LVIF_TEXT)
  355. {
  356. UnicodeString Value;
  357. switch (DispInfo.iSubItem) {
  358. case uvName: Value = File->FileName; break;
  359. case uvSize:
  360. // expanded from ?: to avoid memory leaks
  361. if (!File->IsDirectory)
  362. {
  363. Value = FormatPanelBytes(File->Size, FormatSizeBytes);
  364. }
  365. break;
  366. case uvChanged: Value = File->UserModificationStr; break;
  367. case uvRights: Value = File->RightsStr; break;
  368. case uvOwner: Value = File->Owner.DisplayText; break;
  369. case uvGroup: Value = File->Group.DisplayText; break;
  370. case uvExt: Value = File->Extension; break;
  371. case uvLinkTarget: Value = File->LinkTo; break;
  372. case uvType: Value = File->TypeName; break;
  373. default: DebugFail();
  374. }
  375. StrPLCopy(DispInfo.pszText, Value, DispInfo.cchTextMax);
  376. }
  377. if (DispInfo.iSubItem == 0 && DispInfo.mask & LVIF_IMAGE)
  378. {
  379. DispInfo.iImage = File->IconIndex;
  380. DispInfo.mask |= LVIF_DI_SETITEM;
  381. }
  382. #else
  383. DebugUsedParam(Item);
  384. DebugUsedParam(DispInfo);
  385. #endif
  386. }
  387. }
  388. //---------------------------------------------------------------------------
  389. bool __fastcall TUnixDirView::PasteFromClipBoard(UnicodeString TargetPath)
  390. {
  391. DragDropFilesEx->FileList->Clear();
  392. bool Result = false;
  393. if (CanPasteFromClipBoard() &&
  394. DragDropFilesEx->GetFromClipboard())
  395. {
  396. if (TargetPath.IsEmpty())
  397. {
  398. TargetPath = PathName;
  399. }
  400. PerformItemDragDropOperation(NULL, DROPEFFECT_COPY);
  401. if (OnDDExecuted != NULL)
  402. {
  403. OnDDExecuted(this, DROPEFFECT_COPY);
  404. }
  405. Result = true;
  406. }
  407. return Result;
  408. }
  409. //---------------------------------------------------------------------------
  410. void __fastcall TUnixDirView::PerformItemDragDropOperation(TListItem * Item,
  411. int Effect)
  412. {
  413. #ifndef DESIGN_ONLY
  414. if (OnDDFileOperation)
  415. {
  416. // Could be empty if the source application does not provide any files;
  417. // or if the IDataObject fails GetData, like Visual Studio Code 0.8.0.
  418. if (DragDropFilesEx->FileList->Count > 0)
  419. {
  420. UnicodeString SourceDirectory;
  421. UnicodeString TargetDirectory;
  422. SourceDirectory = ExtractFilePath(DragDropFilesEx->FileList->Items[0]->Name);
  423. if (Item)
  424. {
  425. DebugAssert(ITEMFILE->IsDirectory && (Terminal->Files->IndexOf(ITEMFILE) >= 0));
  426. TargetDirectory = ITEMFILE->FullFileName;
  427. }
  428. else
  429. {
  430. TargetDirectory = Path;
  431. }
  432. bool DoFileOperation = true;
  433. OnDDFileOperation(this, Effect, SourceDirectory, TargetDirectory,
  434. DoFileOperation);
  435. }
  436. }
  437. #else
  438. DebugUsedParam(Item);
  439. DebugUsedParam(Effect);
  440. #endif
  441. }
  442. //---------------------------------------------------------------------------
  443. void __fastcall TUnixDirView::SetItemImageIndex(TListItem * /* Item */, int /* Index */)
  444. {
  445. // TCustomDirView::SetItemImageIndex is used for icon caching
  446. // so we don't need it here.
  447. }
  448. //---------------------------------------------------------------------------
  449. void __fastcall TUnixDirView::DDMenuDone(TObject* /* Sender */, HMENU /* AMenu */)
  450. {
  451. // TODO: Why I need to duplicate this method? (see TCustomDirView::DDMenuDone)
  452. }
  453. //---------------------------------------------------------------------------
  454. void __fastcall TUnixDirView::SetDriveView(TCustomUnixDriveView * Value)
  455. {
  456. if (Value != FDriveView)
  457. {
  458. if (FDriveView != NULL)
  459. {
  460. FDriveView->Terminal = NULL;
  461. }
  462. FDriveView = Value;
  463. if (FDriveView != NULL)
  464. {
  465. FDriveView->Terminal = Terminal;
  466. }
  467. }
  468. }
  469. //---------------------------------------------------------------------------
  470. #ifndef DESIGN_ONLY
  471. void __fastcall TUnixDirView::SetTerminal(TTerminal *value)
  472. {
  473. if (FTerminal != value)
  474. {
  475. if (FTerminal)
  476. {
  477. DebugAssert(FTerminal->OnReadDirectory == DoReadDirectory);
  478. FTerminal->OnReadDirectory = NULL;
  479. DebugAssert(FTerminal->OnStartReadDirectory == DoStartReadDirectory);
  480. FTerminal->OnStartReadDirectory = NULL;
  481. DebugAssert(FTerminal->OnChangeDirectory == DoChangeDirectory);
  482. FTerminal->OnChangeDirectory = NULL;
  483. if (!value || !value->Files->Loaded)
  484. {
  485. ClearItems();
  486. }
  487. }
  488. FTerminal = value;
  489. PathChanging(false);
  490. if (FDriveView != NULL)
  491. {
  492. FDriveView->Terminal = FTerminal;
  493. }
  494. if (FTerminal)
  495. {
  496. FTerminal->OnReadDirectory = DoReadDirectory;
  497. FTerminal->OnStartReadDirectory = DoStartReadDirectory;
  498. FTerminal->OnChangeDirectory = DoChangeDirectory;
  499. FTerminal->Files->IncludeParentDirectory = AddParentDir;
  500. if (FTerminal->Files->Loaded)
  501. {
  502. DoChangeDirectory(FTerminal);
  503. DoStartReadDirectory(FTerminal); // just for style and the assertions
  504. DoReadDirectoryImpl(FTerminal, false);
  505. }
  506. }
  507. UpdatePathLabel();
  508. }
  509. }
  510. #endif
  511. //---------------------------------------------------------------------------
  512. void __fastcall TUnixDirView::DoStartReadDirectory(TObject * /*Sender*/)
  513. {
  514. DebugAssert(!FLoading);
  515. FLoading = true;
  516. }
  517. //---------------------------------------------------------------------------
  518. void __fastcall TUnixDirView::DoReadDirectory(TObject * Sender, bool ReloadOnly)
  519. {
  520. DoReadDirectoryImpl(Sender, ReloadOnly);
  521. if (FOnRead != NULL)
  522. {
  523. FOnRead(this);
  524. }
  525. }
  526. //---------------------------------------------------------------------------
  527. void __fastcall TUnixDirView::DoReadDirectoryImpl(TObject * /*Sender*/, bool ReloadOnly)
  528. {
  529. DebugAssert(FLoading);
  530. FLoading = false;
  531. #ifndef DESIGN_ONLY
  532. if (Terminal->Active)
  533. {
  534. CancelEdit();
  535. if (ReloadOnly)
  536. {
  537. Reload(false);
  538. }
  539. else
  540. {
  541. Load(true);
  542. PathChanged();
  543. }
  544. if ((FDriveView != NULL) && FDriveView->Visible)
  545. {
  546. FDriveView->LoadDirectory();
  547. }
  548. }
  549. else
  550. {
  551. // Make sure file list is cleared, to remove all references to invalid
  552. // file objects. LoadFiles check for disconnected terminal, so no reloading
  553. // actually occures.
  554. Load(true);
  555. }
  556. #else
  557. DebugUsedParam(ReloadOnly);
  558. #endif
  559. }
  560. //---------------------------------------------------------------------------
  561. void __fastcall TUnixDirView::DoChangeDirectory(TObject * /*Sender*/)
  562. {
  563. #ifndef DESIGN_ONLY
  564. // Reload(false);
  565. #endif
  566. }
  567. //---------------------------------------------------------------------------
  568. bool __fastcall TUnixDirView::GetDirOK()
  569. {
  570. #ifndef DESIGN_ONLY
  571. return (Active && Terminal->Files->Loaded);
  572. #else
  573. return false;
  574. #endif
  575. }
  576. //---------------------------------------------------------------------------
  577. UnicodeString __fastcall TUnixDirView::GetPathName()
  578. {
  579. #ifndef DESIGN_ONLY
  580. if (DirOK) return Terminal->CurrentDirectory;
  581. else
  582. #endif
  583. return L"";
  584. }
  585. //---------------------------------------------------------------------------
  586. UnicodeString __fastcall TUnixDirView::GetPath()
  587. {
  588. #ifndef DESIGN_ONLY
  589. if (DirOK) return UnixIncludeTrailingBackslash(Terminal->CurrentDirectory);
  590. else
  591. #endif
  592. return L"";
  593. }
  594. //---------------------------------------------------------------------------
  595. void __fastcall TUnixDirView::SetPath(UnicodeString Value)
  596. {
  597. #ifndef DESIGN_ONLY
  598. Value = UnixExcludeTrailingBackslash(Value);
  599. if (Active && (Terminal->CurrentDirectory != Value))
  600. {
  601. PathChanging(true);
  602. Terminal->CurrentDirectory = Value;
  603. }
  604. #endif
  605. }
  606. //---------------------------------------------------------------------------
  607. #ifndef DESIGN_ONLY
  608. #define COMPARE_NUMBER(Num1, Num2) ( Num1 < Num2 ? -1 : ( Num1 > Num2 ? 1 : 0) )
  609. //---------------------------------------------------------------------------
  610. int __stdcall CompareFile(TListItem * Item1, TListItem * Item2, TUnixDirView * DirView)
  611. {
  612. DebugAssert((Item1 != NULL) && (Item2 != NULL));
  613. TRemoteFile * File1 = DebugNotNull((TRemoteFile *)(Item1->Data));
  614. TRemoteFile * File2 = DebugNotNull((TRemoteFile *)(Item2->Data));
  615. int Result;
  616. if (File1->IsParentDirectory && !File2->IsParentDirectory)
  617. {
  618. Result = -1;
  619. }
  620. else if (!File1->IsParentDirectory && File2->IsParentDirectory)
  621. {
  622. Result = 1;
  623. }
  624. else if (File1->IsDirectory && !File2->IsDirectory)
  625. {
  626. Result = -1;
  627. }
  628. else if (!File1->IsDirectory && File2->IsDirectory)
  629. {
  630. Result = 1;
  631. }
  632. else
  633. {
  634. Result = 0;
  635. switch (DirView->SortColumn)
  636. {
  637. case uvName:
  638. // fallback
  639. break;
  640. case uvSize:
  641. Result = COMPARE_NUMBER(File1->Size, File2->Size);
  642. break;
  643. case uvChanged:
  644. Result = COMPARE_NUMBER(File1->Modification, File2->Modification);
  645. break;
  646. case uvRights:
  647. Result = AnsiCompareText(File1->RightsStr, File2->RightsStr);
  648. break;
  649. case uvOwner:
  650. Result = File1->Owner.Compare(File2->Owner);
  651. break;
  652. case uvGroup:
  653. Result = File1->Group.Compare(File2->Group);
  654. break;
  655. case uvExt:
  656. // Duplicated in uvType branch
  657. if (!File1->IsDirectory)
  658. {
  659. Result = CompareLogicalText(File1->Extension, File2->Extension, DirView->NaturalOrderNumericalSorting);
  660. }
  661. else
  662. {
  663. // fallback
  664. }
  665. break;
  666. case uvLinkTarget:
  667. Result = CompareLogicalText(File1->LinkTo, File2->LinkTo, DirView->NaturalOrderNumericalSorting);
  668. break;
  669. case uvType:
  670. Result = CompareLogicalText(File1->TypeName, File2->TypeName, DirView->NaturalOrderNumericalSorting);
  671. // fallback to uvExt
  672. if ((Result == 0) && !File1->IsDirectory)
  673. {
  674. Result = CompareLogicalText(File1->Extension, File2->Extension, DirView->NaturalOrderNumericalSorting);
  675. }
  676. break;
  677. default:
  678. DebugFail();
  679. }
  680. if (Result == 0)
  681. {
  682. Result = CompareLogicalText(File1->FileName, File2->FileName, DirView->NaturalOrderNumericalSorting);
  683. }
  684. if (!DirView->UnixColProperties->SortAscending)
  685. {
  686. Result = -Result;
  687. }
  688. }
  689. return Result;
  690. }
  691. //---------------------------------------------------------------------------
  692. #undef COMPARE_NUMBER
  693. #endif
  694. //---------------------------------------------------------------------------
  695. void __fastcall TUnixDirView::SortItems()
  696. {
  697. #ifndef DESIGN_ONLY
  698. DebugAssert(Terminal);
  699. if (HandleAllocated())
  700. {
  701. CustomSortItems(CompareFile);
  702. }
  703. #endif
  704. }
  705. //---------------------------------------------------------------------------
  706. bool __fastcall TUnixDirView::GetActive()
  707. {
  708. #ifndef DESIGN_ONLY
  709. return ((Terminal != NULL) && Terminal->Active);
  710. #else
  711. return false;
  712. #endif
  713. }
  714. //---------------------------------------------------------------------------
  715. void __fastcall TUnixDirView::DDDragDetect(int grfKeyState,
  716. const TPoint &DetectStart, const TPoint &Point, TDragDetectStatus DragStatus)
  717. {
  718. if ((DragStatus == ddsDrag) && (!Loading) && (MarkedCount > 0))
  719. {
  720. TCustomUnixDirView::DDDragDetect(grfKeyState, DetectStart, Point, DragStatus);
  721. }
  722. }
  723. //---------------------------------------------------------------------------
  724. void __fastcall TUnixDirView::SetAddParentDir(bool Value)
  725. {
  726. if (Value != AddParentDir)
  727. {
  728. #ifndef DESIGN_ONLY
  729. if (Terminal) Terminal->Files->IncludeParentDirectory = Value;
  730. #endif
  731. TCustomUnixDirView::SetAddParentDir(Value);
  732. }
  733. }
  734. //---------------------------------------------------------------------------
  735. bool __fastcall TUnixDirView::TargetHasDropHandler(TListItem * /* Item */, int /* Effect */)
  736. {
  737. return false;
  738. }
  739. //---------------------------------------------------------------------------
  740. void __fastcall TUnixDirView::DDChooseEffect(int grfKeyState, int &dwEffect)
  741. {
  742. if ((grfKeyState & (MK_CONTROL | MK_SHIFT)) == 0)
  743. {
  744. dwEffect = DROPEFFECT_Copy;
  745. }
  746. TCustomDirView::DDChooseEffect(grfKeyState, dwEffect);
  747. }
  748. //---------------------------------------------------------------------------
  749. void __fastcall TUnixDirView::SetDDAllowMove(bool value)
  750. {
  751. if (DDAllowMove != value)
  752. {
  753. DebugAssert(DragDropFilesEx);
  754. FDDAllowMove = value;
  755. DragDropFilesEx->SourceEffects = DragSourceEffects;
  756. }
  757. }
  758. //---------------------------------------------------------------------------
  759. TDropEffectSet __fastcall TUnixDirView::GetDragSourceEffects()
  760. {
  761. TDropEffectSet Result;
  762. Result << deCopy;
  763. if (DDAllowMove) Result << deMove;
  764. return Result;
  765. }
  766. //---------------------------------------------------------------------------
  767. void __fastcall TUnixDirView::ChangeDirectory(UnicodeString Path)
  768. {
  769. UnicodeString LastFile = L"";
  770. if (ItemFocused) LastFile = ItemFileName(ItemFocused);
  771. ClearItems();
  772. DoAnimation(true);
  773. #ifndef DESIGN_ONLY
  774. try
  775. {
  776. FDirLoadedAfterChangeDir = false;
  777. if (Path == HOMEDIRECTORY)
  778. {
  779. Terminal->HomeDirectory();
  780. }
  781. else
  782. // this works even with LockInHome
  783. if (Path == ROOTDIRECTORY)
  784. {
  785. Terminal->CurrentDirectory = ROOTDIRECTORY;
  786. }
  787. else
  788. {
  789. Terminal->ChangeDirectory(Path);
  790. }
  791. }
  792. __finally
  793. {
  794. // changing directory failed, so we load again old directory
  795. if (!FDirLoadedAfterChangeDir)
  796. {
  797. FSelectFile = LastFile;
  798. Reload(false);
  799. };
  800. }
  801. #endif
  802. }
  803. //---------------------------------------------------------------------------
  804. bool __fastcall TUnixDirView::CanEdit(TListItem* Item)
  805. {
  806. #ifndef DESIGN_ONLY
  807. DebugAssert(Terminal);
  808. return TCustomUnixDirView::CanEdit(Item) && Terminal->IsCapable[fcRename];
  809. #else
  810. DebugUsedParam(Item);
  811. return false;
  812. #endif
  813. }
  814. //---------------------------------------------------------------------------
  815. void __fastcall TUnixDirView::InternalEdit(const tagLVITEMW & HItem)
  816. {
  817. #ifndef DESIGN_ONLY
  818. TListItem *Item = GetItemFromHItem(HItem);
  819. ASSERT_VALID_ITEM;
  820. LoadEnabled = true;
  821. if (ITEMFILE->FileName != HItem.pszText)
  822. {
  823. FSelectFile = HItem.pszText;
  824. Terminal->RenameFile(ITEMFILE, HItem.pszText, true);
  825. }
  826. #else
  827. DebugUsedParam(HItem);
  828. #endif
  829. }
  830. //---------------------------------------------------------------------------
  831. int __fastcall TUnixDirView::HiddenCount()
  832. {
  833. return FHiddenCount;
  834. }
  835. //---------------------------------------------------------------------------
  836. int __fastcall TUnixDirView::FilteredCount()
  837. {
  838. return FFilteredCount;
  839. }
  840. //---------------------------------------------------------------------------
  841. void __fastcall TUnixDirView::CreateDirectory(UnicodeString DirName)
  842. {
  843. CreateDirectoryEx(DirName, NULL);
  844. }
  845. //---------------------------------------------------------------------------
  846. void __fastcall TUnixDirView::CreateDirectoryEx(UnicodeString DirName, const TRemoteProperties * Properties)
  847. {
  848. #ifndef DESIGN_ONLY
  849. DebugAssert(Terminal);
  850. // if file would be created in current directory, select it after reload
  851. if (UnixExtractFileName(DirName) == DirName)
  852. {
  853. FSelectFile = DirName;
  854. }
  855. Terminal->CreateDirectory(DirName, Properties);
  856. #else
  857. DebugUsedParam(Properties);
  858. #endif
  859. }
  860. //---------------------------------------------------------------------------
  861. bool __fastcall TUnixDirView::GetIsRoot()
  862. {
  863. #ifndef DESIGN_ONLY
  864. return (PathName == ROOTDIRECTORY);
  865. #else
  866. return false;
  867. #endif
  868. }
  869. //---------------------------------------------------------------------------
  870. TColor __fastcall TUnixDirView::ItemColor(TListItem * Item)
  871. {
  872. DebugAssert(Item);
  873. #ifndef DESIGN_ONLY
  874. if (DimmHiddenFiles && !Item->Selected && ITEMFILE->IsHidden)
  875. {
  876. return clGrayText;
  877. }
  878. else
  879. #else
  880. DebugUsedParam(Item);
  881. #endif
  882. {
  883. return (TColor)clDefaultItemColor;
  884. }
  885. }
  886. //---------------------------------------------------------------------------
  887. TDateTime __fastcall TUnixDirView::ItemFileTime(TListItem * Item,
  888. TDateTimePrecision & Precision)
  889. {
  890. DebugAssert(Item);
  891. #ifndef DESIGN_ONLY
  892. switch (ITEMFILE->ModificationFmt)
  893. {
  894. case mfNone:
  895. Precision = tpNone;
  896. break;
  897. case mfMDHM:
  898. Precision = tpMinute;
  899. break;
  900. case mfMDY:
  901. Precision = tpDay;
  902. break;
  903. case mfFull:
  904. default:
  905. Precision = tpSecond;
  906. break;
  907. }
  908. return ITEMFILE->Modification;
  909. #else
  910. DebugUsedParam(Item);
  911. Precision = tpSecond;
  912. return Now();
  913. #endif
  914. }
  915. //---------------------------------------------------------------------------
  916. void __fastcall TUnixDirView::SetShowInaccesibleDirectories(bool value)
  917. {
  918. if (FShowInaccesibleDirectories != value)
  919. {
  920. FShowInaccesibleDirectories = value;
  921. if (DirOK) Reload(false);
  922. }
  923. }
  924. //---------------------------------------------------------------------------
  925. void __fastcall TUnixDirView::AddToDragFileList(TFileList * FileList,
  926. TListItem * Item)
  927. {
  928. UnicodeString FileName = ItemFullFileName(Item);
  929. #ifndef DESIGN_ONLY
  930. if (OnDDDragFileName != NULL)
  931. {
  932. OnDDDragFileName(this, ITEMFILE, FileName);
  933. }
  934. #endif
  935. FileList->AddItem(NULL, FileName);
  936. }
  937. //---------------------------------------------------------------------------
  938. void __fastcall TUnixDirView::UpdatePathLabelCaption()
  939. {
  940. if (Terminal != NULL)
  941. {
  942. TCustomDirView::UpdatePathLabelCaption();
  943. }
  944. else
  945. {
  946. PathLabel->Caption = UnicodeString();
  947. PathLabel->Mask = UnicodeString();
  948. }
  949. }