Chip 2001 August - Disc 3/chip_20018103_hu.iso/honosito/internet/the_bat.exe/thebat.exe/0/RCDATA/TFETCHMGR/TFETCHMGR.txt

Text File | 2001-06-19 | 16.7 KB | 746 lines

object FetchMgr: TFetchMgr
  Left = 248
  Top = 282
  Width = 613
  Height = 420
  Caption = 'Message Dispatcher'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object FormPanel: TPanel
    Left = 9
    Top = 32
    Width = 587
    Height = 314
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object VSplit: TSplitter
      Left = 0
      Top = 191
      Width = 587
      Height = 4
      Cursor = crVSplit
      Align = alTop
      Beveled = False
    end
    object pnInfo: TPanel
      Left = 0
      Top = 0
      Width = 587
      Height = 191
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object hList: THeaderControl
        Left = 0
        Top = 0
        Width = 587
        Height = 17
        Sections = <
          item
            Alignment = taCenter
            Text = '#'
            Width = 64
          end
          item
            Alignment = taCenter
            Text = 'Read'
            Width = 64
          end
          item
            Alignment = taCenter
            Text = 'Receive'
            Width = 64
          end
          item
            Text = 'Delete'
            Width = 64
          end
          item
            Text = 'Open'
            Width = 64
          end
          item
            Text = 'Size'
            Width = 64
          end
          item
            Text = 'From'
            Width = 64
          end
          item
            Text = 'To'
            Width = 64
          end
          item
            Text = 'Subject'
            Width = 64
          end
          item
            Text = 'Time'
            Width = 64
          end>
      end
      object fList: TMailDispatcherGrid
        Left = 0
        Top = 17
        Width = 587
        Height = 174
        Align = alClient
        ColCount = 10
        DefaultRowHeight = 15
        DefaultDrawing = False
        FixedCols = 0
        FixedRows = 0
        GridLineWidth = 0
        Options = [goThumbTracking]
        PopupMenu = mPop
        TabOrder = 1
        Header = hList
        OnFocusItem = fListFocusItem
      end
    end
    object eMsg: TTextEditor
      Left = 0
      Top = 195
      Width = 587
      Height = 119
      BgColor = clBlack
      TextColor = clBlack
      SelColor = clBlack
      SelBgColor = clBlack
      QuoteColor = clBlack
      RefColor = clBlack
      Kludge1Color = clBlack
      Kludge2Color = clBlack
      Kludge3Color = clBlack
      ReadOnly = True
      FontCharset = 1
      TabOrder = 1
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Pitch = fpFixed
      Font.Style = []
      Align = alClient
    end
  end
  object DockTop: TDock97
    Left = 0
    Top = 0
    Width = 605
    Height = 32
    object Toolbar: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Toolbar'
      DockedTo = DockTop
      DockPos = 0
      TabOrder = 0
      object bForward: TToolbarButton97
        Left = 152
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Forward'
        ParentShowHint = False
        ShowHint = True
        OnClick = mForwardClick
      end
      object ToolbarSep971: TToolbarSep97
        Left = 180
        Top = 0
      end
      object bCancel: TToolbarButton97
        Left = 186
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Cancel dispatching'
        ParentShowHint = False
        ShowHint = True
        OnClick = bCancel1Click
      end
      object bOK: TToolbarButton97
        Left = 0
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Start transfer'
        ParentShowHint = False
        ShowHint = True
        OnClick = bOk1Click
      end
      object bReplyAll: TToolbarButton97
        Left = 124
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Reply to All'
        ParentShowHint = False
        ShowHint = True
        OnClick = mReplyAllClick
      end
      object bReply: TToolbarButton97
        Left = 96
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Reply'
        ParentShowHint = False
        ShowHint = True
        OnClick = mReplyClick
      end
      object bOpen: TToolbarButton97
        Left = 62
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Open message'
        ParentShowHint = False
        ShowHint = True
        OnClick = Reply1Click
      end
      object bInfo: TToolbarButton97
        Left = 34
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Show header'
        ParentShowHint = False
        ShowHint = True
        OnClick = bInfoClick
      end
      object ToolbarSep972: TToolbarSep97
        Left = 28
        Top = 0
      end
      object ToolbarSep973: TToolbarSep97
        Left = 90
        Top = 0
      end
    end
  end
  object DockBottom: TDock97
    Left = 0
    Top = 346
    Width = 605
    Height = 9
    Position = dpBottom
  end
  object DockLeft: TDock97
    Left = 0
    Top = 32
    Width = 9
    Height = 314
    Position = dpLeft
  end
  object DockRight: TDock97
    Left = 596
    Top = 32
    Width = 9
    Height = 314
    Position = dpRight
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 355
    Width = 605
    Height = 19
    Panels = <
      item
        Style = psOwnerDraw
        Text = 'Status'
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
    OnDrawPanel = StatusBarDrawPanel
  end
  object mPop: TPopupMenu
    Left = 272
    Top = 128
    object mmHeader: TMenuItem
      Caption = '&Show full header'
      ShortCut = 16456
      OnClick = bInfoClick
    end
    object View1: TMenuItem
      Caption = '&Open'
      ShortCut = 13
      OnClick = Reply1Click
    end
    object mReply: TMenuItem
      Caption = '&Reply'
      ShortCut = 16397
      OnClick = mReplyClick
    end
    object mReplyAll: TMenuItem
      Caption = 'Reply to &All'
      ShortCut = 24589
      OnClick = mReplyAllClick
    end
    object mForward: TMenuItem
      Caption = '&Forward'
      ShortCut = 8205
      OnClick = mForwardClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mmToggle: TMenuItem
      Caption = '&Toggle flag'
      ShortCut = 0
      object Read1: TMenuItem
        Caption = '&Read'
        ShortCut = 16466
        Visible = False
        OnClick = mtsReadClick
      end
      object mtsRead: TMenuItem
        Caption = '&Read'
        ShortCut = 49
        OnClick = mtsReadClick
      end
      object Receive1: TMenuItem
        Tag = 1
        Caption = 'Recei&ve'
        ShortCut = 32
        Visible = False
        OnClick = mtsReadClick
      end
      object mtsRece: TMenuItem
        Tag = 1
        Caption = 'Recei&ve'
        ShortCut = 50
        OnClick = mtsReadClick
      end
      object Delete1: TMenuItem
        Tag = 2
        Caption = '&Delete'
        ShortCut = 46
        Visible = False
        OnClick = mtsReadClick
      end
      object mtsDel: TMenuItem
        Tag = 2
        Caption = '&Delete'
        ShortCut = 51
        OnClick = mtsReadClick
      end
      object Open2: TMenuItem
        Tag = 3
        Caption = '&Open'
        ShortCut = 16463
        Visible = False
        OnClick = mtsReadClick
      end
      object mtsOpen: TMenuItem
        Tag = 3
        Caption = '&Open'
        ShortCut = 52
        OnClick = mtsReadClick
      end
    end
    object mmSetAll: TMenuItem
      Caption = 'Set flag for all messages'
      ShortCut = 0
      object mmgRead: TMenuItem
        Caption = '&Read'
        ShortCut = 16500
        OnClick = mmgReadClick
      end
      object mmgRece: TMenuItem
        Tag = 1
        Caption = 'Recei&ve'
        ShortCut = 16501
        OnClick = mmgReadClick
      end
      object mmgDel: TMenuItem
        Tag = 2
        Caption = '&Delete'
        ShortCut = 16502
        OnClick = mmgReadClick
      end
      object mmgOpen: TMenuItem
        Tag = 3
        Caption = '&Open'
        ShortCut = 16503
        OnClick = mmgReadClick
      end
    end
    object mmResetAll: TMenuItem
      Caption = 'Reset flag for all messages'
      ShortCut = 0
      object mrgRead: TMenuItem
        Tag = 10
        Caption = '&Read'
        ShortCut = 8308
        OnClick = mmgReadClick
      end
      object mrgRece: TMenuItem
        Tag = 11
        Caption = 'Recei&ve'
        ShortCut = 8309
        OnClick = mmgReadClick
      end
      object mrgDel: TMenuItem
        Tag = 12
        Caption = '&Delete'
        ShortCut = 8310
        OnClick = mmgReadClick
      end
      object Open1: TMenuItem
        Tag = 13
        Caption = '&Open'
        ShortCut = 8311
        OnClick = mmgReadClick
      end
    end
    object Toggleflagsforallmessages1: TMenuItem
      Caption = 'Toggle flag for all messages'
      ShortCut = 0
      object mtgRead: TMenuItem
        Tag = 20
        Caption = '&Read'
        ShortCut = 116
        OnClick = mmgReadClick
      end
      object mtgReceive: TMenuItem
        Tag = 21
        Caption = 'Recei&ve'
        ShortCut = 117
        OnClick = mmgReadClick
      end
      object mtgDelete: TMenuItem
        Tag = 22
        Caption = '&Delete'
        ShortCut = 118
        OnClick = mmgReadClick
      end
      object mtgOpen: TMenuItem
        Tag = 23
        Caption = '&Open'
        ShortCut = 119
        OnClick = mmgReadClick
      end
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mGO1: TMenuItem
      Caption = '&GO!'
      ShortCut = 113
      OnClick = bOk1Click
    end
    object Cancel1: TMenuItem
      Caption = 'Cancel'
      ShortCut = 27
      Visible = False
      OnClick = bCancel1Click
    end
    object Popup1: TMenuItem
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 73
    object Message1: TMenuItem
      Caption = '&Message'
      ShortCut = 0
      object Open6: TMenuItem
        Caption = '&Open'
        ShortCut = 13
        OnClick = Reply1Click
      end
      object Reply1: TMenuItem
        Caption = '&Reply'
        ShortCut = 16397
        OnClick = mReplyClick
      end
      object ReplytoAll1: TMenuItem
        Caption = 'Reply to &All'
        ShortCut = 24589
        OnClick = mReplyAllClick
      end
      object Forward1: TMenuItem
        Caption = '&Forward'
        ShortCut = 8205
        OnClick = mForwardClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Read6: TMenuItem
        Caption = '&1 Read'
        ShortCut = 16466
        OnClick = mtsReadClick
      end
      object Receive6: TMenuItem
        Tag = 1
        Caption = '&2 Receive'
        ShortCut = 32
        OnClick = mtsReadClick
      end
      object Delete6: TMenuItem
        Tag = 2
        Caption = '&3 Delete'
        ShortCut = 46
        OnClick = mtsReadClick
      end
      object Open8: TMenuItem
        Tag = 3
        Caption = '&4 Open'
        ShortCut = 16463
        OnClick = mtsReadClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object GO1: TMenuItem
        Caption = '&Execute'
        ShortCut = 113
        OnClick = bOk1Click
      end
    end
    object Global1: TMenuItem
      Caption = '&Global'
      ShortCut = 0
      object Toggleflagforallmessages1: TMenuItem
        Caption = 'Toggle flag'
        ShortCut = 0
        object Read4: TMenuItem
          Tag = 20
          Caption = '&Read'
          ShortCut = 16433
          OnClick = mmgReadClick
        end
        object Receive4: TMenuItem
          Tag = 21
          Caption = 'Recei&ve'
          ShortCut = 16434
          OnClick = mmgReadClick
        end
        object Delete4: TMenuItem
          Tag = 22
          Caption = '&Delete'
          ShortCut = 16435
          OnClick = mmgReadClick
        end
        object Open5: TMenuItem
          Tag = 23
          Caption = '&Open'
          ShortCut = 16436
          OnClick = mmgReadClick
        end
      end
      object Setflagforallmessages1: TMenuItem
        Caption = 'Set flag'
        ShortCut = 0
        object Read2: TMenuItem
          Caption = '&Read'
          ShortCut = 32817
          OnClick = mmgReadClick
        end
        object Receive2: TMenuItem
          Tag = 1
          Caption = 'Recei&ve'
          ShortCut = 32818
          OnClick = mmgReadClick
        end
        object Delete2: TMenuItem
          Tag = 2
          Caption = '&Delete'
          ShortCut = 32819
          OnClick = mmgReadClick
        end
        object Open3: TMenuItem
          Tag = 3
          Caption = '&Open'
          ShortCut = 32820
          OnClick = mmgReadClick
        end
      end
      object Resetflagforallmessages1: TMenuItem
        Caption = 'Reset flag'
        ShortCut = 0
        object Read3: TMenuItem
          Tag = 10
          Caption = '&Read'
          ShortCut = 8241
          OnClick = mmgReadClick
        end
        object Receive3: TMenuItem
          Tag = 11
          Caption = 'Recei&ve'
          ShortCut = 8242
          OnClick = mmgReadClick
        end
        object Delete3: TMenuItem
          Tag = 12
          Caption = '&Delete'
          ShortCut = 8243
          OnClick = mmgReadClick
        end
        object Open4: TMenuItem
          Tag = 13
          Caption = '&Open'
          ShortCut = 8244
          OnClick = mmgReadClick
        end
      end
    end
    object View2: TMenuItem
      Caption = '&View'
      ShortCut = 0
      object mSort: TMenuItem
        Caption = '&Sort by'
        ShortCut = 0
        OnClick = mSortClick
        object msbNumber: TMenuItem
          Tag = 100
          Caption = '&Number'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbSize: TMenuItem
          Tag = 5
          Caption = '&Size'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbFrom: TMenuItem
          Tag = 6
          Caption = 'S&ender'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbTo: TMenuItem
          Tag = 7
          Caption = '&Recipient'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbSubject: TMenuItem
          Tag = 8
          Caption = 'S&ubject'
          GroupIndex = 11
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbTime: TMenuItem
          Tag = 9
          Caption = '&Time'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object N6: TMenuItem
          Caption = '-'
          GroupIndex = 11
          ShortCut = 0
        end
        object msbRead: TMenuItem
          Tag = 1
          Caption = '&1 Read flag'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbReceive: TMenuItem
          Tag = 2
          Caption = '&2 Receive flag'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbDelete: TMenuItem
          Tag = 3
          Caption = '&3 Delete flag'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object msbOpen: TMenuItem
          Tag = 4
          Caption = '&4 Open flag'
          GroupIndex = 11
          RadioItem = True
          ShortCut = 0
          OnClick = msbNumberClick
        end
        object N7: TMenuItem
          Caption = '-'
          GroupIndex = 11
          ShortCut = 0
        end
        object msbDescend: TMenuItem
          Caption = '&Descending order'
          GroupIndex = 12
          ShortCut = 0
          OnClick = msbDescendClick
        end
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mvHeader: TMenuItem
        Caption = '&Header autoview'
        ShortCut = 16456
        OnClick = bInfoClick
      end
      object mvToolbar: TMenuItem
        Caption = '&Toolbar'
        ShortCut = 0
        OnClick = mvToolbarClick
      end
    end
  end
  object ReleaseTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = ReleaseTimerTimer
    Left = 512
    Top = 67
  end
  object StartTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = StartTimerTimer
    Left = 288
    Top = 139
  end
end