| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400 | 
							- object FileSystemInfoDialog: TFileSystemInfoDialog
 
-   Left = 320
 
-   Top = 130
 
-   HelpType = htKeyword
 
-   HelpKeyword = 'ui_fsinfo'
 
-   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
 
-   BorderStyle = bsDialog
 
-   Caption = 'Server and protocol information'
 
-   ClientHeight = 398
 
-   ClientWidth = 371
 
-   Color = clBtnFace
 
-   ParentFont = True
 
-   OldCreateOrder = True
 
-   Position = poOwnerFormCenter
 
-   OnShow = FormShow
 
-   DesignSize = (
 
-     371
 
-     398)
 
-   PixelsPerInch = 96
 
-   TextHeight = 13
 
-   object CloseButton: TButton
 
-     Left = 204
 
-     Top = 364
 
-     Width = 75
 
-     Height = 25
 
-     Anchors = [akRight, akBottom]
 
-     Cancel = True
 
-     Caption = 'Close'
 
-     Default = True
 
-     ModalResult = 1
 
-     TabOrder = 2
 
-   end
 
-   object HelpButton: TButton
 
-     Left = 287
 
-     Top = 364
 
-     Width = 75
 
-     Height = 25
 
-     Anchors = [akRight, akBottom]
 
-     Caption = '&Help'
 
-     TabOrder = 3
 
-     OnClick = HelpButtonClick
 
-   end
 
-   object PageControl: TPageControl
 
-     Left = 0
 
-     Top = 0
 
-     Width = 371
 
-     Height = 352
 
-     ActivePage = ProtocolSheet
 
-     Align = alTop
 
-     Anchors = [akLeft, akTop, akRight, akBottom]
 
-     TabOrder = 0
 
-     OnChange = PageControlChange
 
-     object ProtocolSheet: TTabSheet
 
-       Caption = 'Protocol'
 
-       DesignSize = (
 
-         363
 
-         324)
 
-       object HostKeyGroup: TGroupBox
 
-         Left = 6
 
-         Top = 201
 
-         Width = 351
 
-         Height = 87
 
-         Anchors = [akLeft, akRight, akBottom]
 
-         Caption = 'Server host key fingerprints'
 
-         TabOrder = 1
 
-         DesignSize = (
 
-           351
 
-           87)
 
-         object Label2: TLabel
 
-           Left = 10
 
-           Top = 18
 
-           Width = 49
 
-           Height = 13
 
-           Caption = 'Algorithm:'
 
-           FocusControl = HostKeyAlgorithmEdit
 
-         end
 
-         object Label3: TLabel
 
-           Left = 10
 
-           Top = 41
 
-           Width = 46
 
-           Height = 13
 
-           Caption = 'SHA-256:'
 
-           FocusControl = HostKeyFingerprintSHA256Edit
 
-         end
 
-         object Label4: TLabel
 
-           Left = 10
 
-           Top = 64
 
-           Width = 25
 
-           Height = 13
 
-           Caption = 'MD5:'
 
-           FocusControl = HostKeyFingerprintMD5Edit
 
-         end
 
-         object HostKeyFingerprintSHA256Edit: TEdit
 
-           Left = 65
 
-           Top = 41
 
-           Width = 279
 
-           Height = 17
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           PopupMenu = FingerprintPopupMenu
 
-           ReadOnly = True
 
-           TabOrder = 1
 
-           Text = 'HostKeyFingerprintSHA256Edit'
 
-           OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
 
-         end
 
-         object HostKeyAlgorithmEdit: TEdit
 
-           Left = 65
 
-           Top = 18
 
-           Width = 279
 
-           Height = 17
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           ReadOnly = True
 
-           TabOrder = 0
 
-           Text = 'HostKeyAlgorithmEdit'
 
-         end
 
-         object HostKeyFingerprintMD5Edit: TEdit
 
-           Left = 65
 
-           Top = 64
 
-           Width = 279
 
-           Height = 17
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           PopupMenu = FingerprintPopupMenu
 
-           ReadOnly = True
 
-           TabOrder = 2
 
-           Text = 'HostKeyFingerprintMD5Edit'
 
-           OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
 
-         end
 
-       end
 
-       object ServerView: TListView
 
