Chip 2004 April/CMCD0404.ISO/Software/Shareware/Comunicatii/thebat/the_bat2.04.07.exe/thebat.exe/0/RCDATA/TFETCHMGR/TFETCHMGR.txt

Text File | 2004-02-23 | 18.5 KB | 808 lines

object FetchMgr: TFetchMgr
  Left = 248
  Top = 282
  Width = 613
  Height = 420
  Caption = 'Message Dispatcher'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object FormPanel: TPanel
    Left = 9
    Top = 32
    Width = 587
    Height = 306
    Align = alClient
    BevelOuter = bvNone
    Constraints.MinHeight = 30
    Constraints.MinWidth = 30
    TabOrder = 0
    object VSplit: TSplitter
      Left = 0
      Top = 113
      Width = 587
      Height = 3
      Cursor = crVSplit
      Align = alTop
      ResizeStyle = rsUpdate
    end
    object pnInfo: TPanel
      Left = 0
      Top = 0
      Width = 587
      Height = 113
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object hList: THeaderControl
        Left = 0
        Top = 0
        Width = 587
        Height = 17
        Sections = <
          item
            Alignment = taCenter
            ImageIndex = -1
            Text = '#'
            Width = 64
          end
          item
            Alignment = taCenter
            ImageIndex = -1
            Text = 'Read'
            Width = 64
          end
          item
            Alignment = taCenter
            ImageIndex = -1
            Text = 'Receive'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'Delete'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'Open'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'Size'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'From'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'To'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'Subject'
            Width = 64
          end
          item
            ImageIndex = -1
            Text = 'Time'
            Width = 64
          end>
      end
      object fList: TMailDispatcherGrid
        Left = 0
        Top = 17
        Width = 587
        Height = 96
        Align = alClient
        ColCount = 10
        DefaultRowHeight = 15
        DefaultDrawing = False
        FixedCols = 0
        FixedRows = 0
        GridLineWidth = 0
        Options = [goThumbTracking]
        PopupMenu = PopUp
        TabOrder = 1
        Header = hList
        OnFocusItem = fListFocusItem
      end
    end
    object pnMsg: TPanel
      Left = 0
      Top = 116
      Width = 587
      Height = 190
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object eMsg: TTextEditor
        Left = 1
        Top = 1
        Width = 585
        Height = 188
        BgColor = clBlack
        TextColor = clBlack
        SelColor = clBlack
        SelBgColor = clBlack
        QuoteColor = clBlack
        RefColor = clBlack
        Kludge1Color = clBlack
        Kludge2Color = clBlack
        Kludge3Color = clBlack
        ReadOnly = True
        FontCharset = 1
        TabOrder = 0
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpFixed
        Font.Style = []
        Align = alClient
      end
    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'
        AllowAllUp = True
        GroupIndex = 10
        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 = 338
    Width = 605
    Height = 9
    Position = dpBottom
  end
  object DockLeft: TDock97
    Left = 0
    Top = 32
    Width = 9
    Height = 306
    Position = dpLeft
  end
  object DockRight: TDock97
    Left = 596
    Top = 32
    Width = 9
    Height = 306
    Position = dpRight
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 347
    Width = 605
    Height = 19
    Panels = <
      item
        Style = psOwnerDraw
        Text = 'Status'
        Width = 100
      end
      item
        Width = 50
      end>
    OnDrawPanel = StatusBarDrawPanel
  end
  object PopUp: TPopupMenu
    Left = 272
    Top = 128
    object mmHeader: TMenuItem
      Caption = '&Show full header'
      ShortCut = 16456
      OnClick = mvHeaderClick
    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 = '-'
    end
    object mmToggle: TMenuItem
      Caption = '&Toggle flag'
      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'
      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'
      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'
      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 = '-'
    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 MainMenu: TMainMenu
    Left = 112
    Top = 73
    object Message1: TMenuItem
      Caption = '&Message'
      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 = '-'
      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 = '-'
      end
      object GO1: TMenuItem
        Caption = '&Execute'
        ShortCut = 113
        OnClick = bOk1Click
      end
    end
    object mSelection: TMenuItem
      Caption = '&Selection'
      object Setflag1: TMenuItem
        Caption = 'Set flag'
        object msSetRead: TMenuItem
          Caption = '&Read'
          ShortCut = 90
          OnClick = msSetReadClick
        end
        object msSetRecv: TMenuItem
          Tag = 1
          Caption = 'Recei&ve'
          ShortCut = 88
          OnClick = msSetReadClick
        end
        object msSetDel: TMenuItem
          Tag = 2
          Caption = '&Delete'
          ShortCut = 67
          OnClick = msSetReadClick
        end
        object msSetOpen: TMenuItem
          Tag = 3
          Caption = '&Open'
          ShortCut = 86
          OnClick = msSetReadClick
        end
      end
      object Resetflag1: TMenuItem
        Caption = 'Reset flag'
        object msResetRead: TMenuItem
          Caption = '&Read'
          ShortCut = 65
          OnClick = msResetReadClick
        end
        object msResetReceive: TMenuItem
          Tag = 1
          Caption = 'Recei&ve'
          ShortCut = 83
          OnClick = msResetReadClick
        end
        object msResetDel: TMenuItem
          Tag = 2
          Caption = '&Delete'
          ShortCut = 68
          OnClick = msResetReadClick
        end
        object msResetOpen: TMenuItem
          Tag = 3
          Caption = '&Open'
          ShortCut = 70
          OnClick = msResetReadClick
        end
      end
    end
    object Global1: TMenuItem
      Caption = '&Global'
      object Toggleflagforallmessages1: TMenuItem
        Caption = 'Toggle flag'
        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'
        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'
        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'
      object mSort: TMenuItem
        Caption = '&Sort by'
        OnClick = mSortClick
        object msbNumber: TMenuItem
          Tag = 100
          Caption = '&Number'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbSize: TMenuItem
          Tag = 5
          Caption = '&Size'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbFrom: TMenuItem
          Tag = 6
          Caption = 'S&ender'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbTo: TMenuItem
          Tag = 7
          Caption = '&Recipient'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbSubject: TMenuItem
          Tag = 8
          Caption = 'S&ubject'
          GroupIndex = 11
          OnClick = msbNumberClick
        end
        object msbTime: TMenuItem
          Tag = 9
          Caption = '&Time'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object N6: TMenuItem
          Caption = '-'
          GroupIndex = 11
        end
        object msbRead: TMenuItem
          Tag = 1
          Caption = '&1 Read flag'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbReceive: TMenuItem
          Tag = 2
          Caption = '&2 Receive flag'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbDelete: TMenuItem
          Tag = 3
          Caption = '&3 Delete flag'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object msbOpen: TMenuItem
          Tag = 4
          Caption = '&4 Open flag'
          GroupIndex = 11
          RadioItem = True
          OnClick = msbNumberClick
        end
        object N7: TMenuItem
          Caption = '-'
          GroupIndex = 11
        end
        object msbDescend: TMenuItem
          Caption = '&Descending order'
          GroupIndex = 12
          OnClick = msbDescendClick
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object mvHeader: TMenuItem
        Caption = '&Header autoview'
        ShortCut = 16456
        OnClick = mvHeaderClick
      end
      object mvToolbar: TMenuItem
        Caption = '&Toolbar'
        OnClick = mvToolbarClick
      end
      object N8: TMenuItem
        Caption = '-'
        GroupIndex = 11
      end
      object mEditShortcuts: TMenuItem
        Caption = '&Edit shortcuts'
        GroupIndex = 11
        ShortCut = 32891
        OnClick = mEditShortcutsClick
      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