FileSystemInfo.dfm 7.3 KB

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