FileSystemInfo.dfm 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263
  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 = 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. end
  113. object CapabilitiesSheet: TTabSheet
  114. Caption = 'Capabilities'
  115. ImageIndex = 1
  116. DesignSize = (
  117. 363
  118. 296)
  119. object InfoGroup: TGroupBox
  120. Left = 6
  121. Top = 174
  122. Width = 351
  123. Height = 114
  124. Anchors = [akLeft, akRight, akBottom]
  125. Caption = 'Additional information'
  126. TabOrder = 1
  127. DesignSize = (
  128. 351
  129. 114)
  130. object InfoMemo: TMemo
  131. Left = 9
  132. Top = 17
  133. Width = 333
  134. Height = 87
  135. TabStop = False
  136. Anchors = [akLeft, akTop, akRight]
  137. BevelInner = bvNone
  138. BevelOuter = bvNone
  139. BorderStyle = bsNone
  140. Color = clBtnFace
  141. Lines.Strings = (
  142. 'InfoMemo')
  143. ReadOnly = True
  144. ScrollBars = ssBoth
  145. TabOrder = 0
  146. WantReturns = False
  147. WordWrap = False
  148. end
  149. end
  150. object ProtocolView: TListView
  151. Left = 6
  152. Top = 8
  153. Width = 351
  154. Height = 159
  155. Anchors = [akLeft, akTop, akRight, akBottom]
  156. Columns = <
  157. item
  158. Caption = 'Item'
  159. Width = -2
  160. WidthType = (
  161. -2)
  162. end
  163. item
  164. Caption = 'Value'
  165. Width = -2
  166. WidthType = (
  167. -2)
  168. end>
  169. ColumnClick = False
  170. MultiSelect = True
  171. ReadOnly = True
  172. RowSelect = True
  173. PopupMenu = ListViewMenu
  174. TabOrder = 0
  175. ViewStyle = vsReport
  176. OnContextPopup = ControlContextPopup
  177. end
  178. end
  179. object SpaceAvailableSheet: TTabSheet
  180. Caption = 'Space available'
  181. ImageIndex = 2
  182. DesignSize = (
  183. 363
  184. 296)
  185. object Label1: TLabel
  186. Left = 13
  187. Top = 13
  188. Width = 25
  189. Height = 13
  190. Caption = '&Path:'
  191. FocusControl = SpaceAvailablePathEdit
  192. end
  193. object SpaceAvailableView: TListView
  194. Left = 6
  195. Top = 40
  196. Width = 351
  197. Height = 127
  198. Anchors = [akLeft, akTop, akRight, akBottom]
  199. Columns = <
  200. item
  201. Caption = 'Item'
  202. Width = -2
  203. WidthType = (
  204. -2)
  205. end
  206. item
  207. Caption = 'Value'
  208. Width = -2
  209. WidthType = (
  210. -2)
  211. end>
  212. ColumnClick = False
  213. MultiSelect = True
  214. ReadOnly = True
  215. RowSelect = True
  216. PopupMenu = ListViewMenu
  217. TabOrder = 2
  218. ViewStyle = vsReport
  219. OnContextPopup = ControlContextPopup
  220. end
  221. object SpaceAvailablePathEdit: TEdit
  222. Left = 56
  223. Top = 9
  224. Width = 193
  225. Height = 21
  226. Anchors = [akLeft, akTop, akRight]
  227. MaxLength = 250
  228. TabOrder = 0
  229. OnChange = ControlChange
  230. OnEnter = SpaceAvailablePathEditEnter
  231. OnExit = SpaceAvailablePathEditExit
  232. end
  233. object SpaceAvailableButton: TButton
  234. Left = 256
  235. Top = 7
  236. Width = 99
  237. Height = 25
  238. Anchors = [akTop, akRight]
  239. Caption = 'Check &space'
  240. TabOrder = 1
  241. OnClick = SpaceAvailableButtonClick
  242. end
  243. end
  244. end
  245. object ClipboardButton: TButton
  246. Left = 8
  247. Top = 336
  248. Width = 121
  249. Height = 25
  250. Anchors = [akRight, akBottom]
  251. Caption = '&Copy to Clipboard'
  252. TabOrder = 1
  253. OnClick = ClipboardButtonClick
  254. end
  255. object ListViewMenu: TPopupMenu
  256. Left = 144
  257. Top = 328
  258. object Copy: TMenuItem
  259. Caption = '&Copy'
  260. OnClick = CopyClick
  261. end
  262. end
  263. end