unit1.dfm

著名的SecureBlackBox控件完整源码

object frmMainForm: TfrmMainForm
  Left = 269
  Top = 201
  BorderStyle = bsDialog
  Caption = 'Password-based decryption demo'
  ClientHeight = 195
  ClientWidth = 441
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lbInputFileName: TLabel
    Left = 8
    Top = 8
    Width = 107
    Height = 13
    Caption = 'Input file (encrypted):'
  end
  object lbOutputFileName: TLabel
    Left = 8
    Top = 56
    Width = 81
    Height = 13
    Caption = 'Output filename:'
  end
  object Bevel1: TBevel
    Left = 8
    Top = 144
    Width = 425
    Height = 10
    Shape = bsBottomLine
  end
  object lbPassphrase: TLabel
    Left = 8
    Top = 104
    Width = 141
    Height = 13
    Caption = 'Please enter the passphrase:'
  end
  object editInputFile: TEdit
    Left = 8
    Top = 24
    Width = 345
    Height = 21
    TabOrder = 0
  end
  object editOutputFile: TEdit
    Left = 8
    Top = 72
    Width = 345
    Height = 21
    TabOrder = 2
  end
  object btnBrowseInputFile: TButton
    Left = 359
    Top = 22
    Width = 75
    Height = 25
    Caption = 'Browse ...'
    TabOrder = 1
    OnClick = btnBrowseInputFileClick
  end
  object btnBrowseOutputFile: TButton
    Left = 360
    Top = 70
    Width = 75
    Height = 25
    Caption = 'Browse ...'
    TabOrder = 3
    OnClick = btnBrowseOutputFileClick
  end
  object btnDecrypt: TButton
    Left = 256
    Top = 160
    Width = 99
    Height = 25
    Caption = 'Decrypt'
    TabOrder = 5
    OnClick = btnDecryptClick
  end
  object btnClose: TButton
    Left = 360
    Top = 160
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 6
    OnClick = btnCloseClick
  end
  object editPassphrase: TEdit
    Left = 8
    Top = 120
    Width = 345
    Height = 21
    PasswordChar = '*'
    TabOrder = 4
  end
  object dlgOpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 48
    Top = 160
  end
  object dlgSaveDialog: TSaveDialog
    Left = 80
    Top = 160
  end
  object pgpReader: TElPGPReader
    Left = 112
    Top = 160
  end
end