mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 200
  Top = 86
  BorderStyle = bsDialog
  Caption = 'Tiny PDF signer'
  ClientHeight = 546
  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 = 403
    Caption = 'Signature properties'
    TabOrder = 4
    object lCertPassword: TLabel
      Left = 32
      Top = 72
      Width = 103
      Height = 13
      Caption = 'Certificate password:'
    end
    object lSignatureType: TLabel
      Left = 16
      Top = 168
      Width = 75
      Height = 13
      Caption = 'Signature type:'
    end
    object lAuthorName: TLabel
      Left = 16
      Top = 252
      Width = 73
      Height = 13
      Caption = 'Author'#39's name:'
    end
    object lReason: TLabel
      Left = 16
      Top = 300
      Width = 93
      Height = 13
      Caption = 'Reason for signing:'
    end
    object lFont: TLabel
      Left = 16
      Top = 212
      Width = 61
      Height = 13
      Caption = 'Widget font:'
    end
    object editCert: TEdit
      Left = 32
      Top = 40
      Width = 257
      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 = 32
      Top = 88
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
    object cbSignatureType: TComboBox
      Left = 16
      Top = 184
      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 = 268
      Width = 249
      Height = 21
      TabOrder = 4
    end
    object cbReason: TComboBox
      Left = 16
      Top = 316
      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
    object comboCertificate: TComboBox
      Left = 32
      Top = 136
      Width = 337
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      OnChange = comboCertificateChange
    end
    object rbWindowsCert: TRadioButton
      Left = 16
      Top = 116
      Width = 305
      Height = 17
      Caption = 'Use certificate from System Certificate storage:'
      TabOrder = 7
    end
    object rbFileCert: TRadioButton
      Left = 16
      Top = 20
      Width = 161
      Height = 17
      Caption = 'Use certificate from file:'
      Checked = True
      TabOrder = 8
      TabStop = True
    end
    object cbTimestamp: TCheckBox
      Left = 16
      Top = 348
      Width = 353
      Height = 17
      Caption = 'Request a timestamp from TSA server:'
      TabOrder = 9
    end
    object editTimestampServer: TEdit
      Left = 32
      Top = 372
      Width = 337
      Height = 21
      TabOrder = 10
      Text = 'http://'
    end
    object cbFont: TComboBox
      Left = 16
      Top = 228
      Width = 353
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 11
      Items.Strings = (
        'Helvetica'
        'Helvetica-Bold'
        'Helvetica-Oblique'
        'Helvetica-BoldOblique'
        'Times-Roman'
        'Times-Bold'
        'Times-Italic'
        'Times-BoldItalic'
        'Courier'
        'Courier-Bold'
        'Courier-Oblique'
        'Courier-BoldOblique'
        'Symbol'
        'ZapfDingbats'
        'Free Serif, Unicode')
    end
  end
  object btnOK: TButton
    Left = 128
    Top = 512
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 5
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 208
    Top = 512
    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
    IgnoreTimestampFailure = False
    Left = 264
    Top = 184
  end
  object CertStorage: TElMemoryCertStorage
    Options = [csoStrictChainBuilding]
    Left = 296
    Top = 184
  end
  object WinCertStorage: TElWinCertStorage
    Options = [csoStrictChainBuilding]
    SystemStores.Strings = (
      'My')
    Left = 328
    Top = 184
  end
  object HTTPClient: TElHTTPSClient
    Versions = [sbSSL2, sbSSL3, sbTLS1]
    LocalPort = 0
    SocksAuthentication = saNoAuthentication
    WebTunnelPort = 3128
    SSLEnabled = False
    RequestParameters.ContentRangeStart = -1
    RequestParameters.ContentRangeEnd = -1
    RequestParameters.UserAgent = 'SecureBlackbox'
    PreferKeepAlive = False
    HTTPVersion = hvHTTP10
    UseNTLMAuth = False
    SendBufferSize = 65535
    HTTPProxyPort = 3128
    UseHTTPProxy = False
    Left = 264
    Top = 440
  end
  object TSPClient: TElHTTPTSPClient
    HashAlgorithm = 0
    IncludeCertificates = True
    Left = 296
    Top = 440
  end
end