FileSystemInfo.dfm 9.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369
  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 = 7
  71. Top = 18
  72. Width = 49
  73. Height = 13
  74. Caption = 'Algorithm:'
  75. FocusControl = HostKeyAlgorithmEdit
  76. end
  77. object Label3: TLabel
  78. Left = 7
  79. Top = 41
  80. Width = 46
  81. Height = 13
  82. Caption = 'SHA-256:'
  83. FocusControl = HostKeyFingerprintSHA256Edit
  84. end
  85. object Label4: TLabel
  86. Left = 7
  87. Top = 64
  88. Width = 25
  89. Height = 13
  90. Caption = 'MD5:'
  91. FocusControl = HostKeyFingerprintMD5Edit
  92. end
  93. object HostKeyFingerprintSHA256Edit: TEdit
  94. Left = 62
  95. Top = 41
  96. Width = 282
  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 = 62
  110. Top = 18
  111. Width = 282
  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 = 62
  123. Top = 64
  124. Width = 282
  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 = 72
  168. Anchors = [akLeft, akRight, akBottom]
  169. Caption = 'Certificate fingerprint'
  170. TabOrder = 2
  171. DesignSize = (
  172. 351
  173. 72)
  174. object CertificateFingerprintEdit: TEdit
  175. Left = 10
  176. Top = 18
  177. Width = 334
  178. Height = 17
  179. TabStop = False
  180. Anchors = [akLeft, akTop, akRight]
  181. BorderStyle = bsNone
  182. Color = clBtnFace
  183. ReadOnly = True
  184. TabOrder = 0
  185. Text = 'CertificateFingerprintEdit'
  186. end
  187. object CertificateViewButton: TButton
  188. Left = 10
  189. Top = 37
  190. Width = 121
  191. Height = 25
  192. Caption = '&Full certificate'
  193. TabOrder = 1
  194. OnClick = CertificateViewButtonClick
  195. end
  196. end
  197. end
  198. object CapabilitiesSheet: TTabSheet
  199. Caption = 'Capabilities'
  200. ImageIndex = 1
  201. DesignSize = (
  202. 363
  203. 324)
  204. object InfoGroup: TGroupBox
  205. Left = 6
  206. Top = 202
  207. Width = 351
  208. Height = 114
  209. Anchors = [akLeft, akRight, akBottom]
  210. Caption = 'Additional information'
  211. TabOrder = 1
  212. DesignSize = (
  213. 351
  214. 114)
  215. object InfoMemo: TMemo
  216. Left = 9
  217. Top = 17
  218. Width = 333
  219. Height = 87
  220. TabStop = False
  221. Anchors = [akLeft, akTop, akRight]
  222. BevelInner = bvNone
  223. BevelOuter = bvNone
  224. BorderStyle = bsNone
  225. Color = clBtnFace
  226. Lines.Strings = (
  227. 'InfoMemo')
  228. ScrollBars = ssBoth
  229. TabOrder = 0
  230. WordWrap = False
  231. end
  232. end
  233. object ProtocolView: TListView
  234. Left = 6
  235. Top = 8
  236. Width = 351
  237. Height = 187
  238. Anchors = [akLeft, akTop, akRight, akBottom]
  239. Columns = <
  240. item
  241. Caption = 'Item'
  242. Width = 150
  243. end
  244. item
  245. Caption = 'Value'
  246. Width = 150
  247. end>
  248. ColumnClick = False
  249. DoubleBuffered = True
  250. MultiSelect = True
  251. ReadOnly = True
  252. RowSelect = True
  253. ParentDoubleBuffered = False
  254. PopupMenu = ListViewMenu
  255. TabOrder = 0
  256. ViewStyle = vsReport
  257. OnContextPopup = ControlContextPopup
  258. end
  259. end
  260. object SpaceAvailableSheet: TTabSheet
  261. Caption = 'Space available'
  262. ImageIndex = 2
  263. DesignSize = (
  264. 363
  265. 324)
  266. object Label1: TLabel
  267. Left = 13
  268. Top = 13
  269. Width = 26
  270. Height = 13
  271. Caption = '&Path:'
  272. FocusControl = SpaceAvailablePathEdit
  273. end
  274. object SpaceAvailableView: TListView
  275. Left = 6
  276. Top = 40
  277. Width = 351
  278. Height = 155
  279. Anchors = [akLeft, akTop, akRight, akBottom]
  280. Columns = <
  281. item
  282. Caption = 'Item'
  283. Width = 150
  284. end
  285. item
  286. Caption = 'Value'
  287. Width = 150
  288. end>
  289. ColumnClick = False
  290. DoubleBuffered = True
  291. MultiSelect = True
  292. ReadOnly = True
  293. RowSelect = True
  294. ParentDoubleBuffered = False
  295. PopupMenu = ListViewMenu
  296. TabOrder = 2
  297. ViewStyle = vsReport
  298. OnContextPopup = ControlContextPopup
  299. OnCustomDrawItem = SpaceAvailableViewCustomDrawItem
  300. end
  301. object SpaceAvailablePathEdit: TEdit
  302. Left = 56
  303. Top = 9
  304. Width = 193
  305. Height = 21
  306. Anchors = [akLeft, akTop, akRight]
  307. MaxLength = 250
  308. TabOrder = 0
  309. OnChange = ControlChange
  310. OnEnter = SpaceAvailablePathEditEnter
  311. OnExit = SpaceAvailablePathEditExit
  312. end
  313. object SpaceAvailableButton: TButton
  314. Left = 256
  315. Top = 7
  316. Width = 99
  317. Height = 25
  318. Anchors = [akTop, akRight]
  319. Caption = 'Check &space'
  320. TabOrder = 1
  321. OnClick = SpaceAvailableButtonClick
  322. end
  323. end
  324. end
  325. object ClipboardButton: TButton
  326. Left = 8
  327. Top = 364
  328. Width = 121
  329. Height = 25
  330. Anchors = [akRight, akBottom]
  331. Caption = '&Copy to Clipboard'
  332. TabOrder = 1
  333. OnClick = ClipboardButtonClick
  334. end
  335. object ListViewMenu: TPopupMenu
  336. Left = 151
  337. Top = 354
  338. object Copy: TMenuItem
  339. Caption = '&Copy'
  340. OnClick = CopyClick
  341. end
  342. end
  343. object FingerprintPopupMenu: TPopupMenu
  344. Left = 240
  345. Top = 354
  346. object Copy1: TMenuItem
  347. Action = EditCopyAction
  348. end
  349. object TMenuItem
  350. Action = EditSelectAllAction
  351. end
  352. end
  353. object FingerprintActionList: TActionList
  354. Left = 328
  355. Top = 354
  356. object EditCopyAction: TEditCopy
  357. Category = 'Edit'
  358. Caption = '&Copy'
  359. ShortCut = 16451
  360. OnExecute = EditCopyActionExecute
  361. OnUpdate = EditCopyActionUpdate
  362. end
  363. object EditSelectAllAction: TEditSelectAll
  364. Category = 'Edit'
  365. Caption = 'Select &All'
  366. ShortCut = 16449
  367. end
  368. end
  369. end