home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / tema / thebat / download / update / thebat.exe / 0 / RCDATA / TMSGEDITOR / TMSGEDITOR.txt
Text File  |  2001-09-09  |  48KB  |  1,936 lines

  1. object MsgEditor: TMsgEditor
  2.   Left = 132
  3.   Top = 48
  4.   Width = 616
  5.   Height = 434
  6.   HelpContext = 14003
  7.   Caption = 'Edit Mail Message'
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   Menu = EditMenu
  14.   Position = poDefaultPosOnly
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCloseQuery = FormCloseQuery
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   OnKeyDown = FormKeyDown
  21.   OnShow = FormShow
  22.   PixelsPerInch = 96
  23.   TextHeight = 13
  24.   object DockTop: TDock97
  25.     Left = 0
  26.     Top = 0
  27.     Width = 608
  28.     Height = 32
  29.     object pnTools: TToolbar97
  30.       Left = 0
  31.       Top = 0
  32.       Caption = 'Toolbar'
  33.       DockedTo = DockTop
  34.       DockPos = 0
  35.       TabOrder = 0
  36.       object bQPasteFrom: TToolbarButton97
  37.         Left = 366
  38.         Top = 0
  39.         Width = 30
  40.         Height = 28
  41.         Hint = 'Paste from a file as Quotation'
  42.         ParentShowHint = False
  43.         ShowHint = True
  44.         OnClick = mQPasteFromClick
  45.       end
  46.       object bPasteFrom: TToolbarButton97
  47.         Left = 336
  48.         Top = 0
  49.         Width = 30
  50.         Height = 28
  51.         Hint = 'Paste from a file'
  52.         ParentShowHint = False
  53.         ShowHint = True
  54.         OnClick = mPasteFromClick
  55.       end
  56.       object bSend: TToolbarButton97
  57.         Left = 0
  58.         Top = 0
  59.         Width = 30
  60.         Height = 28
  61.         Hint = 'Send the letter'
  62.         ParentShowHint = False
  63.         ShowHint = True
  64.         OnClick = bSend1Click
  65.       end
  66.       object bSearch: TToolbarButton97
  67.         Left = 246
  68.         Top = 0
  69.         Width = 30
  70.         Height = 28
  71.         Hint = 'Search Text'
  72.         ParentShowHint = False
  73.         ShowHint = True
  74.         OnClick = bSearch1Click
  75.       end
  76.       object bQPaste: TToolbarButton97
  77.         Left = 216
  78.         Top = 0
  79.         Width = 30
  80.         Height = 28
  81.         Hint = 'Paste Quoted'
  82.         ParentShowHint = False
  83.         ShowHint = True
  84.         OnClick = mQPasteClick
  85.       end
  86.       object bPaste: TToolbarButton97
  87.         Left = 186
  88.         Top = 0
  89.         Width = 30
  90.         Height = 28
  91.         Hint = 'Paste from Clipboard'
  92.         ParentShowHint = False
  93.         ShowHint = True
  94.         OnClick = mPasteClick
  95.       end
  96.       object bCut: TToolbarButton97
  97.         Left = 156
  98.         Top = 0
  99.         Width = 30
  100.         Height = 28
  101.         Hint = 'Cut to Clipboard'
  102.         ParentShowHint = False
  103.         ShowHint = True
  104.         OnClick = mCutClick
  105.       end
  106.       object bCopy: TToolbarButton97
  107.         Left = 126
  108.         Top = 0
  109.         Width = 30
  110.         Height = 28
  111.         Hint = 'Copy to Clipboard'
  112.         ParentShowHint = False
  113.         ShowHint = True
  114.         OnClick = mCopyClick
  115.       end
  116.       object bSave: TToolbarButton97
  117.         Left = 90
  118.         Top = 0
  119.         Width = 30
  120.         Height = 28
  121.         Hint = 'Save the message'
  122.         ParentShowHint = False
  123.         ShowHint = True
  124.         OnClick = tmSaveTimer
  125.       end
  126.       object bDraft: TToolbarButton97
  127.         Tag = 1
  128.         Left = 60
  129.         Top = 0
  130.         Width = 30
  131.         Height = 28
  132.         Hint = 'Save draft'
  133.         ParentShowHint = False
  134.         ShowHint = True
  135.         OnClick = bStore1Click
  136.       end
  137.       object bStore: TToolbarButton97
  138.         Left = 30
  139.         Top = 0
  140.         Width = 30
  141.         Height = 28
  142.         Hint = 'Put the letter in Outbox'
  143.         ParentShowHint = False
  144.         ShowHint = True
  145.         OnClick = bStore1Click
  146.       end
  147.       object ToolbarSep971: TToolbarSep97
  148.         Left = 396
  149.         Top = 0
  150.       end
  151.       object bReplace: TToolbarButton97
  152.         Left = 276
  153.         Top = 0
  154.         Width = 30
  155.         Height = 28
  156.         Hint = 'Search & Replace'
  157.         ParentShowHint = False
  158.         ShowHint = True
  159.         OnClick = bReplace1Click
  160.       end
  161.       object bCopyTo: TToolbarButton97
  162.         Left = 306
  163.         Top = 0
  164.         Width = 30
  165.         Height = 28
  166.         Hint = 'Copy to a file'
  167.         ParentShowHint = False
  168.         ShowHint = True
  169.         OnClick = mCopyToClick
  170.       end
  171.       object ToolbarSep972: TToolbarSep97
  172.         Left = 120
  173.         Top = 0
  174.       end
  175.       object bAttach: TToolbarButton97
  176.         Tag = 10
  177.         Left = 402
  178.         Top = 0
  179.         Width = 30
  180.         Height = 28
  181.         Hint = 'Attach a file'
  182.         ParentShowHint = False
  183.         ShowHint = True
  184.         OnClick = mAddMIMEClick
  185.       end
  186.       object bCancel: TToolbarButton97
  187.         Left = 438
  188.         Top = 0
  189.         Width = 30
  190.         Height = 28
  191.         Hint = 'Cancel the message'
  192.         ParentShowHint = False
  193.         ShowHint = True
  194.         OnClick = mCancelClick
  195.       end
  196.       object ToolbarSep973: TToolbarSep97
  197.         Left = 432
  198.         Top = 0
  199.       end
  200.     end
  201.   end
  202.   object DockBottom: TDock97
  203.     Left = 0
  204.     Top = 379
  205.     Width = 608
  206.     Height = 9
  207.     Position = dpBottom
  208.   end
  209.   object DockLeft: TDock97
  210.     Left = 0
  211.     Top = 32
  212.     Width = 9
  213.     Height = 347
  214.     Position = dpLeft
  215.   end
  216.   object DockRight: TDock97
  217.     Left = 599
  218.     Top = 32
  219.     Width = 9
  220.     Height = 347
  221.     Position = dpRight
  222.   end
  223.   object Panel1: TPanel
  224.     Left = 9
  225.     Top = 32
  226.     Width = 590
  227.     Height = 347
  228.     Align = alClient
  229.     BevelOuter = bvNone
  230.     BevelWidth = 9
  231.     TabOrder = 4
  232.     object Panel3: TPanel
  233.       Left = 0
  234.       Top = 96
  235.       Width = 590
  236.       Height = 251
  237.       Align = alClient
  238.       BevelOuter = bvNone
  239.       TabOrder = 0
  240.       OnClick = mShowToolsClick
  241.       object Split1: TSplitter
  242.         Left = 57
  243.         Top = 0
  244.         Width = 3
  245.         Height = 231
  246.         Cursor = crHSplit
  247.         Beveled = False
  248.       end
  249.       object pnAttach: TPanel
  250.         Left = 0
  251.         Top = 0
  252.         Width = 57
  253.         Height = 231
  254.         Align = alLeft
  255.         BevelOuter = bvNone
  256.         TabOrder = 2
  257.         object fList: TListView
  258.           Left = 0
  259.           Top = 0
  260.           Width = 57
  261.           Height = 231
  262.           HelpContext = 10041
  263.           Align = alClient
  264.           OnDblClick = fListDblClick
  265.           Columns = <>
  266.           ReadOnly = True
  267.           IconOptions.AutoArrange = True
  268.           PopupMenu = AttachPopup
  269.           ShowColumnHeaders = False
  270.           TabOrder = 0
  271.           LargeImages = fImages
  272.           SmallImages = fImages
  273.           StateImages = fImages
  274.         end
  275.       end
  276.       object sBar: TStatusBar
  277.         Left = 0
  278.         Top = 231
  279.         Width = 590
  280.         Height = 20
  281.         Panels = <
  282.           item
  283.             Text = '    1:1'
  284.             Width = 80
  285.           end
  286.           item
  287.             Width = 70
  288.           end
  289.           item
  290.             Text = 'Stream'
  291.             Width = 70
  292.           end
  293.           item
  294.             Text = 'Insert'
  295.             Width = 70
  296.           end
  297.           item
  298.             Style = psOwnerDraw
  299.             Text = 'Normal'
  300.             Width = 64
  301.           end
  302.           item
  303.             Text = 'Account'
  304.             Width = 120
  305.           end
  306.           item
  307.             Text = 'Windows'
  308.             Width = 50
  309.           end>
  310.         SimplePanel = False
  311.         OnMouseDown = sBarMouseDown
  312.         OnDrawPanel = sBarDrawPanel
  313.       end
  314.       object Panel2: TPanel
  315.         Left = 60
  316.         Top = 0
  317.         Width = 530
  318.         Height = 231
  319.         Align = alClient
  320.         BevelOuter = bvLowered
  321.         BevelWidth = 2
  322.         TabOrder = 0
  323.         object Split2: TSplitter
  324.           Left = 2
  325.           Top = 49
  326.           Width = 526
  327.           Height = 4
  328.           Cursor = crVSplit
  329.           Align = alTop
  330.         end
  331.         object pnHeader: TPanel
  332.           Left = 2
  333.           Top = 2
  334.           Width = 526
  335.           Height = 47
  336.           Align = alTop
  337.           BorderWidth = 1
  338.           BorderStyle = bsSingle
  339.           TabOrder = 0
  340.           Visible = False
  341.           object oMsg: TTextEditor
  342.             Left = 2
  343.             Top = 2
  344.             Width = 518
  345.             Height = 39
  346.             OnPosChanged = eMsgPosChanged
  347.             OnBlockChanged = eMsgBlockChanged
  348.             BgColor = clWhite
  349.             TextColor = clBlack
  350.             SelColor = clWhite
  351.             SelBgColor = clBlack
  352.             QuoteColor = clBlue
  353.             RefColor = clBlue
  354.             Kludge1Color = clOlive
  355.             Kludge2Color = clOlive
  356.             Kludge3Color = clOlive
  357.             ReadOnly = True
  358.             OnSelectionChanged = eMsgSelectionChanged
  359.             OnInsChange = eMsgInsChange
  360.             OnApplicationPopup = Popup3Click
  361.             FontCharset = 1
  362.             TabOrder = 0
  363.             Visible = False
  364.             Font.Color = clBlack
  365.             Font.Height = -15
  366.             Font.Name = 'Courier New'
  367.             Font.Pitch = fpFixed
  368.             Font.Style = []
  369.             Align = alClient
  370.             OnMouseMove = eMsgMouseMove
  371.             OnEnter = oMsgEnter
  372.             PopupMenu = EditPopup
  373.             OnDblClick = eMsgDblClick
  374.           end
  375.         end
  376.         object eMsg: TTextEditor
  377.           Left = 2
  378.           Top = 53
  379.           Width = 526
  380.           Height = 176
  381.           HelpContext = 10027
  382.           OnPosChanged = eMsgPosChanged
  383.           OnBlockChanged = eMsgBlockChanged
  384.           BgColor = clWhite
  385.           TextColor = clBlack
  386.           SelColor = clWhite
  387.           SelBgColor = clBlack
  388.           QuoteColor = clBlue
  389.           RefColor = clBlue
  390.           Kludge1Color = clOlive
  391.           Kludge2Color = clOlive
  392.           Kludge3Color = clOlive
  393.           ReadOnly = False
  394.           OnSelectionChanged = eMsgSelectionChanged
  395.           OnModifiedChange = eMsgModifiedChange
  396.           OnInsChange = eMsgInsChange
  397.           SpellPopup = SpellPopup
  398.           OnApplicationPopup = Popup3Click
  399.           FontCharset = 1
  400.           TabOrder = 1
  401.           Font.Color = clBlack
  402.           Font.Height = -15
  403.           Font.Name = 'Courier New'
  404.           Font.Pitch = fpFixed
  405.           Font.Style = []
  406.           Align = alClient
  407.           OnMouseMove = eMsgMouseMove
  408.           OnEnter = eMsgEnter
  409.           OnDblClick = eMsgDblClick
  410.         end
  411.       end
  412.     end
  413.     object gInfo: TAddressGrid
  414.       Left = 0
  415.       Top = 0
  416.       Width = 590
  417.       Height = 96
  418.       HelpContext = 10044
  419.       Align = alTop
  420.       Color = clBtnFace
  421.       ColCount = 2
  422.       DefaultRowHeight = 20
  423.       RowCount = 7
  424.       FixedRows = 0
  425.       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
  426.       TabOrder = 1
  427.       OnEnter = gInfoEnter
  428.       OnExit = gInfoExit
  429.       OnMouseDown = gInfoMouseDown
  430.       OnSelectCell = gInfoSelectCell
  431.       SimpleLook = False
  432.       OnAddressClick = gInfoAddressClick
  433.       OnAddAddressClick = bAddAddrClick
  434.       ColWidths = (
  435.         64
  436.         506)
  437.     end
  438.   end
  439.   object EditMenu: TMainMenu
  440.     Left = 464
  441.     Top = 72
  442.     object File1: TMenuItem
  443.       Caption = '&Message'
  444.       ShortCut = 0
  445.       object SendNow2: TMenuItem
  446.         Caption = '&Send now'
  447.         ShortCut = 16397
  448.         OnClick = bSend1Click
  449.       end
  450.       object mSend: TMenuItem
  451.         Caption = '&Send now'
  452.         ShortCut = 113
  453.         Visible = False
  454.         OnClick = bSend1Click
  455.       end
  456.       object mQueue: TMenuItem
  457.         Caption = 'Queue in &Outbox'
  458.         ShortCut = 8305
  459.         OnClick = bStore1Click
  460.       end
  461.       object meSave: TMenuItem
  462.         Caption = 'Sa&ve'
  463.         ShortCut = 16467
  464.         OnClick = tmSaveTimer
  465.       end
  466.       object mSaveAs: TMenuItem
  467.         Caption = 'Save &as...'
  468.         ShortCut = 16497
  469.         OnClick = bSaveAsClick
  470.       end
  471.       object mDraft: TMenuItem
  472.         Tag = 1
  473.         Caption = 'Save &Draft'
  474.         ShortCut = 32881
  475.         OnClick = bStore1Click
  476.       end
  477.       object N10: TMenuItem
  478.         Caption = '-'
  479.         ShortCut = 0
  480.       end
  481.       object mPrint: TMenuItem
  482.         Caption = '&Print...'
  483.         ShortCut = 16464
  484.         OnClick = mPrintClick
  485.       end
  486.       object mPrintSetup: TMenuItem
  487.         Caption = 'Print s&etup...'
  488.         ShortCut = 0
  489.         OnClick = mPrintSetupClick
  490.       end
  491.       object N2: TMenuItem
  492.         Caption = '-'
  493.         ShortCut = 0
  494.       end
  495.       object mCancel: TMenuItem
  496.         Caption = 'Cancel'
  497.         ShortCut = 0
  498.         OnClick = mCancelClick
  499.       end
  500.     end
  501.     object mEEdit: TMenuItem
  502.       Caption = '&Edit'
  503.       ShortCut = 0
  504.       object Undo1: TMenuItem
  505.         Tag = 2
  506.         Caption = '&Undo'
  507.         ShortCut = 0
  508.         OnClick = Undo1Click
  509.       end
  510.       object N11: TMenuItem
  511.         Caption = '-'
  512.         ShortCut = 0
  513.       end
  514.       object mCut: TMenuItem
  515.         Tag = 1
  516.         Caption = 'Cu&t'
  517.         ShortCut = 0
  518.         OnClick = mCutClick
  519.       end
  520.       object mCopy: TMenuItem
  521.         Tag = 1
  522.         Caption = '&Copy'
  523.         ShortCut = 0
  524.         OnClick = mCopyClick
  525.       end
  526.       object mPaste: TMenuItem
  527.         Caption = '&Paste'
  528.         ShortCut = 0
  529.         OnClick = mPasteClick
  530.       end
  531.       object mClear: TMenuItem
  532.         Caption = '&Delete'
  533.         ShortCut = 0
  534.         OnClick = mClearClick
  535.       end
  536.       object N3: TMenuItem
  537.         Caption = '-'
  538.         ShortCut = 0
  539.       end
  540.       object mCopyTo: TMenuItem
  541.         Tag = 1
  542.         Caption = 'Cop&y to...'
  543.         ShortCut = 0
  544.         OnClick = mCopyToClick
  545.       end
  546.       object N21: TMenuItem
  547.         Caption = '-'
  548.         ShortCut = 0
  549.       end
  550.       object mPasteFrom: TMenuItem
  551.         Caption = 'Paste &from...'
  552.         ShortCut = 0
  553.         OnClick = mPasteFromClick
  554.       end
  555.       object mQPaste: TMenuItem
  556.         Caption = 'Paste as &Quotation'
  557.         ShortCut = 32813
  558.         OnClick = mQPasteClick
  559.       end
  560.       object mQPasteFrom: TMenuItem
  561.         Caption = 'P&aste as Quotation from...'
  562.         ShortCut = 0
  563.         OnClick = mQPasteFromClick
  564.       end
  565.       object mPasteFormat: TMenuItem
  566.         Caption = 'Pa&ste formatted'
  567.         ShortCut = 24621
  568.         OnClick = mPasteFormatClick
  569.       end
  570.     end
  571.     object Search1: TMenuItem
  572.       Caption = '&Search'
  573.       ShortCut = 0
  574.       object Find1: TMenuItem
  575.         Caption = '&Find...'
  576.         ShortCut = 16454
  577.         OnClick = bSearch1Click
  578.       end
  579.       object mFind: TMenuItem
  580.         Caption = '&Find...'
  581.         ShortCut = 118
  582.         Visible = False
  583.         OnClick = bSearch1Click
  584.       end
  585.       object mReplace: TMenuItem
  586.         Caption = '&Replace...'
  587.         ShortCut = 16502
  588.         OnClick = bReplace1Click
  589.       end
  590.       object Searchagain2: TMenuItem
  591.         Caption = '&Search again'
  592.         ShortCut = 114
  593.         Visible = False
  594.         OnClick = Searchagain1Click
  595.       end
  596.       object Searchagain1: TMenuItem
  597.         Caption = '&Search again'
  598.         ShortCut = 8310
  599.         OnClick = Searchagain1Click
  600.       end
  601.       object Reversesearch1: TMenuItem
  602.         Caption = 'Re&verse search'
  603.         ShortCut = 32886
  604.         OnClick = Reversesearch1Click
  605.       end
  606.     end
  607.     object Utilities1: TMenuItem
  608.       Caption = '&Utilities'
  609.       ShortCut = 0
  610.       OnClick = Utilities1Click
  611.       object mInsertDate: TMenuItem
  612.         Caption = 'Insert &Date'
  613.         ShortCut = 0
  614.         OnClick = mInsertDateClick
  615.       end
  616.       object mInsertTime: TMenuItem
  617.         Caption = 'Insert &Time'
  618.         ShortCut = 0
  619.         OnClick = mInsertDateClick
  620.       end
  621.       object mmInsCookie: TMenuItem
  622.         Caption = 'Insert &Cookie'
  623.         ShortCut = 0
  624.         OnClick = mmInsCookieClick
  625.       end
  626.       object muQuick: TMenuItem
  627.         Caption = 'Insert &Quick template'
  628.         ShortCut = 0
  629.         object none1: TMenuItem
  630.           Caption = '(none)'
  631.           Enabled = False
  632.           ShortCut = 0
  633.         end
  634.       end
  635.       object mAdvanceAddressSearch: TMenuItem
  636.         Caption = 'Advance address search'
  637.         ShortCut = 16571
  638.         Visible = False
  639.         OnClick = mAdvanceAddressSearchClick
  640.       end
  641.       object mReverseAddressSearch: TMenuItem
  642.         Tag = -1
  643.         Caption = 'Reverse address search'
  644.         ShortCut = 16573
  645.         Visible = False
  646.         OnClick = mAdvanceAddressSearchClick
  647.       end
  648.       object N4: TMenuItem
  649.         Caption = '-'
  650.         ShortCut = 0
  651.       end
  652.       object mmFormat: TMenuItem
  653.         Caption = '&Format Block'
  654.         ShortCut = 0
  655.         object AlignLeft1: TMenuItem
  656.           Caption = '&Left'
  657.           ShortCut = 32844
  658.           OnClick = AlignLeft1Click
  659.         end
  660.         object Justify1: TMenuItem
  661.           Caption = '&Justify'
  662.           ShortCut = 32842
  663.           OnClick = Justify1Click
  664.         end
  665.         object Right1: TMenuItem
  666.           Caption = '&Right'
  667.           ShortCut = 32850
  668.           OnClick = Right1Click
  669.         end
  670.         object Center1: TMenuItem
  671.           Caption = '&Center'
  672.           ShortCut = 32835
  673.           OnClick = Center1Click
  674.         end
  675.       end
  676.       object muAutoFormat: TMenuItem
  677.         Caption = 'A&uto-Format'
  678.         ShortCut = 24646
  679.         OnClick = muAutoFormatClick
  680.       end
  681.       object muAutowrap: TMenuItem
  682.         Caption = 'Auto-&Wrap '
  683.         ShortCut = 24663
  684.         OnClick = muAutowrapClick
  685.       end
  686.       object muWrapJustify: TMenuItem
  687.         Caption = '&Justify on autowrap'
  688.         ShortCut = 24650
  689.         OnClick = muWrapJustifyClick
  690.       end
  691.       object N17: TMenuItem
  692.         Caption = '-'
  693.         ShortCut = 0
  694.       end
  695.       object muAttachvCard: TMenuItem
  696.         Caption = 'Attach Personal vCard'
  697.         ShortCut = 0
  698.         OnClick = muAttachvCardClick
  699.       end
  700.       object Addafile1: TMenuItem
  701.         Caption = '&Attach files'
  702.         ShortCut = 0
  703.         object MIMEcoded1: TMenuItem
  704.           Caption = '&MIME-coded...'
  705.           ShortCut = 32801
  706.           OnClick = mAddMIMEClick
  707.         end
  708.         object QuotedPrintable1: TMenuItem
  709.           Tag = 1
  710.           Caption = '&Quoted-Printable...'
  711.           ShortCut = 0
  712.           OnClick = mAddMIMEClick
  713.         end
  714.         object N18: TMenuItem
  715.           Caption = '-'
  716.           ShortCut = 0
  717.         end
  718.         object UUencoded1: TMenuItem
  719.           Tag = 3
  720.           Caption = '&UU-encoded...'
  721.           ShortCut = 32802
  722.           OnClick = mAddMIMEClick
  723.         end
  724.       end
  725.     end
  726.     object mbSpell: TMenuItem
  727.       Caption = 'Spell C&hecker'
  728.       ShortCut = 0
  729.       object mbAutoSpell: TMenuItem
  730.         Caption = '&Automatic checking'
  731.         Checked = True
  732.         ShortCut = 16499
  733.         OnClick = mbAutoSpellClick
  734.       end
  735.       object mbSpellAll: TMenuItem
  736.         Caption = '&Check entire text'
  737.         ShortCut = 115
  738.         OnClick = mbSpellAllClick
  739.       end
  740.       object N29: TMenuItem
  741.         Caption = '-'
  742.         ShortCut = 0
  743.       end
  744.       object mbLng: TMenuItem
  745.         Caption = '&Language'
  746.         ShortCut = 0
  747.         object mbAEnglish: TMenuItem
  748.           Caption = 'American English'
  749.           Checked = True
  750.           GroupIndex = 10
  751.           RadioItem = True
  752.           ShortCut = 0
  753.           OnClick = mbAEnglishClick
  754.         end
  755.         object BritishEnglish1: TMenuItem
  756.           Tag = 1
  757.           Caption = 'British English'
  758.           GroupIndex = 10
  759.           RadioItem = True
  760.           ShortCut = 0
  761.           OnClick = mbAEnglishClick
  762.         end
  763.         object Catalan1: TMenuItem
  764.           Tag = 2
  765.           Caption = 'Catalan'
  766.           GroupIndex = 10
  767.           RadioItem = True
  768.           ShortCut = 0
  769.           OnClick = mbAEnglishClick
  770.         end
  771.         object Czech1: TMenuItem
  772.           Tag = 3
  773.           Caption = 'Czech'
  774.           GroupIndex = 10
  775.           RadioItem = True
  776.           ShortCut = 0
  777.           OnClick = mbAEnglishClick
  778.         end
  779.         object Danish1: TMenuItem
  780.           Tag = 4
  781.           Caption = 'Danish'
  782.           GroupIndex = 10
  783.           RadioItem = True
  784.           ShortCut = 0
  785.           OnClick = mbAEnglishClick
  786.         end
  787.         object Dutch1: TMenuItem
  788.           Tag = 5
  789.           Caption = 'Dutch'
  790.           GroupIndex = 10
  791.           RadioItem = True
  792.           ShortCut = 0
  793.           OnClick = mbAEnglishClick
  794.         end
  795.         object Finnish1: TMenuItem
  796.           Tag = 6
  797.           Caption = 'Finnish'
  798.           GroupIndex = 10
  799.           RadioItem = True
  800.           ShortCut = 0
  801.           OnClick = mbAEnglishClick
  802.         end
  803.         object French1: TMenuItem
  804.           Tag = 7
  805.           Caption = 'French'
  806.           GroupIndex = 10
  807.           RadioItem = True
  808.           ShortCut = 0
  809.           OnClick = mbAEnglishClick
  810.         end
  811.         object German2: TMenuItem
  812.           Tag = 8
  813.           Caption = 'German'
  814.           GroupIndex = 10
  815.           RadioItem = True
  816.           ShortCut = 0
  817.           OnClick = mbAEnglishClick
  818.         end
  819.         object Hungarian1: TMenuItem
  820.           Tag = 9
  821.           Caption = 'Hungarian'
  822.           GroupIndex = 10
  823.           RadioItem = True
  824.           ShortCut = 0
  825.           OnClick = mbAEnglishClick
  826.         end
  827.         object Italian1: TMenuItem
  828.           Tag = 10
  829.           Caption = 'Italian'
  830.           GroupIndex = 10
  831.           RadioItem = True
  832.           ShortCut = 0
  833.           OnClick = mbAEnglishClick
  834.         end
  835.         object Norwegian1: TMenuItem
  836.           Tag = 11
  837.           Caption = 'Norwegian (Bokmal)'
  838.           GroupIndex = 10
  839.           RadioItem = True
  840.           ShortCut = 0
  841.           OnClick = mbAEnglishClick
  842.         end
  843.         object NorwegianNynorsk1: TMenuItem
  844.           Tag = 12
  845.           Caption = 'Norwegian (Nynorsk)'
  846.           GroupIndex = 10
  847.           RadioItem = True
  848.           ShortCut = 0
  849.           OnClick = mbAEnglishClick
  850.         end
  851.         object Polish1: TMenuItem
  852.           Tag = 13
  853.           Caption = 'Polish'
  854.           GroupIndex = 10
  855.           RadioItem = True
  856.           ShortCut = 0
  857.           OnClick = mbAEnglishClick
  858.         end
  859.         object PortugeseBrasilian1: TMenuItem
  860.           Tag = 14
  861.           Caption = 'Portuguese (Brazilian)'
  862.           GroupIndex = 10
  863.           RadioItem = True
  864.           ShortCut = 0
  865.           OnClick = mbAEnglishClick
  866.         end
  867.         object PortugeseIberian1: TMenuItem
  868.           Tag = 15
  869.           Caption = 'Portuguese (Iberian)'
  870.           GroupIndex = 10
  871.           RadioItem = True
  872.           ShortCut = 0
  873.           OnClick = mbAEnglishClick
  874.         end
  875.         object Russian1: TMenuItem
  876.           Tag = 16
  877.           Caption = 'Russian'
  878.           GroupIndex = 10
  879.           RadioItem = True
  880.           ShortCut = 0
  881.           OnClick = mbAEnglishClick
  882.         end
  883.         object Spanish1: TMenuItem
  884.           Tag = 17
  885.           Caption = 'Spanish'
  886.           GroupIndex = 10
  887.           RadioItem = True
  888.           ShortCut = 0
  889.           OnClick = mbAEnglishClick
  890.         end
  891.         object Swedish1: TMenuItem
  892.           Tag = 18
  893.           Caption = 'Swedish'
  894.           GroupIndex = 10
  895.           RadioItem = True
  896.           ShortCut = 0
  897.           OnClick = mbAEnglishClick
  898.         end
  899.         object N8: TMenuItem
  900.           Tag = -1
  901.           Caption = '-'
  902.           GroupIndex = 10
  903.           ShortCut = 0
  904.         end
  905.         object AmericanEnglish1: TMenuItem
  906.           Tag = 19
  907.           Caption = 'American English'
  908.           GroupIndex = 10
  909.           RadioItem = True
  910.           ShortCut = 0
  911.           OnClick = mbAEnglishClick
  912.         end
  913.         object AustralianEnglish1: TMenuItem
  914.           Tag = 20
  915.           Caption = 'Australian English'
  916.           GroupIndex = 10
  917.           RadioItem = True
  918.           ShortCut = 0
  919.           OnClick = mbAEnglishClick
  920.         end
  921.         object BritishEnglish2: TMenuItem
  922.           Tag = 21
  923.           Caption = 'British English'
  924.           GroupIndex = 10
  925.           RadioItem = True
  926.           ShortCut = 0
  927.           OnClick = mbAEnglishClick
  928.         end
  929.         object Catalan2: TMenuItem
  930.           Tag = 22
  931.           Caption = 'Catalan'
  932.           GroupIndex = 10
  933.           RadioItem = True
  934.           ShortCut = 0
  935.           OnClick = mbAEnglishClick
  936.         end
  937.         object Czech2: TMenuItem
  938.           Tag = 23
  939.           Caption = 'Czech'
  940.           GroupIndex = 10
  941.           RadioItem = True
  942.           ShortCut = 0
  943.           OnClick = mbAEnglishClick
  944.         end
  945.         object Danish2: TMenuItem
  946.           Tag = 24
  947.           Caption = 'Danish'
  948.           GroupIndex = 10
  949.           RadioItem = True
  950.           ShortCut = 0
  951.           OnClick = mbAEnglishClick
  952.         end
  953.         object Dutch2: TMenuItem
  954.           Tag = 25
  955.           Caption = 'Dutch'
  956.           GroupIndex = 10
  957.           RadioItem = True
  958.           ShortCut = 0
  959.           OnClick = mbAEnglishClick
  960.         end
  961.         object Finnish2: TMenuItem
  962.           Tag = 26
  963.           Caption = 'Finnish'
  964.           GroupIndex = 10
  965.           RadioItem = True
  966.           ShortCut = 0
  967.           OnClick = mbAEnglishClick
  968.         end
  969.         object French2: TMenuItem
  970.           Tag = 27
  971.           Caption = 'French'
  972.           GroupIndex = 10
  973.           RadioItem = True
  974.           ShortCut = 0
  975.           OnClick = mbAEnglishClick
  976.         end
  977.         object French3: TMenuItem
  978.           Tag = 28
  979.           Caption = 'French Canadian'
  980.           GroupIndex = 10
  981.           RadioItem = True
  982.           ShortCut = 0
  983.           OnClick = mbAEnglishClick
  984.         end
  985.         object German1: TMenuItem
  986.           Tag = 29
  987.           Caption = 'German'
  988.           GroupIndex = 10
  989.           RadioItem = True
  990.           ShortCut = 0
  991.           OnClick = mbAEnglishClick
  992.         end
  993.         object Hungarian2: TMenuItem
  994.           Tag = 30
  995.           Caption = 'Hungarian'
  996.           GroupIndex = 10
  997.           RadioItem = True
  998.           ShortCut = 0
  999.           OnClick = mbAEnglishClick
  1000.         end
  1001.         object Italian2: TMenuItem
  1002.           Tag = 31
  1003.           Caption = 'Italian'
  1004.           GroupIndex = 10
  1005.           RadioItem = True
  1006.           ShortCut = 0
  1007.           OnClick = mbAEnglishClick
  1008.         end
  1009.         object NorwegianBokmal1: TMenuItem
  1010.           Tag = 32
  1011.           Caption = 'Norwegian (Bokmal)'
  1012.           GroupIndex = 10
  1013.           RadioItem = True
  1014.           ShortCut = 0
  1015.           OnClick = mbAEnglishClick
  1016.         end
  1017.         object NorwegianNynorsk2: TMenuItem
  1018.           Tag = 33
  1019.           Caption = 'Norwegian (Nynorsk)'
  1020.           GroupIndex = 10
  1021.           RadioItem = True
  1022.           ShortCut = 0
  1023.           OnClick = mbAEnglishClick
  1024.         end
  1025.         object Polish2: TMenuItem
  1026.           Tag = 34
  1027.           Caption = 'Polish'
  1028.           GroupIndex = 10
  1029.           RadioItem = True
  1030.           ShortCut = 0
  1031.           OnClick = mbAEnglishClick
  1032.         end
  1033.         object PortugeseBrasilian2: TMenuItem
  1034.           Tag = 35
  1035.           Caption = 'Portuguese (Brazilian)'
  1036.           GroupIndex = 10
  1037.           RadioItem = True
  1038.           ShortCut = 0
  1039.           OnClick = mbAEnglishClick
  1040.         end
  1041.         object PortugeseIberian2: TMenuItem
  1042.           Tag = 36
  1043.           Caption = 'Portuguese (Iberian)'
  1044.           GroupIndex = 10
  1045.           RadioItem = True
  1046.           ShortCut = 0
  1047.           OnClick = mbAEnglishClick
  1048.         end
  1049.         object Russian2: TMenuItem
  1050.           Tag = 37
  1051.           Caption = 'Russian'
  1052.           GroupIndex = 10
  1053.           RadioItem = True
  1054.           ShortCut = 0
  1055.           OnClick = mbAEnglishClick
  1056.         end
  1057.         object Spanish2: TMenuItem
  1058.           Tag = 38
  1059.           Caption = 'Spanish'
  1060.           GroupIndex = 10
  1061.           ShortCut = 0
  1062.           OnClick = mbAEnglishClick
  1063.         end
  1064.         object Swedish2: TMenuItem
  1065.           Tag = 39
  1066.           Caption = 'Swedish'
  1067.           GroupIndex = 10
  1068.           ShortCut = 0
  1069.           OnClick = mbAEnglishClick
  1070.         end
  1071.         object Afrikaans: TMenuItem
  1072.           Tag = 40
  1073.           Caption = 'Afrikaans'
  1074.           GroupIndex = 10
  1075.           ShortCut = 0
  1076.           OnClick = mbAEnglishClick
  1077.         end
  1078.         object Albanian: TMenuItem
  1079.           Tag = 41
  1080.           Caption = 'Albanian'
  1081.           GroupIndex = 10
  1082.           ShortCut = 0
  1083.           OnClick = mbAEnglishClick
  1084.         end
  1085.         object Arabic: TMenuItem
  1086.           Tag = 42
  1087.           Caption = 'Arabic'
  1088.           GroupIndex = 10
  1089.           ShortCut = 0
  1090.           OnClick = mbAEnglishClick
  1091.         end
  1092.         object Basque: TMenuItem
  1093.           Tag = 43
  1094.           Caption = 'Basque'
  1095.           GroupIndex = 10
  1096.           ShortCut = 0
  1097.           OnClick = mbAEnglishClick
  1098.         end
  1099.         object Belarusian: TMenuItem
  1100.           Tag = 44
  1101.           Caption = 'Belarusian'
  1102.           GroupIndex = 10
  1103.           ShortCut = 0
  1104.           OnClick = mbAEnglishClick
  1105.         end
  1106.         object Bulgarian: TMenuItem
  1107.           Tag = 45
  1108.           Caption = 'Bulgarian'
  1109.           GroupIndex = 10
  1110.           ShortCut = 0
  1111.           OnClick = mbAEnglishClick
  1112.         end
  1113.         object Chinese: TMenuItem
  1114.           Tag = 46
  1115.           Caption = 'Chinese'
  1116.           GroupIndex = 10
  1117.           ShortCut = 0
  1118.           OnClick = mbAEnglishClick
  1119.         end
  1120.         object Croatian: TMenuItem
  1121.           Tag = 47
  1122.           Caption = 'Croatian'
  1123.           GroupIndex = 10
  1124.           ShortCut = 0
  1125.           OnClick = mbAEnglishClick
  1126.         end
  1127.         object Estonian: TMenuItem
  1128.           Tag = 48
  1129.           Caption = 'Estonian'
  1130.           GroupIndex = 10
  1131.           ShortCut = 0
  1132.           OnClick = mbAEnglishClick
  1133.         end
  1134.         object Faeroese: TMenuItem
  1135.           Tag = 49
  1136.           Caption = 'Faeroese'
  1137.           GroupIndex = 10
  1138.           ShortCut = 0
  1139.           OnClick = mbAEnglishClick
  1140.         end
  1141.         object Farsi: TMenuItem
  1142.           Tag = 50
  1143.           Caption = 'Farsi'
  1144.           GroupIndex = 10
  1145.           ShortCut = 0
  1146.           OnClick = mbAEnglishClick
  1147.         end
  1148.         object Greek: TMenuItem
  1149.           Tag = 51
  1150.           Caption = 'Greek'
  1151.           GroupIndex = 10
  1152.           ShortCut = 0
  1153.           OnClick = mbAEnglishClick
  1154.         end
  1155.         object Hebrew: TMenuItem
  1156.           Tag = 52
  1157.           Caption = 'Hebrew'
  1158.           GroupIndex = 10
  1159.           ShortCut = 0
  1160.           OnClick = mbAEnglishClick
  1161.         end
  1162.         object Icelandic: TMenuItem
  1163.           Tag = 53
  1164.           Caption = 'Icelandic'
  1165.           GroupIndex = 10
  1166.           ShortCut = 0
  1167.           OnClick = mbAEnglishClick
  1168.         end
  1169.         object Indonesian: TMenuItem
  1170.           Tag = 54
  1171.           Caption = 'Indonesian'
  1172.           GroupIndex = 10
  1173.           ShortCut = 0
  1174.           OnClick = mbAEnglishClick
  1175.         end
  1176.         object Japanese: TMenuItem
  1177.           Tag = 55
  1178.           Caption = 'Japanese'
  1179.           GroupIndex = 10
  1180.           ShortCut = 0
  1181.           OnClick = mbAEnglishClick
  1182.         end
  1183.         object Korean: TMenuItem
  1184.           Tag = 56
  1185.           Caption = 'Korean'
  1186.           GroupIndex = 10
  1187.           ShortCut = 0
  1188.           OnClick = mbAEnglishClick
  1189.         end
  1190.         object Latvian: TMenuItem
  1191.           Tag = 57
  1192.           Caption = 'Latvian'
  1193.           GroupIndex = 10
  1194.           ShortCut = 0
  1195.           OnClick = mbAEnglishClick
  1196.         end
  1197.         object Lithuanian: TMenuItem
  1198.           Tag = 58
  1199.           Caption = 'Lithuanian'
  1200.           GroupIndex = 10
  1201.           ShortCut = 0
  1202.           OnClick = mbAEnglishClick
  1203.         end
  1204.         object Romanian: TMenuItem
  1205.           Tag = 59
  1206.           Caption = 'Romanian'
  1207.           GroupIndex = 10
  1208.           ShortCut = 0
  1209.           OnClick = mbAEnglishClick
  1210.         end
  1211.         object Serbian: TMenuItem
  1212.           Tag = 60
  1213.           Caption = 'Serbian'
  1214.           GroupIndex = 10
  1215.           ShortCut = 0
  1216.           OnClick = mbAEnglishClick
  1217.         end
  1218.         object Slovak: TMenuItem
  1219.           Tag = 61
  1220.           Caption = 'Slovak'
  1221.           GroupIndex = 10
  1222.           ShortCut = 0
  1223.           OnClick = mbAEnglishClick
  1224.         end
  1225.         object Slovenian: TMenuItem
  1226.           Tag = 62
  1227.           Caption = 'Slovenian'
  1228.           GroupIndex = 10
  1229.           ShortCut = 0
  1230.           OnClick = mbAEnglishClick
  1231.         end
  1232.         object Thai: TMenuItem
  1233.           Tag = 63
  1234.           Caption = 'Thai'
  1235.           GroupIndex = 10
  1236.           ShortCut = 0
  1237.           OnClick = mbAEnglishClick
  1238.         end
  1239.         object Turkish: TMenuItem
  1240.           Tag = 64
  1241.           Caption = 'Turkish'
  1242.           GroupIndex = 10
  1243.           ShortCut = 0
  1244.           OnClick = mbAEnglishClick
  1245.         end
  1246.         object Ukrainian: TMenuItem
  1247.           Tag = 65
  1248.           Caption = 'Ukrainian'
  1249.           GroupIndex = 10
  1250.           ShortCut = 0
  1251.           OnClick = mbAEnglishClick
  1252.         end
  1253.         object Vietnamese: TMenuItem
  1254.           Tag = 66
  1255.           Caption = 'Vietnamese'
  1256.           GroupIndex = 10
  1257.           ShortCut = 0
  1258.           OnClick = mbAEnglishClick
  1259.         end
  1260.       end
  1261.       object mbSpellOpts: TMenuItem
  1262.         Caption = '&Options...'
  1263.         ShortCut = 0
  1264.         OnClick = mbSpellOptsClick
  1265.       end
  1266.       object mbSpellDict: TMenuItem
  1267.         Caption = '&Dictionaries...'
  1268.         ShortCut = 0
  1269.         OnClick = mbSpellDictClick
  1270.       end
  1271.     end
  1272.     object PGP1: TMenuItem
  1273.       Caption = '&Privacy'
  1274.       ShortCut = 0
  1275.       object mpOCrypt: TMenuItem
  1276.         Caption = '&Encrypt when Completed'
  1277.         ShortCut = 0
  1278.         OnClick = mpOSignClick
  1279.       end
  1280.       object mpOSign: TMenuItem
  1281.         Caption = '&Sign when Completed'
  1282.         ShortCut = 0
  1283.         OnClick = mpOSignClick
  1284.       end
  1285.       object N20: TMenuItem
  1286.         Caption = '-'
  1287.         ShortCut = 0
  1288.       end
  1289.       object mpApplyPGP: TMenuItem
  1290.         Caption = 'Enable OpenPGP'
  1291.         ShortCut = 0
  1292.         OnClick = mpOSignClick
  1293.       end
  1294.       object mpApplySMIME: TMenuItem
  1295.         Caption = 'Enable S/MIME'
  1296.         ShortCut = 0
  1297.         OnClick = mpOSignClick
  1298.       end
  1299.       object mpConfigure: TMenuItem
  1300.         Tag = 1111
  1301.         Caption = 'Set Defaults...'
  1302.         ShortCut = 0
  1303.         OnClick = mpConfigureClick
  1304.       end
  1305.       object N14: TMenuItem
  1306.         Caption = '-'
  1307.         ShortCut = 0
  1308.       end
  1309.       object mpPGP: TMenuItem
  1310.         Caption = 'OpenPGP'
  1311.         ShortCut = 0
  1312.         object mpgpSignBlock: TMenuItem
  1313.           Tag = 1
  1314.           Caption = 'Sign &Block'
  1315.           ShortCut = 41043
  1316.           OnClick = mpgpSignBlockClick
  1317.         end
  1318.         object mPGPSignText: TMenuItem
  1319.           Caption = 'Si&gn Entire Text'
  1320.           ShortCut = 24659
  1321.           OnClick = mPGPSignTextClick
  1322.         end
  1323.         object mPGPEncryptText: TMenuItem
  1324.           Caption = 'Encr&ypt Entire Text'
  1325.           ShortCut = 24645
  1326.           OnClick = mPGPEncryptTextClick
  1327.         end
  1328.         object mPgpSignCrypt: TMenuItem
  1329.           Tag = 2
  1330.           Caption = 'S&ign && Encrypt Entire Text'
  1331.           ShortCut = 41029
  1332.           OnClick = mPgpSignCryptClick
  1333.         end
  1334.         object PGPD2: TMenuItem
  1335.           Caption = '-'
  1336.           ShortCut = 0
  1337.         end
  1338.         object mmPGPkeys: TMenuItem
  1339.           Caption = 'Key &Manager...'
  1340.           ShortCut = 0
  1341.           OnClick = mmPGPkeysClick
  1342.         end
  1343.         object mmPGPprefs: TMenuItem
  1344.           Caption = '&Preferences...'
  1345.           ShortCut = 0
  1346.           OnClick = mmPGPprefsClick
  1347.         end
  1348.       end
  1349.     end
  1350.     object View1: TMenuItem
  1351.       Caption = '&View'
  1352.       ShortCut = 0
  1353.       object mShowTools: TMenuItem
  1354.         Caption = '&Toolbar'
  1355.         Checked = True
  1356.         ShortCut = 0
  1357.         OnClick = mShowToolsClick
  1358.       end
  1359.       object mStorePos: TMenuItem
  1360.         Caption = '&Store window position'
  1361.         ShortCut = 0
  1362.         OnClick = mStorePosClick
  1363.       end
  1364.       object N1: TMenuItem
  1365.         Caption = '-'
  1366.         ShortCut = 0
  1367.       end
  1368.       object mShowFrom: TMenuItem
  1369.         Tag = 1
  1370.         Caption = '&From'
  1371.         ShortCut = 0
  1372.         OnClick = mShowFromClick
  1373.       end
  1374.       object mShowReplyTo: TMenuItem
  1375.         Tag = 2
  1376.         Caption = '&Reply-to'
  1377.         ShortCut = 0
  1378.         OnClick = mShowFromClick
  1379.       end
  1380.       object mShowCC: TMenuItem
  1381.         Tag = 3
  1382.         Caption = '&Carbon Copy'
  1383.         Checked = True
  1384.         ShortCut = 0
  1385.         OnClick = mShowFromClick
  1386.       end
  1387.       object mShowBCC: TMenuItem
  1388.         Tag = 5
  1389.         Caption = '&Blind CC'
  1390.         Checked = True
  1391.         ShortCut = 0
  1392.         OnClick = mShowFromClick
  1393.       end
  1394.       object mShowFollowup: TMenuItem
  1395.         Tag = 7
  1396.         Caption = '&Follow-up to'
  1397.         ShortCut = 0
  1398.         OnClick = mShowFromClick
  1399.       end
  1400.       object mShowOrg: TMenuItem
  1401.         Tag = 8
  1402.         Caption = 'Org&anisation'
  1403.         ShortCut = 0
  1404.         OnClick = mShowFromClick
  1405.       end
  1406.       object mShowReturn: TMenuItem
  1407.         Tag = 11
  1408.         Caption = 'Ret&urn-path'
  1409.         ShortCut = 0
  1410.         OnClick = mShowFromClick
  1411.       end
  1412.       object mShowComment: TMenuItem
  1413.         Tag = 9
  1414.         Caption = 'Co&mments'
  1415.         ShortCut = 0
  1416.         OnClick = mShowFromClick
  1417.       end
  1418.       object N16: TMenuItem
  1419.         Caption = '-'
  1420.         ShortCut = 0
  1421.       end
  1422.       object mShowOrigin: TMenuItem
  1423.         Caption = '&Original text'
  1424.         Enabled = False
  1425.         ShortCut = 0
  1426.         OnClick = mShowOriginClick
  1427.       end
  1428.     end
  1429.     object Options1: TMenuItem
  1430.       Caption = '&Options'
  1431.       ShortCut = 0
  1432.       object mRcptConfirm: TMenuItem
  1433.         Caption = '&Confirm Receipt'
  1434.         ShortCut = 0
  1435.         OnClick = mRcptConfirmClick
  1436.       end
  1437.       object mReadConfirm: TMenuItem
  1438.         Caption = '&Reading confirmation'
  1439.         ShortCut = 0
  1440.         OnClick = mReadConfirmClick
  1441.       end
  1442.       object N5: TMenuItem
  1443.         Caption = '-'
  1444.         ShortCut = 0
  1445.       end
  1446.       object mNormal: TMenuItem
  1447.         Caption = '&Normal Priority'
  1448.         Checked = True
  1449.         GroupIndex = 2
  1450.         RadioItem = True
  1451.         ShortCut = 0
  1452.         OnClick = mNormalClick
  1453.       end
  1454.       object mHigh: TMenuItem
  1455.         Caption = '&High Priority'
  1456.         GroupIndex = 2
  1457.         RadioItem = True
  1458.         ShortCut = 0
  1459.         OnClick = mNormalClick
  1460.       end
  1461.       object mLow: TMenuItem
  1462.         Caption = '&Low priority'
  1463.         GroupIndex = 2
  1464.         RadioItem = True
  1465.         ShortCut = 0
  1466.         OnClick = mNormalClick
  1467.       end
  1468.       object N13: TMenuItem
  1469.         Caption = '-'
  1470.         GroupIndex = 2
  1471.         ShortCut = 0
  1472.       end
  1473.       object mmXlat: TMenuItem
  1474.         Caption = '&Message encoding'
  1475.         GroupIndex = 2
  1476.         ShortCut = 0
  1477.         object mtNone: TMenuItem
  1478.           Caption = '&None'
  1479.           GroupIndex = 10
  1480.           RadioItem = True
  1481.           ShortCut = 0
  1482.           OnClick = mtNoneClick
  1483.         end
  1484.         object N19: TMenuItem
  1485.           Caption = '-'
  1486.           Enabled = False
  1487.           GroupIndex = 10
  1488.           ShortCut = 0
  1489.         end
  1490.       end
  1491.       object N12: TMenuItem
  1492.         Caption = '-'
  1493.         GroupIndex = 2
  1494.         ShortCut = 0
  1495.       end
  1496.       object meAccount: TMenuItem
  1497.         Caption = '&Active account'
  1498.         GroupIndex = 2
  1499.         ShortCut = 0
  1500.       end
  1501.     end
  1502.   end
  1503.   object tCheck: TTimer
  1504.     OnTimer = tCheckTimer
  1505.     Left = 489
  1506.     Top = 33
  1507.   end
  1508.   object fImages: TImageList
  1509.     Height = 32
  1510.     Width = 32
  1511.     Left = 16
  1512.     Top = 291
  1513.   end
  1514.   object AttachPopup: TPopupMenu
  1515.     OnPopup = AttachPopupPopup
  1516.     Left = 16
  1517.     Top = 252
  1518.     object mAddFile: TMenuItem
  1519.       Caption = '&Add a file'
  1520.       ShortCut = 0
  1521.       object mAddMIME: TMenuItem
  1522.         Caption = '&MIME-coded'
  1523.         ShortCut = 45
  1524.         OnClick = mAddMIMEClick
  1525.       end
  1526.       object mAddQuoted: TMenuItem
  1527.         Tag = 1
  1528.         Caption = '&Quoted-Printable'
  1529.         ShortCut = 32813
  1530.         OnClick = mAddMIMEClick
  1531.       end
  1532.       object N15: TMenuItem
  1533.         Caption = '-'
  1534.         ShortCut = 0
  1535.       end
  1536.       object mAddUUE: TMenuItem
  1537.         Tag = 2
  1538.         Caption = '&UU-encoded'
  1539.         ShortCut = 16429
  1540.         OnClick = mAddMIMEClick
  1541.       end
  1542.     end
  1543.     object N6: TMenuItem
  1544.       Caption = '-'
  1545.       ShortCut = 0
  1546.     end
  1547.     object maSave: TMenuItem
  1548.       Caption = '&Save...'
  1549.       ShortCut = 13
  1550.       OnClick = maSaveClick
  1551.     end
  1552.     object maDel: TMenuItem
  1553.       Caption = '&Delete'
  1554.       ShortCut = 46
  1555.       OnClick = maDelClick
  1556.     end
  1557.     object maView: TMenuItem
  1558.       Tag = 1
  1559.       Caption = '&Open...'
  1560.       ShortCut = 16397
  1561.       OnClick = maSaveClick
  1562.     end
  1563.     object maPrint: TMenuItem
  1564.       Tag = 2
  1565.       Caption = '&Print...'
  1566.       ShortCut = 0
  1567.       OnClick = maSaveClick
  1568.     end
  1569.     object MenuItem1: TMenuItem
  1570.       Caption = '-'
  1571.       ShortCut = 0
  1572.       Visible = False
  1573.     end
  1574.     object maForward: TMenuItem
  1575.       Caption = '&Forward...'
  1576.       ShortCut = 16454
  1577.       Visible = False
  1578.     end
  1579.     object PopUp1: TMenuItem
  1580.       Caption = 'PopUp'
  1581.       ShortCut = 32889
  1582.       Visible = False
  1583.       OnClick = PopUp1Click
  1584.     end
  1585.   end
  1586.   object ViewPopup: TPopupMenu
  1587.     OnPopup = ViewPopupPopup
  1588.     Left = 16
  1589.     Top = 336
  1590.     object meNewMail: TMenuItem
  1591.       Tag = 11
  1592.       Caption = '&Write a message...'
  1593.       ShortCut = 0
  1594.     end
  1595.     object meReplyLink: TMenuItem
  1596.       Caption = 'R&eply to this address...'
  1597.       ShortCut = 8308
  1598.     end
  1599.     object meAddAddress: TMenuItem
  1600.       Caption = '&Add e-mail to address book'
  1601.       ShortCut = 0
  1602.       OnClick = meAddAddressClick
  1603.     end
  1604.     object meOpenLink: TMenuItem
  1605.       Caption = '&Open this link'
  1606.       ShortCut = 0
  1607.       OnClick = meOpenLinkClick
  1608.     end
  1609.     object meCopyLink: TMenuItem
  1610.       Caption = '&Location to Clipboard'
  1611.       ShortCut = 0
  1612.       OnClick = meCopyLinkClick
  1613.     end
  1614.     object meDivider: TMenuItem
  1615.       Caption = '-'
  1616.       ShortCut = 0
  1617.     end
  1618.     object mlCopy: TMenuItem
  1619.       Caption = '&Copy'
  1620.       ShortCut = 16429
  1621.       OnClick = mlCopyClick
  1622.     end
  1623.     object mlCopyTo: TMenuItem
  1624.       Caption = 'Copy &To...'
  1625.       ShortCut = 32813
  1626.       OnClick = mCopyToClick
  1627.     end
  1628.     object N9: TMenuItem
  1629.       Caption = '-'
  1630.       ShortCut = 0
  1631.     end
  1632.     object meSaveAs: TMenuItem
  1633.       Caption = '&Save as...'
  1634.       ShortCut = 16467
  1635.       OnClick = bSaveAsClick
  1636.     end
  1637.     object MenuItem4: TMenuItem
  1638.       Caption = '-'
  1639.       ShortCut = 0
  1640.     end
  1641.     object meProperties: TMenuItem
  1642.       Caption = '&Preferences...'
  1643.       ShortCut = 0
  1644.       OnClick = Editorpreferences1Click
  1645.     end
  1646.     object Popup2: TMenuItem
  1647.       Tag = 1
  1648.       Caption = 'Popup'
  1649.       ShortCut = 32889
  1650.       Visible = False
  1651.       OnClick = PopUp1Click
  1652.     end
  1653.   end
  1654.   object tmSave: TTimer
  1655.     Enabled = False
  1656.     OnTimer = tmSaveTimer
  1657.     Left = 366
  1658.     Top = 144
  1659.   end
  1660.   object EditPopup: TPopupMenu
  1661.     AutoPopup = False
  1662.     OnPopup = EditPopupPopup
  1663.     Left = 16
  1664.     Top = 152
  1665.     object meQuote: TMenuItem
  1666.       Caption = '&Quote'
  1667.       ShortCut = 0
  1668.       Visible = False
  1669.       OnClick = meQuoteClick
  1670.     end
  1671.     object meQuoteWO: TMenuItem
  1672.       Tag = 1
  1673.       Caption = 'Quote &Without Prefixes'
  1674.       ShortCut = 0
  1675.       Visible = False
  1676.       OnClick = meQuoteClick
  1677.     end
  1678.     object meCopy: TMenuItem
  1679.       Caption = '&Copy'
  1680.       ShortCut = 16429
  1681.       OnClick = mCopyClick
  1682.     end
  1683.     object meCut: TMenuItem
  1684.       Caption = 'C&ut'
  1685.       ShortCut = 8238
  1686.       OnClick = mCutClick
  1687.     end
  1688.     object mePaste: TMenuItem
  1689.       Caption = '&Paste'
  1690.       ShortCut = 8237
  1691.       OnClick = mPasteClick
  1692.     end
  1693.     object mePasteQuoted: TMenuItem
  1694.       Caption = 'Paste as &Quotation'
  1695.       ShortCut = 32813
  1696.       OnClick = mQPasteClick
  1697.     end
  1698.     object meDelete: TMenuItem
  1699.       Caption = '&Delete'
  1700.       ShortCut = 0
  1701.       OnClick = mClearClick
  1702.     end
  1703.     object mInsCookie: TMenuItem
  1704.       Caption = 'I&nsert  Cookie'
  1705.       ShortCut = 0
  1706.       OnClick = mmInsCookieClick
  1707.     end
  1708.     object meQuick: TMenuItem
  1709.       Caption = 'Insert Quick &Template'
  1710.       ShortCut = 16416
  1711.       OnClick = meQuickClick
  1712.     end
  1713.     object N24: TMenuItem
  1714.       Caption = '-'
  1715.       ShortCut = 0
  1716.     end
  1717.     object meFind: TMenuItem
  1718.       Caption = '&Find...'
  1719.       ShortCut = 118
  1720.       OnClick = bSearch1Click
  1721.     end
  1722.     object meReplace: TMenuItem
  1723.       Caption = '&Replace...'
  1724.       ShortCut = 16502
  1725.       OnClick = bReplace1Click
  1726.     end
  1727.     object meSearchAgain: TMenuItem
  1728.       Caption = '&Search Again'
  1729.       ShortCut = 8310
  1730.       OnClick = Searchagain1Click
  1731.     end
  1732.     object N23: TMenuItem
  1733.       Caption = '-'
  1734.       ShortCut = 0
  1735.     end
  1736.     object Blocktype1: TMenuItem
  1737.       Caption = '&Block type'
  1738.       ShortCut = 0
  1739.       object meStream: TMenuItem
  1740.         Caption = '&Stream'
  1741.         Checked = True
  1742.         GroupIndex = 2
  1743.         RadioItem = True
  1744.         ShortCut = 0
  1745.         OnClick = meStreamClick
  1746.       end
  1747.       object meColumn: TMenuItem
  1748.         Tag = 1
  1749.         Caption = '&Column'
  1750.         GroupIndex = 2
  1751.         RadioItem = True
  1752.         ShortCut = 0
  1753.         OnClick = meStreamClick
  1754.       end
  1755.       object meLinear: TMenuItem
  1756.         Tag = 2
  1757.         Caption = '&Linear'
  1758.         GroupIndex = 2
  1759.         RadioItem = True
  1760.         ShortCut = 0
  1761.         OnClick = meStreamClick
  1762.       end
  1763.     end
  1764.     object mePrefs: TMenuItem
  1765.       Caption = 'Pr&eferences...'
  1766.       ShortCut = 0
  1767.       OnClick = Editorpreferences1Click
  1768.     end
  1769.     object SelectAll1: TMenuItem
  1770.       Caption = 'Select All'
  1771.       ShortCut = 0
  1772.       OnClick = SelectAll1Click
  1773.     end
  1774.     object Popup3: TMenuItem
  1775.       Tag = 1
  1776.       Caption = 'Popup'
  1777.       ShortCut = 32889
  1778.       Visible = False
  1779.       OnClick = Popup3Click
  1780.     end
  1781.     object Undo: TMenuItem
  1782.       Caption = 'Undo'
  1783.       ShortCut = 32776
  1784.       Visible = False
  1785.       OnClick = Undo1Click
  1786.     end
  1787.   end
  1788.   object sbPop: TPopupMenu
  1789.     AutoPopup = False
  1790.     OnPopup = sbPopPopup
  1791.     Left = 264
  1792.     Top = 263
  1793.     object msbStream: TMenuItem
  1794.       Caption = '&Stream'
  1795.       GroupIndex = 1
  1796.       RadioItem = True
  1797.       ShortCut = 0
  1798.       OnClick = meStreamClick
  1799.     end
  1800.     object msbColumn: TMenuItem
  1801.       Tag = 1
  1802.       Caption = '&Column'
  1803.       GroupIndex = 1
  1804.       RadioItem = True
  1805.       ShortCut = 0
  1806.       OnClick = meStreamClick
  1807.     end
  1808.     object msbLinear: TMenuItem
  1809.       Tag = 2
  1810.       Caption = '&Linear'
  1811.       GroupIndex = 1
  1812.       RadioItem = True
  1813.       ShortCut = 0
  1814.       OnClick = meStreamClick
  1815.     end
  1816.     object msbInsert: TMenuItem
  1817.       Caption = '&Insert mode'
  1818.       GroupIndex = 2
  1819.       RadioItem = True
  1820.       ShortCut = 0
  1821.       OnClick = msbInsertClick
  1822.     end
  1823.     object msbOverride: TMenuItem
  1824.       Tag = 1
  1825.       Caption = '&Overwrite mode'
  1826.       GroupIndex = 2
  1827.       RadioItem = True
  1828.       ShortCut = 0
  1829.       OnClick = msbInsertClick
  1830.     end
  1831.     object msbHigh: TMenuItem
  1832.       Caption = '&High priority'
  1833.       GroupIndex = 3
  1834.       RadioItem = True
  1835.       ShortCut = 0
  1836.       OnClick = msbHighClick
  1837.     end
  1838.     object msbNormal: TMenuItem
  1839.       Tag = 1
  1840.       Caption = '&Normal priority'
  1841.       GroupIndex = 3
  1842.       RadioItem = True
  1843.       ShortCut = 0
  1844.       OnClick = msbHighClick
  1845.     end
  1846.     object msbLow: TMenuItem
  1847.       Tag = 2
  1848.       Caption = '&Low priority'
  1849.       GroupIndex = 3
  1850.       RadioItem = True
  1851.       ShortCut = 0
  1852.       OnClick = msbHighClick
  1853.     end
  1854.     object msbDiv: TMenuItem
  1855.       Caption = '-'
  1856.       GroupIndex = 3
  1857.       ShortCut = 0
  1858.     end
  1859.     object msbRRQ: TMenuItem
  1860.       Caption = '&Confirm Receipt'
  1861.       GroupIndex = 4
  1862.       ShortCut = 0
  1863.       OnClick = msbRRQClick
  1864.     end
  1865.     object msbRead: TMenuItem
  1866.       Caption = '&Reading confirmation'
  1867.       GroupIndex = 4
  1868.       ShortCut = 0
  1869.       OnClick = msbReadClick
  1870.     end
  1871.   end
  1872.   object msbXlat: TPopupMenu
  1873.     Left = 366
  1874.     Top = 247
  1875.     object msbNone: TMenuItem
  1876.       Caption = '&None'
  1877.       GroupIndex = 10
  1878.       RadioItem = True
  1879.       ShortCut = 0
  1880.       OnClick = msbNoneClick
  1881.     end
  1882.     object N25: TMenuItem
  1883.       Caption = '-'
  1884.       Enabled = False
  1885.       GroupIndex = 10
  1886.       ShortCut = 0
  1887.     end
  1888.   end
  1889.   object SpellPopup: TPopupMenu
  1890.     Left = 16
  1891.     Top = 196
  1892.     object nosuggestions1: TMenuItem
  1893.       Caption = '(no suggestions)'
  1894.       Enabled = False
  1895.       ShortCut = 0
  1896.       Visible = False
  1897.     end
  1898.     object N28: TMenuItem
  1899.       Caption = '-'
  1900.       ShortCut = 0
  1901.     end
  1902.     object mspSuggest: TMenuItem
  1903.       Caption = '&Suggest more...'
  1904.       ShortCut = 0
  1905.       OnClick = mspSuggestClick
  1906.     end
  1907.     object N7: TMenuItem
  1908.       Caption = '-'
  1909.       ShortCut = 0
  1910.     end
  1911.     object mspIgnoreAll: TMenuItem
  1912.       Caption = '&Ignore all'
  1913.       ShortCut = 0
  1914.       OnClick = mspIgnoreAllClick
  1915.     end
  1916.     object mspAddWord: TMenuItem
  1917.       Caption = '&Add to dictionary'
  1918.       ShortCut = 0
  1919.       OnClick = mspAddWordClick
  1920.     end
  1921.     object Dictionarytoadd1: TMenuItem
  1922.       Caption = '&Dictionary to add to'
  1923.       ShortCut = 0
  1924.     end
  1925.     object mspOptions: TMenuItem
  1926.       Caption = '&Options...'
  1927.       ShortCut = 0
  1928.       OnClick = mbSpellOptsClick
  1929.     end
  1930.   end
  1931.   object pmUsers: TPopupMenu
  1932.     Left = 181
  1933.     Top = 224
  1934.   end
  1935. end
  1936.