umain.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 658 行 · 第 1/3 页

object frmMain: TfrmMain
  Left = 384
  Top = 114
  Width = 603
  Height = 515
  Caption = 'SSH keys demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lblPrivateKey: TLabel
    Left = 0
    Top = 88
    Width = 595
    Height = 13
    Align = alTop
    Alignment = taCenter
    Caption = 'Private key'
  end
  object lblPublicKey: TLabel
    Left = 0
    Top = 299
    Width = 595
    Height = 13
    Align = alTop
    Alignment = taCenter
    Caption = 'Public key'
  end
  object Splitter1: TSplitter
    Left = 0
    Top = 296
    Width = 595
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object rgAlgorithm: TRadioGroup
    Left = 0
    Top = 24
    Width = 595
    Height = 32
    Hint = 'Choose generation algorithm'
    Align = alTop
    Caption = '&Algorithm'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'RSA'
      'DSS')
    TabOrder = 0
  end
  object rgKeyFormat: TRadioGroup
    Left = 0
    Top = 56
    Width = 595
    Height = 32
    Hint = 'Select key format'
    Align = alTop
    Caption = 'Key &format'
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'OpenSSH'
      'IETF'
      'PuTTY'
      'X.509')
    TabOrder = 1
    OnClick = rgKeyFormatClick
  end
  object tbTop: TToolBar
    Left = 0
    Top = 0
    Width = 595
    Height = 24
    ButtonHeight = 19
    ButtonWidth = 98
    Flat = True
    List = True
    ShowCaptions = True
    TabOrder = 2
    object tbGenerate: TToolButton
      Left = 0
      Top = 0
      Hint = 'Press to generate new key'
      AutoSize = True
      Caption = '&Generate key'
      ImageIndex = 1
      OnClick = tbGenerateClick
    end
    object tbSavePrivate: TToolButton
      Left = 80
      Top = 0
      Hint = 'Press to save generated private key'
      AutoSize = True
      Caption = 'Save &private key'
      Enabled = False
      OnClick = tbSavePrivateClick
    end
    object tbSavePublic: TToolButton
      Left = 171
      Top = 0
      Hint = 'Press to save generated public key'
      AutoSize = True
      Caption = 'Save pub&lic key'
      Enabled = False
      OnClick = tbSavePublicClick
    end
    object tbLoadPrivate: TToolButton
      Left = 258
      Top = 0
      AutoSize = True
      Caption = 'Load private key'
      ImageIndex = 3
      OnClick = tbLoadPrivateClick
    end
    object tbLoadPublic: TToolButton
      Left = 353
      Top = 0
      AutoSize = True
      Caption = 'Load public key'
      ImageIndex = 2
      OnClick = tbLoadPublicClick
    end
    object tbExit: TToolButton
      Left = 444
      Top = 0
      Hint = 'Exit from demo'
      AutoSize = True
      Caption = 'E&xit'
      ImageIndex = 0
      OnClick = tbExitClick
    end
  end
  object memPrivateKey: TMemo
    Left = 0
    Top = 156
    Width = 595
    Height = 140
    Hint = 'Generated private key'
    Align = alTop
    Lines.Strings = (
      'Press Generate key to create a new key or load from the file')
    TabOrder = 3
  end
  object memPublicKey: TMemo
    Left = 0
    Top = 312
    Width = 595
    Height = 150
    Hint = 'Generated public key'
    Align = alClient
    Lines.Strings = (
      'Press Generate key to create a new key or load from the file')
    TabOrder = 4
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 462
    Width = 595
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object pnlTop: TPanel
    Left = 0
    Top = 101
    Width = 595
    Height = 55
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 6
    object lblKeyLen: TLabel
      Left = 5
      Top = 8
      Width = 80
      Height = 13
      Caption = 'Key length in bits'
      FocusControl = cbKeyLen
    end
    object lblSubject: TLabel
      Left = 157
      Top = 8
      Width = 90
      Height = 13
      Caption = 'Subject (IETF only)'
      FocusControl = edtSubject
    end
    object lblComment: TLabel
      Left = 5
      Top = 32
      Width = 44
      Height = 13
      Caption = 'Comment'
      FocusControl = edtComment
    end
    object cbKeyLen: TComboBox
      Left = 91
      Top = 5
      Width = 60
      Height = 21
      Hint = 'Select key length in bits'
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        '128'
        '256'
        '512'
        '1024'
        '2048'
        '4096')
    end