sigpropsform.dfm

著名的SecureBlackBox控件完整源码

object frmSignaturesProps: TfrmSignaturesProps
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Signatures'
  ClientHeight = 264
  ClientWidth = 368
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lSignatures: TLabel
    Left = 8
    Top = 8
    Width = 263
    Height = 13
    Caption = 'The document contains the following digital signatures:'
  end
  object cbSignatures: TComboBox
    Left = 8
    Top = 24
    Width = 353
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
    OnChange = cbSignaturesChange
  end
  object btnOK: TButton
    Left = 144
    Top = 232
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = btnOKClick
  end
  object pSignatureInfo: TPanel
    Left = 8
    Top = 56
    Width = 353
    Height = 169
    BevelOuter = bvNone
    TabOrder = 2
    object lAuthorName: TLabel
      Left = 0
      Top = 0
      Width = 73
      Height = 13
      Caption = 'Author'#39's name:'
    end
    object lReason: TLabel
      Left = 0
      Top = 48
      Width = 93
      Height = 13
      Caption = 'Reason for signing:'
    end
    object lTimestamp: TLabel
      Left = 0
      Top = 96
      Width = 55
      Height = 13
      Caption = 'Timestamp:'
    end
    object editAuthorName: TEdit
      Left = 0
      Top = 16
      Width = 353
      Height = 21
      TabOrder = 0
    end
    object editReason: TEdit
      Left = 0
      Top = 64
      Width = 353
      Height = 21
      TabOrder = 1
    end
    object btnValidate: TButton
      Left = 272
      Top = 104
      Width = 75
      Height = 25
      Caption = 'Validate'
      TabOrder = 2
      OnClick = btnValidateClick
    end
    object btnExtractSigned: TButton
      Left = 200
      Top = 136
      Width = 147
      Height = 25
      Caption = 'Extract signed version'
      TabOrder = 3
      OnClick = btnExtractSignedClick
    end
  end
  object SaveDialog: TSaveDialog
    Filter = 'PDF documents (*.pdf)|*.pdf|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 280
    Top = 224
  end
end