generatecert.dfm

著名的SecureBlackBox控件完整源码

object frmGenerateCert: TfrmGenerateCert
  Left = 482
  Top = 239
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Certificate generation'
  ClientHeight = 383
  ClientWidth = 477
  Color = clBtnFace
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object bvlTop: TBevel
    Left = 0
    Top = 57
    Width = 477
    Height = 2
    Align = alTop
  end
  object btnBack: TButton
    Left = 226
    Top = 349
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '< &Back'
    Enabled = False
    TabOrder = 0
    OnClick = btnBackClick
  end
  object btnNext: TButton
    Left = 309
    Top = 349
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Next >'
    Default = True
    TabOrder = 1
    OnClick = btnNextClick
  end
  object btnCancel: TButton
    Left = 391
    Top = 349
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object pcMain: TPageControl
    Left = 0
    Top = 59
    Width = 477
    Height = 289
    ActivePage = tsSelectAction
    Align = alTop
    Style = tsButtons
    TabOrder = 3
    OnChange = pcMainChange
    object tsSelectAction: TTabSheet
      Hint = 'Please select certificate type'#13#10'you want to create'
      Caption = 'Action'
      object lblCertTypeSelect: TLabel
        Left = 0
        Top = 0
        Width = 469
        Height = 49
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'I want to create...'
        Layout = tlCenter
      end
      object gbCertType: TGroupBox
        Left = 8
        Top = 40
        Width = 457
        Height = 217
        Caption = 'Certificate type'
        TabOrder = 0
        object rbSelfSigned: TRadioButton
          Left = 120
          Top = 80
          Width = 225
          Height = 17
          Caption = 'Self-signed certificate'
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbChild: TRadioButton
          Left = 120
          Top = 112
          Width = 297
          Height = 17
          Caption = 'Certificate signed by Certificate Authority (CA)'
          TabOrder = 1
        end
      end
    end
    object tsSelectKeyAndHashAlgorithm: TTabSheet
      Hint = 
        'Select public key and hash algorithms'#13#10'For given combination sel' +
        'ect public key length'
      Caption = 'KeyAndHashAlg'
      ImageIndex = 1
      object lblPublicKeyAndHash: TLabel
        Left = 0
        Top = 0
        Width = 469
        Height = 49
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Select public key and hash algorithms: '
        Layout = tlCenter
      end
      object lblSelectPublicKeyLen: TLabel
        Left = 8
        Top = 207
        Width = 115
        Height = 13
        BiDiMode = bdLeftToRight
        Caption = 'Public key length (bits): '
        ParentBiDiMode = False
      end
      object rgPublicKeyAndHash: TRadioGroup
        Left = 8
        Top = 40
        Width = 457
        Height = 153
        Caption = 'Public key and hash type'
        Columns = 2
        TabOrder = 0
      end
      object cbPublicKeyLen: TComboBox
        Left = 8
        Top = 224
        Width = 97
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = '1024'
        Items.Strings = (
          '512'
          '1024'
          '2048')
      end
    end
    object tsSelectParentCertificate: TTabSheet
      Hint = 
        'Select parent certificate and private key'#13#10'You can use storage o' +
        'r load certificate/key from file'
      Caption = 'ParentCert'
      ImageIndex = 2
      object lblParentCertificate: TLabel
        Left = 0
        Top = 0
        Width = 469
        Height = 49
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Select parent certificate and private key:'
        Layout = tlCenter
      end
      object gbCertificate: TGroupBox
        Left = 8
        Top = 40
        Width = 457
        Height = 217
        TabOrder = 0
        object lblCertificateFile: TLabel
          Left = 24
          Top = 155
          Width = 57
          Height = 13
          Caption = 'Certificate: '
        end
        object lblPrivateKeyFile: TLabel
          Left = 24
          Top = 184
          Width = 62
          Height = 13
          Caption = 'Private Key: '
        end
        object edtCertificateFile: TEdit
          Left = 88
          Top = 151
          Width = 270
          Height = 21
          Enabled = False
          TabOrder = 0
        end
        object edtPrivateKeyFile: TEdit
          Left = 88
          Top = 180
          Width = 270
          Height = 21
          Enabled = False
          TabOrder = 1
        end
        object btnLoadCertificate: TButton
          Left = 362
          Top = 150
          Width = 70
          Height = 22
          Caption = 'Browse'
          Enabled = False
          TabOrder = 2
          OnClick = btnLoadCertificateClick
        end
        object btnLoadPrivateKey: TButton
          Left = 362
          Top = 178
          Width = 70
          Height = 22
          Caption = 'Browse'
          Enabled = False
          TabOrder = 3
          OnClick = btnLoadPrivateKeyClick
        end
        object rbFromFile: TRadioButton
          Left = 8
          Top = 132
          Width = 113
          Height = 17
          Caption = 'From file'
          TabOrder = 4
          OnClick = rbFromFileClick
        end
        object rbFromStorage: TRadioButton
          Left = 8
          Top = 10
          Width = 113
          Height = 17
          Caption = 'From storage'
          Checked = True
          TabOrder = 5
          TabStop = True
          OnClick = rbFromStorageClick
        end
        object tvCertificates: TTreeView
          Left = 24
          Top = 27
          Width = 417
          Height = 94
          Indent = 19
          TabOrder = 6
        end
      end
    end
    object tsEnterFields: TTabSheet
      Hint = 
        'Specify contents of Subject fields for new certificate'#13#10'You need' +
        ' to fill all fields'
      Caption = 'EnterFields'
      ImageIndex = 4
      object lblContents: TLabel
        Left = 0
        Top = 0
        Width = 469
        Height = 49
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        Caption = 'Specify contents of Subject fields for new certificate :'
        Layout = tlCenter
      end
      object gbSubject: TGroupBox
        Left = 8
        Top = 41
        Width = 457
        Height = 216
        Caption = 'Subject parameters '
        TabOrder = 0
        object lblCountry: TLabel
          Left = 24
          Top = 28
          Width = 43
          Height = 13
          Caption = 'Country:'
        end
        object lblState: TLabel
          Left = 24
          Top = 60
          Width = 87
          Height = 13
          Caption = 'State or Province:'
        end
        object lblLocality: TLabel
          Left = 24
          Top = 92