frmmain.dfm

著名的SecureBlackBox控件完整源码

object MainForm: TMainForm
  Left = 183
  Top = 120
  BorderStyle = bsSingle
  Caption = 'Eldos X.509 Certificate Demo'
  ClientHeight = 526
  ClientWidth = 754
  Color = clBtnFace
  Constraints.MinHeight = 560
  Constraints.MinWidth = 762
  Font.Charset = RUSSIAN_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object splTree: TSplitter
    Left = 317
    Top = 0
    Width = 3
    Height = 505
    Cursor = crHSplit
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 505
    Width = 754
    Height = 21
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object treeCert: TTreeView
    Left = 0
    Top = 0
    Width = 317
    Height = 505
    Align = alLeft
    Images = ilTree
    Indent = 19
    PopupMenu = pmiMain
    ReadOnly = True
    TabOrder = 0
    OnChange = treeCertChange
    OnDeletion = treeCertDeletion
    Items.Data = {
      010000002B0000000000000001000000FFFFFFFFFFFFFFFF0000000003000000
      1243657274696669636174652073746F726573260000000000000001000000FF
      FFFFFFFFFFFFFF00000000000000000D53797374656D2073746F726573240000
      000000000001000000FFFFFFFFFFFFFFFF00000000000000000B46696C652073
      746F726573260000000000000001000000FFFFFFFFFFFFFFFF00000000000000
      000D4D656D6F72792073746F726573}
  end
  object pcInfo: TPageControl
    Left = 320
    Top = 0
    Width = 434
    Height = 505
    ActivePage = tsCertificate
    Align = alClient
    Style = tsButtons
    TabOrder = 2
    object tsNoInfo: TTabSheet
      Caption = 'tsNoInfo'
      ImageIndex = 1
    end
    object tsCertificate: TTabSheet
      Caption = 'tsCertificate'
      ImageIndex = 2
      object imgCertificate: TImage
        Left = 10
        Top = 8
        Width = 32
        Height = 24
        AutoSize = True
        Picture.Data = {
          07544269746D617036090000424D360900000000000036000000280000002000
          000018000000010018000000000000090000120B0000120B0000000000000000
          0000FFFFFF000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000008000008000008000008000008000008000008000008000008000008000
          0080000080000080000080000080000080000080000080000080000080000080
          0000800000800000800000800000800000800000800000800000800000800000
          0000008000808080C0C0C0FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0C0FFFFFF
          808080C0C0C0C0C0C0C0C0C0C0C0C0FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0
          C0FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0C0FFFFFF00800000800000800000
          0000008000C0C0C0FFFFFFC0C0C0FFFFFF008000008000008000FFFFFFC0C0C0
          FFFFFF008000008000008000FFFFFFC0C0C0FFFFFF008000008000008000FFFF
          FFC0C0C0FFFFFF008000008000008000FFFFFFC0C0C0C0C0C000800000800000
          0000008000008000008000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000800000800000800000
          0000008000808080FFFFFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0FFFFFF80808000800000
          0000008000FFFFFFC0C0C0C0C0C0FFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFF
          FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFC0C0C0C0C0C0FFFFFF00800000
          0000008000C0C0C0FFFFFFC0C0C0FFFFFFFFFFFFFFFFFF800000800000800000
          8000008000008000008000008000008000008000008000008000008000008000
          00FFFFFF800000800000800000FFFFFFFFFFFFC0C0C0FFFFFFC0C0C000800000
          0000008000C0C0C0008000C0C0C0FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFF
          FF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000C0C0C0008000C0C0C0FFFFFFFFFFFFFFFFFF800000800000800000
          800000800000800000800000800000800000800000FFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000C0C0C0008000C0C0C0FFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
          FFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000808080FFFFFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF800000FFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0FFFFFF80808000800000
          0000008000FFFFFFC0C0C0C0C0C0FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFF800000FFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF800000FFFF
          FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFC0C0C0C0C0C0FFFFFF00800000
          0000008000C0C0C0FFFFFFC0C0C0FFFFFFFFFFFFC0C0C0008080008080C0C0C0
          FFFFFF800000FFFFFFFFFFFF800000800000FFFFFFFFFFFF800000FFFFFF8000
          00FFFFFF800000FFFFFF800000800000FFFFFFC0C0C0FFFFFFC0C0C000800000
          0000008000C0C0C0008000C0C0C0FFFFFFC0C0C0008080808080008080008080
          C0C0C0FFFFFF800000800000800000FFFFFF800000800000FFFFFF800000FFFF
          FF00FFFF800000800000800000FFFFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000C0C0C0008000C0C0C0FFFFFF008080808080008080808080008080
          008080FFFFFF800000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8000
          00800000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000C0C0C0008000C0C0C000FFFF808080008080808080008080808080
          008080FFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFF800000FFFF
          FF800000800000FFFFFF00FFFFFFFFFFFFFFFFC0C0C0008000C0C0C000800000
          0000008000808080FFFFFFC0C0C0FFFFFFC0C0C0808080008080808080008080
          C0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0FFFFFF80808000800000
          0000008000FFFFFFC0C0C0C0C0C0FFFFFFFFFFFFC0C0C0808080008080C0C0C0
          FFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFF
          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFC0C0C0C0C0C0FFFFFF00800000
          0000008000C0C0C0FFFFFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC0C0C0FFFFFFC0C0C000800000
          0000008000808080008000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000800080808000800000
          0000008000008000C0C0C0FFFFFFC0C0C0FFFFFF008000008000008000FFFFFF
          C0C0C0FFFFFF008000008000008000FFFFFFC0C0C0FFFFFF0080000080000080
          00FFFFFFC0C0C0FFFFFF008000008000008000FFFFFFFFFFFFC0C0C000800000
          0000008000008000808080C0C0C0FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0C0
          FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0C0FFFFFF808080C0C0C0C0C0C0C0C0
          C0C0C0C0FFFFFF808080C0C0C0C0C0C0C0C0C0C0C0C080808000800000800000
          0000008000008000008000008000008000008000008000008000008000008000
          0080000080000080000080000080000080000080000080000080000080000080
          00008000008000008000008000008000008000008000008000008000008000FF
          FFFF}
      end
      object lblIssuedByLabel: TLabel
        Left = 59
        Top = 2
        Width = 61
        Height = 13
        Caption = 'Issued by :'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lnlIssuedToLabel: TLabel
        Left = 60
        Top = 30
        Width = 62
        Height = 13
        Caption = 'Issued to : '
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblIssuedBy: TLabel
        Left = 128
        Top = 3
        Width = 294
        Height = 24
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'lblIssuedBy'
        WordWrap = True
      end
      object lblIssuedTo: TLabel
        Left = 128
        Top = 30
        Width = 294
        Height = 28
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'lblIssuedTo'
        WordWrap = True
      end
      object lblValidFromLabel: TLabel
        Left = 61
        Top = 60
        Width = 57
        Height = 13
        Caption = 'Valid from'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblValidFrom: TLabel
        Left = 124
        Top = 60
        Width = 56
        Height = 13
        Caption = '01.01.1999'
        WordWrap = True
      end
      object lblValidToLabel: TLabel
        Left = 189
        Top = 60
        Width = 12
        Height = 13
        Caption = 'to'
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblValidTo: TLabel
        Left = 209
        Top = 60
        Width = 56
        Height = 13
        Caption = '01.01.2000'
        WordWrap = True
      end
      object bvlCertInfoSeparator: TBevel