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

Text File | 2001-06-19 | 16.0 KB | 718 lines

object ImapManager: TImapManager
  Left = 99
  Top = 214
  Width = 613
  Height = 368
  Caption = 'Message Dispatcher'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 9
    Top = 34
    Width = 587
    Height = 279
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object pnInfo: TPanel
      Left = 0
      Top = 0
      Width = 587
      Height = 150
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object hList: THeaderControl
        Left = 0
        Top = 0
        Width = 587
        Height = 17
        Sections = <
          item
            Alignment = taCenter
            AllowClick = False
            Text = '#'
            Width = 30
          end
          item
            Alignment = taCenter
            Text = 'Read'
            Width = 50
          end
          item
            Alignment = taCenter
            Text = 'Receive'
            Width = 60
          end
          item
            Text = 'Delete'
            Width = 50
          end
          item
            Text = 'Open'
            Width = 50
          end
          item
            Text = 'Size'
            Width = 80
          end
          item
            Text = 'From'
            Width = 100
          end
          item
            Text = 'To'
            Width = 100
          end
          item
            Text = 'Subject'
            Width = 100
          end
          item
            Text = 'Time'
            Width = 5000
          end>
        OnSectionResize = hListSectionResize
      end
      object fList: TListBox
        Tag = 112
        Left = 0
        Top = 17
        Width = 587
        Height = 133
        Align = alClient
        DragMode = dmAutomatic
        ItemHeight = 16
        MultiSelect = True
        PopupMenu = mPop
        Style = lbOwnerDrawFixed
        TabOrder = 1
        OnClick = fListClick
        OnDrawItem = fListDrawItem
        OnMouseDown = fListMouseDown
      end
    end
    object VSplit: TPanel
      Left = 0
      Top = 150
      Width = 587
      Height = 3
      Cursor = crVSplit
      Align = alTop
      TabOrder = 1
      OnMouseDown = VSplitMouseDown
      OnMouseMove = VSplitMouseMove
      OnMouseUp = VSplitMouseUp
    end
    object eMsg: TTextEditor
      Left = 0
      Top = 153
      Width = 587
      Height = 107
      BgColor = clBlack
      TextColor = clBlack
      SelColor = clBlack
      SelBgColor = clBlack
      QuoteColor = clBlack
      RefColor = clBlack
      Kludge1Color = clBlack
      Kludge2Color = clBlack
      Kludge3Color = clBlack
      ReadOnly = True
      FontCharset = 1
      TabOrder = 2
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Pitch = fpFixed
      Font.Style = []
      Align = alClient
    end
    object SBar: TStatusBar
      Left = 0
      Top = 260
      Width = 587
      Height = 19
      Panels = <
        item
          Style = psOwnerDraw
          Width = 50
        end
        item
          Width = 5000
        end>
      SimplePanel = False
    end
  end
  object BottomDock: TDock97
    Left = 0
    Top = 313
    Width = 605
    Height = 9
    Position = dpBottom
  end
  object RightDock: TDock97
    Left = 596
    Top = 34
    Width = 9
    Height = 279
    Position = dpRight
  end
  object LeftDock: TDock97
    Left = 0
    Top = 34
    Width = 9
    Height = 279
    Position = dpLeft
  end
  object Dock973: TDock97
    Left = 0
    Top = 0
    Width = 605
    Height = 34
    object Toolbar971: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Toolbar'
      DockedTo = Dock973
      DockPos = 0
      TabOrder = 0
      object bCancel: TToolbarButton97
        Left = 198
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Cancel dispatching'
        ParentShowHint = False
        ShowHint = True
        OnClick = bCancel1Click
      end
      object bOK: TToolbarButton97
        Left = 0
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Start transfer'
        ParentShowHint = False
        ShowHint = True
        OnClick = bOk1Click
      end
      object bForward: TToolbarButton97
        Left = 162
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Forward'
        ParentShowHint = False
        ShowHint = True
        OnClick = mForwardClick
      end
      object bReplyAll: TToolbarButton97
        Left = 132
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Reply to All'
        ParentShowHint = False
        ShowHint = True
        OnClick = mReplyAllClick
      end
      object bReply: TToolbarButton97
        Left = 102
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Reply'
        ParentShowHint = False
        ShowHint = True
        OnClick = mReplyClick
      end
      object bOpen: TToolbarButton97
        Left = 66
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Open message'
        ParentShowHint = False
        ShowHint = True
        OnClick = View1Click
      end
      object bInfo: TToolbarButton97
        Left = 36
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Show header'
        ParentShowHint = False
        ShowHint = True
        OnClick = bInfo1Click
      end
      object ToolbarSep971: TToolbarSep97
        Left = 192
        Top = 0
      end
      object ToolbarSep972: TToolbarSep97
        Left = 96
        Top = 0
      end
      object ToolbarSep973: TToolbarSep97
        Left = 30
        Top = 0
      end
    end
    object Toolbar972: TToolbar97
      Left = 241
      Top = 0
      Caption = 'Browse'
      DockedTo = Dock973
      DockPos = 241
      TabOrder = 1
      object bFolders: TToolbarButton97
        Left = 0
        Top = 0
        Width = 30
        Height = 30
        Hint = 'Mailbox controller'
        ParentShowHint = False
        ShowHint = True
        OnClick = bFolders1Click
      end
      object ToolbarSep974: TToolbarSep97
        Left = 30
        Top = 0
      end
      object cbFolder: TComboBox
        Left = 36
        Top = 4
        Width = 275
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        Sorted = True
        TabOrder = 0
        OnChange = cbFolder1Change
      end
    end
  end
  object mPop: TPopupMenu
    Left = 272
    Top = 128
    object mmHeader: TMenuItem
      Caption = '&Show full header'
      ShortCut = 16456
      OnClick = bInfo1Click
    end
    object View1: TMenuItem
      Caption = '&Open'
      ShortCut = 13
      OnClick = View1Click
    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 = View1Click
      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 Newmessagesonly1: TMenuItem
        Caption = '&Unseen messages only'
        ShortCut = 0
      end
      object mBoxer: TMenuItem
        Caption = '&Mailbox controller'
        ShortCut = 16461
        OnClick = bFolders1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mvHeader: TMenuItem
        Caption = '&Header autoview'
        ShortCut = 16456
        OnClick = bInfo1Click
      end
    end
  end
  object ReleaseTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = ReleaseTimerTimer
    Left = 512
    Top = 67
  end
  object IMAP1: TIMAP
    Authentication = iamPlainText
    ExtendedCommands = False
    Port = 0
    AutoReconnect = False
    DefaultFolder = 'INBOX'
    Trace = False
    OnCommandCompleted = IMAP1CommandCompleted
    OnDisconnect = IMAP1Disconnect
    OnAuthenticated = IMAP1Authenticated
    OnSelected = IMAP1Selected
    OnExpunged = IMAP1Expunged
    OnGetMessage = IMAP1GetMessage
    OnGotMessage = IMAP1GotMessage
    OnGotMsgPeekStream = IMAP1GotMsgPeekStream
    OnGotMessageFlags = IMAP1GotMessageFlags
    OnBoxCreated = IMAP1BoxCreated
    OnBoxDeleted = IMAP1BoxDeleted
    OnBoxRenamed = IMAP1BoxRenamed
    OnGotStatus = IMAP1GotStatus
    Left = 32
    Top = 91
  end
  object tmShow: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmShowTimer
    Left = 24
    Top = 155
  end
  object tmBox: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmBoxTimer
    Left = 344
    Top = 107
  end
end