CustomScpExplorer.dfm 12 KB

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