CustomScpExplorer.dfm 9.4 KB

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