object ArticlesWindow: TArticlesWindow Left = 90 Top = 111 ActiveControl = Hdrs AutoScroll = False ClientHeight = 536 ClientWidth = 826 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsMDIChild Icon.Data = {} 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 = 511 Width = 826 Height = 25 Align = alBottom BevelOuter = bvNone Constraints.MinWidth = 100 Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -15 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 = -15 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 = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnMouseUp = Panel2MouseUp end object Panel3: TPanel Left = 712 Top = 0 Width = 114 Height = 25 Align = alClient AutoSize = True BevelInner = bvLowered BevelWidth = 2 TabOrder = 3 object Gauge: TProgress Left = 4 Top = 4 Width = 106 Height = 17 Cursor = crHandPoint Align = alClient Color = clBlack HintIsText = True Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ForeColor = clRed BackColor = clBlack ParentColor = False ParentFont = False Progress = 0 UpdateFrequency = 500 UseDockManager = False DragCursor = crHandPoint TabOrder = 0 OnClick = ShowProgressClick end end object pnFilter: TPanel Left = 573 Top = 0 Width = 139 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 = clBtnText 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 = 17 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 = clBtnText 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 = 243 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 = clBtnText 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 Hint = 'Refresh Headers (+Ctrl=Refresh Headers Special)' Caption = 'Refresh Headers' ImageIndex = 2 OnMouseDown = bRefreshMouseDown end object bArchive: TToolButton Left = 108 Top = 0 ImageIndex = 4 OnMouseUp = bArchiveMouseUp end object bSend: TToolButton Left = 135 Top = 0 Hint = 'Send Messages' Action = acaSend end object bEdit: TToolButton Left = 162 Top = 0 Hint = 'Edit Message' Action = acaEdit end object bStorage: TToolButton Left = 189 Top = 0 AllowAllUp = True DropdownMenu = poStorage ImageIndex = 7 end object bPurge: TToolButton Left = 216 Top = 0 Caption = 'Purge Folder' ImageIndex = 10 OnClick = acaPurgeExecute end end end object Splitter: TAdvSplitter Left = 0 Top = 0 Width = 826 Height = 511 AllowResize = True AutoUpdate = True BorderStyle = bsNone Orientation = soHorizontal ProportionalResize = True Position = 262 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 = 826 Height = 262 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 = -15 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 OnExit = HintOffTimerTimer OnKeyDown = HdrsKeyDown OnKeyPress = MemoKeyPress 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 = 826 Height = 246 Align = alClient AutoSize = True BevelInner = bvLowered BevelOuter = bvNone ParentColor = True TabOrder = 0 object pnTitleBase: TPanel Left = 1 Top = 1 Width = 824 Height = 24 Align = alTop Alignment = taLeftJustify Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = True ParentFont = False TabOrder = 0 object pnTitle: TPanel Left = 508 Top = 1 Width = 315 Height = 22 Cursor = crHandPoint Align = alClient Alignment = taLeftJustify BevelOuter = bvLowered BorderStyle = bsSingle Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -15 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = bNavClick end object NavBar: TToolBar Left = 1 Top = 1 Width = 507 Height = 22 Align = alLeft ButtonWidth = 27 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 = 32 Top = 0 Hint = 'Use Fixed Font' Action = acvFixedFont AllowAllUp = True Grouped = True ImageIndex = 3 Style = tbsCheck end object ToolButton8: TToolButton Left = 59 Top = 0 Hint = 'Raw Text' Action = acvRaw ImageIndex = 15 end object bWrap: TToolButton Left = 86 Top = 0 Hint = 'Word Wrap' Action = acvWordWrap AllowAllUp = True ImageIndex = 4 Style = tbsCheck end object ToolButton1: TToolButton Left = 113 Top = 0 Width = 8 ImageIndex = 10 Style = tbsSeparator end object bAttach: TToolButton Left = 121 Top = 0 Hint = 'List Attachments' Action = acvAttachments DropdownMenu = mnAttach Enabled = False ImageIndex = 11 PopupMenu = mnAttach end object ToolButton6: TToolButton Left = 148 Top = 0 Hint = 'Follow-Up to Newsgroup' Action = acaFollowUp ImageIndex = 14 end object ToolButton7: TToolButton Left = 175 Top = 0 Hint = 'Reply by Mail' Action = acaMail ImageIndex = 13 end object ToolButton3: TToolButton Left = 202 Top = 0 Width = 8 ImageIndex = 11 Style = tbsSeparator end object bBack: TToolButton Left = 210 Top = 0 Hint = 'Go Back' Action = acaBack DropdownMenu = mnBack ImageIndex = 0 Style = tbsDropDown end object bForw: TToolButton Left = 256 Top = 0 Hint = 'Go Forward' Action = acaForward DropdownMenu = mnForw ImageIndex = 1 Style = tbsDropDown end object ToolButton5: TToolButton Left = 302 Top = 0 Width = 8 ImageIndex = 5 Style = tbsSeparator end object bRef: TToolButton Left = 310 Top = 0 Hint = 'Get Parent (+Ctrl = Reconstruct Thread)' ImageIndex = 5 OnMouseDown = bRefMouseDown end object bNextQ: TToolButton Left = 337 Top = 0 Hint = 'Goto Next in Queue' Action = acaNextQueue ImageIndex = 10 end object bPrevTh: TToolButton Left = 364 Top = 0 Hint = 'Goto Prev Thread' Action = acaPrevThread ImageIndex = 6 end object bNextTh: TToolButton Left = 391 Top = 0 Hint = 'Goto Next Thread' Action = acaNextThread ImageIndex = 7 end object bPrevUnread: TToolButton Left = 418 Top = 0 Hint = 'Prev Unread (+Ctrl=Read or unread)' ImageIndex = 8 OnClick = bNavClick end object bNextUnread: TToolButton Left = 445 Top = 0 Hint = 'Next Unread (+Ctrl=Read or unread)' ImageIndex = 9 OnClick = bNavClick end object ToolButton2: TToolButton Left = 472 Top = 0 Hint = 'Skip Quoted Text' Action = acvSkipQuote ImageIndex = 12 end object bLast: TToolButton Left = 499 Top = 0 Width = 8 Caption = 'bLast' ImageIndex = 13 Style = tbsSeparator end end end object pnMBase: TPanel Left = 1 Top = 25 Width = 824 Height = 220 Align = alClient AutoSize = True BevelOuter = bvNone TabOrder = 1 OnResize = pnMBaseResize object Pager: TPageControl Left = -3 Top = -3 Width = 759 Height = 209 ActivePage = Tab1 MultiLine = True Style = tsButtons TabOrder = 0 TabStop = False object Tab1: TTabSheet Caption = 'Tab1' TabVisible = False object Memo: TRichEdit Left = 0 Top = 0 Width = 751 Height = 175 Align = alClient BorderStyle = bsNone Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] HideSelection = False ParentCtl3D = False 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 object Tab2: TTabSheet Caption = 'Tab2' ImageIndex = 1 TabVisible = False object ScrollBox: TScrollBox Left = 0 Top = 0 Width = 751 Height = 175 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient AutoSize = True Color = clBtnShadow ParentColor = False TabOrder = 0 end end end end end end end object FindDialog: TFindDialog Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown] OnFind = FindDialogFind Left = 200 Top = 378 end object MainMenu: TMainMenu AutoMerge = True Left = 496 Top = 41 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 mnOverrideServer: TMenuItem Caption = 'Override Server' GroupIndex = 7 object Nooverride1: TMenuItem Caption = 'No override' Checked = True RadioItem = True OnClick = miServerClick end end object RemoveDuplicates1: TMenuItem Action = acaDeleteDups GroupIndex = 7 end object miRefresh: TMenuItem Action = acaRefresh GroupIndex = 7 end object miRefreshEx: TMenuItem Action = acaRefreshEx GroupIndex = 7 end object miStorage: TMenuItem Action = acaStorage GroupIndex = 7 end object miThread: TMenuItem Action = acaThread Caption = '(Re)Thread articles' GroupIndex = 7 end object miPurge: TMenuItem Action = acaPurge GroupIndex = 7 end object miCompact: TMenuItem Action = acaCompact GroupIndex = 7 end object N6: TMenuItem Caption = '-' GroupIndex = 7 end object Selection1: TMenuItem Caption = 'Selection' GroupIndex = 7 object SelectAll1: TMenuItem Action = acaSelectAll end object acaInvertSelection1: TMenuItem Action = acaInvertSelection end end object mnMarkAll: TMenuItem Caption = 'Mark All As' GroupIndex = 7 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' GroupIndex = 7 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' GroupIndex = 7 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 miQArchive: TMenuItem Action = acaQArchive end object miDecode: TMenuItem Action = acaDecode end object miSaveAs: TMenuItem Action = acaSaveAs 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 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 OnTimer = HintTimerTimer Left = 187 Top = 144 end object mnBack: TPopupMenu Left = 496 Top = 94 end object mnForw: TPopupMenu Left = 496 Top = 200 end object StatTimer: TTimer Enabled = False Interval = 60000 OnTimer = StatTimerTimer Left = 117 Top = 144 end object PrintDialog: TPrintDialog Left = 256 Top = 376 end object AActions: TActionList Left = 346 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 = 5 OnExecute = acaSendExecute end object acaEdit: TAction Category = 'Article' Caption = 'Edit Message' ImageIndex = 6 ShortCut = 69 OnExecute = acaEditExecute end object acaArchive: TAction Category = 'Article' Caption = 'Archive' ImageIndex = 4 ShortCut = 65 OnExecute = acaArchiveExecute end object acaQArchive: TAction Category = 'Article' Caption = 'Q-Archive' OnExecute = acaQArchiveExecute 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 acaFindMissingParts: TAction Category = 'Article' Caption = 'Find Missing Binaries Parts' OnExecute = acaFindMissingPartsExecute end object acaKill: TAction Category = 'Article' Caption = 'Killfile this poster (*plonk*)' ShortCut = 75 OnExecute = acaKillExecute end object acaAddToScore: TAction Category = 'Article' Caption = 'Add to score file' OnExecute = acaAddToScoreExecute end object acaDeleteDups: TAction Category = 'Article' Caption = 'Delete Duplicates' OnExecute = acaDeleteDupsExecute 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' ImageIndex = 10 ShortCut = 16502 OnExecute = acaPurgeExecute end object acaCompact: TAction Category = 'Article' Caption = 'Compact Folder' OnExecute = acaCompactExecute end object acaCopyHeaders: TAction Category = 'Article' Caption = 'Copy Headers' OnExecute = acaCopyHeadersExecute 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' Checked = True 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 acvFilterBox: TAction Category = 'View' Caption = 'Switch to Filter Box' OnExecute = acvFilterBoxExecute 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 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 = 496 Top = 411 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 = 496 Top = 305 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 = 496 Top = 147 end object poHdrs: TPopupMenu AutoPopup = False OnPopup = UpdateMenu Left = 536 Top = 221 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 FindMissingBinariesParts1: TMenuItem Action = acaFindMissingParts end object miEditSubj: TMenuItem Action = acaEditSubject end end object poMemo: TPopupMenu OnPopup = poMemoPopup Left = 496 Top = 358 object miCopy: TMenuItem Caption = '&Copy' OnClick = miCopyClick end object CopyAll1: TMenuItem Caption = 'Copy &All' OnClick = miCopyClick end object miMailURL: TMenuItem Caption = '&mailto:' OnClick = miMailURLClick end object miOpenURL: TMenuItem Caption = '&Edit URL...' OnClick = miOpenURLClick 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, ofEnableSizing] Left = 144 Top = 376 end object HintOffTimer: TTimer Enabled = False Interval = 3000 OnTimer = HintOffTimerTimer Left = 256 Top = 144 end object poOverrideServer: TPopupMenu Left = 496 Top = 464 object Nooverride2: TMenuItem Caption = 'No override' Checked = True RadioItem = True OnClick = miServerClick end end end