mainform.dfm

著名的SecureBlackBox控件完整源码

object frmMain: TfrmMain
  Left = 393
  Top = 210
  BorderStyle = bsDialog
  Caption = 'PDF Tiny Encryptor'
  ClientHeight = 435
  ClientWidth = 377
  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 lSourceFile: TLabel
    Left = 8
    Top = 8
    Width = 76
    Height = 13
    Caption = 'Source PDF file:'
  end
  object lDestFile: TLabel
    Left = 8
    Top = 56
    Width = 97
    Height = 13
    Caption = 'Destination PDF file:'
  end
  object editSource: TEdit
    Left = 8
    Top = 24
    Width = 281
    Height = 21
    TabOrder = 0
  end
  object editDest: TEdit
    Left = 8
    Top = 72
    Width = 281
    Height = 21
    TabOrder = 1
  end
  object btnBrowseSource: TButton
    Left = 296
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Browse...'
    TabOrder = 2
    OnClick = btnBrowseSourceClick
  end
  object btnBrowseDest: TButton
    Left = 296
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Browse...'
    TabOrder = 3
    OnClick = btnBrowseDestClick
  end
  object gbEncryptionProps: TGroupBox
    Left = 8
    Top = 104
    Width = 361
    Height = 281
    Caption = 'Encryption properties'
    TabOrder = 4
    object lCertificate: TLabel
      Left = 40
      Top = 176
      Width = 106
      Height = 13
      Caption = 'Encryption certificate:'
      Enabled = False
    end
    object lCertPassword: TLabel
      Left = 40
      Top = 224
      Width = 103
      Height = 13
      Caption = 'Certificate password:'
      Enabled = False
    end
    object lEncryptionAlgorithm: TLabel
      Left = 16
      Top = 24
      Width = 102
      Height = 13
      Caption = 'Encryption algorithm:'
    end
    object rbPasswordEncryption: TRadioButton
      Left = 16
      Top = 80
      Width = 137
      Height = 17
      Caption = 'Password encryption'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbPasswordEncryptionClick
    end
    object rbPublicKeyEncryption: TRadioButton
      Left = 16
      Top = 152
      Width = 161
      Height = 17
      Caption = 'Public key encryption'
      TabOrder = 1
      OnClick = rbPublicKeyEncryptionClick
    end
    object editPassword: TEdit
      Left = 40
      Top = 104
      Width = 129
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
    object editCert: TEdit
      Left = 40
      Top = 192
      Width = 225
      Height = 21
      Enabled = False
      TabOrder = 3
    end
    object btnBrowseCert: TButton
      Left = 272
      Top = 192
      Width = 75
      Height = 25
      Caption = 'Browse...'
      Enabled = False
      TabOrder = 4
      OnClick = btnBrowseCertClick
    end
    object editCertPassword: TEdit
      Left = 40
      Top = 240
      Width = 129
      Height = 21
      Enabled = False
      PasswordChar = '*'
      TabOrder = 5
    end
    object cbAlgorithm: TComboBox
      Left = 16
      Top = 40
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        'RC4/40 bits (Acrobat 4)'
        'RC4/128 bits (Acrobat 5)'
        'AES/128 bits (Acrobat 6, 7)')
    end
    object cbEncryptMetadata: TCheckBox
      Left = 184
      Top = 40
      Width = 161
      Height = 17
      Caption = 'Encrypt document metadata'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
  end
  object btnEncrypt: TButton
    Left = 112
    Top = 400
    Width = 75
    Height = 25
    Caption = 'Encrypt'
    Default = True
    TabOrder = 5
    OnClick = btnEncryptClick
  end
  object btnCancel: TButton
    Left = 192
    Top = 400
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 6
    OnClick = btnCancelClick
  end
  object OpenDialogPDF: TOpenDialog
    Filter = 'PDF files (*.pdf)|*.pdf|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 328
    Top = 24
  end
  object SaveDialogPDF: TSaveDialog
    Filter = 'PDF files (*.pdf)|*.pdf|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 320
    Top = 72
  end
  object OpenDialogCert: TOpenDialog
    Filter = 
      'Raw X.509 certificate (*.cer, *.csr, *.crt)|*.CER;*.CSR;*.CRT|Ba' +
      'se64-encoded X.509 certificate (*.pem)|*.PEM|PKCS#12 certificate' +
      ' (*.pfx, *.p12)|*.PFX; *.P12|All files (*.*)|*.*'
    InitialDir = '.'
    Left = 304
    Top = 296
  end
  object Document: TElPDFDocument
    Left = 208
    Top = 192
  end
  object PasswordHandler: TElPDFPasswordSecurityHandler
    Left = 240
    Top = 192
  end
  object PublicKeyHandler: TElPDFPublicKeySecurityHandler
    Left = 272
    Top = 192
  end
  object Cert: TElX509Certificate
    Left = 304
    Top = 192
  end
end