PC World 2000 January/PCWorld_2000-01_cd.bin/Komunik/News/Xnews/Xnews.exe/0/RCDATA/TARTICLESWINDOW/TARTICLESWINDOW.txt

Text File | 1999-11-08 | 44KB | 1,712 lines

object ArticlesWindow: TArticlesWindow
  Left = 99
  Top = 65
  ActiveControl = Hdrs
  AutoScroll = False
  ClientHeight = 554
  ClientWidth = 825
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = True
  Position = poDefault
  ShowHint = True
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 16
  object Panel0: TPanel
    Left = 0
    Top = 529
    Width = 825
    Height = 25
    Align = alBottom
    BevelOuter = bvNone
    Constraints.MinWidth = 100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 140
      Height = 25
      Cursor = crHandPoint
      Hint = 'Switch List <-> Viewer'
      Align = alLeft
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = acvSwitchViewExecute
    end
    object Panel2: TPanel
      Tag = 1
      Left = 140
      Top = 0
      Width = 190
      Height = 25
      Cursor = crHandPoint
      Hint = 'Full/Split Screen'
      Align = alLeft
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = acvFSExecute
    end
    object Panel3: TPanel
      Left = 686
      Top = 0
      Width = 139
      Height = 25
      Align = alClient
      AutoSize = True
      BevelInner = bvLowered
      BevelWidth = 2
      TabOrder = 3
      object Gauge: TProgress
        Left = 4
        Top = 4
        Width = 131
        Height = 17
        Cursor = crHandPoint
        Hint = 'Show Batch Progress'
        Align = alClient
        Color = clBlack
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ForeColor = clRed
        BackColor = clBlack
        ParentColor = False
        ParentFont = False
        Progress = 0
        UseDockManager = False
        DragCursor = crHandPoint
        TabOrder = 0
        OnClick = ShowProgressClick
      end
    end
    object pnFilter: TPanel
      Left = 546
      Top = 0
      Width = 140
      Height = 25
      Cursor = crHandPoint
      Hint =
        'Left click = Remove all filters'#13#10'Right or Shift click = Switch f' +
        'ilter column [S]ubject <-> [F]rom <-> [G]roup'
      Align = alLeft
      Alignment = taRightJustify
      BevelOuter = bvNone
      Caption = 'S'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -18
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnMouseUp = pnFilterMouseUp
      object coFilter: TMyComboBox
        Left = 20
        Top = 0
        Width = 106
        Height = 24
        Hint = 'Type in filter regex; press Enter to thread'
        Ctl3D = False
        DropDownCount = 10
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 16
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnChange = coFilterChange
        OnEnter = HdrsEnter
        OnExit = coFilterExit
        OnKeyPress = coFilterKeyPress
        RegKey = 'Software\Xnews\coFilter'
      end
      object bThreaded: TMyCheckBox
        Left = 1
        Top = 1
        Width = 18
        Height = 24
        Hint =
          'Left click = Toggle threading'#13#10'Right or Shift click = (Re)thread' +
          ' now'
        TabStop = False
        Caption = 'T'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -18
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 1
        OnMouseUp = bThreadedMouseUp
        LikeButton = True
      end
    end
    object ToolBar: TToolBar
      Left = 330
      Top = 0
      Width = 216
      Height = 25
      Align = alLeft
      AutoSize = True
      ButtonHeight = 25
      ButtonWidth = 27
      Ctl3D = False
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      Images = XnewsFrame.ToolImagesHot
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object bCatchUp: TToolButton
        Left = 0
        Top = 0
        Action = acaCatchUp
      end
      object bStop: TToolButton
        Left = 27
        Top = 0
        Hint =
          'Stop; (+Ctrl= stop when done with this file; +Shift=when done wi' +
          'th this part)'
        Enabled = False
        ImageIndex = 1
        OnClick = bStopClick
      end
      object bDecode: TToolButton
        Left = 54
        Top = 0
        Hint = 'Decode'
        Action = acaDecode
      end
      object bRefresh: TToolButton
        Left = 81
        Top = 0
        Caption = 'Refresh Headers'
        ImageIndex = 2
        OnMouseDown = bRefreshMouseDown
      end
      object bArchive: TToolButton
        Left = 108
        Top = 0
        Hint = 'Archive'
        Action = acaArchive
        ImageIndex = 4
      end
      object bSend: TToolButton
        Left = 135
        Top = 0
        Hint = 'Send Messages'
        Action = acaSend
        ImageIndex = 5
      end
      object bEdit: TToolButton
        Left = 162
        Top = 0
        Hint = 'Edit Message'
        Action = acaEdit
        ImageIndex = 6
      end
      object bStorage: TToolButton
        Left = 189
        Top = 0
        AllowAllUp = True
        DropdownMenu = poStorage
        ImageIndex = 7
      end
    end
  end
  object Splitter: TAdvSplitter
    Left = 0
    Top = 0
    Width = 825
    Height = 529
    AllowResize = True
    AutoUpdate = True
    BorderStyle = bsNone
    Orientation = soHorizontal
    ProportionalResize = True
    Position = 525
    SplitterColor = clBtnHighlight
    SplitterStyle = ssCheckered
    Thickness = 3
    Align = alClient
    Ctl3D = True
    ParentCtl3D = False
    object TAdvPane
      Tag = 1
      BevelWidth = 0
      FrameStyle = ftNone
      MinSize = 0
      object Hdrs: TMyListView
        Left = 0
        Top = 0
        Width = 825
        Height = 525
        Align = alClient
        Columns = <
          item
            Caption = 'Subject'
            Width = 350
          end
          item
            Caption = 'Q'
          end
          item
            Caption = 'Lines'
            Width = 60
          end
          item
            Caption = 'From'
            Width = 150
          end
          item
            Caption = 'Date'
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        HideSelection = False
        HotTrackStyles = []
        MultiSelect = True
        OwnerData = True
        OwnerDraw = True
        ReadOnly = True
        RowSelect = True
        ParentFont = False
        PopupMenu = poHdrs
        SmallImages = XnewsFrame.LVImages
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = HdrsColumnClick
        OnData = HdrsData
        OnDrawItem = HdrsDrawItem
        OnEnter = HdrsEnter
        OnKeyDown = HdrsKeyDown
        OnKeyPress = MemoKeyPress
        OnKeyUp = HdrsKeyUp
        OnMouseDown = HdrsMouseDown
        OnMouseMove = HdrsMouseMove
        OnMouseUp = HdrsMouseUp
      end
    end
    object TAdvPane
      Tag = 2
      BevelWidth = 0
      FrameStyle = ftNone
      MinSize = 0
      object pnMemo: TPanel
        Left = 0
        Top = 0
        Width = 825
        Height = 1
        Align = alClient
        AutoSize = True
        BevelInner = bvLowered
        BevelOuter = bvNone
        ParentColor = True
        TabOrder = 0
        object pnTitleBase: TPanel
          Left = 1
          Top = 1
          Width = 823
          Height = 22
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = True
          ParentFont = False
          TabOrder = 1
          object pnTitle: TPanel
            Left = 405
            Top = 0
            Width = 418
            Height = 22
            Cursor = crHandPoint
            Align = alClient
            Alignment = taLeftJustify
            BevelOuter = bvLowered
            BorderStyle = bsSingle
            Color = clBlack
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clLime
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = bNavClick
          end
          object NavBar: TToolBar
            Left = 0
            Top = 0
            Width = 405
            Height = 22
            Align = alLeft
            AutoSize = True
            Color = clBtnFace
            Ctl3D = False
            EdgeBorders = []
            EdgeInner = esNone
            EdgeOuter = esNone
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clMaroon
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Images = XnewsFrame.NavImagesHot
            Indent = 5
            ParentColor = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            Wrapable = False
            object bHeaders: TToolButton
              Left = 5
              Top = 0
              Hint = 'Show All Headers'
              Action = acvShowallheaders
              AllowAllUp = True
              ImageIndex = 2
              Style = tbsCheck
            end
            object bFont: TToolButton
              Left = 28
              Top = 0
              Hint = 'Use Fixed Font'
              Action = acvFixedFont
              AllowAllUp = True
              Grouped = True
              ImageIndex = 3
              Style = tbsCheck
            end
            object ToolButton8: TToolButton
              Left = 51
              Top = 0
              Hint = 'Raw Text'
              Action = acvRaw
              ImageIndex = 15
            end
            object bWrap: TToolButton
              Left = 74
              Top = 0
              Hint = 'Word Wrap'
              Action = acvWordWrap
              AllowAllUp = True
              ImageIndex = 4
              Style = tbsCheck
            end
            object ToolButton1: TToolButton
              Left = 97
              Top = 0
              Width = 8
              ImageIndex = 10
              Style = tbsSeparator
            end
            object bAttach: TToolButton
              Left = 105
              Top = 0
              Hint = 'List Attachments'
              Action = acvAttachments
              DropdownMenu = mnAttach
              Enabled = False
              ImageIndex = 11
              PopupMenu = mnAttach
            end
            object ToolButton6: TToolButton
              Left = 128
              Top = 0
              Hint = 'Follow-Up to Newsgroup'
              Action = acaFollowUp
              ImageIndex = 14
            end
            object ToolButton7: TToolButton
              Left = 151
              Top = 0
              Hint = 'Reply by Mail'
              Action = acaMail
              ImageIndex = 13
            end
            object ToolButton3: TToolButton
              Left = 174
              Top = 0
              Width = 8
              ImageIndex = 11
              Style = tbsSeparator
            end
            object bBack: TToolButton
              Left = 182
              Top = 0
              Hint = 'Go Back'
              Action = acaBack
              DropdownMenu = mnBack
              ImageIndex = 0
              Style = tbsDropDown
            end
            object bForw: TToolButton
              Left = 224
              Top = 0
              Hint = 'Go Forward'
              Action = acaForward
              DropdownMenu = mnForw
              ImageIndex = 1
              Style = tbsDropDown
            end
            object ToolButton5: TToolButton
              Left = 266
              Top = 0
              Width = 8
              ImageIndex = 5
              Style = tbsSeparator
            end
            object bRef: TToolButton
              Left = 274
              Top = 0
              Hint = 'Get Parent (+Ctrl = Reconstruct Thread)'
              ImageIndex = 5
              OnMouseDown = bRefMouseDown
            end
            object bNextQ: TToolButton
              Left = 297
              Top = 0
              Hint = 'Goto Next in Queue'
              Action = acaNextQueue
              ImageIndex = 10
            end
            object bPrevTh: TToolButton
              Left = 320
              Top = 0
              Hint = 'Goto Prev Thread'
              Action = acaPrevThread
              ImageIndex = 6
            end
            object bNextTh: TToolButton
              Left = 343
              Top = 0
              Hint = 'Goto Next Thread'
              Action = acaNextThread
              ImageIndex = 7
            end
            object bPrevUnread: TToolButton
              Left = 366
              Top = 0
              Hint = 'Prev Unread (+Ctrl=Read or unread)'
              ImageIndex = 8
              OnClick = bNavClick
            end
            object bNextUnread: TToolButton
              Left = 389
              Top = 0
              Hint = 'Next Unread (+Ctrl=Read or unread)'
              ImageIndex = 9
              OnClick = bNavClick
            end
            object ToolButton2: TToolButton
              Left = 412
              Top = 0
              Hint = 'Skip Quoted Text'
              Action = acvSkipQuote
              ImageIndex = 12
            end
            object ToolButton4: TToolButton
              Left = 435
              Top = 0
              Width = 8
              Caption = 'ToolButton4'
              ImageIndex = 13
              Style = tbsSeparator
            end
          end
        end
        object Memo: TMyRichEdit
          Left = 1
          Top = 23
          Width = 823
          Height = 17
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          HideSelection = False
          NoAutoVScroll = True
          ParentFont = False
          PlainText = True
          PopupMenu = poMemo
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
          WantReturns = False
          WordWrap = False
          OnEnter = HdrsEnter
          OnKeyDown = MemoKeyDown
          OnKeyPress = MemoKeyPress
          OnMouseDown = MemoMouseDown
          OnMouseMove = MemoMouseMove
        end
      end
    end
  end
  object FindDialog: TFindDialog
    Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown]
    OnFind = FindDialogFind
    Left = 432
    Top = 66
  end
  object MainMenu: TMainMenu
    AutoMerge = True
    Left = 376
    Top = 145
    object mnGroup: TMenuItem
      Caption = '&Group'
      GroupIndex = 7
      object miFind: TMenuItem
        Action = acaFind
      end
      object miFindAgain: TMenuItem
        Action = acaFindAgain
      end
      object miXPAT: TMenuItem
        Action = acaXPAT
      end
      object Find1: TMenuItem
        Caption = '-'
      end
      object miRefresh: TMenuItem
        Action = acaRefresh
      end
      object miRefreshEx: TMenuItem
        Action = acaRefreshEx
      end
      object miStorage: TMenuItem
        Action = acaStorage
      end
      object miPurge: TMenuItem
        Action = acaPurge
      end
      object miCompact: TMenuItem
        Action = acaCompact
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Selection1: TMenuItem
        Caption = 'Selection'
        object SelectAll1: TMenuItem
          Action = acaSelectAll
        end
        object acaInvertSelection1: TMenuItem
          Action = acaInvertSelection
        end
      end
      object mnMarkAll: TMenuItem
        Caption = 'Mark All As'
        object miMarkAllRead: TMenuItem
          Action = acaMarkAllRead
          Caption = 'Read'
        end
        object miMarkAllUnread: TMenuItem
          Action = acaMarkAllUnread
          Caption = 'Unread'
        end
        object MarkAllDelete1: TMenuItem
          Action = acaMarkAllDelete
          Caption = 'Delete'
        end
        object MarkAllUndelete1: TMenuItem
          Action = acaMarkAllUndelete
          Caption = 'Undelete'
        end
      end
      object mnMarkSelected: TMenuItem
        Caption = 'Mark Selected As'
        object MarkRead1: TMenuItem
          Action = acaMarkRead
          Caption = 'Read'
        end
        object MarkUnread1: TMenuItem
          Action = acaMarkUnread
          Caption = 'Unread'
        end
        object MarkKeep1: TMenuItem
          Action = acaMarkKeep
          Caption = 'Keep'
        end
        object MarkUnkeep1: TMenuItem
          Action = acaMarkUnkeep
          Caption = 'Unkeep'
        end
        object MarkasHighScore1: TMenuItem
          Action = acaMarkHiScore
          Caption = 'High Score'
        end
        object Markas0Score1: TMenuItem
          Action = acaMark0Score
          Caption = '0 Score'
        end
      end
      object mnCatchUp: TMenuItem
        Caption = 'CatchUp'
        object miCatchUp: TMenuItem
          Action = acaCatchUp
        end
        object miCatchupNoKeep: TMenuItem
          Action = acaCatchUpNoKeep
        end
        object miCatchUpKillXPost: TMenuItem
          Action = acaCatchUpKillXPost
        end
        object CatchUpandPurge1: TMenuItem
          Action = acaCatchUpPurge
        end
      end
    end
    object mnArticle: TMenuItem
      Caption = '&Article'
      GroupIndex = 7
      OnClick = UpdateMenu
      object miPost: TMenuItem
        Action = acaPost
      end
      object miFollowUp: TMenuItem
        Action = acaFollowUp
      end
      object miMail: TMenuItem
        Action = acaMail
      end
      object miFollowUpMail: TMenuItem
        Action = acaFollowUpMail
      end
      object miForw: TMenuItem
        Action = acaForw
      end
      object miCancel: TMenuItem
        Action = acaCancel
      end
      object Supersede1: TMenuItem
        Action = acaSupersede
      end
      object miSend: TMenuItem
        Action = acaSend
      end
      object miEdit: TMenuItem
        Action = acaEdit
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object miQueue: TMenuItem
        Caption = '(De)Queue'#9'Space'
        OnClick = miQClick
      end
      object miArchive: TMenuItem
        Action = acaArchive
      end
      object miDecode: TMenuItem
        Action = acaDecode
      end
      object miSaveAs: TMenuItem
        Action = acaSaveAs
      end
      object FetchtoStorage1: TMenuItem
        Action = acaFetch
      end
      object miPrint: TMenuItem
        Action = acaPrint
      end
      object GotoParent1: TMenuItem
        Action = acaParent
      end
      object miReConsThread: TMenuItem
        Action = acaReConsThread
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object miKill: TMenuItem
        Action = acaKill
      end
      object Addtoscorefile1: TMenuItem
        Action = acaAddToScore
      end
    end
    object mnView: TMenuItem
      Caption = '&View'
      GroupIndex = 7
      OnClick = UpdateMenu
      object miFS: TMenuItem
        Action = acvFS
      end
      object miToggleWidth: TMenuItem
        Action = acvToggleWidth
      end
      object miSplitAlign: TMenuItem
        Action = acvSplitAlign
      end
      object SwitchListViewer1: TMenuItem
        Action = acvSwitchView
      end
      object ThreadedList1: TMenuItem
        Action = acvThreaded
      end
      object miToggleExpand: TMenuItem
        Action = acvAllExpanded
        Caption = 'Expand All Threads'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object AutoCollapse1: TMenuItem
        Action = acvAutoCollapse
      end
      object miAutoBrowse: TMenuItem
        Action = acvAutoBrowse
      end
      object miShowActive: TMenuItem
        Action = acvShowActive
      end
      object Viewstats1: TMenuItem
        Action = acvStatsForm
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miQuoted: TMenuItem
        Action = acvQuoted
      end
      object miRaw: TMenuItem
        Action = acvRaw
      end
      object miShowallheaders: TMenuItem
        Action = acvShowallheaders
      end
      object miWordWrap: TMenuItem
        Action = acvWordWrap
      end
      object miFixedFont: TMenuItem
        Action = acvFixedFont
      end
      object ROT131: TMenuItem
        Action = acvROT13
      end
    end
    object mnFilter: TMenuItem
      Caption = 'F&ilter'
      GroupIndex = 7
      object miShowNew: TMenuItem
        Action = acvShowNew
      end
      object miShowUnread: TMenuItem
        Action = acvShowUnread
      end
      object miCached: TMenuItem
        Action = acvShowCached
      end
      object miShowQ: TMenuItem
        Action = acvShowQ
      end
      object mnShowScores: TMenuItem
        Caption = 'Show Articles with Scores'
        object Show9999Scores1: TMenuItem
          Action = acvShowGe9999Score
          Caption = '>= 9999'
        end
        object Show0Scores1: TMenuItem
          Action = acvShowGt0Score
          Caption = '> 0'
        end
        object Show0Scores2: TMenuItem
          Action = acvShowGe0Score
          Caption = '>= 0'
        end
        object Show9999Scores2: TMenuItem
          Action = acvShowGt_9999Score
          Caption = '> -9999'
        end
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object miShowBin: TMenuItem
        Action = acvShowBin
      end
      object ShowCompleteMultipartsOnly1: TMenuItem
        Action = acvShowMBin
      end
      object miThNew: TMenuItem
        Action = acvShowThNew
      end
      object miThUnread: TMenuItem
        Action = acvShowThUnread
      end
      object miShowThQ: TMenuItem
        Action = acvShowThQ
      end
      object miThScores: TMenuItem
        Action = acvShowThGt0Score
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object miFilter: TMenuItem
        Action = acvFilter
        Caption = 'Custom Filter...'
      end
      object UndoLastFilter1: TMenuItem
        Action = acvUndoFilter
      end
      object InvertFilter1: TMenuItem
        Action = acvInvertFilter
      end
      object miRemoveFilter: TMenuItem
        Action = acvRemoveFilter
      end
    end
  end
  object HintTimer: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = HintTimerTimer
    Left = 152
    Top = 124
  end
  object mnBack: TPopupMenu
    Left = 40
    Top = 341
  end
  object mnForw: TPopupMenu
    Left = 112
    Top = 349
  end
  object StatTimer: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = StatTimerTimer
    Left = 88
    Top = 72
  end
  object PrintDialog: TPrintDialog
    Left = 376
    Top = 192
  end
  object AActions: TActionList
    Images = XnewsFrame.ToolImagesHot
    Left = 322
    Top = 379
    object acaForward: TAction
      Category = 'Goto'
      Caption = 'Go Forward'
      Enabled = False
      ShortCut = 32807
      OnExecute = acaGotoExecute
    end
    object acaBack: TAction
      Category = 'Goto'
      Caption = 'Go Back'
      Enabled = False
      ShortCut = 32805
      OnExecute = acaGotoExecute
    end
    object acaNextUnread: TAction
      Category = 'Goto'
      Caption = 'Goto Next Unread'
      ImageIndex = 17
      ShortCut = 191
      OnExecute = acaGotoExecute
    end
    object acaPrev: TAction
      Category = 'Goto'
      Caption = 'Goto Prev'
      ShortCut = 8382
      OnExecute = acaGotoExecute
    end
    object acaPrevUnread: TAction
      Category = 'Goto'
      Caption = 'Goto Prev Unread'
      ImageIndex = 16
      ShortCut = 8383
      OnExecute = acaGotoExecute
    end
    object acaSkipDown: TAction
      Category = 'Goto'
      Caption = 'Skip Down'
      ShortCut = 8414
      OnExecute = acaGotoExecute
    end
    object acaSkipDownOut: TAction
      Category = 'Goto'
      Caption = 'Skip Down and Out'
      ShortCut = 8378
      OnExecute = acaGotoExecute
    end
    object acaNextThread: TAction
      Category = 'Goto'
      Caption = 'Goto Next Thread'
      ImageIndex = 15
      ShortCut = 222
      OnExecute = acaGotoExecute
    end
    object acaPrevThread: TAction
      Category = 'Goto'
      Caption = 'Goto Prev Thread'
      ImageIndex = 14
      ShortCut = 186
      OnExecute = acaGotoExecute
    end
    object acaNextQueue: TAction
      Category = 'Goto'
      Caption = 'Goto Next in Queue'
      ImageIndex = 13
      ShortCut = 188
      OnExecute = acaGotoExecute
    end
    object acaNext: TAction
      Category = 'Goto'
      Caption = 'Goto Next'
      ShortCut = 190
      OnExecute = acaGotoExecute
    end
    object acaNextScore: TAction
      Category = 'Goto'
      Caption = 'Goto Next >0 Score'
      OnExecute = acaGotoExecute
    end
    object acaNextHiScore: TAction
      Category = 'Goto'
      Caption = 'Goto Next High Score'
      OnExecute = acaGotoExecute
    end
    object acaScanScore: TAction
      Category = 'Goto'
      Caption = 'Scan For >0 Score'
      OnExecute = acaGotoExecute
    end
    object acaParent: TAction
      Category = 'Goto'
      Caption = 'Get Parent'
      ImageIndex = 12
      ShortCut = 16392
      OnExecute = acaParentExecute
    end
    object acaNextNew: TAction
      Category = 'Goto'
      Caption = 'Goto Next New Header'
      ShortCut = 192
      OnExecute = acaGotoExecute
    end
    object acaFind: TAction
      Category = 'Article'
      Caption = 'Find'
      ShortCut = 113
      OnExecute = acaFindExecute
    end
    object acaFindAgain: TAction
      Category = 'Article'
      Caption = 'Find Again'
      ShortCut = 114
      OnExecute = acaFindAgainExecute
    end
    object acaXPAT: TAction
      Category = 'Article'
      Caption = 'XPAT Search'
      ShortCut = 16497
      OnExecute = acaXPATExecute
    end
    object acaPost: TAction
      Category = 'Article'
      Caption = 'Post to Newsgroup'
      ShortCut = 80
      OnExecute = acadoPosting
    end
    object acaFollowUp: TAction
      Category = 'Article'
      Caption = 'Follow-Up to Newsgroup'
      ShortCut = 70
      OnExecute = acadoPosting
    end
    object acaFollowUpMail: TAction
      Category = 'Article'
      Caption = 'Follow-Up and Mail Reply'
      OnExecute = acadoPosting
    end
    object acaMail: TAction
      Category = 'Article'
      Caption = 'Reply by Mail'
      ShortCut = 77
      OnExecute = acadoPosting
    end
    object acaForw: TAction
      Category = 'Article'
      Caption = 'Forward by Mail'
      ShortCut = 16461
      OnExecute = acadoPosting
    end
    object acaCancel: TAction
      Category = 'Article'
      Caption = 'Cancel Message'
      OnExecute = acaCancelExecute
    end
    object acaSupersede: TAction
      Category = 'Article'
      Caption = 'Supersede'
      OnExecute = acadoPosting
    end
    object acaSend: TAction
      Category = 'Article'
      Caption = 'Send Messages'
      ImageIndex = 0
      OnExecute = acaSendExecute
    end
    object acaEdit: TAction
      Category = 'Article'
      Caption = 'Edit Message'
      ImageIndex = 5
      ShortCut = 69
      OnExecute = acaEditExecute
    end
    object acaArchive: TAction
      Category = 'Article'
      Caption = 'Archive'
      ImageIndex = 6
      ShortCut = 65
      OnExecute = acaArchiveExecute
    end
    object acaDecode: TAction
      Category = 'Article'
      Caption = 'Decode'
      ImageIndex = 3
      ShortCut = 115
      OnExecute = acaDecodeExecute
    end
    object acaSaveAs: TAction
      Category = 'Article'
      Caption = 'Save As...'
      ShortCut = 117
      OnExecute = acaSaveAsExecute
    end
    object acaFetch: TAction
      Category = 'Article'
      Caption = 'Fetch to Storage'
      OnExecute = acaDecodeExecute
    end
    object acaPrint: TAction
      Category = 'Article'
      Caption = 'Print'
      ShortCut = 16464
      OnExecute = acaPrintExecute
    end
    object acaReConsThread: TAction
      Category = 'Article'
      Caption = 'Reconstruct Thread'
      ShortCut = 16469
      OnExecute = acaReConsThreadExecute
    end
    object acaKill: TAction
      Category = 'Article'
      Caption = 'Kill this poster (*plonk*)'
      ShortCut = 75
      OnExecute = acaKillExecute
    end
    object acaAddToScore: TAction
      Category = 'Article'
      Caption = 'Add to score file'
      OnExecute = acaAddToScoreExecute
    end
    object acaRefresh: TAction
      Category = 'Article'
      Caption = 'Refresh Headers'
      ImageIndex = 4
      ShortCut = 116
      OnExecute = acaRefreshExecute
    end
    object acaRefreshEx: TAction
      Category = 'Article'
      Caption = 'Refresh Headers Special'
      ShortCut = 16500
      OnExecute = acaRefreshExecute
    end
    object acaStorage: TAction
      Category = 'Article'
      Caption = 'Storage...'
      ShortCut = 118
      OnExecute = acaStorageExecute
    end
    object acaPurge: TAction
      Category = 'Article'
      Caption = 'Purge Folder'
      ShortCut = 16502
      OnExecute = acaPurgeExecute
    end
    object acaCompact: TAction
      Category = 'Article'
      Caption = 'Compact Folder'
      OnExecute = acaCompactExecute
    end
    object acaSelectAll: TAction
      Category = 'Article'
      Caption = 'Select All'
      ShortCut = 16449
      OnExecute = acaSelectAllExecute
    end
    object acaInvertSelection: TAction
      Category = 'Article'
      Caption = 'Invert Selection'
      OnExecute = acaInvertSelectionExecute
    end
    object acaMarkRead: TAction
      Category = 'Article'
      Caption = 'Mark Read'
      ShortCut = 219
      OnExecute = acaMarkExecute
    end
    object acaMarkUnread: TAction
      Category = 'Article'
      Caption = 'Mark Unread'
      ShortCut = 221
      OnExecute = acaMarkExecute
    end
    object acaMarkKeep: TAction
      Category = 'Article'
      Caption = 'Mark Keep'
      ShortCut = 8411
      OnExecute = acaMarkExecute
    end
    object acaMarkUnkeep: TAction
      Category = 'Article'
      Caption = 'Mark Unkeep'
      ShortCut = 8413
      OnExecute = acaMarkExecute
    end
    object acaMarkHiScore: TAction
      Category = 'Article'
      Caption = 'Mark as High Score'
      ShortCut = 57
      OnExecute = acaMarkExecute
    end
    object acaMark0Score: TAction
      Category = 'Article'
      Caption = 'Mark as 0 Score'
      ShortCut = 48
      OnExecute = acaMarkExecute
    end
    object acaToggleScore: TAction
      Category = 'Article'
      Caption = 'Toggle High/Zero Score'
      OnExecute = acaMarkExecute
    end
    object acaMarkDelete: TAction
      Category = 'Article'
      Caption = 'Delete'
      ShortCut = 46
      OnExecute = acaMarkExecute
    end
    object acaMarkUndelete: TAction
      Category = 'Article'
      Caption = 'Undelete'
      ShortCut = 8238
      OnExecute = acaMarkExecute
    end
    object acaMarkAllRead: TAction
      Category = 'Article'
      Caption = 'Mark All Read'
      ShortCut = 8311
      OnExecute = acaMarkAllExecute
    end
    object acaMarkAllUnread: TAction
      Category = 'Article'
      Caption = 'Mark All Unread'
      OnExecute = acaMarkAllExecute
    end
    object acaMarkAllDelete: TAction
      Category = 'Article'
      Caption = 'Mark All Delete'
      ShortCut = 16430
      OnExecute = acaMarkAllExecute
    end
    object acaMarkAllUndelete: TAction
      Category = 'Article'
      Caption = 'Mark All Undelete'
      OnExecute = acaMarkAllExecute
    end
    object acaCatchUp: TAction
      Category = 'Article'
      Caption = 'CatchUp'
      ImageIndex = 0
      ShortCut = 119
      OnExecute = acaCatchUpExecute
    end
    object acaCatchUpNoKeep: TAction
      Category = 'Article'
      Caption = 'CatchUp and Clear Keep'
      ImageIndex = 0
      OnExecute = acaCatchUpExecute
    end
    object acaCatchUpKillXPost: TAction
      Category = 'Article'
      Caption = 'CatchUp and Kill XPost'
      ImageIndex = 0
      OnExecute = acaCatchUpExecute
    end
    object acaCatchUpPurge: TAction
      Category = 'Article'
      Caption = 'CatchUp and Purge'
      ImageIndex = 0
      OnExecute = acaCatchUpExecute
    end
    object acvFS: TAction
      Category = 'View'
      Caption = 'Full Screen'
      ShortCut = 123
      OnExecute = acvFSExecute
    end
    object acvToggleWidth: TAction
      Category = 'View'
      Caption = 'Change Subject Width'
      ShortCut = 122
      OnExecute = acvToggleWidthExecute
    end
    object acvSplitAlign: TAction
      Category = 'View'
      Caption = 'Switch H/V Split'
      ShortCut = 16507
      OnExecute = acvSplitAlignExecute
    end
    object acvSwitchView: TAction
      Category = 'View'
      Caption = 'Switch List <-> Viewer'
      OnExecute = acvSwitchViewExecute
    end
    object acvExpand: TAction
      Category = 'View'
      Caption = 'Expand Thread'
      Checked = True
      ShortCut = 187
      OnExecute = acvExpandCollapseExecute
    end
    object acvCollapse: TAction
      Category = 'View'
      Caption = 'Collapse Thread'
      Checked = True
      ShortCut = 189
      OnExecute = acvExpandCollapseExecute
    end
    object acvExpandAll: TAction
      Category = 'View'
      Caption = 'Expand All Threads'
      Checked = True
      OnExecute = acvAllExpandedExecute
    end
    object acvCollapseAll: TAction
      Category = 'View'
      Caption = 'Collapse All Threads'
      Checked = True
      OnExecute = acvAllExpandedExecute
    end
    object acvThreaded: TAction
      Category = 'View'
      Caption = 'Threaded View'
      Checked = True
      OnExecute = acvThreadedExecute
    end
    object acvAllExpanded: TAction
      Category = 'View'
      Caption = 'Toggle All Expanded'
      Checked = True
      ShortCut = 84
      OnExecute = acvAllExpandedExecute
    end
    object acvAutoCollapse: TAction
      Category = 'View'
      Caption = 'Auto Collapse'
      OnExecute = acvAutoCollapseExecute
    end
    object acvAutoBrowse: TAction
      Category = 'View'
      Caption = 'Auto Browse'
      OnExecute = acvViewExecute
    end
    object acvShowActive: TAction
      Category = 'View'
      Caption = 'Highlight Current Acticle'
      ShortCut = 67
      OnExecute = acvShowActiveExecute
    end
    object acvQuoted: TAction
      Category = 'View'
      Caption = 'Quoted Text'
      Checked = True
      OnExecute = acvViewExecute
    end
    object acvRaw: TAction
      Category = 'View'
      Caption = 'Raw Text'
      ShortCut = 82
      OnExecute = acvViewExecute
    end
    object acvShowallheaders: TAction
      Category = 'View'
      Caption = 'Show All Headers'
      ImageIndex = 7
      ShortCut = 72
      OnExecute = acvViewExecute
    end
    object acvWordWrap: TAction
      Category = 'View'
      Caption = 'Word Wrap'
      ImageIndex = 9
      OnExecute = acvViewExecute
    end
    object acvFixedFont: TAction
      Category = 'View'
      Caption = 'Use Fixed Font'
      ImageIndex = 8
      ShortCut = 8262
      OnExecute = acvViewExecute
    end
    object acvROT13: TAction
      Category = 'View'
      Caption = 'ROT-13'
      OnExecute = acvROT13Execute
    end
    object acvShowBin: TAction
      Category = 'View'
      Caption = 'Hide Incomplete Binaries'
      ShortCut = 66
      OnExecute = acvEZFilterExecute
    end
    object acvShowMBin: TAction
      Category = 'View'
      Caption = 'Show Binaries Only'
      OnExecute = acvEZFilterExecute
    end
    object acvShowNew: TAction
      Category = 'View'
      Caption = 'Show New Headers Only'
      ShortCut = 78
      OnExecute = acvEZFilterExecute
    end
    object acvShowUnread: TAction
      Category = 'View'
      Caption = 'Show Unread Articles Only'
      ShortCut = 85
      OnExecute = acvEZFilterExecute
    end
    object acvShowCached: TAction
      Category = 'View'
      Caption = 'Show Cached Articles Only'
      OnExecute = acvEZFilterExecute
    end
    object acvShowQ: TAction
      Category = 'View'
      Caption = 'Show Queued Articles Only'
      ShortCut = 81
      OnExecute = acvEZFilterExecute
    end
    object acvShowGe9999Score: TAction
      Category = 'View'
      Caption = 'Show >= 9999 Scores'
      OnExecute = FilterScore
    end
    object acvShowGt0Score: TAction
      Category = 'View'
      Caption = 'Show > 0 Scores'
      OnExecute = FilterScore
    end
    object acvShowGe0Score: TAction
      Category = 'View'
      Caption = 'Show >= 0 Scores'
      OnExecute = FilterScore
    end
    object acvShowGt_9999Score: TAction
      Category = 'View'
      Caption = 'Show > -9999 Scores'
      OnExecute = FilterScore
    end
    object acvShowThNew: TAction
      Category = 'View'
      Caption = 'Show Threads with New Headers'
      OnExecute = acvThFilterExecute
    end
    object acvShowThUnread: TAction
      Category = 'View'
      Caption = 'Show Threads with Unread'
      OnExecute = acvThFilterExecute
    end
    object acvShowThQ: TAction
      Category = 'View'
      Caption = 'Show Threads with Queued'
      OnExecute = acvThFilterExecute
    end
    object acvShowThGt0Score: TAction
      Category = 'View'
      Caption = 'Show Threads with > 0 Scores'
      OnExecute = acvThFilterExecute
    end
    object acvStatsForm: TAction
      Category = 'View'
      Caption = 'View stats'
      ShortCut = 86
      OnExecute = acvStatsFormExecute
    end
    object acvFilter: TAction
      Category = 'View'
      Caption = 'Filter...'
      ShortCut = 120
      OnExecute = acvFilterExecute
    end
    object acvUndoFilter: TAction
      Category = 'View'
      Caption = 'Undo Last Filter'
      Enabled = False
      ShortCut = 32776
      OnExecute = acvUndoFilterExecute
    end
    object acvInvertFilter: TAction
      Category = 'View'
      Caption = 'Invert Filter'
      Enabled = False
      OnExecute = acvEZFilterExecute
    end
    object acvRemoveFilter: TAction
      Category = 'View'
      Caption = 'Remove All Filters'
      Enabled = False
      ShortCut = 16504
      OnExecute = acvRemoveFilterExecute
    end
    object acvSwitchFilterColumn: TAction
      Category = 'View'
      Caption = 'Switch Filter Column'
      OnExecute = acvSwitchFilterColumnExecute
    end
    object acvAttachments: TAction
      Category = 'View'
      Caption = 'List Attachments'
      OnExecute = acvAttachmentsExecute
    end
    object acvSkipQuote: TAction
      Category = 'View'
      Caption = 'Skip Quoted Text'
      OnExecute = acvSkipQuoteExecute
    end
    object acaThread: TAction
      Category = 'Article'
      Caption = 'Thread articles'
      OnExecute = acaThreadExecute
    end
    object acaEditSubject: TAction
      Category = 'Article'
      Caption = 'Edit Subject'
      ShortCut = 8261
      OnExecute = acaEditSubjectExecute
    end
  end
  object poScore: TPopupMenu
    Left = 458
    Top = 388
    object Filter1: TMenuItem
      Caption = 'Filter'
      OnClick = acvFilterExecute
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object miFltrClear: TMenuItem
      Action = acvRemoveFilter
      Caption = 'Clear'
    end
    object N99991: TMenuItem
      Tag = 9999
      Caption = '>= 9999'
      OnClick = FilterScore
    end
    object N01: TMenuItem
      Tag = 1
      Caption = '> 0'
      OnClick = FilterScore
    end
    object N02: TMenuItem
      Caption = '>= 0'
      OnClick = FilterScore
    end
    object N99992: TMenuItem
      Tag = -9998
      Caption = '> -9999'
      OnClick = FilterScore
    end
  end
  object poStorage: TPopupMenu
    OnPopup = poStoragePopup
    Left = 450
    Top = 436
    object moDummy: TMenuItem
      Caption = 'Storage...'
      ShortCut = 118
      OnClick = acaStorageExecute
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object moSaveHeaders: TMenuItem
      Caption = 'Save &headers'
      GroupIndex = 1
      RadioItem = True
      OnClick = moStorageClick
    end
    object moSaveAll: TMenuItem
      Caption = 'Save headers and &articles'
      GroupIndex = 1
      RadioItem = True
      OnClick = moStorageClick
    end
    object moSaveNone: TMenuItem
      Caption = 'Save ¬hing'
      GroupIndex = 1
      RadioItem = True
      OnClick = moStorageClick
    end
    object N10: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object moCompact: TMenuItem
      Caption = 'Compact file'
      GroupIndex = 1
      OnClick = moStorageClick
    end
  end
  object mnAttach: TPopupMenu
    Left = 184
    Top = 328
  end
  object poHdrs: TPopupMenu
    AutoPopup = False
    OnPopup = UpdateMenu
    Left = 168
    Top = 216
    object miQ: TMenuItem
      Caption = '(De)Queue'
      ShortCut = 32
      OnClick = miQClick
    end
    object miQAll: TMenuItem
      Caption = 'Queue All'
      ShortCut = 16416
      OnClick = miQClick
    end
    object miClearQ: TMenuItem
      Caption = 'Clear Queue'
      ShortCut = 24608
      OnClick = miQClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object miEditSubj: TMenuItem
      Action = acaEditSubject
    end
  end
  object poMemo: TPopupMenu
    OnPopup = UpdateMenu
    Left = 160
    Top = 390
    object miCopy: TMenuItem
      Caption = '&Copy'
      OnClick = miCopyClick
    end
    object CopyAll1: TMenuItem
      Caption = 'Copy &All'
      OnClick = miCopyClick
    end
  end
  object ReconTimer: TTimer
    Enabled = False
    OnTimer = ReconTimerTimer
    Left = 48
    Top = 144
  end
  object DecodeDialog: TSaveDialogEx
    Filter = 'All files (*.*)|*.*'
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist]
    Left = 408
    Top = 264
  end
end