object HuntForm: THuntForm
  Left = 236
  Top = 147
  ActiveControl = NewsserverEdit
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Idiot Hens'#39' Cancel Hunter'
  ClientHeight = 238
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ConfigPanel: TPanel
    Left = 0
    Top = 0
    Width = 289
    Height = 238
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 11
      Width = 56
      Height = 13
      Caption = 'Newsserver'
    end
    object Label2: TLabel
      Left = 8
      Top = 35
      Width = 22
      Height = 13
      Caption = 'User'
    end
    object Label3: TLabel
      Left = 8
      Top = 59
      Width = 46
      Height = 13
      Caption = 'Password'
    end
    object Label4: TLabel
      Left = 8
      Top = 83
      Width = 54
      Height = 13
      Caption = 'Newsgroup'
    end
    object Label5: TLabel
      Left = 8
      Top = 107
      Width = 60
      Height = 13
      Caption = 'Cancelgroup'
    end
    object Label6: TLabel
      Left = 8
      Top = 131
      Width = 38
      Height = 13
      Caption = 'Hunt for'
    end
    object Label7: TLabel
      Left = 8
      Top = 155
      Width = 80
      Height = 13
      Caption = 'Storage directory'
    end
    object Label8: TLabel
      Left = 8
      Top = 179
      Width = 66
      Height = 13
      Caption = 'Timer  interval'
    end
    object DirectoryButton: TSpeedButton
      Left = 256
      Top = 152
      Width = 23
      Height = 22
      Hint = 'Click here to specify an output directory'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = DirectoryButtonClick
    end
    object NewsserverEdit: TEdit
      Left = 104
      Top = 8
      Width = 177
      Height = 21
      Hint = 'Your newsserver here (or its dotted IP host)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = EditsChange
    end
    object UserEdit: TEdit
      Left = 104
      Top = 32
      Width = 177
      Height = 21
      Hint = 'Your username here'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = EditsChange
    end
    object PasswordEdit: TEdit
      Left = 104
      Top = 56
      Width = 177
      Height = 21
      Hint = 'Your password here'
      ParentShowHint = False
      PasswordChar = '*'
      ShowHint = True
      TabOrder = 2
      OnChange = EditsChange
    end
    object NewsgroupEdit: TEdit
      Left = 104
      Top = 80
      Width = 177
      Height = 21
      Hint = 'Hunt for string in bodies of this group'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = 'alt.comp.shareware.programmer'
      OnChange = EditsChange
    end
    object CancelgroupEdit: TEdit
      Left = 104
      Top = 104
      Width = 177
      Height = 21
      Hint = 'If string found, hunt for message id in this group'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = 'control.cancel'
      OnChange = EditsChange
    end
    object HuntEdit: TEdit
      Left = 104
      Top = 128
      Width = 177
      Height = 21
      Hint = 'String to hunt for'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Text = 'awood4'
      OnChange = EditsChange
    end
    object StorageDirectoryEdit: TEdit
      Left = 104
      Top = 152
      Width = 145
      Height = 21
      Hint = 'Store found files here (header + body)'
      TabStop = False
      Color = clBtnFace
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 6
      Text = 'C:\'
    end
    object TimerIntervalEdit: TEdit
      Left = 104
      Top = 176
      Width = 121
      Height = 21
      Hint = 'How often to update (in minutes)'
      TabStop = False
      Color = clBtnFace
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 7
      Text = '5'
    end
    object TimerIntervalUpDown: TUpDown
      Left = 225
      Top = 176
      Width = 56
      Height = 21
      Hint = 'Click here to change timer interval'
      Associate = TimerIntervalEdit
      Min = 1
      Max = 60
      Orientation = udHorizontal
      ParentShowHint = False
      Position = 5
      ShowHint = True
      TabOrder = 8
      TabStop = True
      Wrap = False
    end
    object ArmButton: TBitBtn
      Left = 8
      Top = 208
      Width = 129
      Height = 25
      Hint = 'Click here to start hunting'
      Caption = 'Start hunting'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = ArmButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
        77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
        07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF77333333333000003333333333377777333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      Style = bsNew
    end
    object KillButton: TBitBtn
      Left = 152
      Top = 208
      Width = 129
      Height = 25
      Hint = 'Click here to stop hunting'
      Caption = 'Stop hunting'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = KillButtonClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333000003333333333F777773FF333333008877700
        33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
        703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
        77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
        07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
        780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
        8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
        3333333773FFFF77333333333000003333333333377777333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      Style = bsNew
    end
  end
  object OutputPanel: TPanel
    Left = 289
    Top = 0
    Width = 399
    Height = 238
    Align = alClient
    TabOrder = 1
    object ModeLabel: TLabel
      Left = 8
      Top = 8
      Width = 22
      Height = 16
      Hint = 'Current status of hunt'
      Caption = 'idle'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object NewsgroupLabel: TLabel
      Left = 8
      Top = 32
      Width = 22
      Height = 16
      Hint = 'Current Newsgroup'
      Caption = 'idle'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object IndexLabel: TLabel
      Left = 8
      Top = 56
      Width = 22
      Height = 16
      Hint = 'Current Index'
      Caption = 'idle'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object MessageIdLabel: TLabel
      Left = 8
      Top = 80
      Width = 22
      Height = 16
      Hint = 'Current Message-ID'
      Caption = 'idle'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object ActionLabel: TLabel
      Left = 8
      Top = 104
      Width = 22
      Height = 16
      Hint = 'Current Action'
      Caption = 'idle'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object ProgressBar1: TProgressBar
      Left = 8
      Top = 208
      Width = 385
      Height = 25
      Min = 0
      Max = 100
      Smooth = True
      Step = 1
      TabOrder = 0
    end
    object Animate1: TAnimate
      Left = 336
      Top = 144
      Width = 48
      Height = 50
      Active = False
      CommonAVI = aviFindFile
      StopFrame = 23
      Visible = False
    end
    object TopmostCheckBox: TCheckBox
      Left = 8
      Top = 184
      Width = 89
      Height = 17
      Caption = 'Stay on top'
      TabOrder = 2
      OnClick = TopmostCheckBoxClick
    end
  end
  object Nntp: TNMNNTP
    Port = 119
    ReportLevel = 0
    CacheMode = cmMixed
    ParseAttachments = False
    OnHeaderList = NntpHeaderList
    OnInvalidArticle = NntpInvalidArticle
    Left = 297
    Top = 136
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 329
    Top = 136
  end
end