CustomScpExplorer.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439
  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: TIEListView
  219. Left = 0
  220. Top = 47
  221. Width = 620
  222. Height = 70
  223. ShowColumnIcon = False
  224. Align = alClient
  225. ColumnClick = False
  226. DoubleBuffered = True
  227. ReadOnly = True
  228. RowSelect = True
  229. ParentDoubleBuffered = False
  230. PopupMenu = NonVisualDataModule.QueuePopup
  231. TabOrder = 0
  232. OnChange = QueueView3Change
  233. OnDeletion = QueueView3Deletion
  234. OnEnter = QueueView3Enter
  235. OnExit = QueueView3Exit
  236. NortonLike = nlOff
  237. Columns = <
  238. item
  239. Caption = 'Operation'
  240. MinWidth = 20
  241. Width = 70
  242. end
  243. item
  244. Caption = 'Source'
  245. MinWidth = 20
  246. Width = 170
  247. end
  248. item
  249. Caption = 'Destination'
  250. MinWidth = 20
  251. Width = 170
  252. end
  253. item
  254. Alignment = taRightJustify
  255. Caption = 'Transferred'
  256. MinWidth = 20
  257. Width = 80
  258. end
  259. item
  260. Alignment = taRightJustify
  261. Caption = 'Time'
  262. MinWidth = 20
  263. Width = 80
  264. end
  265. item
  266. Alignment = taRightJustify
  267. Caption = 'Speed'
  268. MinWidth = 20
  269. Width = 80
  270. end
  271. item
  272. Alignment = taCenter
  273. Caption = 'Progress'
  274. MinWidth = 20
  275. Width = 80
  276. end>
  277. DragMode = dmAutomatic
  278. MultiSelect = False
  279. SmallImages = GlyphsModule.QueueImages
  280. StateImages = GlyphsModule.QueueImages
  281. ViewStyle = vsReport
  282. OnContextPopup = QueueView3ContextPopup
  283. OnEndDrag = QueueView3EndDrag
  284. OnDragDrop = QueueView3DragDrop
  285. OnDragOver = QueueView3DragOver
  286. OnSelectItem = QueueView3SelectItem
  287. OnStartDrag = QueueView3StartDrag
  288. end
  289. object QueueDock: TTBXDock
  290. Tag = 1
  291. Left = 0
  292. Top = 21
  293. Width = 620
  294. Height = 26
  295. AllowDrag = False
  296. object QueueToolbar: TTBXToolbar
  297. Left = 0
  298. Top = 0
  299. Caption = 'QueueToolbar'
  300. Images = GlyphsModule.ExplorerImages
  301. Options = [tboShowHint]
  302. ParentShowHint = False
  303. ShowHint = True
  304. TabOrder = 0
  305. object QueueEnableItem: TTBXItem
  306. Action = NonVisualDataModule.QueueEnableAction
  307. end
  308. object TBXSeparatorItem203: TTBXSeparatorItem
  309. end
  310. object TBXItem201: TTBXItem
  311. Action = NonVisualDataModule.QueueItemQueryAction
  312. end
  313. object TBXItem202: TTBXItem
  314. Action = NonVisualDataModule.QueueItemErrorAction
  315. end
  316. object TBXItem203: TTBXItem
  317. Action = NonVisualDataModule.QueueItemPromptAction
  318. end
  319. object TBXItem204: TTBXItem
  320. Action = NonVisualDataModule.QueueItemExecuteAction
  321. end
  322. object TBXItem195: TTBXItem
  323. Action = NonVisualDataModule.QueueItemPauseAction
  324. end
  325. object TBXItem194: TTBXItem
  326. Action = NonVisualDataModule.QueueItemResumeAction
  327. end
  328. object TBXItem205: TTBXItem
  329. Action = NonVisualDataModule.QueueItemDeleteAction
  330. end
  331. object TBXSeparatorItem201: TTBXSeparatorItem
  332. end
  333. object TBXItem206: TTBXItem
  334. Action = NonVisualDataModule.QueueItemUpAction
  335. end
  336. object TBXItem207: TTBXItem
  337. Action = NonVisualDataModule.QueueItemDownAction
  338. end
  339. object TBXSeparatorItem57: TTBXSeparatorItem
  340. end
  341. object QueueDeleteAllDoneQueueToolbarItem: TTBXItem
  342. Action = NonVisualDataModule.QueueDeleteAllDoneAction
  343. end
  344. object TBXSeparatorItem202: TTBXSeparatorItem
  345. end
  346. object TBXSubmenuItem27: TTBXSubmenuItem
  347. Action = NonVisualDataModule.QueueCycleOnceEmptyAction
  348. DropdownCombo = True
  349. object TBXItem211: TTBXItem
  350. Action = NonVisualDataModule.QueueIdleOnceEmptyAction
  351. RadioItem = True
  352. end
  353. object TBXItem225: TTBXItem
  354. Action = NonVisualDataModule.QueueDisconnectOnceEmptyAction2
  355. RadioItem = True
  356. end
  357. object TBXItem173: TTBXItem
  358. Action = NonVisualDataModule.QueueSuspendOnceEmptyAction2
  359. RadioItem = True
  360. end
  361. object TBXItem226: TTBXItem
  362. Action = NonVisualDataModule.QueueShutDownOnceEmptyAction2
  363. RadioItem = True
  364. end
  365. end
  366. object TBXItem208: TTBXItem
  367. Action = NonVisualDataModule.QueuePreferencesAction
  368. end
  369. end
  370. end
  371. object QueueFileList: TListView
  372. Left = 0
  373. Top = 120
  374. Width = 620
  375. Height = 20
  376. Align = alBottom
  377. Columns = <
  378. item
  379. end>
  380. DoubleBuffered = True
  381. OwnerData = True
  382. ReadOnly = True
  383. ParentDoubleBuffered = False
  384. ShowColumnHeaders = False
  385. TabOrder = 2
  386. TabStop = False
  387. ViewStyle = vsReport
  388. OnCustomDrawItem = QueueFileListCustomDrawItem
  389. OnData = QueueFileListData
  390. OnEnter = QueueFileListEnterExit
  391. OnExit = QueueFileListEnterExit
  392. OnResize = QueueFileListResize
  393. end
  394. end
  395. object SessionsPageControl: TThemePageControl
  396. Left = 0
  397. Top = 18
  398. Width = 608
  399. Height = 21
  400. ActivePage = TabSheet1
  401. Align = alTop
  402. DoubleBuffered = True
  403. ParentDoubleBuffered = False
  404. ParentShowHint = False
  405. ShowHint = True
  406. TabOrder = 3
  407. TabStop = False
  408. OnChange = SessionsPageControlChange
  409. OnContextPopup = SessionsPageControlContextPopup
  410. OnDragDrop = SessionsPageControlDragDrop
  411. OnDragOver = SessionsPageControlDragOver
  412. OnMouseDown = SessionsPageControlMouseDown
  413. OnResize = SessionsPageControlResize
  414. OnTabButtonClick = SessionsPageControlTabButtonClick
  415. OnTabHint = SessionsPageControlTabHint
  416. object TabSheet1: TThemeTabSheet
  417. Caption = 'TabSheet1'
  418. end
  419. end
  420. object MessageDock: TTBXDock
  421. Tag = 1
  422. Left = 0
  423. Top = 9
  424. Width = 608
  425. Height = 9
  426. AllowDrag = False
  427. FixAlign = True
  428. Visible = False
  429. OnRequestDock = MessageDockRequestDock
  430. end
  431. object ApplicationEvents: TApplicationEvents
  432. OnDeactivate = ApplicationEventsDeactivate
  433. OnMinimize = ApplicationMinimize
  434. OnModalBegin = ApplicationEventsModalBegin
  435. OnRestore = ApplicationRestore
  436. Left = 88
  437. Top = 200
  438. end
  439. end