wizard.dfm

著名的SecureBlackBox控件完整源码

object frmWizard: TfrmWizard
  Left = 407
  Top = 270
  BorderStyle = bsDialog
  Caption = 'New Key Pair Wizard'
  ClientHeight = 312
  ClientWidth = 468
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlStep4: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    Visible = False
    object bvlStep4Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object pnlStep4Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep4Caption: TLabel
        Left = 12
        Top = 10
        Width = 101
        Height = 16
        Caption = 'lblStep4Caption'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep4Description: TLabel
        Left = 24
        Top = 32
        Width = 91
        Height = 13
        Caption = 'lblStep4Description'
      end
    end
  end
  object pnlStep5: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object bvlStep5Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object pnlStep5Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep5Caption: TLabel
        Left = 12
        Top = 10
        Width = 101
        Height = 16
        Caption = 'lblStep5Caption'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep5Description: TLabel
        Left = 24
        Top = 32
        Width = 91
        Height = 13
        Caption = 'lblStep5Description'
      end
    end
  end
  object pnlStep6: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object bvlStep6Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object pnlStep6Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep6Caption: TLabel
        Left = 12
        Top = 10
        Width = 101
        Height = 16
        Caption = 'lblStep6Caption'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep6Description: TLabel
        Left = 24
        Top = 32
        Width = 91
        Height = 13
        Caption = 'lblStep6Description'
      end
    end
  end
  object pnlStep1: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    Visible = False
    OnEnter = pnlStep1Enter
    object bvlStep1Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object lblStep1Prompt: TLabel
      Left = 12
      Top = 72
      Width = 201
      Height = 13
      Caption = 'Please specify parameters of new key pair:'
    end
    object lblName: TLabel
      Left = 24
      Top = 100
      Width = 48
      Height = 13
      Caption = '&Full name:'
      FocusControl = edtName
    end
    object lblEMail: TLabel
      Left = 24
      Top = 132
      Width = 72
      Height = 13
      Caption = 'E-&Mail address:'
      FocusControl = edtEMail
    end
    object lblKeyType: TLabel
      Left = 24
      Top = 164
      Width = 44
      Height = 13
      Caption = 'Key &type:'
      FocusControl = cmbKeyType
    end
    object lblKeyExpiration: TLabel
      Left = 24
      Top = 228
      Width = 69
      Height = 13
      Caption = 'Key e&xpiration:'
      FocusControl = rbtDate
    end
    object lblKeySize: TLabel
      Left = 24
      Top = 196
      Width = 42
      Height = 13
      Caption = 'Key &size:'
    end
    object pnlStep1Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep1Caption: TLabel
        Left = 12
        Top = 10
        Width = 133
        Height = 16
        Caption = 'Key Pair Parameters'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep1Description: TLabel
        Left = 24
        Top = 32
        Width = 315
        Height = 13
        Caption = 
          'Enter the parameters wich will be used for new key pair generati' +
          'on '
      end
    end
    object edtName: TEdit
      Left = 108
      Top = 96
      Width = 333
      Height = 21
      TabOrder = 1
      OnChange = edtNameChange
    end
    object edtEMail: TEdit
      Left = 108
      Top = 128
      Width = 333
      Height = 21
      TabOrder = 2
    end
    object cmbKeyType: TComboBox
      Left = 108
      Top = 160
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        'RSA'
        'ElGamal/DSS')
    end
    object rbtNever: TRadioButton
      Left = 108
      Top = 226
      Width = 61
      Height = 17
      Caption = '&Never'
      Checked = True
      TabOrder = 5
      TabStop = True
    end
    object dtpExpirationDate: TDateTimePicker
      Left = 200
      Top = 224
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38244.5892565394
      Time = 38244.5892565394
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 7
    end
    object rbtDate: TRadioButton
      Left = 180
      Top = 226
      Width = 17
      Height = 17
      TabOrder = 6
      OnClick = rbtDateClick
    end
    object cmbKeySize: TComboBox
      Left = 108
      Top = 192
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        '1024 bits (weak)'
        '2048 bits (normal)'
        '4096 bits (strong)'
        '8192 bits (paranoic)')
    end
  end
  object pnlStep2: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 4
    Visible = False
    OnEnter = pnlStep2Enter
    OnExit = pnlStep2Exit
    object bvlStep2Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object lblStep2Prompt: TLabel
      Left = 12
      Top = 72
      Width = 441
      Height = 17
      AutoSize = False
      Caption = 
        'Please chose passphrase at least 6 symbols long and containing n' +
        'on-alphabetic characters.'
      WordWrap = True
    end
    object lblPassword: TLabel
      Left = 24
      Top = 104
      Width = 58
      Height = 13
      Caption = '&Passphrase:'
      FocusControl = edtPassword
    end
    object lblConfirmation: TLabel
      Left = 24
      Top = 132
      Width = 61
      Height = 13
      Caption = '&Confirmation:'
      FocusControl = edtConfirmation
    end
    object pnlStep2Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep2Caption: TLabel
        Left = 12
        Top = 10
        Width = 75
        Height = 16
        Caption = 'Passphrase'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep2Description: TLabel
        Left = 24
        Top = 32
        Width = 411
        Height = 13
        Caption = 
          'Your private key will be protected by a passphrase. Plase keep y' +
          'our passphrase secret.'
      end
    end
    object edtPassword: TEdit
      Left = 104
      Top = 100
      Width = 221
      Height = 21
      PasswordChar = '*'
      TabOrder = 1
    end
    object edtConfirmation: TEdit
      Left = 104
      Top = 128
      Width = 221
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
  end
  object pnlStep3: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Visible = False
    OnEnter = pnlStep3Enter
    object bvlStep3Top: TBevel
      Left = 0
      Top = 57
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object lblStep3Prompt: TLabel
      Left = 12
      Top = 72
      Width = 46
      Height = 13
      Caption = 'Progress:'
    end
    object pnlStep3Top: TPanel
      Left = 0
      Top = 0
      Width = 468
      Height = 57
      Align = alTop
      BevelOuter = bvNone
      Color = clWindow
      TabOrder = 0
      object lblStep3Caption: TLabel
        Left = 12
        Top = 10
        Width = 99
        Height = 16
        Caption = 'Key Generation'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblStep3Description: TLabel
        Left = 24
        Top = 32
        Width = 275
        Height = 13
        Caption = 'Key generation is long process and may take few minutes'
      end
    end
    object pbrProgress: TProgressBar
      Left = 16
      Top = 96
      Width = 433
      Height = 16
      Min = 0
      Max = 100
      TabOrder = 1
    end
  end
  object pnlButtons: TPanel
    Left = 0
    Top = 264
    Width = 468
    Height = 48
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 6
    object bvlButtonsTop: TBevel
      Left = 0
      Top = 0
      Width = 468
      Height = 4
      Align = alTop
      Shape = bsTopLine
    end
    object btnBack: TButton
      Left = 224
      Top = 15
      Width = 75
      Height = 23
      Caption = '< &Back'
      Enabled = False
      TabOrder = 0
      OnClick = btnBackClick
    end
    object btnNext: TButton
      Left = 299
      Top = 15
      Width = 75
      Height = 23
      Caption = '&Next >'
      Default = True
      Enabled = False
      TabOrder = 1
      OnClick = btnNextClick
    end
    object btnCancel: TButton
      Left = 383
      Top = 15
      Width = 75
      Height = 23
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 3
    end
    object btnFinish: TButton
      Left = 299
      Top = 15
      Width = 75
      Height = 23
      Caption = '&Finish'
      Default = True
      Enabled = False
      ModalResult = 1
      TabOrder = 2
      Visible = False
    end
  end
  object tmrProgress: TTimer
    Enabled = False
    Interval = 200
    OnTimer = tmrProgressTimer
    Left = 20
    Top = 124
  end
end