home *** CD-ROM | disk | FTP | other *** search
- 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
-