mainform.dfm

著名的SecureBlackBox控件完整源码

object frmForm: TfrmForm
  Left = 540
  Top = 234
  BorderStyle = bsDialog
  Caption = 'PGPFiles demo application'
  ClientHeight = 317
  ClientWidth = 467
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pHints: TPanel
    Left = 0
    Top = 0
    Width = 465
    Height = 49
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 0
    object lbStage: TLabel
      Left = 16
      Top = 8
      Width = 67
      Height = 13
      Caption = 'Stage 1 of 5'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbStageComment: TLabel
      Left = 16
      Top = 24
      Width = 123
      Height = 13
      Caption = 'Choose desired operation'
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 48
    Width = 465
    Height = 229
    ActivePage = tsFinish
    TabOrder = 1
    object tsFileSelect: TTabSheet
      Caption = 'tsFileSelect'
      TabVisible = False
      object lbPrompt: TLabel
        Left = 32
        Top = 32
        Width = 137
        Height = 13
        Caption = 'Please select the source file:'
      end
      object lbFileSelectComment: TLabel
        Left = 32
        Top = 96
        Width = 401
        Height = 73
        AutoSize = False
        Caption = 'Comment'
      end
      object edFile: TEdit
        Left = 32
        Top = 48
        Width = 321
        Height = 21
        TabOrder = 0
      end
      object btnBrowseFile: TButton
        Left = 356
        Top = 46
        Width = 75
        Height = 25
        Caption = 'Browse...'
        TabOrder = 1
        OnClick = btnBrowseFileClick
      end
    end
    object tsProgress: TTabSheet
      Caption = 'tsProgress'
      ImageIndex = 1
      TabVisible = False
      object lbProcessingFile: TLabel
        Left = 72
        Top = 64
        Width = 77
        Height = 13
        Caption = 'Processing a file'
      end
      object pbProgress: TProgressBar
        Left = 72
        Top = 80
        Width = 313
        Height = 25
        Min = 0
        Max = 100
        TabOrder = 0
      end
    end
    object tsEncOps: TTabSheet
      Caption = 'tsEncOps'
      ImageIndex = 2
      TabVisible = False
      object lbEncryptionAlg: TLabel
        Left = 64
        Top = 32
        Width = 102
        Height = 13
        Caption = 'Encryption algorithm:'
      end
      object lbProtLevel: TLabel
        Left = 208
        Top = 32
        Width = 74
        Height = 13
        Caption = 'Protection level'
      end
      object cbEncryptionAlg: TComboBox
        Left = 64
        Top = 48
        Width = 105
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          'CAST5'
          '3DES'
          'AES128'
          'AES256')
      end
      object cbProtLevel: TComboBox
        Left = 208
        Top = 48
        Width = 89
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 1
        Items.Strings = (
          'Low'
          'Normal'
          'High')
      end
      object cbUseConvEnc: TCheckBox
        Left = 64
        Top = 80
        Width = 233
        Height = 17
        Caption = 'Use conventional (passphrase) encryption'
        TabOrder = 2
      end
      object cbCompress: TCheckBox
        Left = 64
        Top = 104
        Width = 249
        Height = 17
        Caption = 'Compress data before encryption'
        TabOrder = 3
      end
      object cbSign: TCheckBox
        Left = 40
        Top = 128
        Width = 97
        Height = 17
        Caption = 'Sign source'
        TabOrder = 4
        OnClick = cbSignClick
      end
      object cbTextInput: TCheckBox
        Left = 64
        Top = 152
        Width = 169
        Height = 17
        Caption = 'Treat input as text'
        TabOrder = 5
      end
      object cbUseNewFeatures: TCheckBox
        Left = 40
        Top = 184
        Width = 97
        Height = 17
        Caption = 'Use new features'
        TabOrder = 6
      end
      object cbEncrypt: TCheckBox
        Left = 40
        Top = 10
        Width = 161
        Height = 17
        Caption = 'Encrypt source'
        TabOrder = 7
        OnClick = cbEncryptClick
      end
    end
    object tsFinish: TTabSheet
      Caption = 'tsFinish'
      ImageIndex = 3
      TabVisible = False
      object lbFinished: TLabel
        Left = 16
        Top = 80
        Width = 425
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Operation successfully finished'
      end
      object lbErrorComment: TLabel
        Left = 16
        Top = 96
        Width = 433
        Height = 65
        Alignment = taCenter
        AutoSize = False
      end
      object btnSignatures: TButton
        Left = 344
        Top = 184
        Width = 105
        Height = 25
        Caption = 'Signatures...'
        TabOrder = 0
        OnClick = btnSignaturesClick
      end
    end
    object tsKeyringSelect: TTabSheet
      Caption = 'tsKeyringSelect'
      ImageIndex = 4
      TabVisible = False
      object lbPubKeyring: TLabel
        Left = 40
        Top = 32
        Width = 86
        Height = 13
        Caption = 'Public keyring file:'
      end
      object lbSecKeyring: TLabel
        Left = 40
        Top = 88
        Width = 90
        Height = 13
        Caption = 'Secret keyring file:'
      end
      object edPubKeyring: TEdit
        Left = 40
        Top = 48
        Width = 305
        Height = 21
        TabOrder = 0
      end
      object btnBrowsePub: TButton
        Left = 348
        Top = 46
        Width = 75
        Height = 25
        Caption = 'Browse...'
        TabOrder = 1
        OnClick = btnBrowsePubClick
      end
      object edSecKeyring: TEdit
        Left = 40
        Top = 104
        Width = 305
        Height = 21
        TabOrder = 2
      end
      object btnBrowseSec: TButton
        Left = 348
        Top = 102
        Width = 75
        Height = 25
        Caption = 'Browse...'
        TabOrder = 3
        OnClick = btnBrowseSecClick
      end
    end
    object tsUserSelect: TTabSheet
      Caption = 'tsUserSelect'
      ImageIndex = 5
      TabVisible = False
      object lbPassphrase: TLabel
        Left = 8
        Top = 136