mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Tiny PDF signer'
  ClientHeight = 422
  ClientWidth = 405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lSource: TLabel
    Left = 8
    Top = 8
    Width = 76
    Height = 13
    Caption = 'Source PDF file:'
  end
  object lDest: TLabel
    Left = 8
    Top = 56
    Width = 97
    Height = 13
    Caption = 'Destination PDF file:'
  end
  object editSource: TEdit
    Left = 8
    Top = 24
    Width = 305
    Height = 21
    TabOrder = 0
  end
  object editDest: TEdit
    Left = 8
    Top = 72
    Width = 305
    Height = 21
    TabOrder = 1
  end
  object btnBrowseSource: TButton
    Left = 320
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Browse...'
    TabOrder = 2
    OnClick = btnBrowseSourceClick
  end
  object btnBrowseDest: TButton
    Left = 320
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Browse...'
    TabOrder = 3
    OnClick = btnBrowseDestClick
  end
  object gbSigProps: TGroupBox
    Left = 8
    Top = 104
    Width = 385
    Height = 273
    Caption = 'Signature properties'
    TabOrder = 4
    object lCertificate: TLabel
      Left = 16
      Top = 24
      Width = 89
      Height = 13
      Caption = 'Signing certificate:'
    end
    object lCertPassword: TLabel
      Left = 16
      Top = 72
      Width = 103
      Height = 13
      Caption = 'Certificate password:'
    end
    object lSignatureType: TLabel
      Left = 16
      Top = 120
      Width = 75
      Height = 13
      Caption = 'Signature type:'
    end
    object lAuthorName: TLabel
      Left = 16
      Top = 168
      Width = 73
      Height = 13
      Caption = 'Author'#39's name:'
    end
    object lReason: TLabel
      Left = 16
      Top = 216
      Width = 93
      Height = 13
      Caption = 'Reason for signing:'
    end
    object editCert: TEdit
      Left = 16
      Top = 40
      Width = 273
      Height = 21
      TabOrder = 0
    end
    object btnBrowseCert: TButton
      Left = 296
      Top = 40
      Width = 75
      Height = 25
      Caption = 'Browse...'
      TabOrder = 1
      OnClick = btnBrowseCertClick
    end
    object editCertPassword: TEdit
      Left = 16
      Top = 88
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
    object cbSignatureType: TComboBox
      Left = 16
      Top = 136
      Width = 353
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        'Invisible document signature'
        'Visible document signature'
        'Certification (MDP) signature')
    end
    object editAuthorName: TEdit
      Left = 16
      Top = 184
      Width = 249
      Height = 21
      TabOrder = 4
    end
    object cbReason: TComboBox
      Left = 16
      Top = 232
      Width = 353
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = '<none>'
      Items.Strings = (
        'I am the author of this document'
        
          'I agree to the terms defined by placement of my signature on thi' +
          's document'
        'I have reviewed this document'
        'I attest to the accuracy and integrity of this document'
        'I am approving this document')
    end
  end
  object btnOK: TButton
    Left = 128
    Top = 384
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 5
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 208
    Top = 384
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 6
    OnClick = btnCancelClick
  end
  object OpenDialogPDF: TOpenDialog
    Filter = 'PDF document (*.pdf)|*.pdf|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 336
    Top = 32
  end
  object SaveDialogPDF: TSaveDialog
    Filter = 'PDF document (*.pdf)|*.pdf|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 336
    Top = 72
  end
  object OpenDialogCert: TOpenDialog
    Filter = 'PKCS#12 certificates (*.pfx)|*.pfx|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 328
    Top = 144
  end
  object Document: TElPDFDocument
    Left = 232
    Top = 184
  end
  object PublicKeyHandler: TElPDFPublicKeySecurityHandler
    Left = 264
    Top = 184
  end
  object CertStorage: TElMemoryCertStorage
    Options = [csoStrictChainBuilding]
    Left = 296
    Top = 184
  end
  object Cert: TElX509Certificate
    Left = 328
    Top = 184
  end
end