home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 March
/
Chip_2002-03_cd1.bin
/
tema
/
thebat
/
download
/
update
/
thebat.exe
/
0
/
RCDATA
/
TMESSAGEFINDER
/
TMESSAGEFINDER.txt
Wrap
Text File
|
2001-09-09
|
56KB
|
2,188 lines
object MessageFinder: TMessageFinder
Left = 97
Top = 40
HelpContext = 11021
AutoScroll = False
Caption = 'Message Finder'
ClientHeight = 480
ClientWidth = 653
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Menu = ViewMenu
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object MsgCtl: TMessageController
Left = 360
Top = 272
Width = 40
Height = 33
MsgView = MLV
InfoOptions = [mhoFrom, mhoReply, mhoTO, mhoCC, mhoBCC, mhoSubj]
InfoGrid = gAddr
ImagePanel = ImagePanel
NoteBook = BodyNotebook
AttachList = fList
AttachImages = AttachImages
HeaderPanel = pnHeader
LbSize = hdrSize
eMsg = eMsg
Tabs = ViewTabs
ViewPanel = MsgPanel
MsgPanel = pBookA
AttachVertical = True
AttachSplit = AttSplit
AttachPanel = AttPanel
end
object Split1: TSplitter
Left = 0
Top = 233
Width = 653
Height = 4
Cursor = crVSplit
Align = alTop
end
object bStatus: TStatusBar
Left = 0
Top = 461
Width = 653
Height = 19
Panels = <
item
Style = psOwnerDraw
Text = 'Progress'
Width = 100
end
item
Width = 50
end>
SimplePanel = False
OnDrawPanel = bStatusDrawPanel
end
object pBookA: TPanel
Left = 0
Top = 0
Width = 653
Height = 233
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object pnBook: TPanel
Left = 0
Top = 0
Width = 653
Height = 233
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Book: TPageControl
Left = 0
Top = 0
Width = 570
Height = 233
HelpContext = 11021
ActivePage = tsSearch
Align = alClient
TabOrder = 0
TabStop = False
object tsSearch: TTabSheet
Caption = 'Options'
object sBox: TScrollBox
Left = 0
Top = 0
Width = 562
Height = 205
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
BorderStyle = bsNone
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 12
Width = 52
Height = 13
Caption = '&Search for:'
end
object gbScope: TGroupBox
Left = 4
Top = 32
Width = 161
Height = 161
Caption = 'Scope'
TabOrder = 1
object cbAnywhere: TCheckBox
Left = 8
Top = 16
Width = 145
Height = 17
Caption = 'Any&where'
State = cbChecked
TabOrder = 0
end
object cbSender: TCheckBox
Left = 8
Top = 36
Width = 145
Height = 17
Caption = 'Se&nder'
TabOrder = 1
end
object cbRecipient: TCheckBox
Left = 8
Top = 56
Width = 145
Height = 17
Caption = '&Recipient'
TabOrder = 2
end
object cbSubj: TCheckBox
Left = 8
Top = 76
Width = 145
Height = 17
Caption = 'Sub&ject'
TabOrder = 3
end
object cbHeaders: TCheckBox
Left = 8
Top = 96
Width = 145
Height = 17
Caption = 'Hea&ders'
TabOrder = 4
end
object cbBody: TCheckBox
Left = 8
Top = 140
Width = 145
Height = 17
Caption = '&Body'
TabOrder = 6
end
object cbMemo: TCheckBox
Left = 8
Top = 118
Width = 97
Height = 17
Caption = '&Memo'
TabOrder = 5
end
end
object gbLookIn: TGroupBox
Left = 174
Top = 32
Width = 273
Height = 161
Caption = 'Look in'
TabOrder = 2
object bBrowse: TToolbarButton97
Left = 239
Top = 36
Width = 28
Height = 28
Hint = 'Browse'
Flat = False
ParentShowHint = False
ShowHint = True
OnClick = bBrowseClick
end
object cbFolder: TRadioButton
Left = 8
Top = 20
Width = 217
Height = 17
Caption = 'F&older:'
Checked = True
TabOrder = 0
TabStop = True
OnClick = cbFolderClick
end
object eFolder: TEdit
Left = 32
Top = 40
Width = 201
Height = 21
TabOrder = 1
end
object cbSubfolders: TCheckBox
Left = 32
Top = 64
Width = 193
Height = 17
Caption = '&Include subfolders'
TabOrder = 2
end
object cbCurUser: TRadioButton
Left = 8
Top = 88
Width = 241
Height = 17
Caption = '&Current account'
TabOrder = 4
TabStop = True
OnClick = cbFolderClick
end
object cbAllUsers: TRadioButton
Left = 8
Top = 112
Width = 241
Height = 17
Caption = '&All accounts'
TabOrder = 3
TabStop = True
OnClick = cbFolderClick
end
end
object eText: TComboBox
Left = 96
Top = 8
Width = 351
Height = 21
ItemHeight = 13
TabOrder = 0
OnKeyDown = eTextKeyDown
end
end
end
object tsResult: TTabSheet
Caption = 'Results'
object hMessages: THeaderControl
Left = 0
Top = 0
Width = 562
Height = 20
Hint = 'nograb'
Sections = <>
OnMouseDown = hMessagesMouseDown
end
object MLV: TMessageListView
Left = 0
Top = 20
Width = 562
Height = 185
HelpContext = 11013
Align = alClient
ColCount = 10
DefaultRowHeight = 16
DefaultDrawing = False
FixedCols = 0
RowCount = 1
FixedRows = 0
Options = [goThumbTracking]
PopupMenu = MessagePopup
TabOrder = 1
OnDblClick = MLVDblClick
OnKeyDown = MLVKeyDown
Sorting = 0
Threading = mlvtNone
Header = hMessages
OnColumnsChange = MLVColumnsChange
OnListChange = MLVListChange
end
end
object tsOptions: TTabSheet
Caption = 'Advanced'
object advBox: TScrollBox
Left = 0
Top = 0
Width = 562
Height = 205
VertScrollBar.Tracking = True
Align = alClient
BorderStyle = bsNone
TabOrder = 0
object lKbytes1: TLabel
Left = 312
Top = 128
Width = 35
Height = 13
Caption = 'K bytes'
Enabled = False
end
object lKbytes2: TLabel
Left = 312
Top = 152
Width = 35
Height = 13
Caption = 'K bytes'
Enabled = False
end
object lBeforeDMY: TLabel
Left = 288
Top = 80
Width = 64
Height = 13
Caption = '(dd/mm/yyyy)'
Enabled = False
end
object lAfterDMY: TLabel
Left = 288
Top = 102
Width = 64
Height = 13
Caption = '(dd/mm/yyyy)'
Enabled = False
end
object cbCase: TCheckBox
Left = 224
Top = 24
Width = 289
Height = 17
Caption = '&Case sensitive search'
TabOrder = 13
end
object cbAttach: TCheckBox
Left = 8
Top = 58
Width = 209
Height = 17
Caption = 'Message &has attachments'
TabOrder = 3
end
object cbReplied: TCheckBox
Left = 8
Top = 8
Width = 209
Height = 17
Caption = 'Message is ¬ replied'
TabOrder = 0
end
object cbBefore: TCheckBox
Left = 8
Top = 84
Width = 209
Height = 17
Caption = 'Received &BEFORE'
TabOrder = 4
OnClick = cbBeforeClick
end
object cbAfter: TCheckBox
Left = 8
Top = 100
Width = 209
Height = 17
Caption = 'Received &AFTER'
TabOrder = 6
OnClick = cbAfterClick
end
object cbLarger: TCheckBox
Left = 8
Top = 132
Width = 209
Height = 17
Caption = 'Size is &LARGER than'
TabOrder = 8
OnClick = cbLargerClick
end
object cbSmaller: TCheckBox
Left = 8
Top = 148
Width = 209
Height = 17
Caption = 'Size is &SMALLER than'
TabOrder = 10
OnClick = cbSmallerClick
end
object eSmaller: TSpinEdit
Left = 224
Top = 149
Width = 83
Height = 22
Enabled = False
MaxValue = 10000000
MinValue = 0
TabOrder = 11
Value = 0
end
object eLarger: TSpinEdit
Left = 224
Top = 125
Width = 83
Height = 22
Enabled = False
MaxValue = 10000000
MinValue = 0
TabOrder = 9
Value = 0
end
object cbParked: TCheckBox
Left = 8
Top = 41
Width = 209
Height = 17
Caption = 'Message is &parked'
TabOrder = 2
end
object cbUnread: TCheckBox
Left = 8
Top = 24
Width = 209
Height = 17
Caption = 'Message is &unread'
TabOrder = 1
end
object cbWords: TCheckBox
Left = 224
Top = 40
Width = 289
Height = 17
Caption = 'Search for &whole words only'
TabOrder = 14
end
object meBefore: TMaskEdit
Left = 224
Top = 76
Width = 61
Height = 21
Enabled = False
EditMask = '00/00/0000'
MaxLength = 10
TabOrder = 5
Text = ' . . '
end
object meAfter: TMaskEdit
Left = 224
Top = 100
Width = 61
Height = 21
Enabled = False
EditMask = '00/00/0000'
MaxLength = 10
TabOrder = 7
Text = ' . . '
end
object cbRegExp: TCheckBox
Left = 224
Top = 57
Width = 289
Height = 17
Caption = '&Regular expressions'
TabOrder = 15
end
object cbFlagged: TCheckBox
Left = 224
Top = 8
Width = 289
Height = 17
Caption = 'Message is &flagged'
TabOrder = 12
end
object cbIsColor: TCheckBox
Left = 8
Top = 184
Width = 217
Height = 17
Caption = 'Message colour is'
TabOrder = 16
OnClick = cbIsColorClick
end
object cbColor: TComboBox
Left = 224
Top = 182
Width = 161
Height = 21
Style = csDropDownList
Enabled = False
ItemHeight = 0
TabOrder = 17
end
end
end
end
object ButtonsPanel: TPanel
Left = 570
Top = 0
Width = 83
Height = 233
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object bStart: TButton
Left = 4
Top = 20
Width = 75
Height = 25
Caption = 'Start'
Default = True
TabOrder = 0
OnClick = bStartClick
end
object bStop: TButton
Left = 4
Top = 52
Width = 75
Height = 25
Cancel = True
Caption = 'S&top'
Enabled = False
TabOrder = 1
OnClick = bStopClick
end
object bClose: TButton
Left = 4
Top = 116
Width = 75
Height = 25
Cancel = True
Caption = 'Close'
TabOrder = 2
OnClick = bCloseClick
end
object bHelp: TButton
Left = 4
Top = 84
Width = 75
Height = 25
Caption = '&Help'
TabOrder = 3
OnClick = bHelpClick
end
object bFollow: TButton
Left = 4
Top = 148
Width = 75
Height = 25
Cancel = True
Caption = '&Follow'
Enabled = False
TabOrder = 4
OnClick = bFollowClick
end
end
end
end
object MsgPanel: TPanel
Left = 0
Top = 237
Width = 653
Height = 224
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object AttSplit: TSplitter
Left = 78
Top = 0
Width = 4
Height = 224
Cursor = crHSplit
Beveled = False
end
object AttPanel: TPanel
Left = 0
Top = 0
Width = 78
Height = 224
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object fList: TListView
Left = 0
Top = 0
Width = 78
Height = 224
HelpContext = 10041
Align = alClient
OnDblClick = fListDblClick
Columns = <>
ReadOnly = True
PopupMenu = AttachPopup
TabOrder = 0
LargeImages = AttachImages
end
end
object BodyPanel: TPanel
Left = 82
Top = 0
Width = 571
Height = 224
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object pnMsg: TPanel
Left = 0
Top = 0
Width = 571
Height = 224
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object ViewTabs: TTabSet
Left = 0
Top = 203
Width = 571
Height = 21
HelpContext = 11015
Align = alBottom
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
Visible = False
OnChange = ViewTabsChange
end
object BodyNotebook: TNotebook
Left = 0
Top = 0
Width = 571
Height = 203
Align = alClient
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'Default'
object pnHeader: TPanel
Left = 0
Top = 0
Width = 571
Height = 48
HelpContext = 10044
Align = alTop
BorderWidth = 1
BorderStyle = bsSingle
TabOrder = 1
Visible = False
OnResize = pnHeaderResize
object hdrSize: TMemo
Left = 505
Top = 2
Width = 60
Height = 40
TabStop = False
Align = alRight
Alignment = taRightJustify
BorderStyle = bsNone
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 0
WordWrap = False
end
object gAddr: TAddressGrid
Left = 2
Top = 2
Width = 503
Height = 40
TabStop = False
Align = alClient
BorderStyle = bsNone
Color = clBtnFace
ColCount = 2
DefaultRowHeight = 13
RowCount = 7
FixedRows = 0
Options = [goEditing, goAlwaysShowEditor]
ScrollBars = ssNone
TabOrder = 1
SimpleLook = True
ColWidths = (
75
428)
end
end
object eMsg: TTextEditor
Left = 0
Top = 48
Width = 571
Height = 155
HelpContext = 10027
BgColor = clWhite
TextColor = clBlack
SelColor = clWhite
SelBgColor = clBlack
QuoteColor = clBlue
RefColor = clBlue
Kludge1Color = clOlive
Kludge2Color = clOlive
Kludge3Color = clOlive
ReadOnly = True
FontCharset = 1
TabOrder = 0
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Style = []
Align = alClient
OnMouseMove = eMsgMouseMove
PopupMenu = ViewPopup
OnDblClick = eMsgDblClick
end
end
object TPage
Left = 0
Top = 0
Caption = 'Image'
object ImagePanel: TPanel
Left = 0
Top = 0
Width = 571
Height = 203
Align = alClient
BevelOuter = bvNone
TabOrder = 0
end
end
end
end
end
end
object AttachImages: TImageList
Height = 32
Width = 32
Left = 232
Top = 272
end
object AttachPopup: TPopupMenu
OnPopup = AttachPopupPopup
Left = 296
Top = 272
object MovetoNextUnread3: TMenuItem
Tag = 1
Caption = 'Move to &Next Unread'
ShortCut = 16605
Visible = False
OnClick = mNextURClick
end
object MovetoPreviousUnread3: TMenuItem
Tag = -1
Caption = 'Move to Pre&vious Unread'
ShortCut = 16603
Visible = False
OnClick = mNextURClick
end
object MovetoNextunread4: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 49191
Visible = False
OnClick = mNextURClick
end
object MovetoPreviousunread4: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 49189
Visible = False
OnClick = mNextURClick
end
object maView: TMenuItem
Tag = 1
Caption = '&Open...'
Default = True
ShortCut = 16397
OnClick = maSaveClick
end
object maSave: TMenuItem
Caption = '&Save...'
ShortCut = 13
OnClick = maSaveClick
end
object maDelete: TMenuItem
Tag = 3
Caption = '&Delete'
ShortCut = 46
OnClick = maSaveClick
end
object maPrint: TMenuItem
Tag = 2
Caption = '&Print...'
ShortCut = 0
OnClick = maSaveClick
end
object maImportKey: TMenuItem
Tag = 4
Caption = '&Import Key or Certificate'
ShortCut = 0
OnClick = maSaveClick
end
object N11: TMenuItem
Caption = '-'
ShortCut = 0
end
object maSaveAllAttachments: TMenuItem
Caption = 'Save &All Attachments'
ShortCut = 24641
OnClick = maSaveAllAttachmentsClick
end
object maForward: TMenuItem
Caption = '&Forward...'
ShortCut = 16454
Visible = False
end
object Popup1: TMenuItem
Caption = 'Popup'
ShortCut = 32889
Visible = False
OnClick = Popup1Click
end
end
object MessagePopup: TPopupMenu
OnPopup = MessagePopupPopup
Left = 328
Top = 272
object mmNextUR: TMenuItem
Tag = 1
Caption = 'Move to &Next Unread'
ShortCut = 16605
Visible = False
OnClick = mNextURClick
end
object mmPrevUR: TMenuItem
Tag = -1
Caption = 'Move to Pre&vious Unread'
ShortCut = 16603
Visible = False
OnClick = mNextURClick
end
object MovetoNextunread2: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 49191
OnClick = mNextURClick
end
object MovetoPreviousunread2: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 49189
OnClick = mNextURClick
end
object MovetoNextunread8: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 16423
Visible = False
end
object MovetoPreviousunread8: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 16421
Visible = False
end
object N21: TMenuItem
Caption = '-'
ShortCut = 0
end
object mpCreate: TMenuItem
Caption = 'Create a Ne&w Message...'
Default = True
ShortCut = 16462
OnClick = mpCreateClick
end
object mOpenMessage: TMenuItem
Caption = '&Open '
ShortCut = 13
OnClick = mOpenMessageClick
end
object mpReplyA: TMenuItem
Caption = '&Reply...'
ShortCut = 16466
Visible = False
OnClick = mpReplyAClick
end
object mReplyMessage: TMenuItem
Caption = '&Reply...'
ShortCut = 16397
OnClick = mpReplyAClick
end
object mFwdMessage: TMenuItem
Tag = 1
Caption = '&Forward...'
ShortCut = 8205
OnClick = mpReplyAClick
end
object mmRedirect: TMenuItem
Tag = 4
Caption = 'R&edirect'
ShortCut = 16453
OnClick = mpReplyAClick
end
object mmThread: TMenuItem
Caption = '&Thread'
ShortCut = 0
object mmtCopy: TMenuItem
Caption = '&Copy'
ShortCut = 16468
OnClick = mmtCopyClick
end
object mmtMove: TMenuItem
Tag = 1
Caption = '&Move'
ShortCut = 24662
OnClick = mmtCopyClick
end
object mmtDelete: TMenuItem
Tag = 2
Caption = '&Delete'
ShortCut = 24622
OnClick = mmtCopyClick
end
object N22: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmtMarkRead: TMenuItem
Tag = 3
Caption = 'Mark as &Read'
ShortCut = 24653
OnClick = mmtCopyClick
end
object mmtMarkUnread: TMenuItem
Tag = 4
Caption = 'Mark as &Unread'
ShortCut = 24661
OnClick = mmtCopyClick
end
object mmtPark: TMenuItem
Tag = 5
Caption = '&Park'
ShortCut = 0
OnClick = mmtCopyClick
end
object mmtUnpark: TMenuItem
Tag = 6
Caption = 'Unp&ark'
ShortCut = 0
OnClick = mmtCopyClick
end
end
object N17: TMenuItem
Caption = '-'
ShortCut = 0
end
object mvCopy: TMenuItem
Tag = 1
Caption = '&Copy to Folder...'
ShortCut = 16451
OnClick = mvCopyClick
end
object mvMove: TMenuItem
Caption = '&Move to Folder...'
ShortCut = 16470
OnClick = mvCopyClick
end
object mSaveMessage: TMenuItem
Caption = '&Save as...'
ShortCut = 16467
OnClick = mSaveMessageClick
end
object mDelMessageList: TMenuItem
Caption = '&Delete from List'
ShortCut = 0
OnClick = mDelMessageListClick
end
object mDelMessageBase: TMenuItem
Caption = '&Delete from Base'
ShortCut = 16430
OnClick = mDelMessageBaseClick
end
object mSpecials: TMenuItem
Caption = 'Specials'
ShortCut = 0
object mmAddAddress: TMenuItem
Caption = '&Add sender to Address Book'
ShortCut = 16471
OnClick = msAddSenderClick
end
object mmDeleteAddress: TMenuItem
Caption = '&Delete from Address Book'
ShortCut = 16459
OnClick = msDelSenderClick
end
object mmMakeFilter: TMenuItem
Caption = '&Create filter...'
ShortCut = 24646
OnClick = msCreateFilterClick
end
object mmFindReply: TMenuItem
Caption = '&Open reply'
ShortCut = 16392
OnClick = msOpenReplyClick
end
object mvPGPDecrypt: TMenuItem
Caption = 'P&GP Decrypt'
ShortCut = 24644
OnClick = mvPGPDecryptClick
end
object N29: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmPark: TMenuItem
Caption = '&Park'
ShortCut = 16458
OnClick = mmParkClick
end
object mmUnpark: TMenuItem
Tag = 1
Caption = '&Unpark'
ShortCut = 16452
OnClick = mmParkClick
end
object N32: TMenuItem
Caption = '-'
ShortCut = 0
end
object ReplyQuotingselectedtext1: TMenuItem
Tag = 7
Caption = 'Reply &Quoting selected text'
ShortCut = 115
OnClick = mpReplyAClick
end
object Replywithoutquotation1: TMenuItem
Tag = 5
Caption = 'Reply &without quotation'
ShortCut = 8307
OnClick = mpReplyAClick
end
object ReplytotheSender1: TMenuItem
Tag = 6
Caption = 'Reply to the &Sender'
ShortCut = 16499
OnClick = mpReplyAClick
end
object AlternativeForward1: TMenuItem
Tag = 10
Caption = 'Alternative &Forward'
ShortCut = 41076
OnClick = mpReplyAClick
end
end
object N5: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmMarkunread: TMenuItem
Caption = 'Mark as &Unread'
ShortCut = 16469
OnClick = mmMarkunreadClick
end
object mmMarkRead: TMenuItem
Tag = 1
Caption = 'Mark &as Read'
ShortCut = 16461
OnClick = mmMarkunreadClick
end
object mmFlags: TMenuItem
Caption = '&Flags'
ShortCut = 0
Visible = False
object mmf_Flagged: TMenuItem
Tag = 2
Caption = '&Flagged'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mmf_Replied: TMenuItem
Tag = 1
Caption = '&Replied'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mmf_Forwarded: TMenuItem
Tag = 3
Caption = 'F&orwarded/Redirected'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object N26: TMenuItem
Caption = '-'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mmf_NormalPty: TMenuItem
Tag = 5
Caption = '&Normal priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mmf_HighPty: TMenuItem
Tag = 7
Caption = '&High priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mmf_LowPty: TMenuItem
Tag = 6
Caption = '&Low priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
end
object mmColors: TMenuItem
Caption = 'Colour &Group'
ShortCut = 0
end
object N27: TMenuItem
Caption = '-'
ShortCut = 0
end
object mlSelectAll: TMenuItem
Caption = 'Selec&t all'
ShortCut = 16449
OnClick = mlSelectAllClick
end
object mlMovedown: TMenuItem
Caption = 'Move down'
ShortCut = 32
Visible = False
OnClick = mlMovedownClick
end
object Popup3: TMenuItem
Tag = 2
Caption = 'Popup'
ShortCut = 32889
Visible = False
OnClick = Popup1Click
end
object mFindWord: TMenuItem
Caption = 'Find a word...'
ShortCut = 16454
OnClick = mFindWordClick
end
object Findnextword1: TMenuItem
Caption = 'Find next word'
ShortCut = 114
Visible = False
OnClick = mvFindNextWordClick
end
object mvFindNextWord: TMenuItem
Caption = 'Find next word'
ShortCut = 16460
OnClick = mvFindNextWordClick
end
end
object ViewMenu: TMainMenu
Left = 264
Top = 272
object mmMessage: TMenuItem
Caption = '&Message'
ShortCut = 0
OnClick = mmMessageClick
object mvNew: TMenuItem
Caption = '&New'
ShortCut = 16462
OnClick = mpCreateClick
end
object mvReply: TMenuItem
Caption = 'Repl&y...'
ShortCut = 16397
OnClick = mpReplyAClick
end
object Reply1: TMenuItem
Caption = '&Reply'
ShortCut = 16500
Visible = False
OnClick = mpReplyAClick
end
object mvReplyAll: TMenuItem
Tag = 2
Caption = 'Reply to &All'
ShortCut = 24589
OnClick = mpReplyAClick
end
object ReplytoAll1: TMenuItem
Tag = 2
Caption = 'Reply to &All'
ShortCut = 24692
Visible = False
OnClick = mpReplyAClick
end
object mvForward: TMenuItem
Tag = 1
Caption = 'For&ward...'
ShortCut = 8205
OnClick = mpReplyAClick
end
object Forward1: TMenuItem
Tag = 1
Caption = 'For&ward'
ShortCut = 8308
Visible = False
OnClick = mpReplyAClick
end
object mvResend: TMenuItem
Caption = 'R&e-send'
ShortCut = 24612
OnClick = mvResendClick
end
object Resend1: TMenuItem
Caption = 'Re-s&end'
ShortCut = 8309
Visible = False
OnClick = mvResendClick
end
object mvRedirect: TMenuItem
Tag = 4
Caption = 'Red&irect'
ShortCut = 16453
OnClick = mpReplyAClick
end
object Redirect1: TMenuItem
Tag = 4
Caption = 'Redirec&t'
ShortCut = 16501
Visible = False
end
object N28: TMenuItem
Caption = '-'
ShortCut = 0
end
object mCopyToFolder: TMenuItem
Tag = 1
Caption = '&Copy to folder...'
ShortCut = 0
OnClick = mvCopyClick
end
object mMoveToFolder: TMenuItem
Caption = '&Move to folder...'
ShortCut = 0
OnClick = mvCopyClick
end
object mvSaveAs: TMenuItem
Caption = '&Save as...'
ShortCut = 16467
OnClick = mSaveMessageClick
end
object SaveAs1: TMenuItem
Caption = '&Save As...'
ShortCut = 32884
Visible = False
OnClick = mSaveMessageClick
end
object mmDeleteList: TMenuItem
Caption = 'Delete from the &List'
ShortCut = 0
OnClick = mDelMessageListClick
end
object mmDeleteBase: TMenuItem
Caption = '&Delete from Base'
ShortCut = 16430
OnClick = mDelMessageBaseClick
end
object mvPrint: TMenuItem
Caption = '&Print...'
ShortCut = 16464
OnClick = mvPrintClick
end
object mViewsource: TMenuItem
Caption = '&View source'
ShortCut = 120
OnClick = mViewsourceClick
end
object mAttachments: TMenuItem
Caption = 'Attachments'
ShortCut = 0
object mAttOpen: TMenuItem
Tag = 1
Caption = '&Open...'
ShortCut = 0
OnClick = maSaveClick
end
object mAttSave: TMenuItem
Caption = '&Save...'
ShortCut = 0
OnClick = maSaveClick
end
object mAttDelete: TMenuItem
Tag = 3
Caption = '&Delete'
ShortCut = 0
OnClick = maSaveClick
end
object mAttPrint: TMenuItem
Tag = 2
Caption = '&Print...'
ShortCut = 0
OnClick = maSaveClick
end
object mAttImportKey: TMenuItem
Tag = 4
Caption = '&Import Key'
ShortCut = 0
OnClick = maSaveClick
end
object N31: TMenuItem
Caption = '-'
ShortCut = 0
end
object mAttSaveAllAttachments: TMenuItem
Caption = 'Save &All Attachments...'
ShortCut = 0
OnClick = maSaveAllAttachmentsClick
end
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object mvMarkUnread: TMenuItem
Caption = 'Mark as &Unread'
ShortCut = 16469
OnClick = mmMarkunreadClick
end
object mvMarkRead: TMenuItem
Tag = 1
Caption = 'Mark as &Read'
ShortCut = 16461
OnClick = mmMarkunreadClick
end
object mFlags: TMenuItem
Caption = '&Flags'
ShortCut = 0
object mf_Flagged: TMenuItem
Tag = 2
Caption = '&Flagged'
ShortCut = 16455
OnClick = mf_FlaggedClick
end
object mf_Replied: TMenuItem
Tag = 1
Caption = '&Replied'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mf_Forwarded: TMenuItem
Tag = 3
Caption = 'F&orwarded/Redirected'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object N12: TMenuItem
Caption = '-'
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mf_NormalPty: TMenuItem
Tag = 5
Caption = '&Normal priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mf_HighPty: TMenuItem
Tag = 7
Caption = '&High priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
object mf_LowPty: TMenuItem
Tag = 6
Caption = '&Low priority'
GroupIndex = 10
RadioItem = True
ShortCut = 0
OnClick = mf_FlaggedClick
end
end
object mColors: TMenuItem
Caption = 'Colour &Group'
ShortCut = 0
end
object N9: TMenuItem
Caption = '-'
ShortCut = 0
end
object mvExit: TMenuItem
Caption = 'E&xit'
ShortCut = 27
OnClick = mvExitClick
end
end
object mmEdit: TMenuItem
Caption = '&Edit'
ShortCut = 0
OnClick = mmEditClick
object meCopy: TMenuItem
Tag = 1
Caption = '&Copy'
ShortCut = 0
OnClick = meCopyClick
end
object meCopyTo: TMenuItem
Tag = 1
Caption = 'Copy &to...'
ShortCut = 0
OnClick = meCopyToClick
end
object N6: TMenuItem
Caption = '-'
ShortCut = 0
end
object meFindWord: TMenuItem
Caption = 'Find a &word...'
ShortCut = 16454
OnClick = mFindWordClick
end
object meFindWordA: TMenuItem
Caption = 'Find &next word'
ShortCut = 114
Visible = False
OnClick = mvFindNextWordClick
end
object meFindWordB: TMenuItem
Caption = 'Find &next word'
ShortCut = 16460
OnClick = mvFindNextWordClick
end
object N33: TMenuItem
Caption = '-'
ShortCut = 0
end
object mOldSearch: TMenuItem
Caption = '&Use previous conditions'
ShortCut = 0
end
end
object mmSpecials: TMenuItem
Caption = '&Specials'
ShortCut = 0
object MovetoNextunread1: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 49191
OnClick = mNextURClick
end
object MovetoPreviousunread1: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 49189
OnClick = mNextURClick
end
object MovetoNextunread7: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 16605
Visible = False
end
object MovetoPreviousunread7: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 16603
Visible = False
end
object N13: TMenuItem
Caption = '-'
ShortCut = 0
end
object msAddSender: TMenuItem
Caption = '&Add sender to Address Book'
ShortCut = 16471
OnClick = msAddSenderClick
end
object msDelSender: TMenuItem
Caption = '&Delete from Address Book'
ShortCut = 16459
OnClick = msDelSenderClick
end
object msCreateFilter: TMenuItem
Caption = '&Create filter...'
ShortCut = 24646
OnClick = msCreateFilterClick
end
object msOpenReply: TMenuItem
Caption = '&Open reply'
ShortCut = 16392
OnClick = msOpenReplyClick
end
object N25: TMenuItem
Caption = '-'
ShortCut = 0
end
object msReplySelected: TMenuItem
Tag = 7
Caption = 'Reply &Quoting selected text'
ShortCut = 115
OnClick = mpReplyAClick
end
object msReplyNoQuotes: TMenuItem
Tag = 5
Caption = 'Reply &without quotation'
ShortCut = 8307
OnClick = mpReplyAClick
end
object msReplySender: TMenuItem
Tag = 6
Caption = 'Reply to the &Sender'
ShortCut = 16499
OnClick = mpReplyAClick
end
object mAltForward: TMenuItem
Tag = 10
Caption = 'Alternative &Forward'
ShortCut = 41076
OnClick = mpReplyAClick
end
object N2: TMenuItem
Caption = '-'
ShortCut = 0
end
object msCheckPGP: TMenuItem
Caption = '&Check OpenPGP Signature'
ShortCut = 24643
OnClick = msCheckPGPClick
end
object mmPGPDecrypt: TMenuItem
Caption = 'OpenPGP Decryp&t'
ShortCut = 0
OnClick = mvPGPDecryptClick
end
object msImportKey: TMenuItem
Caption = '&Import Key or Certificate'
ShortCut = 0
OnClick = msImportKeyClick
end
object N34: TMenuItem
Caption = '-'
ShortCut = 0
end
object msPark: TMenuItem
Caption = '&Park'
ShortCut = 16458
OnClick = mmParkClick
end
object msUnpark: TMenuItem
Tag = 1
Caption = '&Unpark'
ShortCut = 16452
OnClick = mmParkClick
end
object N23: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmFollow: TMenuItem
Caption = 'Follow'
ShortCut = 0
OnClick = bFollowClick
end
end
object mmView: TMenuItem
Caption = '&View'
ShortCut = 0
object mvAttached: TMenuItem
Caption = '&Attached files'
ShortCut = 0
object mvShowAuto: TMenuItem
Caption = 'Show &Automatically'
GroupIndex = 2
RadioItem = True
ShortCut = 0
OnClick = mvShowAutoClick
end
object mvShowAlways: TMenuItem
Tag = 1
Caption = '&Show always'
GroupIndex = 2
RadioItem = True
ShortCut = 0
OnClick = mvShowAutoClick
end
object mvHideAttach: TMenuItem
Tag = 2
Caption = '&Hide'
GroupIndex = 2
RadioItem = True
ShortCut = 0
OnClick = mvShowAutoClick
end
end
object N8: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmfDisplay: TMenuItem
Caption = '&Display'
ShortCut = 0
OnClick = mmfDisplayClick
object mmfAll: TMenuItem
Caption = '&All messages'
GroupIndex = 8
RadioItem = True
ShortCut = 16571
OnClick = mmfAllClick
end
object mmfUnread: TMenuItem
Caption = 'Only &Unread messages'
GroupIndex = 20
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfRead: TMenuItem
Tag = 1
Caption = 'Only &Read messages'
GroupIndex = 20
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfFlagged: TMenuItem
Tag = 6
Caption = 'Only &Flagged messages'
GroupIndex = 20
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfUnFlagged: TMenuItem
Tag = 7
Caption = 'Only Non-f&lagged messages'
GroupIndex = 20
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfParked: TMenuItem
Tag = 2
Caption = 'Only &Parked messages'
GroupIndex = 21
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfUnparked: TMenuItem
Tag = 3
Caption = 'Only U&nparked messages'
GroupIndex = 21
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfAttach: TMenuItem
Tag = 4
Caption = 'Only messages with &Attachments'
GroupIndex = 22
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object mmfNoAttach: TMenuItem
Tag = 5
Caption = 'Only messages &without Attachments'
GroupIndex = 22
RadioItem = True
ShortCut = 0
OnClick = mmfUnreadClick
end
object N19: TMenuItem
Caption = '-'
GroupIndex = 22
ShortCut = 0
end
object mmfAdvanced: TMenuItem
Caption = 'Ad&vanced filtering...'
GroupIndex = 23
ShortCut = 0
OnClick = mmfAdvancedClick
end
end
object mmsSort: TMenuItem
Caption = '&Sort by'
ShortCut = 0
OnClick = mmsSortClick
object mmsReceived: TMenuItem
Tag = 6
Caption = '&Received time'
GroupIndex = 10
RadioItem = True
ShortCut = 16433
OnClick = mmsReceivedClick
end
object mmsCreation: TMenuItem
Tag = 5
Caption = '&Creation time'
GroupIndex = 10
RadioItem = True
ShortCut = 16434
OnClick = mmsReceivedClick
end
object mmsSize: TMenuItem
Tag = 9
Caption = 'Si&ze'
GroupIndex = 10
RadioItem = True
ShortCut = 16435
OnClick = mmsReceivedClick
end
object mmsSender: TMenuItem
Tag = 2
Caption = '&From'
GroupIndex = 10
RadioItem = True
ShortCut = 16436
OnClick = mmsReceivedClick
end
object mmsRecipient: TMenuItem
Tag = 3
Caption = '&To'
GroupIndex = 10
RadioItem = True
ShortCut = 16437
OnClick = mmsReceivedClick
end
object mmsSubject: TMenuItem
Tag = 4
Caption = '&Subject'
GroupIndex = 10
RadioItem = True
ShortCut = 16438
OnClick = mmsReceivedClick
end
object mmsFlags: TMenuItem
Tag = 1
Caption = '&Message Flags'
GroupIndex = 10
RadioItem = True
ShortCut = 16439
OnClick = mmsReceivedClick
end
object mmsAttachment: TMenuItem
Tag = 8
Caption = '&Attachment presence'
GroupIndex = 10
RadioItem = True
ShortCut = 16440
OnClick = mmsReceivedClick
end
object mmsParking: TMenuItem
Tag = 9
Caption = '&Parking/Draft flag'
GroupIndex = 10
RadioItem = True
ShortCut = 16441
OnClick = mmsReceivedClick
end
object N16: TMenuItem
Caption = '-'
GroupIndex = 11
ShortCut = 0
end
object mmsDescending: TMenuItem
Caption = '&Descending order'
GroupIndex = 11
ShortCut = 16432
OnClick = mmsDescendingClick
end
end
object mmtThread: TMenuItem
Caption = '&View threads by'
ShortCut = 0
OnClick = mmtThreadClick
object mmtNone: TMenuItem
Caption = '&None'
GroupIndex = 12
RadioItem = True
ShortCut = 32816
OnClick = mmtNoneClick
end
object N18: TMenuItem
Caption = '-'
GroupIndex = 12
ShortCut = 0
end
object mmtStandard: TMenuItem
Tag = 1
Caption = '&References (standard)'
GroupIndex = 12
RadioItem = True
ShortCut = 32817
OnClick = mmtNoneClick
end
object mmtSubject: TMenuItem
Tag = 2
Caption = '&Subject'
GroupIndex = 12
RadioItem = True
ShortCut = 32818
OnClick = mmtNoneClick
end
object mmtFrom: TMenuItem
Tag = 3
Caption = '&From'
GroupIndex = 12
RadioItem = True
ShortCut = 32819
OnClick = mmtNoneClick
end
object mmtTo: TMenuItem
Tag = 4
Caption = '&To'
GroupIndex = 12
RadioItem = True
ShortCut = 32820
OnClick = mmtNoneClick
end
end
object mmColumns: TMenuItem
Caption = '&Columns...'
ShortCut = 0
OnClick = mmColumnsClick
end
object N10: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmHeaderMenu: TMenuItem
Caption = 'Message &Header'
GroupIndex = 11
ShortCut = 0
object mHeaderVisible: TMenuItem
Caption = '&Show'
ShortCut = 24648
OnClick = mHeaderVisibleClick
end
object N30: TMenuItem
Caption = '-'
ShortCut = 0
end
object mhfFrom: TMenuItem
Caption = '&From'
Checked = True
ShortCut = 0
OnClick = mhfFromClick
end
object mhfReplyTo: TMenuItem
Tag = 1
Caption = '&Reply-To'
Checked = True
ShortCut = 0
OnClick = mhfFromClick
end
object mhfSender: TMenuItem
Tag = 2
Caption = '&X-Sender'
ShortCut = 0
OnClick = mhfFromClick
end
object mhfTO: TMenuItem
Tag = 3
Caption = '&TO'
Checked = True
ShortCut = 0
OnClick = mhfFromClick
end
object mhfCC: TMenuItem
Tag = 4
Caption = '&CC'
Checked = True
ShortCut = 0
OnClick = mhfFromClick
end
object mhfBCC: TMenuItem
Tag = 5
Caption = '&BCC'
Checked = True
ShortCut = 0
OnClick = mhfFromClick
end
object mhfMailer: TMenuItem
Tag = 7
Caption = '&Mailer'
ShortCut = 0
OnClick = mhfFromClick
end
object mhfCreated: TMenuItem
Tag = 8
Caption = 'Cr&eation time'
ShortCut = 0
OnClick = mhfFromClick
end
object mhfReceived: TMenuItem
Tag = 9
Caption = 'Recei&ved Time'
ShortCut = 0
OnClick = mhfFromClick
end
object mhfComments: TMenuItem
Tag = 10
Caption = 'C&omments'
ShortCut = 0
OnClick = mhfFromClick
end
object mhfMessageID: TMenuItem
Tag = 11
Caption = 'Message &ID'
ShortCut = 0
OnClick = mhfFromClick
end
end
object mShowKludges: TMenuItem
Caption = 'RFC-&822 headers'
GroupIndex = 11
ShortCut = 24651
OnClick = mShowKludgesClick
end
object N14: TMenuItem
Caption = '-'
GroupIndex = 11
ShortCut = 0
end
object mmXlat: TMenuItem
Caption = 'Charact&er set'
GroupIndex = 11
ShortCut = 0
object mtNone: TMenuItem
Caption = '&None'
GroupIndex = 11
RadioItem = True
ShortCut = 0
OnClick = mtNoneClick
end
object N20: TMenuItem
Caption = '-'
GroupIndex = 11
ShortCut = 0
end
object N7: TMenuItem
Caption = '-'
GroupIndex = 12
ShortCut = 0
end
object mAutodetect: TMenuItem
Caption = '&Auto-detect'
GroupIndex = 12
ShortCut = 32821
OnClick = mAutodetectClick
end
object mSetAsDeafault: TMenuItem
Caption = '&Set as default'
GroupIndex = 12
ShortCut = 0
OnClick = mSetAsDeafaultClick
end
end
end
end
object ViewPopup: TPopupMenu
OnPopup = ViewPopupPopup
Left = 376
Top = 272
object MovetoNextUnread5: TMenuItem
Tag = 1
Caption = 'Move to &Next Unread'
ShortCut = 16605
Visible = False
OnClick = mNextURClick
end
object MovetoPreviousUnread5: TMenuItem
Tag = -1
Caption = 'Move to Pre&vious Unread'
ShortCut = 16603
Visible = False
OnClick = mNextURClick
end
object MovetoNextunread6: TMenuItem
Tag = 1
Caption = 'Move to &Next unread'
ShortCut = 49191
OnClick = mNextURClick
end
object MovetoPreviousunread6: TMenuItem
Tag = -1
Caption = '&Move to Previous unread'
ShortCut = 49189
OnClick = mNextURClick
end
object N35: TMenuItem
Caption = '-'
ShortCut = 0
end
object meNewMail: TMenuItem
Tag = 11
Caption = '&Write message to address...'
ShortCut = 0
OnClick = mpCreateClick
end
object meReplyLink: TMenuItem
Caption = 'R&eply to address...'
ShortCut = 0
OnClick = meReplyLinkClick
end
object meAddAddress: TMenuItem
Caption = 'Add to Address &Book'
ShortCut = 0
OnClick = meAddAddressClick
end
object meOpenLink: TMenuItem
Caption = '&Open URL'
ShortCut = 0
OnClick = meOpenLinkClick
end
object meCopyLink: TMenuItem
Caption = '&Copy URL'
ShortCut = 0
OnClick = meCopyLinkClick
end
object meDivider: TMenuItem
Caption = '-'
ShortCut = 0
end
object mmReply2: TMenuItem
Caption = '&Reply...'
ShortCut = 16397
OnClick = mpReplyAClick
end
object Reply2: TMenuItem
Caption = '&Reply...'
ShortCut = 16466
Visible = False
OnClick = mpReplyAClick
end
object MenuItem2: TMenuItem
Tag = 2
Caption = 'Re&ply to All'
ShortCut = 24589
OnClick = mpReplyAClick
end
object MenuItem3: TMenuItem
Tag = 1
Caption = '&Forward...'
ShortCut = 8308
Visible = False
OnClick = mpReplyAClick
end
object mvForward2: TMenuItem
Tag = 1
Caption = '&Forward...'
ShortCut = 8205
OnClick = mpReplyAClick
end
object mpSaveAs: TMenuItem
Caption = '&Save as...'
ShortCut = 16467
OnClick = mSaveMessageClick
end
object mvDelete: TMenuItem
Caption = 'Delete'
ShortCut = 46
Visible = False
OnClick = mDelMessageBaseClick
end
object N24: TMenuItem
Caption = '-'
ShortCut = 0
end
object mlCopy: TMenuItem
Caption = '&Copy'
ShortCut = 16429
OnClick = meCopyClick
end
object mlCopyTo: TMenuItem
Caption = 'Copy &To...'
ShortCut = 32813
OnClick = meCopyToClick
end
object ml_SelectAll: TMenuItem
Caption = 'Select &All'
ShortCut = 16449
OnClick = ml_SelectAllClick
end
object mvMoveDown: TMenuItem
Caption = 'Move Down'
ShortCut = 32
Visible = False
OnClick = mlMovedownClick
end
object MenuItem4: TMenuItem
Caption = '-'
ShortCut = 0
end
object mlPGPDecrypt: TMenuItem
Caption = '&OpenPGP Decrypt'
ShortCut = 24644
Visible = False
end
object mlFind: TMenuItem
Caption = 'Find...'
ShortCut = 16454
OnClick = mFindWordClick
end
object mFindNext: TMenuItem
Caption = 'Find Next'
ShortCut = 114
Visible = False
OnClick = mvFindNextWordClick
end
object mlFindNext: TMenuItem
Caption = 'Find Next'
ShortCut = 16460
OnClick = mvFindNextWordClick
end
object meProperties: TMenuItem
Caption = '&Preferences...'
ShortCut = 0
OnClick = mePropertiesClick
end
object N15: TMenuItem
Caption = '-'
ShortCut = 0
end
object ml_Kludges: TMenuItem
Caption = 'RFC-&822 headers'
ShortCut = 0
OnClick = mShowKludgesClick
end
object mlXlat: TMenuItem
Caption = 'C&haracter set'
ShortCut = 0
object mlNone: TMenuItem
Caption = 'None'
GroupIndex = 9
RadioItem = True
ShortCut = 0
OnClick = mtNoneClick
end
object N4: TMenuItem
Caption = '-'
GroupIndex = 9
ShortCut = 0
end
object N3: TMenuItem
Caption = '-'
GroupIndex = 12
ShortCut = 0
end
object mlAutodetect: TMenuItem
Caption = '&Auto-detect'
GroupIndex = 12
ShortCut = 32821
OnClick = mAutodetectClick
end
object mlSetAsDefault: TMenuItem
Caption = '&Set as default'
GroupIndex = 12
ShortCut = 0
OnClick = mSetAsDeafaultClick
end
end
object Popup2: TMenuItem
Tag = 1
Caption = 'Popup'
ShortCut = 32889
Visible = False
OnClick = Popup1Click
end
end
end