connpropsform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 265 行

object frmConnProps: TfrmConnProps
  Left = 462
  Top = 255
  BorderStyle = bsDialog
  Caption = 'Connection properties'
  ClientHeight = 327
  ClientWidth = 314
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gbConnProps: TGroupBox
    Left = 8
    Top = 8
    Width = 297
    Height = 281
    Caption = 'Connection properties'
    TabOrder = 0
    object lHost: TLabel
      Left = 16
      Top = 16
      Width = 22
      Height = 13
      Caption = 'Host'
    end
    object lPort: TLabel
      Left = 224
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object lCert: TLabel
      Left = 16
      Top = 168
      Width = 174
      Height = 13
      Caption = 'Use certificate (PFX format assumed)'
    end
    object lPassword: TLabel
      Left = 32
      Top = 208
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object lblAuthCmd: TLabel
      Left = 16
      Top = 124
      Width = 74
      Height = 13
      Caption = 'Auth command:'
    end
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 13
      Caption = 'Username'
    end
    object Label2: TLabel
      Left = 168
      Top = 56
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object editHost: TEdit
      Left = 16
      Top = 32
      Width = 201
      Height = 21
      Hint = 'Specify the destination host here'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'localhost'
    end
    object editPort: TEdit
      Left = 224
      Top = 32
      Width = 57
      Height = 21
      Hint = 
        'Specify the destination port here. SSL/TLS use 443 port by defau' +
        'lt.'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = '21'
    end
    object cbSSL2: TCheckBox
      Left = 16
      Top = 144
      Width = 65
      Height = 17
      Caption = 'SSL2'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
    object cbSSL3: TCheckBox
      Left = 80
      Top = 144
      Width = 65
      Height = 17
      Caption = 'SSL3'
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object cbTLS1: TCheckBox
      Left = 144
      Top = 144
      Width = 65
      Height = 17
      Caption = 'TLS1'
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
    object editCert: TEdit
      Left = 16
      Top = 184
      Width = 241
      Height = 21
      TabOrder = 11
    end
    object cbPassive: TCheckBox
      Left = 144
      Top = 256
      Width = 137
      Height = 17
      Caption = 'Passive FTP mode'
      TabOrder = 15
    end
    object editCertPassword: TEdit
      Left = 32
      Top = 224
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 13
    end
    object cbClear: TCheckBox
      Left = 144
      Top = 96
      Width = 137
      Height = 17
      Caption = 'Use clear data channel'
      TabOrder = 5
    end
    object cbTLS11: TCheckBox
      Left = 208
      Top = 144
      Width = 65
      Height = 17
      Caption = 'TLS1.1'
      Checked = True
      State = cbChecked
      TabOrder = 10
    end
    object comboAuthCmd: TComboBox
      Left = 96
      Top = 120
      Width = 129
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        'Autodetect'
        'AUTH TLS'
        'AUTH SSL'
        'AUTH TLS-P'
        'AUTH TLS-C')
    end
    object cbUseSSL: TCheckBox
      Left = 16
      Top = 96
      Width = 97
      Height = 17
      Caption = 'Use SSL/TLS'
      TabOrder = 4
    end
    object cbImplicit: TCheckBox
      Left = 16
      Top = 256
      Width = 97
      Height = 17
      Caption = 'Use implicit SSL'
      TabOrder = 14
    end
    object editUsername: TEdit
      Left = 16
      Top = 72
      Width = 113
      Height = 21
      Hint = 'Specify the username here'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'anonymous'
    end
    object editPassword: TEdit
      Left = 168
      Top = 72
      Width = 113
      Height = 21
      Hint = 'Specify the password here'
      ParentShowHint = False
      PasswordChar = '*'
      ShowHint = True
      TabOrder = 3
    end
    object btnBrowseCert: TButton
      Left = 256
      Top = 184
      Width = 23
      Height = 22
      Hint = 'Browse for certificate'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = btnBrowseCertClick
    end
  end
  object btnOK: TButton
    Left = 152
    Top = 296
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 232
    Top = 296
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object OpenDialog: TOpenDialog
    Filter = 'PFX certificate (*.pfx)|*.pfx'
    InitialDir = '.'
    Left = 40
    Top = 296
  end
end