📄 main.dfm
字号:
object MainForm: TMainForm
Left = 261
Top = 62
BorderStyle = bsDialog
Caption = 'SMIME Message'
ClientHeight = 435
ClientWidth = 539
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 9
Top = 140
Width = 47
Height = 13
Caption = 'Plain Text'
end
object Label4: TLabel
Left = 276
Top = 140
Width = 56
Height = 13
Caption = 'Plain HTML'
end
object Label5: TLabel
Left = 11
Top = 273
Width = 59
Height = 13
Caption = 'Attachments'
end
object Label7: TLabel
Left = 11
Top = 66
Width = 23
Height = 13
Caption = 'From'
end
object Label8: TLabel
Left = 10
Top = 88
Width = 32
Height = 13
Caption = 'To List'
end
object Label9: TLabel
Left = 10
Top = 112
Width = 36
Height = 13
Caption = 'Subject'
end
object Label1: TLabel
Left = 16
Top = 8
Width = 417
Height = 13
Caption =
'This demo creates and signs / encodes the mail message and store' +
's it to file on the disk.'
end
object Label2: TLabel
Left = 16
Top = 24
Width = 500
Height = 26
AutoSize = False
Caption =
'If you have a mail message, already stored on the disk, you can' +
' load it and decrypt / verify the message digital signature. ' +
'Please see Readme.txt for more details.'
WordWrap = True
end
object memText: TMemo
Left = 8
Top = 156
Width = 254
Height = 110
Lines.Strings = (
'This is SMIME test message built using Clever Message Parser')
ScrollBars = ssBoth
TabOrder = 3
WordWrap = False
end
object memHtml: TMemo
Left = 275
Top = 156
Width = 254
Height = 110
Lines.Strings = (
'<html>'
'<body>'
'<p>This is SMIME test message built using Clever Message Parser<' +
'/p>'
'</body>'
'</html>')
ScrollBars = ssBoth
TabOrder = 4
WordWrap = False
end
object lbAttachments: TListBox
Left = 9
Top = 291
Width = 379
Height = 55
ItemHeight = 13
TabOrder = 5
end
object btnAdd: TButton
Left = 396
Top = 293
Width = 75
Height = 25
Caption = 'Add...'
TabOrder = 6
OnClick = btnAddClick
end
object btnClear: TButton
Left = 396
Top = 321
Width = 75
Height = 25
Caption = 'Clear'
TabOrder = 7
OnClick = btnClearClick
end
object btnEncrypt: TButton
Left = 199
Top = 368
Width = 75
Height = 25
Caption = 'Encrypt...'
TabOrder = 10
OnClick = btnEncryptClick
end
object btnSign: TButton
Left = 115
Top = 368
Width = 75
Height = 25
Caption = 'Sign...'
TabOrder = 9
OnClick = btnSignClick
end
object edtFrom: TEdit
Left = 50
Top = 60
Width = 479
Height = 21
TabOrder = 0
Text = 'test@myhost.com'
end
object edtToList: TEdit
Left = 50
Top = 84
Width = 480
Height = 21
TabOrder = 1
Text = 'john@nexthost.com,doe@thirdhost.com'
end
object edtSubject: TEdit
Left = 50
Top = 108
Width = 480
Height = 21
TabOrder = 2
Text = 'Clever SMime Message Test'
end
object btnSignEncrypt: TButton
Left = 282
Top = 368
Width = 106
Height = 25
Caption = 'Sign/Encrypt...'
TabOrder = 11
OnClick = btnSignEncryptClick
end
object btnVerify: TButton
Left = 115
Top = 400
Width = 75
Height = 25
Caption = 'Verify...'
TabOrder = 12
OnClick = btnVerifyClick
end
object btnVerifyDecrypt: TButton
Left = 283
Top = 400
Width = 105
Height = 25
Caption = 'Verify/Decrypt...'
TabOrder = 14
OnClick = btnVerifyDecryptClick
end
object btnDecrypt: TButton
Left = 199
Top = 400
Width = 75
Height = 25
Caption = 'Decrypt...'
TabOrder = 13
OnClick = btnDecryptClick
end
object btnNewMessage: TButton
Left = 8
Top = 368
Width = 100
Height = 25
Caption = 'New Message'
TabOrder = 8
OnClick = btnNewMessageClick
end
object cbDetachedSignature: TCheckBox
Left = 408
Top = 372
Width = 125
Height = 17
Caption = 'Detached Signature'
Checked = True
State = cbChecked
TabOrder = 15
OnClick = cbDetachedSignatureClick
end
object cbIncludeCertificate: TCheckBox
Left = 408
Top = 404
Width = 127
Height = 17
Caption = 'Include Certificate'
Checked = True
State = cbChecked
TabOrder = 16
OnClick = cbDetachedSignatureClick
end
object btnViewCertificates: TButton
Left = 8
Top = 400
Width = 100
Height = 25
Caption = 'View Certificates'
TabOrder = 17
OnClick = btnViewCertificatesClick
end
object OpenDialog: TOpenDialog
DefaultExt = '.eml'
Filter = 'Emails (*.eml)|*.eml|All (*.*)|*.*'
FilterIndex = 0
Options = [ofFileMustExist, ofEnableSizing]
Left = 134
Top = 302
end
object clSMimeMessage: TclSMimeMessage
Date = 38123.495004074100000000
CharSet = 'iso-8859-1'
ContentType = 'text/plain'
MimeOLE = 'Produced By Clever Internet Suite MimeOLE v 6.0'
OnGetDataStream = clSMimeMessageGetBodyStream
OnGetCertificate = clSMimeMessageGetCertificate
Left = 76
Top = 184
end
object SaveDialog: TSaveDialog
DefaultExt = '.eml'
Filter = 'Emails (*.eml)|*.eml|All (*.*)|*.*'
FilterIndex = 0
Left = 222
Top = 302
end
object OpenAttach: TOpenDialog
Options = [ofFileMustExist, ofEnableSizing]
Left = 486
Top = 290
end
object clCertificateStore: TclCertificateStore
Left = 112
Top = 184
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -