mainform.dfm

著名的SecureBlackBox控件完整源码

object frmKeys: TfrmKeys
  Left = 229
  Top = 103
  Width = 696
  Height = 485
  Caption = 'frmKeys'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object tbrMain: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 33
    ButtonHeight = 28
    Caption = 'tbrMain'
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 0
      Top = 2
      Width = 305
      Height = 28
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = imgToolbar
      TabOrder = 0
      object tbNewKeyring: TToolButton
        Left = 0
        Top = 2
        Hint = 'New keyring|New keyring'
        Action = actNewKeyring
      end
      object tbDelim1: TToolButton
        Left = 23
        Top = 2
        Width = 8
        Caption = 'tbDelim1'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbLoadKeyring: TToolButton
        Left = 31
        Top = 2
        Action = actOpenKeyring
      end
      object tbSaveKeyring: TToolButton
        Left = 54
        Top = 2
        Hint = 'Save keyring|Save keyring'
        Action = actSaveKeyring
      end
      object tbDelim2: TToolButton
        Left = 77
        Top = 2
        Width = 8
        Caption = 'tbDelim2'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbGenerate: TToolButton
        Left = 85
        Top = 2
        Action = actGenerateKey
      end
      object tbDelim3: TToolButton
        Left = 108
        Top = 2
        Width = 8
        Style = tbsSeparator
      end
      object tbAddKey: TToolButton
        Left = 116
        Top = 2
        Action = actAddKey
      end
      object tbRemoveKey: TToolButton
        Left = 139
        Top = 2
        Action = actRemoveKey
      end
      object tbExportKey: TToolButton
        Left = 162
        Top = 2
        Action = actExportKey
      end
      object tbDelim4: TToolButton
        Left = 185
        Top = 2
        Width = 8
        Caption = 'tbDelim4'
        ImageIndex = 9
        Style = tbsSeparator
      end
      object tbSign: TToolButton
        Left = 193
        Top = 2
        Action = actSign
      end
      object tbRevoke: TToolButton
        Left = 216
        Top = 2
        Action = actRevoke
      end
    end
  end
  object sbrMain: TStatusBar
    Left = 0
    Top = 412
    Width = 688
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = False
    SimplePanel = False
  end
  object tvKeyring: TTreeView
    Left = 0
    Top = 33
    Width = 688
    Height = 271
    Align = alClient
    Images = imgTreeView
    Indent = 19
    PopupMenu = mnuKeys
    TabOrder = 2
    OnChange = tvKeyringChange
  end
  object pInfo: TPanel
    Left = 0
    Top = 304
    Width = 688
    Height = 108
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object pKeyInfo: TPanel
      Left = 8
      Top = 1
      Width = 457
      Height = 101
      BevelOuter = bvNone
      TabOrder = 0
      object lbKeyAlgorithm: TLabel
        Left = 16
        Top = 16
        Width = 46
        Height = 13
        Caption = 'Algorithm:'
      end
      object lbKeyID: TLabel
        Left = 16
        Top = 40
        Width = 35
        Height = 13
        Caption = 'Key ID:'
      end
      object lbKeyFP: TLabel
        Left = 16
        Top = 64
        Width = 37
        Height = 13
        Caption = 'Key FP:'
      end
      object lbTimeStamp: TLabel
        Left = 360
        Top = 16
        Width = 40
        Height = 13
        Caption = 'Created:'
      end
      object lbExpires: TLabel
        Left = 360
        Top = 40
        Width = 37
        Height = 13
        Caption = 'Expires:'
      end
      object lbTrust: TLabel
        Left = 360
        Top = 64
        Width = 27
        Height = 13
        Caption = 'Trust:'
        Visible = False
      end
    end
    object pSigInfo: TPanel
      Left = 88
      Top = 0
      Width = 185
      Height = 97
      BevelOuter = bvNone
      TabOrder = 1
      object lbSigType: TLabel
        Left = 16
        Top = 12
        Width = 27
        Height = 13
        Caption = 'Type:'
      end
      object lbSigner: TLabel
        Left = 16
        Top = 36
        Width = 30
        Height = 13
        Caption = 'Signer'
      end
      object lbSigCreated: TLabel
        Left = 16
        Top = 60
        Width = 40
        Height = 13
        Caption = 'Created:'
      end
      object lbValidity: TLabel
        Left = 16
        Top = 84
        Width = 36
        Height = 13
        Caption = 'Validity:'
      end
    end
    object pUserInfo: TPanel
      Left = 496
      Top = 8
      Width = 185