object EditWindow: TEditWindow
  Left = 162
  Top = 110
  Width = 733
  Height = 587
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBtnText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  OldCreateOrder = True
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object pnTop: TPanel
    Left = 0
    Top = 0
    Width = 725
    Height = 198
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -14
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Pager: TPageControl
      Left = 5
      Top = 3
      Width = 656
      Height = 189
      ActivePage = Tab1
      MultiLine = True
      TabOrder = 0
      TabPosition = tpBottom
      object Tab1: TTabSheet
        Caption = '&1. Standard'
        object Label10: TLabel
          Left = 24
          Top = 76
          Width = 78
          Height = 16
          Caption = '&FollowUp-To'
        end
        object Label8: TLabel
          Left = 41
          Top = 104
          Width = 45
          Height = 16
          Caption = '&Subject'
          FocusControl = edSubject
        end
        object Label9: TLabel
          Left = 4
          Top = 0
          Width = 42
          Height = 16
          Caption = 'Identity'
        end
        object Label6: TLabel
          Left = 127
          Top = 0
          Width = 37
          Height = 16
          Caption = 'Name'
        end
        object Label3: TLabel
          Left = 266
          Top = 0
          Width = 73
          Height = 16
          Caption = 'Public email'
        end
        object Label4: TLabel
          Left = 405
          Top = -2
          Width = 78
          Height = 16
          Caption = 'Private email'
        end
        object Label5: TLabel
          Left = 544
          Top = 0
          Width = 75
          Height = 16
          Caption = 'Organization'
        end
        object edGroups: TEdit
          Left = 127
          Top = 45
          Width = 481
          Height = 24
          AutoSize = False
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -17
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
          OnDragDrop = edGroupsDragDrop
          OnDragOver = edGroupsDragOver
        end
        object bEdGrps: TButton
          Left = 615
          Top = 45
          Width = 29
          Height = 24
          Hint = 'Edit list of groups to post to'
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -21
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          OnClick = bEdFollowupClick
        end
        object edFollowUp: TEdit
          Left = 127
          Top = 72
          Width = 481
          Height = 26
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -17
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 8
        end
        object bEdFollowup: TButton
          Left = 614
          Top = 74
          Width = 29
          Height = 24
          Hint = 'Set Followup-To'
          Caption = '...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -21
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          OnClick = bEdFollowupClick
        end
        object edSubject: TEdit
          Left = 127
          Top = 100
          Width = 386
          Height = 26
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -17
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 10
          OnChange = edSubjectChange
        end
        object cbXNA: TCheckBox
          Left = 523
          Top = 130
          Width = 97
          Height = 17
          Caption = 'X-No-Archive'
          TabOrder = 15
        end
        object bGroups: TMyCheckBox
          Left = 8
          Top = 47
          Width = 109
          Height = 22
          Caption = 'Newsgroups'
          TabOrder = 5
          OnClick = bGroupsClick
          HorAlignment = haCenter
          LikeButton = True
        end
        object bMailTo: TMyCheckBox
          Left = 8
          Top = 130
          Width = 109
          Height = 22
          Caption = 'To'
          TabOrder = 12
          OnClick = bGroupsClick
          HorAlignment = haCenter
          LikeButton = True
        end
        object edMailTo: TMyComboBox
          Left = 127
          Top = 129
          Width = 345
          Height = 24
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 16
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 13
          OnEnter = edPubEMailEnter
          OnExit = edPubEMailExit
          RegKey = 'Software\Xnews\coMailTo'
          MaxItems = 30
        end
        object bAdd: TButton
          Left = 484
          Top = 131
          Width = 29
          Height = 20
          Hint = 'Add email to drop down list'
          Caption = '+'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -17
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 14
          OnClick = bAddClick
        end
        object cbNewThread: TMyCheckBox
          Left = 523
          Top = 105
          Width = 118
          Height = 17
          Hint = '(Remove References: header)'
          Caption = 'Start new thread'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 11
        end
        object coIDs: TComboBox
          Left = 4
          Top = 16
          Width = 115
          Height = 24
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 16
          ParentFont = False
          TabOrder = 0
          OnChange = coIDsChange
        end
        object edName: TEdit
          Left = 127
          Top = 16
          Width = 129
          Height = 22
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
        end
        object edPubEMail: TEdit
          Left = 266
          Top = 16
          Width = 129
          Height = 22
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          OnEnter = edPubEMailEnter
          OnExit = edPubEMailExit
        end
        object edEMail: TEdit
          Left = 405
          Top = 16
          Width = 129
          Height = 22
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
        end
        object edOrg: TEdit
          Left = 544
          Top = 16
          Width = 100
          Height = 22
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
        end
      end
      object Tab2: TTabSheet
        Caption = '&2. Custom'
        ImageIndex = 1
        object ScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 648
          Height = 158
          HorzScrollBar.Visible = False
          VertScrollBar.Increment = 26
          VertScrollBar.Tracking = True
          Align = alClient
          AutoScroll = False
          AutoSize = True
          BorderStyle = bsNone
          TabOrder = 0
        end
      end
      object Tab3: TTabSheet
        Caption = '&3. Manual headers'
        ImageIndex = 2
        object Label12: TLabel
          Left = 16
          Top = 14
          Width = 193
          Height = 16
          Caption = 'Enter additional headers here >>'
        end
        object Moreheaders: TMemo
          Left = 224
          Top = 6
          Width = 353
          Height = 138
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          HideSelection = False
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 0
          WordWrap = False
        end
      end
      object Tab4: TTabSheet
        Caption = '&4. Attachments'
        ImageIndex = 3
        object lbCount: TLabel
          Left = 14
          Top = 137
          Width = 3
          Height = 16
        end
        object Label11: TLabel
          Left = 482
          Top = 126
          Width = 46
          Height = 16
          Caption = 'Cut size'
        end
        object Label13: TLabel
          Left = 610
          Top = 126
          Width = 28
          Height = 16
          Caption = 'lines'
        end
        object Atts: TMyListView
          Left = 8
          Top = 0
          Width = 289
          Height = 132
          Columns = <
            item
              Caption = 'Filename'
              Width = 100
            end
            item
              Caption = 'Size'
              Width = 0
            end>
          ColumnClick = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          HideSelection = False
          HotTrackStyles = []
          ReadOnly = True
          RowSelect = True
          ParentFont = False
          ShowColumnHeaders = False
          TabOrder = 0
          ViewStyle = vsReport
          OnChange = AttsChange
        end
        object bAAdd: TButton
          Left = 304
          Top = 3
          Width = 65
          Height = 30
          Caption = 'Add ...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = bAAddClick
        end
        object bARemove: TButton
          Left = 304
          Top = 76
          Width = 65
          Height = 24
          Caption = 'Remove'
          Enabled = False
          TabOrder = 4
          OnClick = bARemoveClick
        end
        object bAClear: TButton
          Left = 304
          Top = 108
          Width = 65
          Height = 24
          Caption = 'Clear'
          Enabled = False
          TabOrder = 5
          OnClick = bAClearClick
        end
        object bUp: TButton
          Left = 204
          Top = 136
          Width = 41
          Height = 17
          Caption = 'Up'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = bUpClick
        end
        object bDown: TButton
          Left = 252
          Top = 136
          Width = 41
          Height = 17
          Caption = 'Down'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = bUpClick
        end
        object cbMIME: TCheckBox
          Left = 386
          Top = 126
          Width = 82
          Height = 17
          Caption = 'Use MIME'
          TabOrder = 8
        end
        object rgAOption: TRadioGroup
          Left = 386
          Top = 1
          Width = 252
          Height = 98
          Caption = 'Post attachments...'
          ItemIndex = 0
          Items.Strings = (
            'together under one subject'
            'separately'
            'separately; Text in 0-part of 1st file'
            'separately; Text in 0-part of each file')
          TabOrder = 6
        end
        object edCutsize: TSpinEdit
          Left = 539
          Top = 123
          Width = 63
          Height = 26
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          MaxValue = 15000
          MinValue = 100
          ParentFont = False
          TabOrder = 9
          Value = 200
          OnExit = edCutsizeExit
        end
        object cbShowFileCount: TCheckBox
          Left = 386
          Top = 104
          Width = 183
          Height = 17
          Caption = 'Show file count in subject'
          TabOrder = 7
        end
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 534
    Width = 725
    Height = 22
    Panels = <
      item
        Width = 400
      end
      item
        Width = 80
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object pnBase: TPanel
    Left = 0
    Top = 232
    Width = 725
    Height = 302
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label2: TLabel
      Left = 0
      Top = 0
      Width = 725
      Height = 16
      Align = alTop
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -17
      Font.Name = 'Courier'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 0
      Top = 16
      Width = 725
      Height = 16
      Align = alTop
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -17
      Font.Name = 'Courier'
      Font.Style = []
      ParentFont = False
    end
    object cbKeepCopy: TMyCheckBox
      Left = 10
      Top = 4
      Width = 69
      Height = 22
      Hint = 'Keep copy in Sent folder'
      Caption = 'Keep copy'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -10
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
      HorAlignment = haCenter
      LikeButton = True
    end
    object bWrap: TMyCheckBox
      Left = 85
      Top = 4
      Width = 62
      Height = 22
      Hint = 'Toggle line wrap'
      Caption = 'Wrap'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = bWrapClick
      HorAlignment = haCenter
      LikeButton = True
    end
    object bROT13: TButton
      Left = 160
      Top = 4
      Width = 65
      Height = 22
      Hint = '(Ctrl+3)'
      Caption = 'ROT13'
      Enabled = False
      TabOrder = 2
      TabStop = False
      OnClick = bROT13Click
    end
    object bPretty: TButton
      Left = 235
      Top = 4
      Width = 65
      Height = 22
      Hint = 'Fix broken wrapped quoted text'
      Caption = 'Reformat'
      TabOrder = 3
      OnClick = bPrettyClick
    end
    object bUndo: TButton
      Left = 310
      Top = 4
      Width = 65
      Height = 22
      Caption = 'Undo'
      TabOrder = 4
      OnClick = bUndoClick
    end
    object Memo: TRichEdit
      Left = 0
      Top = 32
      Width = 725
      Height = 270
      Align = alClient
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      HideSelection = False
      HideScrollBars = False
      MaxLength = 500000
      ParentCtl3D = False
      ParentFont = False
      PlainText = True
      PopupMenu = poMemo
      ScrollBars = ssBoth
      TabOrder = 5
      WantTabs = True
      OnChange = MemoChange
      OnEnter = edPubEMailEnter
      OnExit = edPubEMailExit
      OnKeyDown = MemoKeyDown
      OnKeyUp = MemoKeyUp
      OnMouseDown = MemoMouseDown
    end
  end
  object pnMiddle: TPanel
    Left = 0
    Top = 198
    Width = 725
    Height = 34
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object Label7: TLabel
      Left = 11
      Top = 6
      Width = 41
      Height = 16
      Caption = 'Post to'
    end
    object coProfs: TComboBox
      Left = 62
      Top = 4
      Width = 143
      Height = 24
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnChange = coProfsChange
    end
    object bSend: TButton
      Left = 233
      Top = 3
      Width = 113
      Height = 27
      Hint = '(Ctrl+E)'
      Caption = 'Send Now !'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -14
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bSendClick
    end
    object bQueue: TButton
      Left = 384
      Top = 3
      Width = 121
      Height = 27
      Hint = '(Ctrl+L)'
      Caption = 'Save (send later)'
      ModalResult = 1
      TabOrder = 2
      OnClick = bQueueClick
    end
    object bStop: TButton
      Left = 530
      Top = 3
      Width = 73
      Height = 27
      Caption = 'Stop'
      Enabled = False
      TabOrder = 3
      OnClick = bStopClick
    end
    object bFS: TButton
      Left = 657
      Top = 8
      Width = 32
      Height = 19
      Hint = 'Full screen edit (F12)'
      Caption = '<<'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = bFSClick
    end
  end
  object poMemo: TPopupMenu
    OnPopup = poMemoPopup
    Left = 320
    Top = 432
    object miRewrap: TMenuItem
      Caption = 'Re&wrap'
      OnClick = bPrettyClick
    end
    object miRewrapJoin: TMenuItem
      Caption = 'Rewrap and &Join Lines'
      OnClick = bPrettyClick
    end
    object miInsert: TMenuItem
      Caption = '&Insert Text File...'
      OnClick = miInsertClick
    end
    object miUndo: TMenuItem
      Caption = '&Undo'
      OnClick = mipoMemoClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object miCut: TMenuItem
      Caption = 'Cu&t'
      OnClick = mipoMemoClick
    end
    object miCopy: TMenuItem
      Caption = '&Copy'
      OnClick = mipoMemoClick
    end
    object miPaste: TMenuItem
      Caption = '&Paste'
      OnClick = miPasteClick
    end
    object miDel: TMenuItem
      Caption = '&Delete'
      OnClick = mipoMemoClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object miPasteQ: TMenuItem
      Caption = 'Paste as &Quoted'
      OnClick = miPasteExClick
    end
    object miPasteI: TMenuItem
      Caption = 'Paste Indented'
      OnClick = miPasteExClick
    end
    object miPasteI2: TMenuItem
      Caption = 'Paste Indented By...'
      OnClick = miPasteExClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object miSelectAll: TMenuItem
      Caption = 'Select &All'
      OnClick = mipoMemoClick
    end
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select attachment(s)'
    Left = 112
    Top = 320
  end
end