home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / mailx4 / ocxinbox.fr_ / ocxinbox.bin (.txt)
Encoding:
Visual Basic Form  |  1996-09-15  |  3.9 KB  |  136 lines
  1. VERSION 4.00
  2. Begin VB.Form InboxForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Inbox Messages"
  6.    ClientHeight    =   2895
  7.    ClientLeft      =   1470
  8.    ClientTop       =   4725
  9.    ClientWidth     =   5970
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   3270
  20.    Left            =   1425
  21.    LinkTopic       =   "Form4"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   2895
  24.    ScaleWidth      =   5970
  25.    Top             =   4395
  26.    Width           =   6060
  27.    Begin VB.CheckBox SortMsg 
  28.       BackColor       =   &H00C0C0C0&
  29.       Caption         =   "Sort Inbox Message"
  30.       Height          =   375
  31.       Left            =   165
  32.       TabIndex        =   5
  33.       Top             =   30
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox UnreadMsg 
  37.       BackColor       =   &H00C0C0C0&
  38.       Caption         =   "Unread Message Only"
  39.       Height          =   375
  40.       Left            =   2445
  41.       TabIndex        =   4
  42.       Top             =   30
  43.       Width           =   2295
  44.    End
  45.    Begin VB.CommandButton FilterMsg 
  46.       Caption         =   "&Refresh List"
  47.       Height          =   285
  48.       Left            =   3720
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1815
  52.    End
  53.    Begin VB.CommandButton OpenMsgBtn 
  54.       Caption         =   "&Open Message"
  55.       Height          =   285
  56.       Left            =   1920
  57.       TabIndex        =   2
  58.       Top             =   2520
  59.       Width           =   1695
  60.    End
  61.    Begin VB.CommandButton HideWndBtn 
  62.       Caption         =   "&Hide List"
  63.       Height          =   285
  64.       Left            =   255
  65.       TabIndex        =   1
  66.       Top             =   2520
  67.       Width           =   1575
  68.    End
  69.    Begin VB.ListBox MsgList 
  70.       Height          =   1785
  71.       Left            =   165
  72.       TabIndex        =   0
  73.       Top             =   510
  74.       Width           =   5700
  75.    End
  76.    Begin Mailx16Lib.MMsg MMsg1 
  77.       Left            =   5400
  78.       Top             =   2280
  79.       _version        =   65541
  80.       _extentx        =   900
  81.       _extenty        =   900
  82.       _stockprops     =   0
  83.       markasread      =   0   'False
  84.       displayerrors   =   0   'False
  85.       bindstring      =   "FormTag1.MSess1"
  86.    End
  87.    Begin Mailx16Lib.MForm MForm1 
  88.       Left            =   855
  89.       Tag             =   "FormTag2"
  90.       Top             =   2295
  91.       _version        =   65541
  92.       _extentx        =   5318
  93.       _extenty        =   500
  94.       _stockprops     =   0
  95.       mxformname      =   "FormTag2"
  96.    End
  97. Attribute VB_Name = "InboxForm"
  98. Attribute VB_Creatable = False
  99. Attribute VB_Exposed = False
  100. Private Sub FilterMsg_Click()
  101.     MMsg1.UnreadOnly = UnreadMsg
  102.     MMsg1.SortMsg = SortMsg
  103.     RefreshList
  104. End Sub
  105. Private Sub Form_Load()
  106.     RefreshList
  107. End Sub
  108. Private Sub HideWndBtn_Click()
  109.     Unload Me
  110. End Sub
  111. Private Sub MsgList_DblClick()
  112.     OpenMsgBtn_Click
  113. End Sub
  114. Private Sub OpenMsgBtn_Click()
  115.     Index = MsgList.ListIndex
  116.     If Index = -1 Then
  117.         MsgBox "Select a Mail Message to be opened"
  118.     Else
  119.         MMsg1.FetchMsg = Index + 1
  120.         NewMsgWnd MMsg1
  121.     End If
  122. End Sub
  123. Private Sub RefreshList()
  124.     SessionForm.MousePointer = 11
  125.     MsgList.Clear
  126.     nMsg = MMsg1.MsgCount
  127.     MMsg1.Action = ACTION_FINDFIRST
  128.     Do
  129.         If MMsg1.FetchMsg <> 0 Then
  130.             MsgList.AddItem MMsg1.Subject
  131.             MMsg1.Action = ACTION_FINDNEXT
  132.         End If
  133.     Loop While MMsg1.FetchMsg <> 0
  134.     SessionForm.MousePointer = 1
  135. End Sub
  136.