CustomScpExplorer.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366
  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 = 30
  40. Width = 620
  41. Height = 259
  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 = 240
  51. Cursor = crSizeWE
  52. AutoSnap = False
  53. MinSize = 70
  54. ResizeStyle = rsUpdate
  55. end
  56. object RemoteStatusBar: TTBXStatusBar
  57. Left = 0
  58. Top = 240
  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 = 240
  73. Align = alClient
  74. BevelOuter = bvNone
  75. TabOrder = 1
  76. object RemoteDirView: TUnixDirView
  77. Left = 0
  78. Top = 0
  79. Width = 448
  80. Height = 240
  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 = 240
  143. Align = alLeft
  144. BevelOuter = bvNone
  145. TabOrder = 2
  146. object RemoteDriveView: TUnixDriveView
  147. Left = 0
  148. Top = 0
  149. Width = 169
  150. Height = 240
  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. AutoSize = False
  193. Transparent = False
  194. end
  195. object QueueView3: TListView
  196. Left = 0
  197. Top = 45
  198. Width = 620
  199. Height = 95
  200. Align = alClient
  201. Columns = <
  202. item
  203. Caption = 'Operation'
  204. Width = 70
  205. end
  206. item
  207. Caption = 'Source'
  208. Width = 170
  209. end
  210. item
  211. Caption = 'Destination'
  212. Width = 170
  213. end
  214. item
  215. Alignment = taRightJustify
  216. Caption = 'Transferred'
  217. Width = 80
  218. end
  219. item
  220. Alignment = taRightJustify
  221. Caption = 'Time'
  222. Width = 80
  223. end
  224. item
  225. Alignment = taRightJustify
  226. Caption = 'Speed'
  227. Width = 80
  228. end
  229. item
  230. Alignment = taCenter
  231. Caption = 'Progress'
  232. Width = 80
  233. end>
  234. ColumnClick = False
  235. DoubleBuffered = True
  236. DragMode = dmAutomatic
  237. ReadOnly = True
  238. RowSelect = True
  239. ParentDoubleBuffered = False
  240. PopupMenu = NonVisualDataModule.QueuePopup
  241. SmallImages = GlyphsModule.QueueImages
  242. StateImages = GlyphsModule.QueueImages
  243. TabOrder = 0
  244. ViewStyle = vsReport
  245. OnContextPopup = QueueView3ContextPopup
  246. OnDeletion = QueueView3Deletion
  247. OnEnter = QueueView3Enter
  248. OnExit = QueueView3Exit
  249. OnDragDrop = QueueView3DragDrop
  250. OnDragOver = QueueView3DragOver
  251. OnSelectItem = QueueView3SelectItem
  252. OnStartDrag = QueueView3StartDrag
  253. end
  254. object QueueDock: TTBXDock
  255. Tag = 1
  256. Left = 0
  257. Top = 19
  258. Width = 620
  259. Height = 26
  260. AllowDrag = False
  261. object QueueToolbar: TTBXToolbar
  262. Left = 0
  263. Top = 0
  264. Caption = 'QueueToolbar'
  265. Images = GlyphsModule.ExplorerImages
  266. Options = [tboShowHint]
  267. ParentShowHint = False
  268. ShowHint = True
  269. TabOrder = 0
  270. object QueueEnableItem: TTBXItem
  271. Action = NonVisualDataModule.QueueEnableAction
  272. end
  273. object TBXSeparatorItem203: TTBXSeparatorItem
  274. end
  275. object TBXItem201: TTBXItem
  276. Action = NonVisualDataModule.QueueItemQueryAction
  277. end
  278. object TBXItem202: TTBXItem
  279. Action = NonVisualDataModule.QueueItemErrorAction
  280. end
  281. object TBXItem203: TTBXItem
  282. Action = NonVisualDataModule.QueueItemPromptAction
  283. end
  284. object TBXItem204: TTBXItem
  285. Action = NonVisualDataModule.QueueItemExecuteAction
  286. end
  287. object TBXItem195: TTBXItem
  288. Action = NonVisualDataModule.QueueItemPauseAction
  289. end
  290. object TBXItem194: TTBXItem
  291. Action = NonVisualDataModule.QueueItemResumeAction
  292. end
  293. object TBXItem205: TTBXItem
  294. Action = NonVisualDataModule.QueueItemDeleteAction
  295. end
  296. object TBXSeparatorItem201: TTBXSeparatorItem
  297. end
  298. object TBXItem206: TTBXItem
  299. Action = NonVisualDataModule.QueueItemUpAction
  300. end
  301. object TBXItem207: TTBXItem
  302. Action = NonVisualDataModule.QueueItemDownAction
  303. end
  304. object TBXSeparatorItem57: TTBXSeparatorItem
  305. end
  306. object QueueDeleteAllDoneQueueToolbarItem: TTBXItem
  307. Action = NonVisualDataModule.QueueDeleteAllDoneAction
  308. end
  309. object TBXSeparatorItem202: TTBXSeparatorItem
  310. end
  311. object TBXSubmenuItem27: TTBXSubmenuItem
  312. Action = NonVisualDataModule.QueueCycleOnceEmptyAction
  313. DropdownCombo = True
  314. object TBXItem211: TTBXItem
  315. Action = NonVisualDataModule.QueueIdleOnceEmptyAction
  316. RadioItem = True
  317. end
  318. object TBXItem225: TTBXItem
  319. Action = NonVisualDataModule.QueueDisconnectOnceEmptyAction2
  320. RadioItem = True
  321. end
  322. object TBXItem173: TTBXItem
  323. Action = NonVisualDataModule.QueueSuspendOnceEmptyAction2
  324. RadioItem = True
  325. end
  326. object TBXItem226: TTBXItem
  327. Action = NonVisualDataModule.QueueShutDownOnceEmptyAction2
  328. RadioItem = True
  329. end
  330. end
  331. object TBXItem208: TTBXItem
  332. Action = NonVisualDataModule.QueuePreferencesAction
  333. end
  334. end
  335. end
  336. end
  337. object SessionsPageControl: TThemePageControl
  338. Left = 0
  339. Top = 9
  340. Width = 620
  341. Height = 21
  342. ActivePage = TabSheet1
  343. Align = alTop
  344. DoubleBuffered = True
  345. ParentDoubleBuffered = False
  346. TabOrder = 3
  347. TabStop = False
  348. OnChange = SessionsPageControlChange
  349. OnContextPopup = SessionsPageControlContextPopup
  350. OnDragDrop = SessionsPageControlDragDrop
  351. OnDragOver = SessionsPageControlDragOver
  352. OnMouseDown = SessionsPageControlMouseDown
  353. OnCloseButtonClick = SessionsPageControlCloseButtonClick
  354. object TabSheet1: TTabSheet
  355. Caption = 'TabSheet1'
  356. end
  357. end
  358. object ApplicationEvents: TApplicationEvents
  359. OnDeactivate = ApplicationEventsDeactivate
  360. OnMinimize = ApplicationMinimize
  361. OnModalBegin = ApplicationEventsModalBegin
  362. OnRestore = ApplicationRestore
  363. Left = 88
  364. Top = 200
  365. end
  366. end