selwincertform.dfm

来自「著名的SecureBlackBox控件完整源码」· DFM 代码 · 共 121 行

object frmSelWinCert: TfrmSelWinCert
  Left = 0
  Top = 0
  Width = 522
  Height = 460
  Caption = 'Select Certificate'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 196
    Height = 13
    Caption = 'Certificates from "MY" Windows Storage:'
  end
  object lvCerificates: TListView
    Left = 8
    Top = 32
    Width = 498
    Height = 260
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Caption = 'Certificate ID'
        Width = 125
      end
      item
        Caption = 'Issued To'
        Width = 102
      end
      item
        Caption = 'Issued By'
        Width = 99
      end
      item
        Caption = 'Valid From'
        Width = 68
      end
      item
        Caption = 'Valid To'
        Width = 64
      end
      item
        Caption = 'Private Key'
        Width = 26
      end>
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = lvCerificatesChange
  end
  object btnOK: TButton
    Left = 341
    Top = 393
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 1
  end
  object btnCancel: TButton
    Left = 431
    Top = 393
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 8
    Top = 298
    Width = 501
    Height = 89
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object lbPrivateKey: TLabel
      Left = 16
      Top = 16
      Width = 90
      Height = 13
      Caption = 'Private Key Exists:'
    end
    object dlbPrivateKey: TLabel
      Left = 120
      Top = 16
      Width = 3
      Height = 13
    end
    object lbUsage: TLabel
      Left = 16
      Top = 48
      Width = 87
      Height = 13
      Caption = 'Certificate Usage:'
    end
    object dlbUsage: TLabel
      Left = 120
      Top = 48
      Width = 369
      Height = 33
      AutoSize = False
      WordWrap = True
    end
  end
end