home *** CD-ROM | disk | FTP | other *** search
Text File | 2004-02-23 | 65.0 KB | 2,609 lines |
- object GlobalPrefDlg: TGlobalPrefDlg
- Left = 255
- Top = 182
- HelpContext = 14506
- ActiveControl = tvTree
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- BorderWidth = 3
- Caption = 'The Bat! - Preferences'
- ClientHeight = 445
- ClientWidth = 653
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object tvTree: TTreeView
- Left = 0
- Top = 0
- Width = 181
- Height = 405
- BevelInner = bvNone
- HideSelection = False
- Indent = 19
- ReadOnly = True
- RightClickSelect = True
- RowSelect = True
- ShowButtons = False
- TabOrder = 0
- OnChange = tvTreeChange
- Items.Data = {
- 09000000200000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
- 0747656E6572616C1F0000000000000000000000FFFFFFFFFFFFFFFF00000000
- 000000000653797374656D250000000000000000000000FFFFFFFFFFFFFFFF00
- 000000000000000C4170706C69636174696F6E73210000000000000000000000
- FFFFFFFFFFFFFFFF0000000004000000084D657373616765732F000000000000
- 0000000000FFFFFFFFFFFFFFFF000000000000000016436F6C6F75722047726F
- 75707320616E6420466F6E74230000000000000000000000FFFFFFFFFFFFFFFF
- 00000000000000000A56696577204D6F646573280000000000000000000000FF
- FFFFFFFFFFFFFF00000000000000000F4D657373616765206865616465727327
- 0000000000000000000000FFFFFFFFFFFFFFFF00000000000000000E48656164
- 657220446973706C6179230000000000000000000000FFFFFFFFFFFFFFFF0000
- 0000020000000A50726F74656374696F6E230000000000000000000000FFFFFF
- FFFFFFFFFF00000000000000000A416E74692D56697275732200000000000000
- 00000000FFFFFFFFFFFFFFFF000000000000000009416E74692D5350414D2600
- 00000000000000000000FFFFFFFFFFFFFFFF00000000040000000D5669657765
- 722F456469746F722B0000000000000000000000FFFFFFFFFFFFFFFF00000000
- 0000000012456469746F7220707265666572656E6365732B0000000000000000
- 000000FFFFFFFFFFFFFFFF000000000000000012506C61696E20746578742F4D
- 6963726F45642C0000000000000000000000FFFFFFFFFFFFFFFF000000000000
- 00001348544D4C2F57696E646F777320456469746F7226000000000000000000
- 0000FFFFFFFFFFFFFFFF00000000000000000D536F7572636520566965776572
- 2E0000000000000000000000FFFFFFFFFFFFFFFF000000000000000015436861
- 72616374657220536574732028584C415429280000000000000000000000FFFF
- FFFFFFFFFFFF00000000000000000F53797374656D20486F74204B6579732100
- 00000000000000000000FFFFFFFFFFFFFFFF000000000000000008506C75672D
- 496E73}
- end
- object Book: TPageControl
- Left = 184
- Top = 0
- Width = 469
- Height = 406
- ActivePage = tsHeaderLook
- TabOrder = 1
- TabStop = False
- OnChange = BookChange
- object tsGeneral: TTabSheet
- Caption = 'General'
- object lConnCentre: TLabel
- Left = 16
- Top = 295
- Width = 125
- Height = 13
- Caption = 'Display Connection Centre'
- FocusControl = cbConnCentre
- end
- object lMailTicker: TLabel
- Left = 16
- Top = 319
- Width = 108
- Height = 13
- Caption = 'Display MailTicker(TM)'
- FocusControl = cbMailTicker
- end
- object cbMiniTray: TCheckBox
- Left = 16
- Top = 60
- Width = 425
- Height = 17
- Caption = 'Minimise to the System Tray'
- TabOrder = 2
- end
- object cbAlwaysInTray: TCheckBox
- Left = 16
- Top = 16
- Width = 417
- Height = 17
- Caption = 'Always show icon in the System Tray'
- TabOrder = 0
- OnClick = cbAlwaysInTrayClick
- end
- object cbAnimation: TCheckBox
- Left = 16
- Top = 84
- Width = 425
- Height = 17
- Caption = 'Icon animation when unread messages are detected'
- TabOrder = 3
- end
- object cbExtImgViewer: TCheckBox
- Left = 16
- Top = 108
- Width = 425
- Height = 17
- Caption = 'Use external viewer to open attached images'
- TabOrder = 4
- end
- object cbHCImages: TCheckBox
- Left = 16
- Top = 132
- Width = 425
- Height = 17
- Caption = 'High colour images (change effective after restart)'
- TabOrder = 5
- end
- object cbConnCentre: TComboBox
- Left = 224
- Top = 291
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 11
- Items.Strings = (
- 'Automatically'
- 'Always'
- 'Hide')
- end
- object cbMailTicker: TComboBox
- Left = 224
- Top = 315
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 12
- Items.Strings = (
- 'Automatically'
- 'Always'
- 'Hide')
- end
- object cbBirthCheck: TCheckBox
- Left = 16
- Top = 156
- Width = 425
- Height = 17
- Caption = 'Inform about birthdays using address book data'
- TabOrder = 6
- end
- object cbShowTask: TCheckBox
- Left = 40
- Top = 36
- Width = 401
- Height = 17
- Caption = 'Do not display program icon on the Task Bar'
- TabOrder = 1
- OnClick = cbShowTaskClick
- end
- object cbMenuNav: TCheckBox
- Left = 16
- Top = 180
- Width = 425
- Height = 17
- Caption = 'Display MenuNavigator button on the Caption Bar'
- TabOrder = 7
- end
- object cbCloseViewOnReply: TCheckBox
- Left = 16
- Top = 204
- Width = 441
- Height = 17
- Caption = 'Close the separate viewer parent window when replying/forwarding'
- TabOrder = 8
- end
- object cbXMailer: TCheckBox
- Left = 16
- Top = 232
- Width = 441
- Height = 17
- Caption = 'Use X-Mailer header in messages (for administrative purposes)'
- TabOrder = 9
- end
- object cbRestoreSession: TCheckBox
- Left = 16
- Top = 260
- Width = 361
- Height = 17
- Caption = 'Start program after system halt'
- TabOrder = 10
- end
- end
- object tbAdvanced: TTabSheet
- Caption = 'System'
- object lWDir: TLabel
- Left = 16
- Top = 8
- Width = 67
- Height = 13
- Caption = 'Mail Directory:'
- end
- object eWDir: TEdit
- Left = 16
- Top = 24
- Width = 321
- Height = 21
- TabOrder = 0
- end
- object bBrowseWDir: TButton
- Left = 352
- Top = 22
- Width = 89
- Height = 25
- Caption = 'Browse...'
- TabOrder = 1
- OnClick = bBrowseWDirClick
- end
- object cbFolderFont: TGroupBox
- Left = 16
- Top = 304
- Width = 425
- Height = 73
- Caption = 'Account tree font'
- TabOrder = 5
- object eFolderFont: TEdit
- Left = 16
- Top = 24
- Width = 297
- Height = 33
- AutoSize = False
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- end
- object bFolderFont: TButton
- Left = 320
- Top = 22
- Width = 89
- Height = 25
- Caption = 'Change...'
- TabOrder = 1
- OnClick = bFolderFontClick
- end
- end
- object gbAutocomplete: TGroupBox
- Left = 16
- Top = 56
- Width = 425
- Height = 113
- Caption = 'AutoComplete'
- TabOrder = 2
- object lACSource: TLabel
- Left = 40
- Top = 40
- Width = 118
- Height = 13
- Caption = 'Complete addresses from'
- Enabled = False
- FocusControl = cbACSource
- end
- object cbAutocompleteAddress: TCheckBox
- Left = 16
- Top = 20
- Width = 369
- Height = 17
- Caption = 'Complete automatically address entry fields'
- TabOrder = 0
- OnClick = cbAutocompleteAddressClick
- end
- object cbACSource: TComboBox
- Left = 40
- Top = 56
- Width = 345
- Height = 21
- Style = csDropDownList
- Enabled = False
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- 'Input History'
- 'Default Address Book only'
- 'All Address Books'
- 'History+Default Address Book'
- 'History+All Address Books')
- end
- object cbAutocompleteSubject: TCheckBox
- Left = 16
- Top = 84
- Width = 393
- Height = 17
- Caption = 'Automatically complete subject from the history '
- TabOrder = 2
- end
- end
- object gbLogBeeps: TGroupBox
- Left = 16
- Top = 176
- Width = 425
- Height = 41
- Caption = 'When logging events, use system alarm sound for'
- TabOrder = 3
- object cbBeepOnError: TCheckBox
- Left = 16
- Top = 16
- Width = 201
- Height = 17
- Caption = 'Errors'
- TabOrder = 0
- end
- object cbBeepOnWarning: TCheckBox
- Left = 224
- Top = 16
- Width = 185
- Height = 17
- Caption = 'Warnings'
- TabOrder = 1
- end
- end
- object gbXButtons: TGroupBox
- Left = 16
- Top = 224
- Width = 425
- Height = 73
- Caption = 'Extended mouse button functions'
- TabOrder = 4
- object Label1: TLabel
- Left = 8
- Top = 20
- Width = 97
- Height = 13
- Caption = 'Button &1 ("Forward")'
- end
- object Label2: TLabel
- Left = 8
- Top = 44
- Width = 84
- Height = 13
- Caption = 'Button &2 ("Back")'
- end
- object cbXButton1: TComboBox
- Left = 184
- Top = 16
- Width = 233
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'Go to the previous viewed message'
- Items.Strings = (
- 'Go to the previous viewed message'
- 'Go to the next viewed message'
- 'Go backwards to an unread message'
- 'Go to the next unread message'
- 'Reply'
- 'Forward'
- 'Create a new message'
- 'Toggle flag'
- 'Delete')
- end
- object cbXButton2: TComboBox
- Left = 184
- Top = 40
- Width = 233
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 3
- TabOrder = 1
- Text = 'Go to the next unread message'
- Items.Strings = (
- 'Go to the previous viewed message'
- 'Go to the next viewed message'
- 'Go backwards to an unread message'
- 'Go to the next unread message'
- 'Reply'
- 'Forward'
- 'Create a new message'
- 'Toggle flag'
- 'Delete')
- end
- end
- end
- object tbApps: TTabSheet
- Caption = 'Applications'
- object lCheckDefaultAux: TLabel
- Left = 42
- Top = 296
- Width = 3
- Height = 13
- end
- object gbAssociations: TGroupBox
- Left = 16
- Top = 8
- Width = 425
- Height = 153
- Caption = 'Associate The Bat! with specific file types/URLs'
- TabOrder = 0
- object cbMSG: TCheckBox
- Left = 16
- Top = 48
- Width = 370
- Height = 17
- Caption = '.MSG - e-mail message files in RFC-822 format'
- TabOrder = 1
- end
- object cbEML: TCheckBox
- Left = 16
- Top = 72
- Width = 370
- Height = 17
- Caption = '.EML - e-mail message files in RFC-822 format'
- TabOrder = 2
- end
- object cbVCF: TCheckBox
- Left = 16
- Top = 96
- Width = 370
- Height = 17
- Caption = '.VCF - electronic visitor card files (vCard)'
- TabOrder = 3
- end
- object bAssociate: TButton
- Left = 232
- Top = 120
- Width = 147
- Height = 25
- Caption = 'Associate now'
- TabOrder = 4
- OnClick = bAssociateClick
- end
- object cbMailto: TCheckBox
- Left = 16
- Top = 24
- Width = 370
- Height = 17
- Caption = 'mailto: - the URL for creating mail messages'
- TabOrder = 0
- end
- end
- object GroupBox2: TGroupBox
- Left = 16
- Top = 168
- Width = 425
- Height = 105
- Caption = 'Simple MAPI'
- TabOrder = 1
- object Label3: TLabel
- Left = 16
- Top = 24
- Width = 353
- Height = 41
- AutoSize = False
- Caption =
- 'Simple MAPI is a program interface used by many applications hel' +
- 'ping them to communicate with e-mail client in order to create/s' +
- 'end/access messages generated by those applications'
- WordWrap = True
- end
- object bInstallMAPI: TButton
- Left = 48
- Top = 72
- Width = 329
- Height = 25
- Caption = 'Install The Bat! as the Simple MAPI request handler'
- TabOrder = 0
- OnClick = bInstallMAPIClick
- end
- end
- object cbCheckDefault: TCheckBox
- Left = 16
- Top = 296
- Width = 393
- Height = 17
- Caption = 'Check that The Bat! is the default mail client at startup'
- TabOrder = 2
- end
- end
- object tsMsgList: TTabSheet
- Caption = 'Messages'
- object Label9: TLabel
- Left = 32
- Top = 68
- Width = 313
- Height = 13
- Caption = 'When moving to the next/previous unread message across folders'
- end
- object cbAutoColumnWidth: TCheckBox
- Left = 16
- Top = 14
- Width = 401
- Height = 17
- Caption = 'Automatically adjust first column width for threaded views'
- TabOrder = 0
- end
- object cbNextUnread: TComboBox
- Left = 32
- Top = 84
- Width = 337
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- OnChange = cbNextUnreadChange
- Items.Strings = (
- 'Confirm moving to another folder'
- 'Beep and move to another folder'
- 'Move to the other folder silently'
- 'Beep and stay in the current folder'
- 'Just stay in the current folder')
- end
- object gbMLTime: TGroupBox
- Left = 16
- Top = 168
- Width = 433
- Height = 185
- Caption = 'Date/Time display'
- TabOrder = 5
- object Label10: TLabel
- Left = 32
- Top = 24
- Width = 136
- Height = 13
- Caption = 'Default message time format:'
- end
- object cbMLTimeFmt: TCheckBox
- Left = 16
- Top = 72
- Width = 369
- Height = 17
- Caption = 'Display time for today'#39's messages using this format:'
- TabOrder = 0
- OnClick = cbMLTimeFmtClick
- end
- object cbMLWeekFmt: TCheckBox
- Left = 16
- Top = 128
- Width = 369
- Height = 17
- Caption = 'Display time for the current week'#39's messages using this format:'
- TabOrder = 1
- OnClick = cbMLWeekFmtClick
- end
- object eMLTimeFmt: TEdit
- Left = 32
- Top = 92
- Width = 289
- Height = 21
- TabOrder = 2
- end
- object eMLWeekFmt: TEdit
- Left = 32
- Top = 148
- Width = 289
- Height = 21
- TabOrder = 3
- end
- object eMLTime: TEdit
- Left = 32
- Top = 40
- Width = 289
- Height = 21
- TabOrder = 4
- end
- object bTryTime: TButton
- Left = 328
- Top = 38
- Width = 97
- Height = 25
- Caption = 'Check'
- TabOrder = 5
- OnClick = bTryTimeClick
- end
- end
- object cbOldestThread: TCheckBox
- Left = 16
- Top = 40
- Width = 401
- Height = 17
- Caption = 'The oldest message begins a thread by Subject/From/To'
- TabOrder = 1
- end
- object cbUseSpeaker: TCheckBox
- Left = 32
- Top = 136
- Width = 401
- Height = 17
- Caption = 'Use PC Speaker for beeps'
- TabOrder = 4
- end
- object cbUnreadAcross: TCheckBox
- Left = 32
- Top = 112
- Width = 401
- Height = 17
- Caption = 'Allow search for unread messages across accounts'
- TabOrder = 3
- end
- end
- object tsColGroups: TTabSheet
- HelpContext = 14059
- Caption = 'Colour Groups and Font'
- ImageIndex = 10
- object bNewCG: TButton
- Left = 344
- Top = 16
- Width = 105
- Height = 25
- Caption = '&New...'
- TabOrder = 0
- OnClick = bNewCGClick
- end
- object bEditCG: TButton
- Left = 344
- Top = 48
- Width = 105
- Height = 25
- Caption = '&Edit'
- TabOrder = 1
- OnClick = bEditCGClick
- end
- object bDeleteCG: TButton
- Left = 344
- Top = 80
- Width = 105
- Height = 25
- Caption = '&Delete'
- TabOrder = 2
- OnClick = bDeleteCGClick
- end
- object gbMLFont: TGroupBox
- Left = 8
- Top = 296
- Width = 441
- Height = 73
- Caption = 'Font'
- TabOrder = 3
- object bSelMsgListFont: TButton
- Tag = 2
- Left = 328
- Top = 24
- Width = 105
- Height = 25
- Caption = 'Change'
- TabOrder = 0
- OnClick = bFolderFontClick
- end
- object eMLFont: TEdit
- Left = 16
- Top = 16
- Width = 273
- Height = 49
- TabStop = False
- AutoSize = False
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 1
- end
- end
- object pnListBoxAligner: TPanel
- Tag = 11
- Left = 8
- Top = 12
- Width = 325
- Height = 265
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 4
- object lCGList: TListBox
- Left = 2
- Top = 19
- Width = 321
- Height = 244
- Style = lbOwnerDrawFixed
- Align = alClient
- BorderStyle = bsNone
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Reference Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- PopupMenu = pmCGPopup
- TabOrder = 0
- OnClick = lCGListClick
- OnDblClick = bEditCGClick
- OnDrawItem = lCGListDrawItem
- end
- object hList: THeaderControl
- Left = 2
- Top = 2
- Width = 321
- Height = 17
- Sections = <
- item
- AllowClick = False
- ImageIndex = -1
- MaxWidth = 200
- MinWidth = 200
- Text = 'Name'
- Width = 200
- end
- item
- AllowClick = False
- ImageIndex = -1
- MaxWidth = 130
- MinWidth = 130
- Text = 'Handle'
- Width = 130
- end>
- end
- end
- end
- object tsViewModes: TTabSheet
- Caption = 'View Modes'
- ImageIndex = 17
- OnShow = tsViewModesShow
- object Label7: TLabel
- Left = 12
- Top = 4
- Width = 60
- Height = 13
- Caption = 'View modes:'
- end
- object btnAddVM: TButton
- Left = 352
- Top = 20
- Width = 102
- Height = 25
- Caption = '&New'
- TabOrder = 1
- OnClick = btnAddVMClick
- end
- object btnDeleteVM: TButton
- Left = 352
- Top = 116
- Width = 102
- Height = 25
- Caption = '&Delete'
- Enabled = False
- TabOrder = 4
- OnClick = btnDeleteVMClick
- end
- object btnEditVM: TButton
- Left = 352
- Top = 84
- Width = 102
- Height = 25
- Caption = '&Edit ...'
- TabOrder = 3
- OnClick = btnEditVMClick
- end
- object lvModes: TListView
- Left = 8
- Top = 24
- Width = 337
- Height = 345
- Columns = <
- item
- Caption = 'Name'
- Width = 305
- end>
- HideSelection = False
- RowSelect = True
- PopupMenu = pmVModes
- SortType = stData
- TabOrder = 0
- ViewStyle = vsReport
- OnCompare = lvModesCompare
- OnDblClick = lvModesDblClick
- OnEditing = lvModesEditing
- OnSelectItem = lvModesSelectItem
- end
- object btnUseBy: TButton
- Left = 352
- Top = 148
- Width = 103
- Height = 25
- Caption = '&Use by ...'
- TabOrder = 5
- OnClick = btnUseByClick
- end
- object btnDuplicate: TButton
- Left = 352
- Top = 52
- Width = 103
- Height = 25
- Caption = 'New &from ...'
- TabOrder = 2
- OnClick = btnDuplicateClick
- end
- end
- object tsHeaders: TTabSheet
- Caption = 'Message Headers'
- ImageIndex = 15
- object Label16: TLabel
- Left = 8
- Top = 104
- Width = 65
- Height = 13
- Caption = '&Header fields:'
- end
- object gbMsgHeader: TGroupBox
- Left = 8
- Top = 8
- Width = 433
- Height = 81
- TabOrder = 0
- object lbHeadersDesc: TLabel
- Left = 8
- Top = 16
- Width = 417
- Height = 57
- AutoSize = False
- Caption =
- 'Here, you can edit the list of the message header fields that ca' +
- 'n be displayed at the Header of the message preview pane. You ca' +
- 'n also set/edit those fields in the message editor and refer to ' +
- 'them in templates using %HDRhhh and %HDRhhh='#39'...'#39' macros where h' +
- 'hh is the header'#39's RFC name'
- WordWrap = True
- end
- end
- object lvHeaders: TListView
- Left = 8
- Top = 120
- Width = 325
- Height = 241
- Columns = <
- item
- Caption = 'Display as'
- Width = 100
- end
- item
- Caption = 'RFC Name'
- Width = 100
- end
- item
- Caption = 'Address list'
- end
- item
- Caption = 'Editor'
- end
- item
- Caption = 'Scroll'
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- PopupMenu = pmHeaders
- TabOrder = 1
- ViewStyle = vsReport
- OnChange = lvHeadersChange
- end
- object bAddHeader: TButton
- Left = 344
- Top = 120
- Width = 105
- Height = 25
- Caption = '&Add'
- TabOrder = 2
- OnClick = bAddHeaderClick
- end
- object bEditHeader: TButton
- Left = 344
- Top = 160
- Width = 105
- Height = 25
- Caption = '&Edit'
- TabOrder = 3
- OnClick = bEditHeaderClick
- end
- object bDelHeader: TButton
- Left = 344
- Top = 196
- Width = 105
- Height = 25
- Caption = '&Delete'
- TabOrder = 4
- OnClick = bDelHeaderClick
- end
- object bMoveHeaderUp: TButton
- Tag = -1
- Left = 344
- Top = 304
- Width = 105
- Height = 25
- Caption = 'Move Up'
- TabOrder = 5
- OnClick = bMoveHeaderUpClick
- end
- object bMoveHeaderDown: TButton
- Tag = 1
- Left = 344
- Top = 336
- Width = 105
- Height = 25
- Caption = 'Move Down'
- TabOrder = 6
- OnClick = bMoveHeaderUpClick
- end
- end
- object tsHeaderLook: TTabSheet
- Caption = 'Header Layout'
- ImageIndex = 18
- object Label19: TLabel
- Left = 8
- Top = 208
- Width = 74
- Height = 13
- Caption = 'Sample header:'
- end
- object gbHeaderFont: TGroupBox
- Left = 8
- Top = 16
- Width = 441
- Height = 65
- Caption = '&Font'
- TabOrder = 0
- object eHdrFont: TEdit
- Left = 16
- Top = 24
- Width = 305
- Height = 33
- BorderStyle = bsNone
- Color = clBtnFace
- ReadOnly = True
- TabOrder = 0
- end
- object bHeaderFont: TButton
- Tag = 1
- Left = 336
- Top = 22
- Width = 97
- Height = 25
- Caption = 'Change...'
- TabOrder = 1
- OnClick = bFolderFontClick
- end
- end
- object gbHdrColour: TGroupBox
- Left = 8
- Top = 88
- Width = 441
- Height = 113
- Caption = 'Colours'
- TabOrder = 1
- object Label17: TLabel
- Left = 175
- Top = 52
- Width = 20
- Height = 13
- Alignment = taRightJustify
- Caption = '&Item'
- FocusControl = cbHdrColourItem
- end
- object Label18: TLabel
- Left = 165
- Top = 82
- Width = 30
- Height = 13
- Alignment = taRightJustify
- Caption = '&Colour'
- FocusControl = cbHdrColour
- end
- object Label20: TLabel
- Left = 35
- Top = 19
- Width = 160
- Height = 13
- Alignment = taRightJustify
- Caption = '&Set colours for the header pane in'
- FocusControl = cbHdrViewer
- end
- object cbHdrColourItem: TComboBox
- Left = 200
- Top = 48
- Width = 233
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 1
- Text = 'Field name text'
- OnChange = cbHdrColourItemChange
- Items.Strings = (
- 'Field name text'
- 'Field name background'
- 'Field value text'
- 'Field value background'
- 'Selected field text'
- 'Selected field background'
- 'Hot link text'
- 'Field separator')
- end
- object cbHdrColour: TColorBox
- Left = 200
- Top = 80
- Width = 233
- Height = 22
- Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
- ItemHeight = 16
- TabOrder = 2
- OnChange = cbHdrColourChange
- end
- object cbHdrViewer: TComboBox
- Left = 200
- Top = 16
- Width = 233
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'Viewer'
- OnChange = cbHdrViewerChange
- Items.Strings = (
- 'Viewer'
- 'Editor')
- end
- end
- object Panel2: TPanel
- Left = 8
- Top = 224
- Width = 441
- Height = 145
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 2
- object gInfo: TAddressGrid
- Left = 2
- Top = 2
- Width = 437
- Height = 141
- Align = alClient
- BorderStyle = bsNone
- ColCount = 2
- DefaultRowHeight = 20
- RowCount = 1
- FixedRows = 0
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goThumbTracking]
- TabOrder = 0
- SimpleLook = False
- ColWidths = (
- 16
- 421)
- end
- end
- end
- object tbWarnings: TTabSheet
- Caption = 'Protection'
- object gbVirus: TGroupBox
- Left = 8
- Top = 8
- Width = 441
- Height = 297
- Caption = 'Virus/Trojan Alert (attachment opening)'
- TabOrder = 0
- object Label4: TLabel
- Left = 16
- Top = 56
- Width = 141
- Height = 13
- Caption = '&Disable opening of these files:'
- FocusControl = eDisableMask
- end
- object Label5: TLabel
- Left = 16
- Top = 112
- Width = 219
- Height = 13
- Caption = '&Enable opening of these files without any alert:'
- FocusControl = eEnableMask
- end
- object Label6: TLabel
- Left = 16
- Top = 168
- Width = 188
- Height = 13
- Caption = '&Always display warning about these files'
- FocusControl = eWarnMask
- end
- object lMaskDesc: TLabel
- Left = 16
- Top = 224
- Width = 409
- Height = 57
- AutoSize = False
- Caption =
- 'NOTE: use "wildcards" to specify a file type is allowed. Use com' +
- 'mas to separate different flie masks. The *.* mask means "any fi' +
- 'le".'
- WordWrap = True
- end
- object cbDoubleExt: TCheckBox
- Left = 16
- Top = 24
- Width = 385
- Height = 17
- Caption =
- 'Display additional alert when a file has double extension (e.g.' +
- ' .TXT.EXE)'
- TabOrder = 0
- end
- object eDisableMask: TEdit
- Left = 16
- Top = 72
- Width = 409
- Height = 21
- TabOrder = 1
- end
- object eEnableMask: TEdit
- Left = 16
- Top = 128
- Width = 409
- Height = 21
- TabOrder = 2
- end
- object eWarnMask: TEdit
- Left = 16
- Top = 184
- Width = 409
- Height = 21
- TabOrder = 3
- end
- end
- object cbWarnSentExit: TCheckBox
- Left = 16
- Top = 328
- Width = 393
- Height = 17
- Caption = '&Warn about unsent mail in Outbox folders on exit'
- TabOrder = 1
- Visible = False
- end
- end
- object tsAntivirus: TTabSheet
- Caption = 'Anti-Virus'
- ImageIndex = 11
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 449
- Height = 121
- Caption = 'Virus Checking Plug-ins'
- TabOrder = 0
- object lAVItems: TListView
- Left = 8
- Top = 16
- Width = 329
- Height = 97
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'Version'
- end
- item
- Caption = 'Status'
- end
- item
- Caption = 'DLL path'
- Width = 200
- end>
- ReadOnly = True
- RowSelect = True
- PopupMenu = pmItems
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = lAVItemsChange
- OnDblClick = bConfigClick
- end
- object bAddAV: TButton
- Left = 344
- Top = 16
- Width = 97
- Height = 25
- Caption = '&Add'
- TabOrder = 1
- OnClick = bAddAVClick
- end
- object bConfig: TButton
- Left = 344
- Top = 52
- Width = 97
- Height = 25
- Caption = '&Configure'
- Enabled = False
- TabOrder = 2
- OnClick = bConfigClick
- end
- object bDeleteAV: TButton
- Left = 344
- Top = 88
- Width = 97
- Height = 25
- Caption = '&Delete'
- TabOrder = 3
- OnClick = bDeleteAVClick
- end
- end
- object GroupBox3: TGroupBox
- Left = 8
- Top = 136
- Width = 449
- Height = 233
- Caption = 'Default settings'
- TabOrder = 1
- object cbOpenAttach: TCheckBox
- Left = 8
- Top = 160
- Width = 433
- Height = 17
- Caption = 'Check attachments for viruses &before opening them from The Bat!'
- TabOrder = 2
- end
- object cbMail: TCheckBox
- Left = 8
- Top = 24
- Width = 420
- Height = 17
- Caption = 'Check incoming mail for viruses'
- TabOrder = 0
- end
- object GroupBox4: TGroupBox
- Left = 24
- Top = 48
- Width = 409
- Height = 97
- Caption = 'When a virus detected'
- TabOrder = 1
- object Label13: TLabel
- Left = 16
- Top = 48
- Width = 90
- Height = 13
- Caption = '&Perform this action:'
- end
- object cbSendNote: TCheckBox
- Left = 16
- Top = 24
- Width = 281
- Height = 17
- Caption = 'Send ¬ification to the sender'
- TabOrder = 0
- OnClick = cbSendNoteClick
- end
- object bAVTemplate: TButton
- Left = 304
- Top = 20
- Width = 91
- Height = 25
- Caption = '&Template'
- Enabled = False
- TabOrder = 1
- OnClick = bAVTemplateClick
- end
- object cbAction: TComboBox
- Left = 16
- Top = 64
- Width = 377
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- Items.Strings = (
- 'Try to cure infected parts'
- 'Remove infected parts'
- 'Forward the message to self'
- 'Delete the message'
- 'Move to the Quarantine folder')
- end
- end
- object cbSaveAttach: TCheckBox
- Left = 8
- Top = 184
- Width = 433
- Height = 17
- Caption = 'Check attachments before the user saves them to the disk'
- TabOrder = 3
- end
- object cbCheckOutgoing: TCheckBox
- Left = 8
- Top = 208
- Width = 433
- Height = 17
- Caption = 'Check outgoing mail for viruses'
- TabOrder = 4
- end
- end
- end
- object tsAntispam: TTabSheet
- Caption = 'Anti-spam'
- ImageIndex = 12
- object lSpamIntro: TLabel
- Left = 16
- Top = 152
- Width = 433
- Height = 65
- AutoSize = False
- Caption =
- 'Anti-SPAM plug-ins are checking messages on arrival and assign s' +
- 'ome score (out of 100) to each checked message. Because scoring ' +
- 'methods are different for each plug-in, we leave it up to you to' +
- ' which score will be used...'
- WordWrap = True
- end
- object gbAntiSpam: TGroupBox
- Left = 8
- Top = 8
- Width = 449
- Height = 133
- Caption = 'Anti-SPAM Plug-ins'
- TabOrder = 0
- object lSpam: TListView
- Left = 8
- Top = 16
- Width = 329
- Height = 105
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'Version'
- end
- item
- Caption = 'Status'
- end
- item
- Caption = 'DLL path'
- Width = 200
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- PopupMenu = pmPlugins
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = lSpamChange
- end
- object bAddSpam: TButton
- Left = 344
- Top = 16
- Width = 97
- Height = 25
- Caption = '&Add'
- TabOrder = 1
- OnClick = bAddSpamClick
- end
- object bConfigSpam: TButton
- Left = 344
- Top = 56
- Width = 97
- Height = 25
- Caption = '&Configure'
- Enabled = False
- TabOrder = 2
- OnClick = bConfigSpamClick
- end
- object bDeleteSpam: TButton
- Left = 344
- Top = 96
- Width = 97
- Height = 25
- Caption = '&Delete'
- Enabled = False
- TabOrder = 3
- OnClick = bDeleteSpamClick
- end
- end
- object rgSpamScoreType: TRadioGroup
- Left = 16
- Top = 216
- Width = 441
- Height = 41
- Caption = 'Out of &100 score to be used for actions below:'
- Columns = 3
- ItemIndex = 0
- Items.Strings = (
- 'A&verage'
- 'Ma&ximal'
- '&Minimal')
- TabOrder = 1
- end
- object cbDeleteJunk: TCheckBox
- Left = 16
- Top = 276
- Width = 377
- Height = 17
- Caption = 'Delete a message if the score is greater than'
- TabOrder = 2
- OnClick = cbDeleteJunkClick
- end
- object cbMoveJunk: TCheckBox
- Left = 16
- Top = 300
- Width = 377
- Height = 17
- Caption = 'Move a message to the Junk folder if the score is greater than'
- TabOrder = 4
- OnClick = cbMoveJunkClick
- end
- object cbMarkJunkRead: TCheckBox
- Left = 32
- Top = 322
- Width = 369
- Height = 17
- Caption = 'Mark stored junk mail as read'
- TabOrder = 6
- end
- object cbGlobalJunk: TCheckBox
- Left = 16
- Top = 364
- Width = 369
- Height = 17
- Caption = 'Use the common Junk folder'
- TabOrder = 8
- end
- object cbMoveJunkToJunk: TCheckBox
- Left = 16
- Top = 344
- Width = 385
- Height = 17
- Caption = 'Move messages marked as junk to the Junk folder'
- TabOrder = 7
- end
- object eDelJunk: TXSpinEdit
- Left = 400
- Top = 274
- Width = 57
- Height = 21
- TabOrder = 3
- Text = '1'
- MinValue = 1
- MaxValue = 100
- Value = 1
- Step = 1
- end
- object eMoveJunk: TXSpinEdit
- Left = 400
- Top = 298
- Width = 57
- Height = 21
- TabOrder = 5
- Text = '1'
- MinValue = 1
- MaxValue = 100
- Value = 1
- Step = 1
- end
- end
- object tsEditorViewer: TTabSheet
- Caption = 'Viewer/Editor'
- ImageIndex = 13
- object lPlainTextViewer: TLabel
- Left = 16
- Top = 80
- Width = 146
- Height = 13
- Caption = '&View plain text messages using'
- FocusControl = cbViewType
- end
- object lViewerIntro: TLabel
- Left = 16
- Top = 8
- Width = 425
- Height = 73
- AutoSize = False
- Caption =
- 'It is possible to view messages using different kind of text vie' +
- 'wers. Those viewers differ by the set of features provided and l' +
- 'imitations applied (for example, the plain text viewer supports ' +
- 'vertical block selection but requires fixed width fonts only). P' +
- 'lease choose the viewer suitable for your needs.'
- WordWrap = True
- end
- object lEditorIntro: TLabel
- Left = 16
- Top = 224
- Width = 433
- Height = 105
- AutoSize = False
- Caption =
- 'You can choose which text editor you are going to use by default' +
- '. The MicroEd editor is a professional editor made specifically ' +
- 'for writing e-mail messages that provides WYSIWYG editing, While' +
- '-You-Type spell checking, quotation control and working with fix' +
- 'ed width fonts only. The Windows Editor is a plain text editor w' +
- 'ith a standard set of features. Please choose which editor you w' +
- 'ish to use by default (you can switch editors right in the messa' +
- 'ge editor using the "Options|Message Format" menu)'
- WordWrap = True
- end
- object Label11: TLabel
- Left = 16
- Top = 328
- Width = 131
- Height = 13
- Caption = '&Default message text editor:'
- FocusControl = cbEditor
- end
- object lHTMLViewMode: TLabel
- Left = 16
- Top = 124
- Width = 134
- Height = 13
- Caption = 'View HTML messages using'
- end
- object lTextHTMLViewMode: TLabel
- Left = 16
- Top = 168
- Width = 276
- Height = 13
- Caption = 'View messages with alternative layout (Text and HTML) as'
- end
- object cbViewType: TComboBox
- Left = 16
- Top = 96
- Width = 433
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 0
- Text = 'Plain Text Viewer (fast - fixed width fonts only)'
- OnChange = cbViewTypeChange
- Items.Strings = (
- 'Plain Text Viewer (fast - fixed width fonts only)'
- 'Rich Text/HTML Viewer (slower but with proportional fonts)')
- end
- object cbEditor: TComboBox
- Left = 16
- Top = 344
- Width = 433
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 3
- Text =
- 'Plain Text (MicroEd) - MicroStar compatible, fixed width fonts ' +
- 'only'
- Items.Strings = (
-
- 'Plain Text (MicroEd) - MicroStar compatible, fixed width fonts ' +
- 'only'
- 'Plain Text (Windows) - Windows-compatible, proportional fonts'
- 'HTML with alternative plain text part'
- 'HTML only')
- end
- object cbHTMLViewMode: TComboBox
- Left = 16
- Top = 140
- Width = 433
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 1
- Text = 'HTML only'
- Items.Strings = (
- 'HTML only'
- 'HTML and Plain Text version'
- 'Plain Text version and HTML'
- 'Plain Text version only')
- end
- object cbTextHTMLViewMode: TComboBox
- Left = 16
- Top = 184
- Width = 433
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 2
- Text = 'HTML only'
- Items.Strings = (
- 'HTML only'
- 'HTML and Plain Text version'
- 'Plain Text version and HTML'
- 'Plain Text version only')
- end
- end
- object tsEditor: TTabSheet
- Caption = 'Editor preferences'
- ImageIndex = 7
- object GroupBox5: TGroupBox
- Left = 8
- Top = 8
- Width = 449
- Height = 129
- Caption = 'General (common for all editors)'
- TabOrder = 0
- object lWrapText: TLabel
- Left = 16
- Top = 24
- Width = 58
- Height = 13
- Caption = '&Wrap text at'
- end
- object lWrapChars: TLabel
- Left = 80
- Top = 44
- Width = 50
- Height = 13
- Caption = 'characters'
- end
- object lAutoSave: TLabel
- Left = 184
- Top = 24
- Width = 77
- Height = 13
- Caption = 'A&uto-save every'
- end
- object lAutoSaveSecs: TLabel
- Left = 248
- Top = 44
- Width = 17
- Height = 13
- Caption = 'sec'
- end
- object lQuote: TLabel
- Left = 16
- Top = 72
- Width = 78
- Height = 13
- Caption = 'Quote name limit'
- end
- object lQuoteLimitChars: TLabel
- Left = 80
- Top = 92
- Width = 50
- Height = 13
- Caption = 'characters'
- end
- object cbWrapQuotes: TCheckBox
- Left = 184
- Top = 88
- Width = 257
- Height = 21
- Caption = 'Smart Wrapping of quoted text'
- TabOrder = 3
- WordWrap = True
- end
- object eLeft: TXSpinEdit
- Left = 16
- Top = 40
- Width = 57
- Height = 21
- TabOrder = 0
- Text = '0'
- MinValue = 0
- MaxValue = 32000
- Value = 0
- Step = 1
- end
- object eQuoteLen: TXSpinEdit
- Left = 16
- Top = 88
- Width = 57
- Height = 21
- TabOrder = 2
- Text = '1'
- MinValue = 1
- MaxValue = 60
- Value = 1
- Step = 1
- end
- object eAutosave: TXSpinEdit
- Left = 184
- Top = 40
- Width = 57
- Height = 21
- TabOrder = 1
- Text = '0'
- MinValue = 0
- MaxValue = 10000000
- Value = 0
- Step = 10
- end
- end
- object GroupBox6: TGroupBox
- Left = 8
- Top = 144
- Width = 449
- Height = 225
- Caption = 'MicroEd-specific options'
- TabOrder = 1
- object gbPaste: TGroupBox
- Left = 224
- Top = 24
- Width = 217
- Height = 57
- Caption = 'Pasting different block type'
- TabOrder = 7
- object cbAutoInsert: TCheckBox
- Left = 8
- Top = 16
- Width = 201
- Height = 17
- Caption = 'S&kip prompt'
- TabOrder = 0
- end
- object cbAutoAdjust: TCheckBox
- Left = 8
- Top = 32
- Width = 201
- Height = 17
- Caption = 'Adjust auto&matically'
- TabOrder = 1
- end
- end
- object gbBlocks: TGroupBox
- Left = 224
- Top = 88
- Width = 217
- Height = 57
- Caption = 'Blocks'
- TabOrder = 8
- object cbPersistentBlock: TCheckBox
- Left = 8
- Top = 16
- Width = 185
- Height = 17
- Caption = '&Persistent blocks'
- TabOrder = 0
- end
- object cbOverwriteBlock: TCheckBox
- Left = 8
- Top = 32
- Width = 201
- Height = 17
- Caption = 'O&verwrite blocks'
- TabOrder = 1
- end
- end
- object gbShape: TGroupBox
- Left = 224
- Top = 152
- Width = 217
- Height = 57
- Caption = 'Cursor shape'
- TabOrder = 9
- object cbBlockInsert: TCheckBox
- Left = 8
- Top = 16
- Width = 201
- Height = 17
- Caption = 'Blo&ck insert cursor'
- TabOrder = 0
- end
- object cbBriefCursor: TCheckBox
- Left = 8
- Top = 32
- Width = 201
- Height = 17
- Caption = 'BRI&EF cursor shape'
- TabOrder = 1
- end
- end
- object cbAutowrap: TCheckBox
- Left = 16
- Top = 32
- Width = 201
- Height = 17
- Caption = '&Auto-wrap'
- TabOrder = 0
- end
- object cbAutoFmt: TCheckBox
- Left = 16
- Top = 58
- Width = 201
- Height = 17
- Caption = 'Auto-forma&t'
- TabOrder = 1
- end
- object cbWrapJustify: TCheckBox
- Left = 16
- Top = 85
- Width = 201
- Height = 17
- Caption = '&Justify on wrap'
- TabOrder = 2
- end
- object cbSmartTab: TCheckBox
- Left = 16
- Top = 112
- Width = 201
- Height = 17
- Caption = #39'&Smart'#39' tabs'
- TabOrder = 3
- end
- object cbAutoIndent: TCheckBox
- Left = 16
- Top = 138
- Width = 201
- Height = 17
- Caption = 'Auto &Indent'
- TabOrder = 4
- end
- object cbBSIndent: TCheckBox
- Left = 16
- Top = 165
- Width = 201
- Height = 17
- Caption = '&Backspace unindents'
- TabOrder = 5
- end
- object cbFindAtCursor: TCheckBox
- Left = 16
- Top = 192
- Width = 201
- Height = 17
- Caption = '&Find text at cursor'
- TabOrder = 6
- end
- end
- end
- object tsEditorView: TTabSheet
- Caption = 'Plain Text/MicroEd'
- ImageIndex = 8
- object gbMicroEdView: TGroupBox
- Left = 8
- Top = 8
- Width = 449
- Height = 361
- Caption = 'Plain text viewer/MicroEd layout'
- TabOrder = 0
- object Label12: TLabel
- Left = 8
- Top = 264
- Width = 24
- Height = 13
- Caption = '&Font:'
- FocusControl = cbPlainFont
- end
- object Label14: TLabel
- Left = 272
- Top = 264
- Width = 23
- Height = 13
- Caption = '&Size:'
- FocusControl = cbPlainFontSize
- end
- object Label15: TLabel
- Left = 8
- Top = 288
- Width = 23
- Height = 13
- Caption = '&Item:'
- end
- object lPlainColor: TLabel
- Left = 272
- Top = 288
- Width = 33
- Height = 13
- Caption = '&Colour:'
- end
- object Panel1: TPanel
- Tag = 11
- Left = 8
- Top = 16
- Width = 433
- Height = 233
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- OnMouseDown = pnViewerMouseDown
- object eMsg: TTextEditor
- Left = 2
- Top = 2
- Width = 429
- Height = 229
- BgColor = clBlack
- TextColor = clBlack
- SelColor = clBlack
- SelBgColor = clBlack
- QuoteColor = clBlack
- RefColor = clBlack
- Kludge1Color = clBlack
- Kludge2Color = clBlack
- Kludge3Color = clBlack
- ReadOnly = False
- FontCharset = 1
- Enabled = False
- TabOrder = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpFixed
- Font.Style = []
- Align = alClient
- end
- end
- object cbPlainFont: TComboBox
- Left = 88
- Top = 260
- Width = 161
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 1
- OnChange = cbPlainFontChange
- end
- object cbPlainFontSize: TComboBox
- Left = 352
- Top = 260
- Width = 89
- Height = 21
- ItemHeight = 13
- TabOrder = 2
- OnChange = cbPlainFontChange
- OnKeyPress = cbMVSizeKeyPress
- Items.Strings = (
- '8'
- '9'
- '10'
- '12'
- '14'
- '16'
- '18'
- '20')
- end
- object cbPlainItem: TComboBox
- Left = 8
- Top = 304
- Width = 249
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 3
- Text = 'Background'
- OnChange = cbPlainItemChange
- Items.Strings = (
- 'Background'
- 'Plain text'
- 'Selection background'
- 'Selected text'
- 'Quotation (Odd)'
- 'Quotation (Even)'
- 'References')
- end
- object cbPlainBold: TCheckBox
- Tag = 2
- Left = 8
- Top = 336
- Width = 137
- Height = 17
- Caption = '&Bold'
- TabOrder = 5
- OnClick = cbPlainULClick
- end
- object cbPlainItalic: TCheckBox
- Tag = 1
- Left = 152
- Top = 336
- Width = 137
- Height = 17
- Caption = 'I&talic'
- TabOrder = 6
- OnClick = cbPlainULClick
- end
- object cbPlainUL: TCheckBox
- Left = 296
- Top = 336
- Width = 145
- Height = 17
- Caption = '&Underline'
- TabOrder = 7
- OnClick = cbPlainULClick
- end
- object cbMEColor: TColorBox
- Left = 272
- Top = 304
- Width = 169
- Height = 22
- Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
- ItemHeight = 16
- TabOrder = 4
- OnChange = cbMEColorChange
- end
- end
- end
- object tsViewer: TTabSheet
- Caption = 'HTML/Windows Editor'
- object gb_HTMLView: TGroupBox
- Left = 8
- Top = 8
- Width = 441
- Height = 361
- Caption = 'HTML/Windows Editor layout'
- TabOrder = 0
- object lMVSize: TLabel
- Left = 272
- Top = 312
- Width = 23
- Height = 13
- Caption = '&Size:'
- FocusControl = cbMVSize
- end
- object lmvFont: TLabel
- Left = 8
- Top = 312
- Width = 24
- Height = 13
- Caption = '&Font:'
- FocusControl = cbMVFont
- end
- object lMVColor: TLabel
- Left = 272
- Top = 264
- Width = 33
- Height = 13
- Caption = '&Colour:'
- end
- object Label8: TLabel
- Left = 8
- Top = 264
- Width = 23
- Height = 13
- Caption = '&Item:'
- end
- object pnViewer: TPanel
- Tag = 11
- Left = 8
- Top = 16
- Width = 425
- Height = 241
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- OnMouseDown = pnViewerMouseDown
- end
- object cbViewItem: TComboBox
- Left = 8
- Top = 280
- Width = 249
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnChange = cbViewItemChange
- Items.Strings = (
- 'Regular Text'
- 'Background'
- 'Quoted Text (odd)'
- 'Quotation Prefix (odd)'
- 'Hyper Links'
- 'RFC 822 Headers'
- 'Fixed Width Text'
- 'Signature Text'
- 'Quoted Text (even)'
- 'Quotation Prefix (even)')
- end
- object cbMVSize: TComboBox
- Left = 352
- Top = 308
- Width = 81
- Height = 21
- ItemHeight = 13
- TabOrder = 3
- OnChange = cbMVSizeChange
- OnKeyPress = cbMVSizeKeyPress
- Items.Strings = (
- '8'
- '9'
- '10'
- '12'
- '14'
- '16'
- '18'
- '20')
- end
- object cbMVBold: TCheckBox
- Tag = 2
- Left = 8
- Top = 336
- Width = 137
- Height = 17
- Caption = '&Bold'
- TabOrder = 4
- OnClick = cbMVUnderlineClick
- end
- object cbMVFont: TComboBox
- Left = 104
- Top = 308
- Width = 153
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 2
- OnChange = cbMVFontChange
- end
- object cbMVItalic: TCheckBox
- Tag = 1
- Left = 152
- Top = 336
- Width = 137
- Height = 17
- Caption = 'I&talic'
- TabOrder = 5
- OnClick = cbMVUnderlineClick
- end
- object cbMVUnderline: TCheckBox
- Left = 296
- Top = 336
- Width = 134
- Height = 17
- Caption = '&Underline'
- TabOrder = 6
- OnClick = cbMVUnderlineClick
- end
- object cbRTVColor: TColorBox
- Left = 272
- Top = 280
- Width = 161
- Height = 22
- Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames]
- ItemHeight = 16
- TabOrder = 7
- OnChange = cbRTVColorChange
- end
- end
- end
- object tsSrcView: TTabSheet
- Caption = 'Source Viewer'
- object lItem: TLabel
- Left = 8
- Top = 328
- Width = 23
- Height = 13
- Caption = 'Item:'
- end
- object lSrcSample: TLabel
- Left = 8
- Top = 8
- Width = 100
- Height = 13
- Caption = 'Sample Source view:'
- end
- object pnView: TPanel
- Tag = 11
- Left = 8
- Top = 24
- Width = 433
- Height = 297
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- end
- object cbItem: TComboBox
- Left = 8
- Top = 344
- Width = 337
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- Items.Strings = (
- 'Font'
- 'Header fields colour'
- 'Header text colour'
- 'Plain text colour'
- 'MIME part header fields colour'
- 'MIME part header text colour'
- 'MIME preamble/postamble colour'
- 'MIME part boundary (odd) colour'
- 'MIME part boundary (even) colour')
- end
- object bChangeSrc: TButton
- Left = 360
- Top = 342
- Width = 91
- Height = 25
- Caption = '&Change...'
- TabOrder = 2
- OnClick = bChangeSrcClick
- end
- end
- object tsXLAT: TTabSheet
- Caption = 'Character Sets (XLAT)'
- ImageIndex = 14
- object bAddXLAT: TButton
- Left = 368
- Top = 16
- Width = 89
- Height = 25
- Caption = '&Add...'
- TabOrder = 0
- OnClick = bAddXLATClick
- end
- object bDeleteXLAT: TButton
- Left = 368
- Top = 48
- Width = 89
- Height = 25
- Caption = '&Delete'
- Enabled = False
- TabOrder = 1
- OnClick = bDeleteXLATClick
- end
- object bEditXLAT: TButton
- Left = 368
- Top = 84
- Width = 89
- Height = 25
- Caption = '&Edit...'
- Enabled = False
- TabOrder = 2
- OnClick = bEditXLATClick
- end
- object bResetXLAT: TButton
- Left = 368
- Top = 344
- Width = 89
- Height = 25
- Caption = '&Reset'
- TabOrder = 3
- OnClick = bResetXLATClick
- end
- object lTables: TListView
- Left = 8
- Top = 16
- Width = 353
- Height = 353
- Columns = <
- item
- Caption = 'Name'
- Width = 200
- end
- item
- Caption = 'Character set'
- Width = 140
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- TabOrder = 4
- ViewStyle = vsReport
- OnChange = lTablesChange
- OnDblClick = bEditXLATClick
- end
- end
- object tsHotkeys: TTabSheet
- Caption = 'System Hot Keys'
- ImageIndex = 15
- object lComment: TLabel
- Left = 16
- Top = 16
- Width = 425
- Height = 49
- AutoSize = False
- Caption =
- 'You can define system Hot-Keys for functions you can use even wh' +
- 'en other applications are active.'
- WordWrap = True
- end
- object lHotKeys: TListView
- Left = 8
- Top = 72
- Width = 433
- Height = 289
- Columns = <
- item
- Caption = 'Function'
- Width = 250
- end
- item
- Caption = 'Hotkey'
- Width = 178
- end>
- ReadOnly = True
- RowSelect = True
- PopupMenu = hkPopup
- TabOrder = 0
- ViewStyle = vsReport
- OnDblClick = mEditHKClick
- OnEnter = lHotKeysEnter
- end
- end
- object tsPlugins: TTabSheet
- Caption = 'Plug-Ins'
- ImageIndex = 16
- object lvPlugIns: TListView
- Left = 8
- Top = 16
- Width = 449
- Height = 321
- Columns = <
- item
- Caption = 'Name'
- Width = 150
- end
- item
- Caption = 'Version'
- end
- item
- Caption = 'Status'
- end
- item
- Caption = 'Scope'
- Width = 80
- end
- item
- Caption = 'DLL path'
- Width = 200
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- PopupMenu = pmPlugins
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = lvPlugInsChange
- end
- object bAddPlugin: TButton
- Left = 8
- Top = 344
- Width = 97
- Height = 25
- Caption = '&Add'
- TabOrder = 1
- OnClick = bAddSpamClick
- end
- object bDelPlugin: TButton
- Left = 125
- Top = 344
- Width = 97
- Height = 25
- Caption = '&Delete'
- Enabled = False
- TabOrder = 2
- OnClick = bDeleteSpamClick
- end
- object bConfigPlugin: TButton
- Left = 242
- Top = 344
- Width = 97
- Height = 25
- Caption = '&Configure'
- Enabled = False
- TabOrder = 3
- OnClick = bConfigSpamClick
- end
- object bInfoPlugIn: TButton
- Left = 360
- Top = 344
- Width = 97
- Height = 25
- Caption = '&Information'
- Enabled = False
- TabOrder = 4
- OnClick = bInfoPlugInClick
- end
- end
- end
- object bOK: TButton
- Left = 328
- Top = 416
- Width = 97
- Height = 25
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 2
- OnClick = bOKClick
- end
- object bCancel: TButton
- Left = 440
- Top = 416
- Width = 97
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- end
- object bHelp: TButton
- Left = 552
- Top = 416
- Width = 97
- Height = 25
- Caption = 'Help'
- TabOrder = 4
- OnClick = bHelpClick
- end
- object dFont: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 20
- Options = [fdLimitSize]
- Left = 8
- Top = 416
- end
- object dColor: TColorDialog
- Left = 72
- Top = 416
- end
- object pmCGPopup: TPopupMenu
- OnPopup = pmCGPopupPopup
- Left = 173
- Top = 416
- object mNewCG: TMenuItem
- Caption = '&New'
- ShortCut = 45
- OnClick = bNewCGClick
- end
- object mEditCG: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = bEditCGClick
- end
- object mDeleteCG: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = bDeleteCGClick
- end
- end
- object pmAdd: TPopupMenu
- Left = 136
- Top = 416
- object mExternal: TMenuItem
- Caption = '&External Plug-in...'
- OnClick = mExternalClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object mAddKAV: TMenuItem
- Caption = 'Kaspersky(TM) Anti-Virus'
- OnClick = mAddKAVClick
- end
- end
- object dOpen: TOpenDialog
- DefaultExt = 'BAV'
- Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
- Left = 40
- Top = 416
- end
- object pmItems: TPopupMenu
- OnPopup = pmItemsPopup
- Left = 104
- Top = 416
- object mConfig: TMenuItem
- Caption = '&Configure'
- Default = True
- ShortCut = 13
- OnClick = mConfigClick
- end
- object mAddAV: TMenuItem
- Caption = '&Add'
- ShortCut = 45
- OnClick = mExternalClick
- end
- object mDelete: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = mDeleteClick
- end
- object mMoveUp: TMenuItem
- Tag = -1
- Caption = 'Move &up'
- ShortCut = 16422
- OnClick = mMoveUpClick
- end
- object mDown: TMenuItem
- Tag = 1
- Caption = 'Move d&own'
- ShortCut = 16424
- OnClick = mMoveUpClick
- end
- end
- object hkPopup: TPopupMenu
- OnPopup = hkPopupPopup
- Left = 216
- Top = 416
- object mEditHK: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = mEditHKClick
- end
- object mClearHK: TMenuItem
- Caption = '&Clear'
- ShortCut = 46
- OnClick = mClearHKClick
- end
- end
- object pmHeaders: TPopupMenu
- Left = 256
- Top = 416
- object pmhAdd: TMenuItem
- Caption = '&Add'
- ShortCut = 45
- OnClick = bAddHeaderClick
- end
- object pmhEdit: TMenuItem
- Caption = '&Edit'
- ShortCut = 13
- OnClick = bEditHeaderClick
- end
- object pmhDelete: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = bDelHeaderClick
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object mHeaderUp: TMenuItem
- Tag = -1
- Caption = 'Move &Up'
- ShortCut = 16422
- OnClick = bMoveHeaderUpClick
- end
- object mHeaderDown: TMenuItem
- Tag = 1
- Caption = 'Move Do&wn'
- ShortCut = 16424
- OnClick = bMoveHeaderUpClick
- end
- end
- object pmPlugins: TPopupMenu
- Left = 296
- Top = 416
- object mConfigurePlugin: TMenuItem
- Caption = '&Configure'
- Default = True
- ShortCut = 13
- OnClick = bConfigSpamClick
- end
- object mAddPlugin: TMenuItem
- Caption = '&Add'
- ShortCut = 45
- OnClick = bAddSpamClick
- end
- object mInfoPlugin: TMenuItem
- Caption = '&Information'
- ShortCut = 16397
- OnClick = bInfoPlugInClick
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object mDelPlugin: TMenuItem
- Caption = '&Delete'
- ShortCut = 46
- OnClick = bDeleteSpamClick
- end
- end
- object pmVModes: TPopupMenu
- Left = 327
- Top = 416
- object miNew: TMenuItem
- Caption = 'New'
- ShortCut = 45
- OnClick = btnAddVMClick
- end
- object miEdit: TMenuItem
- Caption = 'Edit'
- Default = True
- ShortCut = 13
- OnClick = btnEditVMClick
- end
- object miDelete: TMenuItem
- Caption = 'Delete'
- ShortCut = 46
- OnClick = btnDeleteVMClick
- end
- object miUseBy: TMenuItem
- Caption = 'Use by...'
- ShortCut = 8205
- OnClick = btnUseByClick
- end
- end
- end
-