FileSystemInfo.dfm 10 KB

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