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