FileSystemInfo.dfm 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398
  1. object FileSystemInfoDialog: TFileSystemInfoDialog
  2. Left = 320
  3. Top = 130
  4. HelpType = htKeyword
  5. HelpKeyword = 'ui_fsinfo'
  6. BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  7. BorderStyle = bsDialog
  8. Caption = 'Server and protocol information'
  9. ClientHeight = 444
  10. ClientWidth = 432
  11. Color = clBtnFace
  12. ParentFont = True
  13. Position = poOwnerFormCenter
  14. OnShow = FormShow
  15. DesignSize = (
  16. 432
  17. 444)
  18. TextHeight = 15
  19. object CloseButton: TButton
  20. Left = 258
  21. Top = 411
  22. Width = 80
  23. Height = 25
  24. Anchors = [akRight, akBottom]
  25. Cancel = True
  26. Caption = 'Close'
  27. Default = True
  28. ModalResult = 1
  29. TabOrder = 2
  30. end
  31. object HelpButton: TButton
  32. Left = 344
  33. Top = 411
  34. Width = 80
  35. Height = 25
  36. Anchors = [akRight, akBottom]
  37. Caption = '&Help'
  38. TabOrder = 3
  39. OnClick = HelpButtonClick
  40. end
  41. object PageControl: TPageControl
  42. Left = 0
  43. Top = 0
  44. Width = 432
  45. Height = 405
  46. ActivePage = ProtocolSheet
  47. Align = alTop
  48. Anchors = [akLeft, akTop, akRight, akBottom]
  49. TabOrder = 0
  50. OnChange = PageControlChange
  51. object ProtocolSheet: TTabSheet
  52. Caption = 'Protocol'
  53. DesignSize = (
  54. 424
  55. 375)
  56. object HostKeyGroup: TGroupBox
  57. Left = 5
  58. Top = 236
  59. Width = 411
  60. Height = 95
  61. Anchors = [akLeft, akRight, akBottom]
  62. Caption = 'Server host key fingerprints'
  63. TabOrder = 1
  64. DesignSize = (
  65. 411
  66. 95)
  67. object Label2: TLabel
  68. Left = 8
  69. Top = 22
  70. Width = 57
  71. Height = 15
  72. Caption = 'Algorithm:'
  73. FocusControl = HostKeyAlgorithmEdit
  74. end
  75. object Label3: TLabel
  76. Left = 8
  77. Top = 45
  78. Width = 49
  79. Height = 15
  80. Caption = 'SHA-256:'
  81. FocusControl = HostKeyFingerprintSHA256Edit
  82. end
  83. object Label4: TLabel
  84. Left = 8
  85. Top = 68
  86. Width = 28
  87. Height = 15
  88. Caption = 'MD5:'
  89. FocusControl = HostKeyFingerprintMD5Edit
  90. end
  91. object HostKeyFingerprintSHA256Edit: TEdit
  92. Left = 88
  93. Top = 45
  94. Width = 314
  95. Height = 17
  96. TabStop = False
  97. Anchors = [akLeft, akTop, akRight]
  98. BorderStyle = bsNone
  99. Color = clBtnFace
  100. PopupMenu = FingerprintPopupMenu
  101. ReadOnly = True
  102. TabOrder = 1
  103. Text = 'HostKeyFingerprintSHA256Edit'
  104. OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
  105. end
  106. object HostKeyAlgorithmEdit: TEdit
  107. Left = 88
  108. Top = 22
  109. Width = 314
  110. Height = 17
  111. TabStop = False
  112. Anchors = [akLeft, akTop, akRight]
  113. BorderStyle = bsNone
  114. Color = clBtnFace
  115. ReadOnly = True
  116. TabOrder = 0
  117. Text = 'HostKeyAlgorithmEdit'
  118. end
  119. object HostKeyFingerprintMD5Edit: TEdit
  120. Left = 88
  121. Top = 68
  122. Width = 314
  123. Height = 17
  124. TabStop = False
  125. Anchors = [akLeft, akTop, akRight]
  126. BorderStyle = bsNone
  127. Color = clBtnFace
  128. PopupMenu = FingerprintPopupMenu
  129. ReadOnly = True
  130. TabOrder = 2
  131. Text = 'HostKeyFingerprintMD5Edit'
  132. OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
  133. end
  134. end
  135. object ServerView: TListView
  136. Left = 5
  137. Top = 5
  138. Width = 412
  139. Height = 225
  140. Anchors = [akLeft, akTop, akRight, akBottom]
  141. Columns = <
  142. item
  143. Caption = 'Item'
  144. Width = 150
  145. end
  146. item
  147. Caption = 'Value'
  148. Width = 150
  149. end>
  150. ColumnClick = False
  151. DoubleBuffered = True
  152. MultiSelect = True
  153. ReadOnly = True
  154. RowSelect = True
  155. ParentDoubleBuffered = False
  156. PopupMenu = ListViewMenu
  157. TabOrder = 0
  158. ViewStyle = vsReport
  159. OnContextPopup = ControlContextPopup
  160. end
  161. object CertificateGroup: TGroupBox
  162. Left = 5
  163. Top = 337
  164. Width = 411
  165. Height = 102
  166. Anchors = [akLeft, akRight, akBottom]
  167. Caption = 'Certificate fingerprint'
  168. TabOrder = 2
  169. DesignSize = (
  170. 411
  171. 102)
  172. object Label5: TLabel
  173. Left = 8
  174. Top = 22
  175. Width = 49
  176. Height = 15
  177. Caption = 'SHA-256:'
  178. FocusControl = CertificateFingerprintSha256Edit
  179. end
  180. object Label6: TLabel
  181. Left = 8
  182. Top = 45
  183. Width = 37
  184. Height = 15
  185. Caption = 'SHA-1:'
  186. FocusControl = CertificateFingerprintSha1Edit
  187. end
  188. object CertificateFingerprintSha256Edit: TEdit
  189. Left = 88
  190. Top = 22
  191. Width = 314
  192. Height = 17
  193. TabStop = False
  194. Anchors = [akLeft, akTop, akRight]
  195. BorderStyle = bsNone
  196. Color = clBtnFace
  197. ReadOnly = True
  198. TabOrder = 0
  199. Text = 'CertificateFingerprintSha256Edit'
  200. end
  201. object CertificateViewButton: TButton
  202. Left = 8
  203. Top = 68
  204. Width = 134
  205. Height = 25
  206. Caption = '&Full certificate'
  207. TabOrder = 2
  208. OnClick = CertificateViewButtonClick
  209. end
  210. object CertificateFingerprintSha1Edit: TEdit
  211. Left = 88
  212. Top = 45
  213. Width = 314
  214. Height = 17
  215. TabStop = False
  216. Anchors = [akLeft, akTop, akRight]
  217. BorderStyle = bsNone
  218. Color = clBtnFace
  219. PopupMenu = FingerprintPopupMenu
  220. ReadOnly = True
  221. TabOrder = 1
  222. Text = 'CertificateFingerprintSha1Edit'
  223. OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
  224. end
  225. end
  226. end
  227. object CapabilitiesSheet: TTabSheet
  228. Caption = 'Capabilities'
  229. ImageIndex = 1
  230. DesignSize = (
  231. 424
  232. 375)
  233. object InfoGroup: TGroupBox
  234. Left = 5
  235. Top = 236
  236. Width = 412
  237. Height = 134
  238. Anchors = [akLeft, akRight, akBottom]
  239. Caption = 'Additional information'
  240. TabOrder = 1
  241. DesignSize = (
  242. 412
  243. 134)
  244. object InfoMemo: TMemo
  245. Left = 9
  246. Top = 22
  247. Width = 394
  248. Height = 102
  249. TabStop = False
  250. Anchors = [akLeft, akTop, akRight, akBottom]
  251. BevelInner = bvNone
  252. BevelOuter = bvNone
  253. BorderStyle = bsNone
  254. Color = clBtnFace
  255. Lines.Strings = (
  256. 'InfoMemo')
  257. ScrollBars = ssBoth
  258. TabOrder = 0
  259. WordWrap = False
  260. end
  261. end
  262. object ProtocolView: TListView
  263. Left = 5
  264. Top = 5
  265. Width = 412
  266. Height = 225
  267. Anchors = [akLeft, akTop, akRight, akBottom]
  268. Columns = <
  269. item
  270. Caption = 'Item'
  271. Width = 150
  272. end
  273. item
  274. Caption = 'Value'
  275. Width = 150
  276. end>
  277. ColumnClick = False
  278. DoubleBuffered = True
  279. MultiSelect = True
  280. ReadOnly = True
  281. RowSelect = True
  282. ParentDoubleBuffered = False
  283. PopupMenu = ListViewMenu
  284. TabOrder = 0
  285. ViewStyle = vsReport
  286. OnContextPopup = ControlContextPopup
  287. end
  288. end
  289. object SpaceAvailableSheet: TTabSheet
  290. Caption = 'Space available'
  291. ImageIndex = 2
  292. DesignSize = (
  293. 424
  294. 375)
  295. object Label1: TLabel
  296. Left = 5
  297. Top = 8
  298. Width = 27
  299. Height = 15
  300. Caption = '&Path:'
  301. FocusControl = SpaceAvailablePathEdit
  302. end
  303. object SpaceAvailableView: TListView
  304. Left = 5
  305. Top = 34
  306. Width = 412
  307. Height = 196
  308. Anchors = [akLeft, akTop, akRight, akBottom]
  309. Columns = <
  310. item
  311. Caption = 'Item'
  312. Width = 150
  313. end
  314. item
  315. Caption = 'Value'
  316. Width = 150
  317. end>
  318. ColumnClick = False
  319. DoubleBuffered = True
  320. MultiSelect = True
  321. ReadOnly = True
  322. RowSelect = True
  323. ParentDoubleBuffered = False
  324. PopupMenu = ListViewMenu
  325. TabOrder = 2
  326. ViewStyle = vsReport
  327. OnContextPopup = ControlContextPopup
  328. OnCustomDrawItem = SpaceAvailableViewCustomDrawItem
  329. end
  330. object SpaceAvailablePathEdit: TEdit
  331. Left = 56
  332. Top = 5
  333. Width = 246
  334. Height = 23
  335. Anchors = [akLeft, akTop, akRight]
  336. MaxLength = 250
  337. TabOrder = 0
  338. OnChange = ControlChange
  339. OnEnter = SpaceAvailablePathEditEnter
  340. OnExit = SpaceAvailablePathEditExit
  341. end
  342. object SpaceAvailableButton: TButton
  343. Left = 308
  344. Top = 4
  345. Width = 109
  346. Height = 25
  347. Anchors = [akTop, akRight]
  348. Caption = 'Check &space'
  349. TabOrder = 1
  350. OnClick = SpaceAvailableButtonClick
  351. end
  352. end
  353. end
  354. object ClipboardButton: TButton
  355. Left = 8
  356. Top = 411
  357. Width = 179
  358. Height = 25
  359. Anchors = [akLeft, akBottom]
  360. Caption = '&Copy to Clipboard'
  361. TabOrder = 1
  362. OnClick = ClipboardButtonClick
  363. end
  364. object ListViewMenu: TPopupMenu
  365. Left = 151
  366. Top = 354
  367. object Copy: TMenuItem
  368. Caption = '&Copy'
  369. OnClick = CopyClick
  370. end
  371. end
  372. object FingerprintPopupMenu: TPopupMenu
  373. Left = 240
  374. Top = 354
  375. object Copy1: TMenuItem
  376. Action = EditCopyAction
  377. end
  378. object TMenuItem
  379. Action = EditSelectAllAction
  380. end
  381. end
  382. object FingerprintActionList: TActionList
  383. Left = 328
  384. Top = 354
  385. object EditCopyAction: TEditCopy
  386. Category = 'Edit'
  387. Caption = '&Copy'
  388. ShortCut = 16451
  389. OnExecute = EditCopyActionExecute
  390. OnUpdate = EditCopyActionUpdate
  391. end
  392. object EditSelectAllAction: TEditSelectAll
  393. Category = 'Edit'
  394. Caption = 'Select &All'
  395. ShortCut = 16449
  396. end
  397. end
  398. end