CustomScpExplorer.dfm 9.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310
  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. OnActivate = FormActivate
  12. OnClose = FormClose
  13. OnCloseQuery = FormCloseQuery
  14. OnConstrainedResize = FormConstrainedResize
  15. OnShow = FormShow
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object QueueSplitter: TSplitter
  19. Left = 0
  20. Top = 289
  21. Width = 620
  22. Height = 3
  23. Cursor = crVSplit
  24. Hint = 'Drag to resize queue list. Double click to hide queue list.'
  25. Align = alBottom
  26. AutoSnap = False
  27. MinSize = 70
  28. ResizeStyle = rsUpdate
  29. OnCanResize = QueueSplitterCanResize
  30. end
  31. object TopDock: TTBXDock
  32. Left = 0
  33. Top = 0
  34. Width = 620
  35. Height = 9
  36. FixAlign = True
  37. end
  38. object RemotePanel: TPanel
  39. Left = 0
  40. Top = 30
  41. Width = 620
  42. Height = 259
  43. Align = alClient
  44. BevelOuter = bvNone
  45. Color = clWindow
  46. ParentBackground = False
  47. TabOrder = 0
  48. object RemotePanelSplitter: TSplitter
  49. Left = 169
  50. Top = 0
  51. Height = 240
  52. AutoSnap = False
  53. Color = clBtnFace
  54. MinSize = 70
  55. ParentColor = False
  56. ResizeStyle = rsUpdate
  57. end
  58. object RemoteStatusBar: TTBXStatusBar
  59. Left = 0
  60. Top = 240
  61. Width = 620
  62. Height = 19
  63. Panels = <>
  64. ParentShowHint = False
  65. ShowHint = True
  66. UseSystemFont = False
  67. OnClick = RemoteStatusBarClick
  68. end
  69. object RemoteDirView: TUnixDirView
  70. Left = 172
  71. Top = 0
  72. Width = 448
  73. Height = 240
  74. Align = alClient
  75. DoubleBuffered = True
  76. FullDrag = True
  77. HideSelection = False
  78. ParentDoubleBuffered = False
  79. PopupMenu = NonVisualDataModule.RemoteDirViewPopup
  80. TabOrder = 1
  81. ViewStyle = vsReport
  82. OnColumnRightClick = DirViewColumnRightClick
  83. OnEditing = DirViewEditing
  84. OnEnter = RemoteDirViewEnter
  85. NortonLike = nlOff
  86. UnixColProperties.ExtWidth = 20
  87. UnixColProperties.TypeVisible = False
  88. OnDDDragFileName = RemoteFileControlDDDragFileName
  89. OnGetSelectFilter = RemoteDirViewGetSelectFilter
  90. OnSelectItem = DirViewSelectItem
  91. OnLoaded = DirViewLoaded
  92. OnExecFile = DirViewExecFile
  93. OnMatchMask = DirViewMatchMask
  94. OnGetOverlay = DirViewGetOverlay
  95. OnDDDragEnter = FileControlDDDragEnter
  96. OnDDDragLeave = FileControlDDDragLeave
  97. OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
  98. OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
  99. OnDDChooseEffect = RemoteFileContolDDChooseEffect
  100. OnDDDragDetect = RemoteFileControlDDDragDetect
  101. OnDDEnd = RemoteFileControlDDEnd
  102. OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
  103. OnDDFileOperation = RemoteFileControlDDFileOperation
  104. OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
  105. OnContextPopup = RemoteDirViewContextPopup
  106. OnHistoryChange = DirViewHistoryChange
  107. OnDisplayProperties = RemoteDirViewDisplayProperties
  108. OnRead = RemoteDirViewRead
  109. Items.ItemData = {}
  110. end
  111. object RemoteDriveView: TUnixDriveView
  112. Left = 0
  113. Top = 0
  114. Width = 169
  115. Height = 240
  116. DirView = RemoteDirView
  117. OnDDDragFileName = RemoteFileControlDDDragFileName
  118. OnDDEnd = RemoteFileControlDDEnd
  119. UseSystemContextMenu = False
  120. OnDDDragEnter = FileControlDDDragEnter
  121. OnDDDragLeave = FileControlDDDragLeave
  122. OnDDQueryContinueDrag = RemoteFileControlDDQueryContinueDrag
  123. OnDDChooseEffect = RemoteFileContolDDChooseEffect
  124. OnDDGiveFeedback = RemoteFileControlDDGiveFeedback
  125. OnDDDragDetect = RemoteFileControlDDDragDetect
  126. OnDDFileOperation = RemoteFileControlDDFileOperation
  127. OnDDCreateDragFileList = RemoteFileControlDDCreateDragFileList
  128. OnDDCreateDataObject = RemoteFileControlDDCreateDataObject
  129. Align = alLeft
  130. DoubleBuffered = True
  131. HideSelection = False
  132. Indent = 19
  133. ParentColor = False
  134. ParentDoubleBuffered = False
  135. ReadOnly = True
  136. TabOrder = 2
  137. OnEnter = RemoteDriveViewEnter
  138. end
  139. end
  140. object QueuePanel: TPanel
  141. Left = 0
  142. Top = 292
  143. Width = 620
  144. Height = 140
  145. Align = alBottom
  146. BevelOuter = bvNone
  147. TabOrder = 1
  148. object QueueLabel: TPathLabel
  149. Left = 0
  150. Top = 0
  151. Width = 620
  152. Height = 15
  153. IndentVertical = 3
  154. AutoSizeVertical = True
  155. AutoSize = False
  156. Transparent = False
  157. end
  158. object QueueView3: TListView
  159. Left = 0
  160. Top = 41
  161. Width = 620
  162. Height = 99
  163. Align = alClient
  164. Columns = <
  165. item
  166. Caption = 'Operation'
  167. Width = 70
  168. end
  169. item
  170. Caption = 'Source'
  171. Width = 170
  172. end
  173. item
  174. Caption = 'Destination'
  175. Width = 170
  176. end
  177. item
  178. Alignment = taRightJustify
  179. Caption = 'Transferred'
  180. Width = 80
  181. end
  182. item
  183. Alignment = taRightJustify
  184. Caption = 'Time'
  185. Width = 80
  186. end
  187. item
  188. Alignment = taRightJustify
  189. Caption = 'Speed'
  190. Width = 80
  191. end
  192. item
  193. Alignment = taCenter
  194. Caption = 'Progress'
  195. Width = 80
  196. end>
  197. ColumnClick = False
  198. DoubleBuffered = True
  199. DragMode = dmAutomatic
  200. ReadOnly = True
  201. RowSelect = True
  202. ParentDoubleBuffered = False
  203. PopupMenu = NonVisualDataModule.QueuePopup
  204. SmallImages = GlyphsModule.QueueImages
  205. StateImages = GlyphsModule.QueueImages
  206. TabOrder = 0
  207. ViewStyle = vsReport
  208. OnContextPopup = QueueView3ContextPopup
  209. OnDeletion = QueueView3Deletion
  210. OnEnter = QueueView3Enter
  211. OnExit = QueueView3Exit
  212. OnDragDrop = QueueView3DragDrop
  213. OnDragOver = QueueView3DragOver
  214. OnSelectItem = QueueView3SelectItem
  215. OnStartDrag = QueueView3StartDrag
  216. end
  217. object QueueDock: TTBXDock
  218. Tag = 1
  219. Left = 0
  220. Top = 15
  221. Width = 620
  222. Height = 26
  223. AllowDrag = False
  224. object QueueToolbar: TTBXToolbar
  225. Left = 0
  226. Top = 0
  227. Caption = 'QueueToolbar'
  228. Images = GlyphsModule.ExplorerImages
  229. ParentShowHint = False
  230. ShowHint = True
  231. TabOrder = 0
  232. object QueueEnableItem: TTBXItem
  233. Action = NonVisualDataModule.QueueEnableAction
  234. end
  235. object TBXSeparatorItem203: TTBXSeparatorItem
  236. end
  237. object TBXItem201: TTBXItem
  238. Action = NonVisualDataModule.QueueItemQueryAction
  239. end
  240. object TBXItem202: TTBXItem
  241. Action = NonVisualDataModule.QueueItemErrorAction
  242. end
  243. object TBXItem203: TTBXItem
  244. Action = NonVisualDataModule.QueueItemPromptAction
  245. end
  246. object TBXItem204: TTBXItem
  247. Action = NonVisualDataModule.QueueItemExecuteAction
  248. end
  249. object TBXItem195: TTBXItem
  250. Action = NonVisualDataModule.QueueItemPauseAction
  251. end
  252. object TBXItem194: TTBXItem
  253. Action = NonVisualDataModule.QueueItemResumeAction
  254. end
  255. object TBXItem205: TTBXItem
  256. Action = NonVisualDataModule.QueueItemDeleteAction
  257. end
  258. object TBXSeparatorItem201: TTBXSeparatorItem
  259. end
  260. object TBXItem206: TTBXItem
  261. Action = NonVisualDataModule.QueueItemUpAction
  262. end
  263. object TBXItem207: TTBXItem
  264. Action = NonVisualDataModule.QueueItemDownAction
  265. end
  266. object TBXSeparatorItem202: TTBXSeparatorItem
  267. end
  268. object TBXSubmenuItem27: TTBXSubmenuItem
  269. Action = NonVisualDataModule.QueueCycleOnceEmptyAction
  270. DropdownCombo = True
  271. object TBXItem211: TTBXItem
  272. Action = NonVisualDataModule.QueueIdleOnceEmptyAction
  273. RadioItem = True
  274. end
  275. object TBXItem225: TTBXItem
  276. Action = NonVisualDataModule.QueueDisconnectOnceEmptyAction
  277. RadioItem = True
  278. end
  279. object TBXItem226: TTBXItem
  280. Action = NonVisualDataModule.QueueShutDownOnceEmptyAction
  281. RadioItem = True
  282. end
  283. end
  284. object TBXItem208: TTBXItem
  285. Action = NonVisualDataModule.QueuePreferencesAction
  286. end
  287. end
  288. end
  289. end
  290. object SessionsPageControl: TThemePageControl
  291. Left = 0
  292. Top = 9
  293. Width = 620
  294. Height = 21
  295. ActivePage = TabSheet1
  296. Align = alTop
  297. DoubleBuffered = True
  298. ParentDoubleBuffered = False
  299. PopupMenu = NonVisualDataModule.SessionsPopup
  300. TabOrder = 3
  301. TabStop = False
  302. OnChange = SessionsPageControlChange
  303. OnDragDrop = SessionsPageControlDragDrop
  304. OnDragOver = SessionsPageControlDragOver
  305. OnMouseDown = SessionsPageControlMouseDown
  306. object TabSheet1: TTabSheet
  307. Caption = 'TabSheet1'
  308. end
  309. end
  310. end