📄 fmain.dfm
字号:
0003C0000003E0000007F800001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
IconVisible = True
IconIndex = 0
PopupMenu = popTray
MinimizeToTray = True
OnDblClick = trayDblClick
Left = 584
Top = 80
end
object ActionList: TActionList
Left = 584
Top = 144
object actDelete: TAction
Caption = 'Delete'
Enabled = False
OnExecute = actDeleteExecute
OnUpdate = actDeleteUpdate
end
object actTrayShow: TAction
Category = 'Tray'
Caption = 'Show'
OnExecute = actTrayShowExecute
OnUpdate = actTrayShowUpdate
end
object actTrayCompose: TAction
Category = 'Tray'
Caption = 'Compose new message'
OnExecute = actTrayComposeExecute
OnUpdate = actTrayComposeUpdate
end
object actTraySend: TAction
Category = 'Tray'
Caption = 'Send unsent messages'
end
object actTrayExit: TAction
Category = 'Tray'
Caption = 'Exit'
OnExecute = actTrayExitExecute
end
object actFileImport: TAction
Category = 'File'
Caption = 'Import ...'
OnExecute = actFileImportExecute
end
object actFileExport: TAction
Category = 'File'
Caption = 'Export ...'
OnExecute = actFileExportExecute
end
object actFileExportMbox: TAction
Category = 'File'
Caption = 'To mbox ....'
end
object actFileBackupBackup: TAction
Category = 'File'
Caption = 'Backup ...'
end
object actFileBackupRestore: TAction
Category = 'File'
Caption = 'Restore ...'
end
object actFileOnline: TAction
Category = 'File'
Caption = 'Work offline'
ShortCut = 16463
OnExecute = actFileOnlineExecute
end
object actFileExit: TAction
Category = 'File'
Caption = 'Exit'
OnExecute = actFileExitExecute
end
object actViewToolbar: TAction
Category = 'View'
AutoCheck = True
Caption = 'Toolbar'
OnExecute = actViewToolbarExecute
end
object actViewStatusbar: TAction
Category = 'View'
AutoCheck = True
Caption = 'Statusbar'
OnExecute = actViewStatusbarExecute
end
object actViewAddressBook: TAction
Category = 'View'
Caption = 'Address book panel'
OnExecute = actViewAddressBookExecute
OnUpdate = actViewAddressBookUpdate
end
object actViewMailView: TAction
Category = 'View'
Caption = 'Message view panel'
OnExecute = actViewMailViewExecute
OnUpdate = actViewMailViewUpdate
end
object actToolsAddressBook: TAction
Category = 'Tools'
Caption = 'Address book ...'
ShortCut = 16450
OnExecute = actToolsAddressBookExecute
end
object actToolsSignatures: TAction
Category = 'Tools'
Caption = 'Manage signatures ...'
OnExecute = actToolsSignaturesExecute
end
object actToolsOptions: TAction
Category = 'Tools'
Caption = 'Options ...'
OnExecute = actToolsOptionsExecute
end
object actToolsCustomize: TAction
Category = 'Tools'
Caption = 'Customize ...'
OnExecute = actToolsCustomizeExecute
end
object actHelpIndex: TAction
Category = 'Help'
Caption = 'Index'
end
object actHelpCheckNewer: TAction
Category = 'Help'
Caption = 'Check for newer version'
OnExecute = actHelpCheckNewerExecute
end
object actHelpHome: TAction
Category = 'Help'
Caption = 'si.Mail homepage ...'
OnExecute = actHelpHomeExecute
end
object actHelpAbout: TAction
Category = 'Help'
Caption = 'About ...'
OnExecute = actHelpAboutExecute
end
object actViewLargeHdrs: TAction
Category = 'View'
Caption = 'Large message headers'
OnExecute = actViewLargeHdrsExecute
OnUpdate = actViewLargeHdrsUpdate
end
object actToolsTranslationFlagAsText: TAction
Category = 'Tools'
Caption = 'Flag as text ...'
OnExecute = actToolsTranslationFlagAsTextExecute
end
object actToolsTranslationSystemLocale: TAction
Category = 'Tools'
Caption = 'System locale'
OnExecute = actToolsTranslationSystemLocaleExecute
end
object actHelpHOWTOTranslate: TAction
Category = 'Help'
Caption = 'How to translate ...'
OnExecute = actHelpHOWTOTranslateExecute
end
object actFocusMailboxes: TAction
Category = 'View'
Caption = 'Focus mailboxes pane'
ShortCut = 116
OnExecute = actFocusMailboxesExecute
end
object actFocusAddrBk: TAction
Category = 'View'
Caption = 'Focus address book pane'
ShortCut = 117
OnExecute = actFocusAddrBkExecute
end
object actFocusMessageList: TAction
Category = 'View'
Caption = 'Focus message list pane'
ShortCut = 118
OnExecute = actFocusMessageListExecute
end
object actFocusMessageView: TAction
Category = 'View'
Caption = 'Focus message view pane'
ShortCut = 119
OnExecute = actFocusMessageViewExecute
end
object actSaveLog: TAction
Caption = 'Save log'
ShortCut = 32776
OnExecute = actSaveLogExecute
end
object actCustomize: TAction
Caption = 'Customize ...'
OnExecute = actCustomizeExecute
end
end
object alToolbar: TActionList
Images = dmImages.ilMainToolbar
Left = 616
Top = 144
object actTBMessageNew: TAction
Category = 'Toolbar'
Caption = '&New ...'
Hint = 'Compose new message'
ImageIndex = 0
OnExecute = actTBMessageNewExecute
OnUpdate = actTBMessageNewUpdate
end
object actTBMessageReply: TAction
Category = 'Toolbar'
Caption = '&Reply ...'
Hint = 'Reply'
ImageIndex = 1
OnExecute = actTBMessageReplyExecute
OnUpdate = actTBMessageReplyUpdate
end
object actTBMessageReplyAll: TAction
Category = 'Toolbar'
Caption = 'Reply to &all ...'
Hint = 'Reply to all'
ImageIndex = 3
OnExecute = actTBMessageReplyAllExecute
OnUpdate = actTBMessageReplyAllUpdate
end
object actTBMessageForward: TAction
Category = 'Toolbar'
Caption = '&Forward ...'
Hint = 'Forward message'
ImageIndex = 2
OnExecute = actTBMessageForwardExecute
OnUpdate = actTBMessageForwardUpdate
end
object actTBMessagePrint: TAction
Category = 'Toolbar'
Caption = '&Print'
Hint = 'Print message'
ImageIndex = 4
OnExecute = actTBMessagePrintExecute
OnUpdate = actTBMessagePrintUpdate
end
object actTBMessageFind: TAction
Category = 'Toolbar'
Caption = '&Find ...'
Hint = 'Find messages'
ImageIndex = 5
end
object actTBFetch: TAction
Category = 'Toolbar'
Caption = '&Fetch'
Hint = 'Check for new messages'
ImageIndex = 6
OnExecute = actTBFetchExecute
OnUpdate = actTBFetchUpdate
end
object actTBSend: TAction
Category = 'Toolbar'
Caption = '&Send'
Hint = 'Send unsent messages'
ImageIndex = 7
OnExecute = actTBSendExecute
OnUpdate = actTBSendUpdate
end
object actTBFetchNSend: TAction
Category = 'Toolbar'
Caption = 'Fe&tch '#39'N Send'
Hint = 'Check and send'
ImageIndex = 8
OnExecute = actTBFetchNSendExecute
OnUpdate = actTBFetchNSendUpdate
end
object actTBAddrBook: TAction
Category = 'Toolbar'
Caption = 'Addre&sses'
Hint = 'Show address book'
ImageIndex = 9
OnExecute = actTBAddrBookExecute
end
object actTBOptions: TAction
Category = 'Toolbar'
Caption = '&Options'
Hint = 'Options'
ImageIndex = 10
OnExecute = actToolsOptionsExecute
end
object actTBCustomize: TAction
Category = 'Toolbar'
Caption = 'Customi&ze'
Hint = 'Customize'
ImageIndex = 13
OnExecute = actTBCustomizeExecute
end
object actTBMaximize: TAction
Category = 'Toolbar'
Caption = '&Full'
Hint = 'Maximize message panel'
ImageIndex = 14
OnExecute = actTBMaximizeExecute
end
object actTBOnline: TAction
Category = 'Toolbar'
Caption = '&Online'
Hint = 'Go offline'
ImageIndex = 11
OnExecute = actTBOnlineExecute
end
object actTBExit: TAction
Category = 'Toolbar'
Caption = 'E&xit'
Hint = 'Close application'
ImageIndex = 15
OnExecute = actTBExitExecute
end
end
object XPManifest1: TXPManifest
Left = 488
Top = 144
end
object tbxThemes: TTBXSwitcher
Theme = 'Stripes'
FlatMenuStyle = fmsEnable
Left = 488
Top = 208
end
object popTray: TTBXPopupMenu
Left = 520
Top = 208
object mnuShow: TTBXItem
Action = actTrayShow
end
object N17: TTBXSeparatorItem
end
object mnuNewMessage2: TTBXItem
Action = actTrayCompose
end
object mnuCheckMail: TTBXItem
Action = frmMailbox.actAccountFetchMessagesAll
end
object mnuPreviewMail: TTBXItem
Action = frmMailbox.actAccountPreviewAll
end
object mnuSentUnsentMail: TTBXItem
Action = actTraySend
end
object N18: TTBXSeparatorItem
end
object mnuExit2: TTBXItem
Action = actTrayExit
end
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = DEFAULT_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBackground
DrawMenuBar = True
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
UseDimColor = True
OverrideOwnerDraw = False
Gradient = True
FlatMenu = True
AutoDetect = True
XPContainers = [xccForm, xccFrame, xccControlbar, xccPanel, xccScrollBox, xccGroupBox, xccTabSheet, xccPageScroller]
XPControls = [xcCombo, xcListBox, xcEdit, xcMaskEdit, xcMemo, xcRichEdit, xcMiscEdit, xcCheckBox, xcRadioButton, xcButton, xcBitBtn, xcSpeedButton, xcUpDown, xcPanel, xcGroupBox, xcTreeView, xcListView, xcProgressBar]
Active = True
Left = 552
Top = 80
end
object mGesture: TJvMouseGestureHook
Active = False
ActivationMode = JvOnAppStart
OnJvMouseGestureCustomInterpretation = mGestureJvMouseGestureCustomInterpretation
Left = 488
Top = 112
end
object logPop3: TJvLogFile
Left = 456
Top = 112
end
object popCustomize: TTBXPopupMenu
Left = 552
Top = 208
object TBXItem30: TTBXItem
Action = actCustomize
end
end
object compInfo: TJvComputerInfoEx
Metrics.DoubleClickTime = 500
Left = 616
Top = 80
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -