FileSystemInfo.dfm 7.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284
  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 = 370
  10. ClientWidth = 371
  11. Color = clBtnFace
  12. ParentFont = True
  13. OldCreateOrder = True
  14. Position = poOwnerFormCenter
  15. OnShow = FormShow
  16. DesignSize = (
  17. 371
  18. 370)
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object CloseButton: TButton
  22. Left = 204
  23. Top = 336
  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 = 336
  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 = 324
  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. 296)
  58. object HostKeyGroup: TGroupBox
  59. Left = 6
  60. Top = 174
  61. Width = 351
  62. Height = 41
  63. Anchors = [akLeft, akRight, akBottom]
  64. Caption = 'Server host key fingerprint'
  65. TabOrder = 1
  66. DesignSize = (
  67. 351
  68. 41)
  69. object HostKeyFingerprintEdit: TEdit
  70. Left = 10
  71. Top = 18
  72. Width = 334
  73. Height = 17
  74. TabStop = False
  75. Anchors = [akLeft, akTop, akRight]
  76. BorderStyle = bsNone
  77. Color = clBtnFace
  78. ReadOnly = True
  79. TabOrder = 0
  80. Text = 'HostKeyFingerprintEdit'
  81. end
  82. end
  83. object ServerView: TListView
  84. Left = 6
  85. Top = 8
  86. Width = 351
  87. Height = 159
  88. Anchors = [akLeft, akTop, akRight, akBottom]
  89. Columns = <
  90. item
  91. AutoSize = True
  92. Caption = 'Item'
  93. end
  94. item
  95. AutoSize = True
  96. Caption = 'Value'
  97. end>
  98. ColumnClick = False
  99. MultiSelect = True
  100. ReadOnly = True
  101. RowSelect = True
  102. PopupMenu = ListViewMenu
  103. TabOrder = 0
  104. ViewStyle = vsReport
  105. OnContextPopup = ControlContextPopup
  106. end
  107. object CertificateGroup: TGroupBox
  108. Left = 6
  109. Top = 218
  110. Width = 351
  111. Height = 72
  112. Anchors = [akLeft, akRight, akBottom]
  113. Caption = 'Certificate fingerprint'
  114. TabOrder = 2
  115. DesignSize = (
  116. 351
  117. 72)
  118. object CertificateFingerprintEdit: TEdit
  119. Left = 10
  120. Top = 18
  121. Width = 334
  122. Height = 17
  123. TabStop = False
  124. Anchors = [akLeft, akTop, akRight]
  125. BorderStyle = bsNone
  126. Color = clBtnFace
  127. ReadOnly = True
  128. TabOrder = 0
  129. Text = 'CertificateFingerprintEdit'
  130. end
  131. object CertificateViewButton: TButton
  132. Left = 10
  133. Top = 37
  134. Width = 121
  135. Height = 25
  136. Caption = '&Full certificate'
  137. TabOrder = 1
  138. OnClick = CertificateViewButtonClick
  139. end
  140. end
  141. end
  142. object CapabilitiesSheet: TTabSheet
  143. Caption = 'Capabilities'
  144. ImageIndex = 1
  145. DesignSize = (
  146. 363
  147. 296)
  148. object InfoGroup: TGroupBox
  149. Left = 6
  150. Top = 174
  151. Width = 351
  152. Height = 114
  153. Anchors = [akLeft, akRight, akBottom]
  154. Caption = 'Additional information'
  155. TabOrder = 1
  156. DesignSize = (
  157. 351
  158. 114)
  159. object InfoMemo: TMemo
  160. Left = 9
  161. Top = 17
  162. Width = 333
  163. Height = 87
  164. TabStop = False
  165. Anchors = [akLeft, akTop, akRight]
  166. BevelInner = bvNone
  167. BevelOuter = bvNone
  168. BorderStyle = bsNone
  169. Color = clBtnFace
  170. Lines.Strings = (
  171. 'InfoMemo')
  172. ReadOnly = True
  173. ScrollBars = ssBoth
  174. TabOrder = 0
  175. WantReturns = False
  176. WordWrap = False
  177. end
  178. end
  179. object ProtocolView: TListView
  180. Left = 6
  181. Top = 8
  182. Width = 351
  183. Height = 159
  184. Anchors = [akLeft, akTop, akRight, akBottom]
  185. Columns = <
  186. item
  187. AutoSize = True
  188. Caption = 'Item'
  189. end
  190. item
  191. AutoSize = True
  192. Caption = 'Value'
  193. end>
  194. ColumnClick = False
  195. MultiSelect = True
  196. ReadOnly = True
  197. RowSelect = True
  198. PopupMenu = ListViewMenu
  199. TabOrder = 0
  200. ViewStyle = vsReport
  201. OnContextPopup = ControlContextPopup
  202. end
  203. end
  204. object SpaceAvailableSheet: TTabSheet
  205. Caption = 'Space available'
  206. ImageIndex = 2
  207. DesignSize = (
  208. 363
  209. 296)
  210. object Label1: TLabel
  211. Left = 13
  212. Top = 13
  213. Width = 26
  214. Height = 13
  215. Caption = '&Path:'
  216. FocusControl = SpaceAvailablePathEdit
  217. end
  218. object SpaceAvailableView: TListView
  219. Left = 6
  220. Top = 40
  221. Width = 351
  222. Height = 127
  223. Anchors = [akLeft, akTop, akRight, akBottom]
  224. Columns = <
  225. item
  226. AutoSize = True
  227. Caption = 'Item'
  228. end
  229. item
  230. AutoSize = True
  231. Caption = 'Value'
  232. end>
  233. ColumnClick = False
  234. MultiSelect = True
  235. ReadOnly = True
  236. RowSelect = True
  237. PopupMenu = ListViewMenu
  238. TabOrder = 2
  239. ViewStyle = vsReport
  240. OnContextPopup = ControlContextPopup
  241. end
  242. object SpaceAvailablePathEdit: TEdit
  243. Left = 56
  244. Top = 9
  245. Width = 193
  246. Height = 21
  247. Anchors = [akLeft, akTop, akRight]
  248. MaxLength = 250
  249. TabOrder = 0
  250. OnChange = ControlChange
  251. OnEnter = SpaceAvailablePathEditEnter
  252. OnExit = SpaceAvailablePathEditExit
  253. end
  254. object SpaceAvailableButton: TButton
  255. Left = 256
  256. Top = 7
  257. Width = 99
  258. Height = 25
  259. Anchors = [akTop, akRight]
  260. Caption = 'Check &space'
  261. TabOrder = 1
  262. OnClick = SpaceAvailableButtonClick
  263. end
  264. end
  265. end
  266. object ClipboardButton: TButton
  267. Left = 8
  268. Top = 336
  269. Width = 121
  270. Height = 25
  271. Anchors = [akRight, akBottom]
  272. Caption = '&Copy to Clipboard'
  273. TabOrder = 1
  274. OnClick = ClipboardButtonClick
  275. end
  276. object ListViewMenu: TPopupMenu
  277. Left = 144
  278. Top = 328
  279. object Copy: TMenuItem
  280. Caption = '&Copy'
  281. OnClick = CopyClick
  282. end
  283. end
  284. end