FileSystemInfo.dfm 7.2 KB

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