⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fmain.dfm

📁 siMail, siMail, siMail, siMail
💻 DFM
📖 第 1 页 / 共 3 页
字号:
      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 + -