-         Left = 6
 
-         Top = 8
 
-         Width = 351
 
-         Height = 187
 
-         Anchors = [akLeft, akTop, akRight, akBottom]
 
-         Columns = <
 
-           item
 
-             Caption = 'Item'
 
-             Width = 150
 
-           end
 
-           item
 
-             Caption = 'Value'
 
-             Width = 150
 
-           end>
 
-         ColumnClick = False
 
-         DoubleBuffered = True
 
-         MultiSelect = True
 
-         ReadOnly = True
 
-         RowSelect = True
 
-         ParentDoubleBuffered = False
 
-         PopupMenu = ListViewMenu
 
-         TabOrder = 0
 
-         ViewStyle = vsReport
 
-         OnContextPopup = ControlContextPopup
 
-       end
 
-       object CertificateGroup: TGroupBox
 
-         Left = 6
 
-         Top = 294
 
-         Width = 351
 
-         Height = 104
 
-         Anchors = [akLeft, akRight, akBottom]
 
-         Caption = 'Certificate fingerprint'
 
-         TabOrder = 2
 
-         DesignSize = (
 
-           351
 
-           104)
 
-         object Label5: TLabel
 
-           Left = 10
 
-           Top = 20
 
-           Width = 46
 
-           Height = 13
 
-           Caption = 'SHA-256:'
 
-           FocusControl = CertificateFingerprintSha256Edit
 
-         end
 
-         object Label6: TLabel
 
-           Left = 10
 
-           Top = 43
 
-           Width = 34
 
-           Height = 13
 
-           Caption = 'SHA-1:'
 
-           FocusControl = CertificateFingerprintSha1Edit
 
-         end
 
-         object CertificateFingerprintSha256Edit: TEdit
 
-           Left = 65
 
-           Top = 20
 
-           Width = 279
 
-           Height = 17
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           ReadOnly = True
 
-           TabOrder = 0
 
-           Text = 'CertificateFingerprintSha256Edit'
 
-         end
 
-         object CertificateViewButton: TButton
 
-           Left = 10
 
-           Top = 66
 
-           Width = 121
 
-           Height = 25
 
-           Caption = '&Full certificate'
 
-           TabOrder = 2
 
-           OnClick = CertificateViewButtonClick
 
-         end
 
-         object CertificateFingerprintSha1Edit: TEdit
 
-           Left = 65
 
-           Top = 43
 
-           Width = 279
 
-           Height = 17
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           PopupMenu = FingerprintPopupMenu
 
-           ReadOnly = True
 
-           TabOrder = 1
 
-           Text = 'CertificateFingerprintSha1Edit'
 
-           OnContextPopup = HostKeyFingerprintSHA256EditContextPopup
 
-         end
 
-       end
 
-     end
 
-     object CapabilitiesSheet: TTabSheet
 
-       Caption = 'Capabilities'
 
-       ImageIndex = 1
 
-       DesignSize = (
 
-         363
 
-         324)
 
-       object InfoGroup: TGroupBox
 
-         Left = 6
 
-         Top = 202
 
-         Width = 351
 
-         Height = 114
 
-         Anchors = [akLeft, akRight, akBottom]
 
-         Caption = 'Additional information'
 
-         TabOrder = 1
 
-         DesignSize = (
 
-           351
 
-           114)
 
-         object InfoMemo: TMemo
 
-           Left = 9
 
-           Top = 17
 
-           Width = 333
 
-           Height = 87
 
-           TabStop = False
 
-           Anchors = [akLeft, akTop, akRight]
 
-           BevelInner = bvNone
 
-           BevelOuter = bvNone
 
-           BorderStyle = bsNone
 
-           Color = clBtnFace
 
-           Lines.Strings = (
 
-             'InfoMemo')
 
-           ScrollBars = ssBoth
 
-           TabOrder = 0
 
-           WordWrap = False
 
-         end
 
-       end
 
-       object ProtocolView: TListView
 
-         Left = 6
 
-         Top = 8
 
-         Width = 351
 
-         Height = 187
 
-         Anchors = [akLeft, akTop, akRight, akBottom]
 
-         Columns = <
 
-           item
 
-             Caption = 'Item'
 
-             Width = 150
 
-           end
 
-           item
 
