CustomScpExplorer.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436
  1. object CustomScpExplorerForm: TCustomScpExplorerForm
  2. Left = 251
  3. Top = 166
  4. Caption = 'CustomScpExplorerForm'
  5. ClientHeight = 429
  6. ClientWidth = 608
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -12
  11. Font.Name = 'Segoe UI'
  12. Font.Style = []
  13. KeyPreview = True
  14. OnAfterMonitorDpiChanged = FormAfterMonitorDpiChanged
  15. OnClose = FormClose
  16. OnCloseQuery = FormCloseQuery
  17. OnConstrainedResize = FormConstrainedResize
  18. OnShow = FormShow
  19. TextHeight = 15
  20. object QueueSplitter: TSplitter
  21. Left = 0
  22. Top = 286
  23. Width = 608
  24. Height = 3
  25. Cursor = crSizeNS
  26. Hint = 'Drag to resize queue list. Double click to hide queue list.'
  27. Align = alBottom
  28. AutoSnap = False
  29. MinSize = 70
  30. ResizeStyle = rsUpdate
  31. OnCanResize = QueueSplitterCanResize
  32. end
  33. object TopDock: TTBXDock
  34. Left = 0
  35. Top = 0
  36. Width = 608
  37. Height = 9
  38. FixAlign = True
  39. end
  40. object RemotePanel: TPanel
  41. Left = 0
  42. Top = 39
  43. Width = 608
  44. Height = 247
  45. Align = alClient
  46. BevelOuter = bvNone
  47. Color = clWindow
  48. ParentBackground = False
  49. TabOrder = 0
  50. object RemotePanelSplitter: TSplitter
  51. Left = 169
  52. Top = 0
  53. Height = 228
  54. Cursor = crSizeWE
  55. AutoSnap = False
  56. MinSize = 70
  57. ResizeStyle = rsUpdate
  58. end
  59. object RemoteStatusBar: TTBXStatusBar
  60. Left = 0
  61. Top = 228
  62. Width = 608
  63. Height = 19
  64. Panels = <>
  65. ParentShowHint = False
  66. ShowHint = True
  67. UseSystemFont = False
  68. OnClick = RemoteStatusBarClick
  69. OnMouseDown = RemoteStatusBarMouseDown
  70. end
  71. object RemoteDirPanel: TPanel
  72. Left = 172
  73. Top = 0
  74. Width = 436
  75. Height = 228
  76. Align = alClient
  77. BevelOuter = bvNone
  78. TabOrder = 1
  79. object RemoteDirView: TUnixDirView
  80. Left = 0
  81. Top = 0
  82. Width = 448
  83. Height = 231
  84. Align = alClient
  85. DoubleBuffered = True
  86. FullDrag = True
  87. HideSelection = False
  88. IconOptions.AutoArrange = True
  89. ParentDoubleBuffered = False
  90. PopupMenu = NonVisualDataModule.RemoteDirViewPopup
  91. TabOrder = 0
  92. OnColumnRightClick = DirViewColumnRightClick
  93. OnEditing = DirViewEditing
  94. OnEnter = RemoteDirViewEnter
  95. OnExit = DirViewExit
  96. OnKeyDown = DirViewKeyDown
  97. OnKeyPress = DirViewKeyPress
  98. OnResize = RemoteDirViewResize
  99. NortonLike = nlOff
  100. UnixColProperties.ExtWidth = 20
  101. UnixColProperties.TypeVisible = False
  102. OnDDDragFileName = RemoteFileControlDDDragFileName
  103. OnBusy = DirViewBusy
  104. OnChangeFocus = DirViewChangeFocus
  105. OnSelectItem = DirViewSelectItem
  106. OnStartLoading = RemoteDirViewStartLoading
  107. OnLoaded = DirViewLoaded
  108. OnExecFile = DirViewExecFile
  109. OnMatchMask = DirViewMatchMask
  110. OnGetOverlay = DirViewGetOverlay
  111. OnDDDragEnter = FileControlDDDragEnter
  112. OnDDDragLeave = FileControlDDDragLeave
  113. OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
  114. OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
  115. OnDDChooseEffect = RemoteFileContolDDChooseEffect
  116. OnDDDragDetect = RemoteFileControlDDDragDetect
  117. OnDDEnd = RemoteFileControlDDEnd
  118. OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
  119. OnDDFileOperation = RemoteFileControlDDFileOperation
  120. OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
  121. OnContextPopup = RemoteDirViewContextPopup
  122. OnHistoryChange = DirViewHistoryChange
  123. OnDisplayProperties = RemoteDirViewDisplayProperties
  124. DirViewStyle = dvsReport
  125. OnRead = RemoteDirViewRead
  126. OnStartReading = RemoteDirViewStartReading
  127. OnThumbnailNeeded = RemoteDirViewThumbnailNeeded
  128. end
  129. object ReconnectToolbar: TTBXToolbar
  130. Left = 136
  131. Top = 112
  132. Width = 107
  133. Height = 21
  134. Caption = 'ReconnectToolbar'
  135. Images = GlyphsModule.ExplorerImages
  136. Options = [tboShowHint]
  137. ParentShowHint = False
  138. ShowHint = True
  139. TabOrder = 1
  140. object TBXItem254: TTBXItem
  141. Action = NonVisualDataModule.ReconnectSessionAction
  142. end
  143. end
  144. end
  145. object RemoteDrivePanel: TPanel
  146. Left = 0
  147. Top = 0
  148. Width = 169
  149. Height = 228
  150. Align = alLeft
  151. BevelOuter = bvNone
  152. TabOrder = 2
  153. object RemoteDriveView: TUnixDriveView
  154. Left = 0
  155. Top = 0
  156. Width = 169
  157. Height = 228
  158. DirView = RemoteDirView
  159. OnDDDragFileName = RemoteFileControlDDDragFileName
  160. OnDDEnd = RemoteFileControlDDEnd
  161. UseSystemContextMenu = False
  162. OnDDDragEnter = FileControlDDDragEnter
  163. OnDDDragLeave = FileControlDDDragLeave
  164. OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
  165. OnDDChooseEffect = RemoteFileContolDDChooseEffect
  166. OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
  167. OnDDDragDetect = RemoteFileControlDDDragDetect
  168. OnDDFileOperation = RemoteFileControlDDFileOperation
  169. OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
  170. OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
  171. Align = alClient
  172. DoubleBuffered = True
  173. HideSelection = False
  174. Indent = 19
  175. ParentColor = False
  176. ParentDoubleBuffered = False
  177. ReadOnly = True
  178. TabOrder = 0
  179. OnEnter = RemoteDriveViewEnter
  180. OnBusy = DirViewBusy
  181. end
  182. end
  183. end
  184. object QueuePanel: TPanel
  185. Left = 0
  186. Top = 289
  187. Width = 608
  188. Height = 140
  189. Align = alBottom
  190. BevelOuter = bvNone
  191. TabOrder = 1
  192. object QueueLabel: TPathLabel
  193. Left = 0
  194. Top = 0
  195. Width = 620
  196. Height = 21
  197. IndentVertical = 3
  198. AutoSizeVertical = True
  199. OnGetStatus = QueueLabelGetStatus
  200. AutoSize = False
  201. Transparent = False
  202. end
  203. object QueueFileListSplitter: TSplitter
  204. Left = 0
  205. Top = 117
  206. Width = 620
  207. Height = 3
  208. Cursor = crSizeNS
  209. Hint =
  210. 'Drag to resize queue file list. Double click to hide queue file ' +
  211. 'list.'
  212. Align = alBottom
  213. AutoSnap = False
  214. MinSize = 10
  215. ResizeStyle = rsUpdate
  216. OnCanResize = QueueFileListSplitterCanResize
  217. end
  218. object QueueView3: TListView
  219. Left = 0
  220. Top = 47
  221. Width = 620
  222. Height = 70
  223. Align = alClient
  224. Columns = <
  225. item
  226. Caption = 'Operation'
  227. MinWidth = 20
  228. Width = 70
  229. end
  230. item
  231. Caption = 'Source'
  232. MinWidth = 20
  233. Width = 170
  234. end
  235. item
  236. Caption = 'Destination'
  237. MinWidth = 20
  238. Width = 170
  239. end
  240. item
  241. Alignment = taRightJustify
  242. Caption = 'Transferred'
  243. MinWidth = 20
  244. Width = 80
  245. end
  246. item
  247. Alignment = taRightJustify
  248. Caption = 'Time'
  249. MinWidth = 20
  250. Width = 80
  251. end
  252. item
  253. Alignment = taRightJustify
  254. Caption = 'Speed'
  255. MinWidth = 20
  256. Width = 80
  257. end
  258. item
  259. Alignment = taCenter
  260. Caption = 'Progress'
  261. MinWidth = 20
  262. Width = 80
  263. end>
  264. ColumnClick = False
  265. DoubleBuffered = True
  266. DragMode = dmAutomatic
  267. ReadOnly = True
  268. RowSelect = True
  269. ParentDoubleBuffered = False
  270. PopupMenu = NonVisualDataModule.QueuePopup
  271. SmallImages = GlyphsModule.QueueImages
  272. StateImages = GlyphsModule.QueueImages
  273. TabOrder = 0
  274. ViewStyle = vsReport
  275. OnChange = QueueView3Change
  276. OnContextPopup = QueueView3ContextPopup
  277. OnDeletion = QueueView3Deletion
  278. OnEndDrag = QueueView3EndDrag
  279. OnEnter = QueueView3Enter
  280. OnExit = QueueView3Exit
  281. OnDragDrop = QueueView3DragDrop
  282. OnDragOver = QueueView3DragOver
  283. OnSelectItem = QueueView3SelectItem
  284. OnStartDrag = QueueView3StartDrag
  285. end
  286. object QueueDock: TTBXDock
  287. Tag = 1
  288. Left = 0
  289. Top = 21
  290. Width = 620
  291. Height = 26
  292. AllowDrag = False
  293. object QueueToolbar: TTBXToolbar
  294. Left = 0
  295. Top = 0
  296. Caption = 'QueueToolbar'
  297. Images = GlyphsModule.ExplorerImages
  298. Options = [tboShowHint]
  299. ParentShowHint = False
  300. ShowHint = True
  301. TabOrder = 0
  302. object QueueEnableItem: TTBXItem
  303. Action = NonVisualDataModule.QueueEnableAction
  304. end
  305. object TBXSeparatorItem203: TTBXSeparatorItem
  306. end
  307. object TBXItem201: TTBXItem
  308. Action = NonVisualDataModule.QueueItemQueryAction
  309. end
  310. object TBXItem202: TTBXItem
  311. Action = NonVisualDataModule.QueueItemErrorAction
  312. end
  313. object TBXItem203: TTBXItem
  314. Action = NonVisualDataModule.QueueItemPromptAction
  315. end
  316. object TBXItem204: TTBXItem
  317. Action = NonVisualDataModule.QueueItemExecuteAction
  318. end
  319. object TBXItem195: TTBXItem
  320. Action = NonVisualDataModule.QueueItemPauseAction
  321. end
  322. object TBXItem194: TTBXItem
  323. Action = NonVisualDataModule.QueueItemResumeAction
  324. end
  325. object TBXItem205: TTBXItem
  326. Action = NonVisualDataModule.QueueItemDeleteAction
  327. end
  328. object TBXSeparatorItem201: TTBXSeparatorItem
  329. end
  330. object TBXItem206: TTBXItem
  331. Action = NonVisualDataModule.QueueItemUpAction
  332. end
  333. object TBXItem207: TTBXItem
  334. Action = NonVisualDataModule.QueueItemDownAction
  335. end
  336. object TBXSeparatorItem57: TTBXSeparatorItem
  337. end
  338. object QueueDeleteAllDoneQueueToolbarItem: TTBXItem
  339. Action = NonVisualDataModule.QueueDeleteAllDoneAction
  340. end
  341. object TBXSeparatorItem202: TTBXSeparatorItem
  342. end
  343. object TBXSubmenuItem27: TTBXSubmenuItem
  344. Action = NonVisualDataModule.QueueCycleOnceEmptyAction
  345. DropdownCombo = True
  346. object TBXItem211: TTBXItem
  347. Action = NonVisualDataModule.QueueIdleOnceEmptyAction
  348. RadioItem = True
  349. end
  350. object TBXItem225: TTBXItem
  351. Action = NonVisualDataModule.QueueDisconnectOnceEmptyAction2
  352. RadioItem = True
  353. end
  354. object TBXItem173: TTBXItem
  355. Action = NonVisualDataModule.QueueSuspendOnceEmptyAction2
  356. RadioItem = True
  357. end
  358. object TBXItem226: TTBXItem
  359. Action = NonVisualDataModule.QueueShutDownOnceEmptyAction2
  360. RadioItem = True
  361. end
  362. end
  363. object TBXItem208: TTBXItem
  364. Action = NonVisualDataModule.QueuePreferencesAction
  365. end
  366. end
  367. end
  368. object QueueFileList: TListView
  369. Left = 0
  370. Top = 120
  371. Width = 620
  372. Height = 20
  373. Align = alBottom
  374. Columns = <
  375. item
  376. end>
  377. DoubleBuffered = True
  378. OwnerData = True
  379. ReadOnly = True
  380. ParentDoubleBuffered = False
  381. ShowColumnHeaders = False
  382. TabOrder = 2
  383. TabStop = False
  384. ViewStyle = vsReport
  385. OnCustomDrawItem = QueueFileListCustomDrawItem
  386. OnData = QueueFileListData
  387. OnEnter = QueueFileListEnterExit
  388. OnExit = QueueFileListEnterExit
  389. OnResize = QueueFileListResize
  390. end
  391. end
  392. object SessionsPageControl: TThemePageControl
  393. Left = 0
  394. Top = 18
  395. Width = 608
  396. Height = 21
  397. ActivePage = TabSheet1
  398. Align = alTop
  399. DoubleBuffered = True
  400. ParentDoubleBuffered = False
  401. ParentShowHint = False
  402. ShowHint = True
  403. TabOrder = 3
  404. TabStop = False
  405. OnChange = SessionsPageControlChange
  406. OnContextPopup = SessionsPageControlContextPopup
  407. OnDragDrop = SessionsPageControlDragDrop
  408. OnDragOver = SessionsPageControlDragOver
  409. OnMouseDown = SessionsPageControlMouseDown
  410. OnResize = SessionsPageControlResize
  411. OnTabButtonClick = SessionsPageControlTabButtonClick
  412. OnTabHint = SessionsPageControlTabHint
  413. object TabSheet1: TThemeTabSheet
  414. Caption = 'TabSheet1'
  415. end
  416. end
  417. object MessageDock: TTBXDock
  418. Tag = 1
  419. Left = 0
  420. Top = 9
  421. Width = 608
  422. Height = 9
  423. AllowDrag = False
  424. FixAlign = True
  425. Visible = False
  426. OnRequestDock = MessageDockRequestDock
  427. end
  428. object ApplicationEvents: TApplicationEvents
  429. OnDeactivate = ApplicationEventsDeactivate
  430. OnMinimize = ApplicationMinimize
  431. OnModalBegin = ApplicationEventsModalBegin
  432. OnRestore = ApplicationRestore
  433. Left = 88
  434. Top = 200
  435. end
  436. end