usersettingsform.dfm

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

object frmUserSettings: TfrmUserSettings
  Left = 469
  Top = 292
  BorderStyle = bsDialog
  Caption = 'User settings'
  ClientHeight = 267
  ClientWidth = 327
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lUser: TLabel
    Left = 8
    Top = 8
    Width = 52
    Height = 13
    Caption = 'Username:'
  end
  object gbUserSettings: TGroupBox
    Left = 8
    Top = 56
    Width = 305
    Height = 129
    Caption = 'Allowed authentications:'
    TabOrder = 0
    object cbPassword: TCheckBox
      Left = 16
      Top = 24
      Width = 250
      Height = 17
      Caption = 'Allow password authentication'
      TabOrder = 0
      OnClick = cbPasswordClick
    end
    object cbPublicKey: TCheckBox
      Left = 16
      Top = 48
      Width = 250
      Height = 17
      Caption = 'Allow public-key authentication'
      TabOrder = 1
      OnClick = cbPublicKeyClick
    end
    object cbKeyboard: TCheckBox
      Left = 16
      Top = 72
      Width = 250
      Height = 17
      Caption = 'Allow keyboard-interactive authentication'
      TabOrder = 2
      OnClick = cbKeyboardClick
    end
    object btnSetPassword: TButton
      Left = 16
      Top = 96
      Width = 97
      Height = 23
      Caption = 'Set password...'
      TabOrder = 3
      OnClick = btnSetPasswordClick
    end
    object btnSetPublicKey: TButton
      Left = 128
      Top = 96
      Width = 97
      Height = 23
      Caption = 'Set public key...'
      TabOrder = 4
      OnClick = btnSetPublicKeyClick
    end
  end
  object btnOK: TButton
    Left = 168
    Top = 240
    Width = 75
    Height = 23
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 248
    Top = 240
    Width = 75
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object editUsername: TEdit
    Left = 8
    Top = 24
    Width = 313
    Height = 21
    Enabled = False
    ReadOnly = True
    TabOrder = 3
  end
  object rbAny: TRadioButton
    Left = 8
    Top = 192
    Width = 313
    Height = 17
    Caption = 'The user must authenticate using ANY of the above methods'
    TabOrder = 4
    OnClick = rbAnyClick
  end
  object rbAll: TRadioButton
    Left = 8
    Top = 216
    Width = 313
    Height = 17
    Caption = 'The user must authenticate using ALL of the above methods'
    TabOrder = 5
    OnClick = rbAllClick
  end
end