-             Caption = 'Value'
 
-             Width = 150
 
-           end>
 
-         ColumnClick = False
 
-         DoubleBuffered = True
 
-         MultiSelect = True
 
-         ReadOnly = True
 
-         RowSelect = True
 
-         ParentDoubleBuffered = False
 
-         PopupMenu = ListViewMenu
 
-         TabOrder = 0
 
-         ViewStyle = vsReport
 
-         OnContextPopup = ControlContextPopup
 
-       end
 
-     end
 
-     object SpaceAvailableSheet: TTabSheet
 
-       Caption = 'Space available'
 
-       ImageIndex = 2
 
-       DesignSize = (
 
-         363
 
-         324)
 
-       object Label1: TLabel
 
-         Left = 13
 
-         Top = 13
 
-         Width = 26
 
-         Height = 13
 
-         Caption = '&Path:'
 
-         FocusControl = SpaceAvailablePathEdit
 
-       end
 
-       object SpaceAvailableView: TListView
 
-         Left = 6
 
-         Top = 40
 
-         Width = 351
 
-         Height = 155
 
-         Anchors = [akLeft, akTop, akRight, akBottom]
 
-         Columns = <
 
-           item
 
-             Caption = 'Item'
 
-             Width = 150
 
-           end
 
-           item
 
-             Caption = 'Value'
 
-             Width = 150
 
-           end>
 
-         ColumnClick = False
 
-         DoubleBuffered = True
 
-         MultiSelect = True
 
-         ReadOnly = True
 
-         RowSelect = True
 
-         ParentDoubleBuffered = False
 
-         PopupMenu = ListViewMenu
 
-         TabOrder = 2
 
-         ViewStyle = vsReport
 
-         OnContextPopup = ControlContextPopup
 
-         OnCustomDrawItem = SpaceAvailableViewCustomDrawItem
 
-       end
 
-       object SpaceAvailablePathEdit: TEdit
 
-         Left = 56
 
-         Top = 9
 
-         Width = 193
 
-         Height = 21
 
-         Anchors = [akLeft, akTop, akRight]
 
-         MaxLength = 250
 
-         TabOrder = 0
 
-         OnChange = ControlChange
 
-         OnEnter = SpaceAvailablePathEditEnter
 
-         OnExit = SpaceAvailablePathEditExit
 
-       end
 
-       object SpaceAvailableButton: TButton
 
-         Left = 256
 
-         Top = 7
 
-         Width = 99
 
-         Height = 25
 
-         Anchors = [akTop, akRight]
 
-         Caption = 'Check &space'
 
-         TabOrder = 1
 
-         OnClick = SpaceAvailableButtonClick
 
-       end
 
-     end
 
-   end
 
-   object ClipboardButton: TButton
 
-     Left = 8
 
-     Top = 364
 
-     Width = 161
 
-     Height = 25
 
-     Anchors = [akRight, akBottom]
 
-     Caption = '&Copy to Clipboard'
 
-     TabOrder = 1
 
-     OnClick = ClipboardButtonClick
 
-   end
 
-   object ListViewMenu: TPopupMenu
 
-     Left = 151
 
-     Top = 354
 
-     object Copy: TMenuItem
 
-       Caption = '&Copy'
 
-       OnClick = CopyClick
 
-     end
 
-   end
 
-   object FingerprintPopupMenu: TPopupMenu
 
-     Left = 240
 
-     Top = 354
 
-     object Copy1: TMenuItem
 
-       Action = EditCopyAction
 
-     end
 
-     object TMenuItem
 
-       Action = EditSelectAllAction
 
-     end
 
-   end
 
-   object FingerprintActionList: TActionList
 
-     Left = 328
 
-     Top = 354
 
-     object EditCopyAction: TEditCopy
 
-       Category = 'Edit'
 
-       Caption = '&Copy'
 
-       ShortCut = 16451
 
-       OnExecute = EditCopyActionExecute
 
-       OnUpdate = EditCopyActionUpdate
 
-     end
 
-     object EditSelectAllAction: TEditSelectAll
 
-       Category = 'Edit'
 
-       Caption = 'Select &All'
 
-       ShortCut = 16449
 
-     end
 
-   end
 
- end
 
 
  |