CustomScpExplorer.dfm 12 KB

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