main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 247
  Top = 114
  Width = 598
  Height = 381
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 106
    Height = 13
    Caption = 'System Store Location'
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 93
    Height = 13
    Caption = 'System Store Name'
  end
  object Label3: TLabel
    Left = 16
    Top = 64
    Width = 52
    Height = 13
    Caption = 'Certificates'
  end
  object cbLocation: TComboBox
    Left = 136
    Top = 8
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 0
    Text = 'Current User'
    Items.Strings = (
      'Current User'
      'Local Machine')
  end
  object cbName: TComboBox
    Left = 136
    Top = 40
    Width = 145
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 1
    Text = 'MY'
    Items.Strings = (
      'MY'
      'CA'
      'ROOT'
      'ADDRESSBOOK')
  end
  object btnLoad: TButton
    Left = 480
    Top = 8
    Width = 97
    Height = 25
    Caption = 'Load Store'
    TabOrder = 2
    OnClick = btnLoadClick
  end
  object btnExport: TButton
    Left = 480
    Top = 88
    Width = 97
    Height = 25
    Caption = 'Export to PFX...'
    TabOrder = 3
    OnClick = btnExportClick
  end
  object btnImport: TButton
    Left = 480
    Top = 120
    Width = 97
    Height = 25
    Caption = 'Import from PFX...'
    TabOrder = 4
    OnClick = btnImportClick
  end
  object btnDelete: TButton
    Left = 480
    Top = 272
    Width = 97
    Height = 25
    Caption = 'Delete'
    TabOrder = 5
    OnClick = btnDeleteClick
  end
  object btnCreateSelfSigned: TButton
    Left = 480
    Top = 304
    Width = 97
    Height = 25
    Caption = 'Create Self-Signed'
    TabOrder = 6
    OnClick = btnCreateSelfSignedClick
  end
  object btnClose: TButton
    Left = 480
    Top = 40
    Width = 97
    Height = 25
    Caption = 'Close Store'
    TabOrder = 7
    OnClick = btnCloseClick
  end
  object lvCertificates: TListView
    Left = 16
    Top = 88
    Width = 449
    Height = 241
    Columns = <
      item
        Caption = 'Issued To'
        Width = 100
      end
      item
        Caption = 'Issued By'
        Width = 100
      end
      item
        Caption = 'Expiration Date'
      end
      item
        Caption = 'Friendly Name'
        Width = 100
      end
      item
        Caption = 'Email'
        Width = 100
      end>
    ReadOnly = True
    RowSelect = True
    TabOrder = 8
    ViewStyle = vsReport
  end
  object clCertificateStore1: TclCertificateStore
    Left = 312
    Top = 32
  end
end