📄 fcompose.dfm
字号:
DownloadOptions = [DLCTL_NO_SCRIPTS, DLCTL_NO_JAVA, DLCTL_NO_RUNACTIVEXCTLS, DLCTL_NO_DLACTIVEXCTLS, DLCTL_PRAGMA_NO_CACHE, DLCTL_FORCEOFFLINE, DLCTL_SILENT, DLCTL_OFFLINE]
UserInterfaceOptions = []
PrintOptions.Margins.Left = 19.050000000000000000
PrintOptions.Margins.Right = 19.050000000000000000
PrintOptions.Margins.Top = 19.050000000000000000
PrintOptions.Margins.Bottom = 19.050000000000000000
PrintOptions.Header = '&w&bPage &p of &P'
PrintOptions.HTMLHeader.Strings = (
'<HTML></HTML>')
PrintOptions.Footer = '&u&b&d'
PrintOptions.Orientation = poPortrait
ReplaceCaption = False
EnableDDE = False
fpExceptions = True
ControlData = {
4C0000002B050000DC0400000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126201000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
object ActionList2: TActionList
Images = dmImages.ilComposeToolbar
Left = 40
Top = 232
object actTBSendNow: TAction
Category = 'Toolbar'
Caption = 'Send Now'
Hint = 'Send message right away'
ImageIndex = 0
OnExecute = actTBSendNowExecute
end
object actTBSendLater: TAction
Category = 'toolbar'
Caption = 'Send later'
Hint = 'Queue message'
ImageIndex = 1
OnExecute = actTBSendLaterExecute
end
object actTBAttach: TAction
Category = 'toolbar'
Caption = 'Attach'
Hint = 'Attach files'
ImageIndex = 3
OnExecute = actTBAttachExecute
end
object actTBSignatures: TAction
Category = 'toolbar'
Caption = 'Signatures'
Hint = 'Manage signatures'
ImageIndex = 4
OnExecute = actTBSignaturesExecute
end
object actTBReadReceipt: TAction
Category = 'Toolbar'
Caption = 'Read receipt'
Hint = 'Request read receipt'
ImageIndex = 5
OnExecute = actTBReadReceiptExecute
end
object actTBAddressBook: TAction
Category = 'toolbar'
Caption = 'Address book'
ImageIndex = 6
OnExecute = actTBAddressBookExecute
OnUpdate = actTBAddressBookUpdate
end
object actTBSpellCheck: TAction
Category = 'toolbar'
Caption = 'Spell Check'
Hint = 'Run spell checker'
ImageIndex = 7
end
object actTBEncrypt: TAction
Category = 'toolbar'
Caption = 'Encrypt'
Hint = 'Encryp or sign message'
ImageIndex = 8
end
object actTBSign: TAction
Category = 'Toolbar'
Caption = 'Sign'
ImageIndex = 9
end
object actEncryptAndSign: TAction
Category = 'Toolbar'
Caption = 'Encrypt and sign'
ImageIndex = 10
end
object actTBClose: TAction
Category = 'Toolbar'
Caption = 'Close'
ImageIndex = 11
OnExecute = actTBCloseExecute
end
end
object ActionList1: TActionList
Left = 8
Top = 232
object actFileSendNow: TAction
Category = 'File'
Caption = 'Send now'
ShortCut = 16462
OnExecute = actFileSendNowExecute
end
object actFileSendLater: TAction
Category = 'File'
Caption = 'Send later'
ShortCut = 16452
OnExecute = actFileSendLaterExecute
end
object actFileFinishLater: TAction
Category = 'File'
Caption = 'Finish later'
Enabled = False
ShortCut = 16460
OnExecute = actFileFinishLaterExecute
end
object actFileSaveToFile: TAction
Category = 'File'
Caption = 'Save to file ...'
OnExecute = actFileSaveToFileExecute
end
object actFileOpenFromFile: TAction
Category = 'File'
Caption = 'Open from file ...'
OnExecute = actFileOpenFromFileExecute
end
object actFileClose: TAction
Category = 'File'
Caption = 'Close'
OnExecute = actFileCloseExecute
end
object actEditCut: TAction
Category = 'Edit'
Caption = 'Cut'
ShortCut = 16472
OnExecute = actEditCutExecute
end
object actEditCopy: TAction
Category = 'Edit'
Caption = 'Copy'
ShortCut = 16451
OnExecute = actEditCopyExecute
end
object actEditPaste: TAction
Category = 'Edit'
Caption = 'Paste'
ShortCut = 16470
OnExecute = actEditPasteExecute
end
object actEditPasteQuoted: TAction
Category = 'Edit'
Caption = 'Paste quoted'
ShortCut = 16465
OnExecute = actEditPasteQuotedExecute
end
object actEditFind: TAction
Category = 'Edit'
Caption = 'Find ...'
ShortCut = 16454
OnExecute = actEditFindExecute
end
object actEditFindNext: TAction
Category = 'Edit'
Caption = 'Find next'
ShortCut = 114
OnExecute = actEditFindNextExecute
end
object actEditReplace: TAction
Category = 'Edit'
Caption = 'Replace ...'
ShortCut = 16466
OnExecute = actEditReplaceExecute
end
object actEditSelectAll: TAction
Category = 'Edit'
Caption = 'Select all'
ShortCut = 16449
OnExecute = actEditSelectAllExecute
end
object actViewStatusbar: TAction
Category = 'View'
AutoCheck = True
Caption = 'Statusbar'
Checked = True
OnExecute = actViewStatusbarExecute
end
object actViewToolbar: TAction
Category = 'View'
AutoCheck = True
Caption = 'Toolbar'
Checked = True
OnExecute = actViewToolbarExecute
end
object actInsertAttachment: TAction
Category = 'Insert'
Caption = 'Attachment ...'
OnExecute = actInsertAttachmentExecute
end
object actInsertTextFile: TAction
Category = 'Insert'
Caption = 'Text file ...'
OnExecute = actInsertTextFileExecute
end
object actInsertAddressBook: TAction
Category = 'Insert'
Caption = 'Address book'
end
object actInsertDate: TAction
Category = 'Insert'
Caption = 'Date'
OnExecute = actInsertDateExecute
end
object actInsertTime: TAction
Category = 'Insert'
Caption = 'Time'
OnExecute = actInsertTimeExecute
end
object actInsertDateTime: TAction
Category = 'Insert'
Caption = 'Date && time'
OnExecute = actInsertDateTimeExecute
end
object actInsertComputerInfo: TAction
Category = 'Insert'
Caption = 'Computer info'
OnExecute = actInsertComputerInfoExecute
end
object actToolsSpellcheckerSettings: TAction
Category = 'Tools'
Caption = 'Spellchecker settings ...'
end
object actToolsSpellcheck: TAction
Category = 'Tools'
Caption = 'Spell Check'
ShortCut = 16474
end
object actOptionsRewarpLines: TAction
Category = 'Options'
Caption = 'Rewarp lines'
end
object actOptionsAutoComplete: TAction
Category = 'Options'
Caption = 'Enable Auto-complete'
Checked = True
OnExecute = actOptionsAutoCompleteExecute
end
object actFormatText: TAction
Category = 'Format'
Caption = 'Text format message'
Checked = True
GroupIndex = 1
end
object actFormatHtml: TAction
Category = 'Format'
Caption = 'Html format message'
GroupIndex = 1
end
object actFormatTextAndHtml: TAction
Category = 'Format'
Caption = 'Text && html format message'
GroupIndex = 1
end
object actOptionsRequestReadRcpt: TAction
Category = 'Options'
Caption = 'Request read recipient'
OnExecute = actOptionsRequestReadRcptExecute
end
object actFilePrintPrint: TAction
Category = 'File'
Caption = 'Print ...'
ShortCut = 16464
end
object actFilePrintPreview: TAction
Category = 'File'
Caption = 'Print preview ...'
end
object actFilePrintSetup: TAction
Category = 'File'
Caption = 'Print setup ...'
end
object actAddEmailAddresses: TAction
ShortCut = 16453
OnExecute = actAddEmailAddressesExecute
end
end
object diOpen: TOpenDialog
Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
Left = 8
Top = 264
end
object ilFiles: TImageList
Left = 8
Top = 296
end
object editor: TVSTEditor
ACButtonEditor = txtMail
ComboEditor = cmboxMailType
Left = 8
Top = 328
end
object ilPriority: TImageList
Left = 40
Top = 296
end
object JvDragDrop1: TJvDragDrop
DropTarget = Owner
OnDrop = JvDragDrop1Drop
Left = 40
Top = 328
end
object diFindAndReplace: TJvFindReplace
Fast = True
Options = [frDown]
EditControl = txtMessage
Left = 8
Top = 360
end
object diOpenText: TOpenDialog
Filter = 'Text Files (*.txt)|*.txt'
Left = 40
Top = 264
end
object diSave: TSaveDialog
Left = 72
Top = 264
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -