FileSystemInfo.dfm 10 KB

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