<html>
<head>
<title>Softel vdm, Inc. - Email Sample</title>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Option Explicit
Dim InboxFolder
Dim OutboxFolder
Dim SavedFolder
Dim DeletedFolder
Dim AttachmentPicture
Private Function AddFolder(Folder, Desc, Count)
Dim ItemIndex
ItemIndex = SftTreeIE1.Items.Add(Folder) ' add folder
SftTreeIE1.Cell(ItemIndex, 1).Text = Desc ' add description
SftTreeIE1.Cell(ItemIndex, 3).Text = Count ' add number of messages
SftTreeIE1.Cell(ItemIndex, 3).Data = Count ' also save number of messages for sorting
' make the folder name bold
SftTreeIE1.Cell(ItemIndex, 0).Font.Bold = True
' if this folder has no messages (ie. dependents), we still want the
' folder graphic, not the email (leaf) graphic
If Count = 0 Then
SftTreeIE1.Item(ItemIndex).Image = SftTreeIE1.Items.ItemImageExpandable
End If
AddFolder = SftTreeIE1.Item(ItemIndex).ID
End Function
Private Function AddMessage(Level, Email, Desc, Dt, Size, Attachment)
Dim ItemIndex
ItemIndex = SftTreeIE1.Items.Add(Email) ' add folder
SftTreeIE1.Item(ItemIndex).Level = Level
SftTreeIE1.Cell(ItemIndex, 1).Text = Desc ' add description
SftTreeIE1.Cell(ItemIndex, 2).Text = Dt ' add date
SftTreeIE1.Cell(ItemIndex, 3).Text = Size & "K"
SftTreeIE1.Cell(ItemIndex, 3).Data = Size ' also save size for sorting
' if this email has replies (ie. dependents), we still want the
' email graphic, not the expand folder image
SftTreeIE1.Item(ItemIndex).Image = SftTreeIE1.Items.ItemImageLeaf
' if the email has an attachment, show the image
If Attachment Then
if IsEmpty(AttachmentPicture) then
Set AttachmentPicture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/attach.gif")
End If
Set SftTreeIE1.Cell(ItemIndex, 1).Image.Picture = AttachmentPicture
SftTreeIE1.Cell(ItemIndex, 1).ImageHAlign = 2 ' SftTreeHAlignConstants.halignSftTreeRight
End If
End Function
Sub window_onload
Dim Pic
'Set SftTreeIE1.Items.ItemImageExpandable.Picture = SftTreeIE1.LoadPicture("c:\Development\SftTree OCX 7.0\Bitmaps\itemExp.bmp")
'Set SftTreeIE1.Items.ItemImageExpanded.Picture = SftTreeIE1.LoadPicture("c:\Development\SftTree OCX 7.0\Bitmaps\ItemExpd.bmp")
'Set SftTreeIE1.Items.ItemImageLeaf.Picture = SftTreeIE1.LoadPicture("c:\Development\SftTree OCX 7.0\Bitmaps\ItemLeaf.bmp")
Set SftTreeIE1.Items.ItemImageExpandable.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/fldclos.gif")
Set SftTreeIE1.Items.ItemImageExpanded.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/fldopen.gif")
Set SftTreeIE1.Items.ItemImageLeaf.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/email.gif")
Set SftTreeIE1.Font = Nothing ' make sure to use the font of the surrounding form
Set SftTreeIE1.Headers.Font = SftTreeIE1.Font ' make sure to use the font of the surrounding form
Set SftTreeIE1.ItemEditFont = SftTreeIE1.Font ' make sure to use the font of the surrounding form
' cell editing
SftTreeIE1.CellEditStyle = 1 ' cellSftTreeAutoSize
SftTreeIE1.CellEventHandling = True
InboxFolder = AddFolder("Inbox", "Viewed and unviewed mail", 10)
AddMessage 1, "support@softelvdm.com", "Re: A support question", "10/09/05", 88, True
AddMessage 1, "anyone@acompany.com", "Re: Why did you say that", "10/10/05", 5, False
AddMessage 1, "anyone@acompany.com", "Re: You're fired", "10/11/05", 82, True
AddMessage 1, "anyone@acompany.com", "Re: You're hired", "10/11/05", 6, False
SftTreeIE1.Item(SftTreeIE1.Items.ItemIndex(InboxFolder)).Collapse False
OutboxFolder = AddFolder("Outbox", "Mail about to be sent", 2)
AddMessage 1, "me@mycompany.com", "Re: You're fired", "10/11/05", 5, False
AddMessage 1, "anyone@acompany.com", "Re: Why did you say that", "10/10/05", 5, False
SftTreeIE1.Item(SftTreeIE1.Items.ItemIndex(OutboxFolder)).Collapse False
SavedFolder = AddFolder("Saved", "Saved messages", 2)
AddMessage 1, "me@mycompany.com", "A support question", "10/09/05", 3, False
AddMessage 2, "support@softelvdm.com", "Re: A support question", "10/09/05", 88, True
AddMessage 3, "me@mycompany.com", "Re: A support question", "10/09/05", 3, False
AddMessage 1, "me@mycompany.com", "Why did you say that", "10/06/05", 5, False
AddMessage 2, "anyone@acompany.com", "Re: Why did you say that", "10/10/05", 5, False
AddMessage 1, "me@mycompany.com", "You're fired", "10/08/05", 2, False
AddMessage 2, "anyone@acompany.com", "Re: You're fired", "10/11/05", 82, False
AddMessage 1, "me@mycompany.com", "You're hired", "10/01/05", 4, False
AddMessage 1, "anyone@acompany.com", "Re: You're hired", "10/11/05", 6, False
SftTreeIE1.Item(SftTreeIE1.Items.ItemIndex(SavedFolder)).Collapse False
DeletedFolder = AddFolder("Deleted", "Deleted messages", 0)
SftTreeIE1.ColumnsObj.MakeOptimal
SftTreeIE1.Items.RecalcHorizontalExtent
SftTreeIE1.Splitter.MakeOptimal
' clear column header pictures
SftTreeIE1.Header(1).Image.Clear
SftTreeIE1.Header(2).Image.Clear
SftTreeIE1.Header(3).Image.Clear
SftTreeIE1.Items.Current = 0
SftTreeIE1_CaretChange 0 ' to update column headers
End Sub
Sub SftTreeIE1_CaretChange(ItemIndex)
' set column headers based on selected item
Select Case SftTreeIE1.Item(ItemIndex).ID
Case InboxFolder, OutboxFolder, SavedFolder, DeletedFolder
SftTreeIE1.Header(0).Text = "Folder"
SftTreeIE1.Header(1).Text = "Description"
SftTreeIE1.Header(2).Text = "" ' we can use this to merge the adjacent title
SftTreeIE1.Header(3).Text = "Msgs"
Case Else
SftTreeIE1.Header(0).Text = "From"
SftTreeIE1.Header(1).Text = "Subject"
SftTreeIE1.Header(2).Text = "Received"
SftTreeIE1.Header(3).Text = "Size"
End Select
End Sub
Sub SftTreeIE1_ItemClick(ItemIndex, ColIndex, AreaType, Button, Shift)
Dim Ascending
If AreaType = 3 Then ' constSftTreeButton
If SftTreeIE1.Item(ItemIndex).Expanded Then
SftTreeIE1.Item(ItemIndex).Collapse True
Else
SftTreeIE1.Item(ItemIndex).Expand True, False
End If
ElseIf AreaType = 5 Then ' constSftTreeText
if ColIndex = 1 then
SftTreeIE1.StartEdit ItemIndex, ColIndex
End If
ElseIf AreaType = 6 Then ' constSftTreeColumnHeader
Ascending = True
If SftTreeIE1.Header(ColIndex).Image.Appearance = 14 Then ' sftImageSortAsc
Ascending = False
End If
' we have to sort based on current column headers
Select Case SftTreeIE1.Item(SftTreeIE1.Items.Current).ID
Case InboxFolder, OutboxFolder, SavedFolder, DeletedFolder
' we're on a folder, so sort on folder level
If Ascending Then
If ColIndex = 3 Then
' last column is sorted by Cell.Data (numeric values)
SftTreeIE1.Items.SortDependents -1, ColIndex, 8 ' sortSftTreeAscCellItemData
Else
SftTreeIE1.Items.SortDependents -1, ColIndex, 0 ' sortSftTreeAscending
End If
Else
If ColIndex = 3 Then
SftTreeIE1.Items.SortDependents -1, ColIndex, 9 ' sortSftTreeDscCellItemData
Else
SftTreeIE1.Items.SortDependents -1, ColIndex, 1 ' sortSftTreeDescending
End If
End If
Case Else
' we're on a message, sort inside folders
' now sort the dependents of all folders
ItemIndex = 0
Do
If Ascending Then
If ColIndex = 3 Then
' last column is sorted by Cell.Data (numeric values)
SftTreeIE1.Items.SortDependents ItemIndex, ColIndex, 8 ' sortSftTreeAscCellItemData
Else
SftTreeIE1.Items.SortDependents ItemIndex, ColIndex, 0 ' sortSftTreeAscending
End If
Else
If ColIndex = 3 Then
SftTreeIE1.Items.SortDependents ItemIndex, ColIndex, 9 ' sortSftTreeDscCellItemData
Else
SftTreeIE1.Items.SortDependents ItemIndex, ColIndex, 1 ' sortSftTreeDescending
End If
End If
ItemIndex = SftTreeIE1.Item(ItemIndex).NextSibling
Loop Until ItemIndex < 0
End Select
' change column header image
SftTreeIE1.Header(0).Image.Clear
SftTreeIE1.Header(1).Image.Clear
SftTreeIE1.Header(2).Image.Clear
SftTreeIE1.Header(3).Image.Clear
If Ascending Then
SftTreeIE1.Header(ColIndex).Image.Appearance = 14 ' sftImageSortAsc
Else
SftTreeIE1.Header(ColIndex).Image.Appearance = 16 ' sftImageSortDesc
End If
' update column headers by calling CaretChange
SftTreeIE1_CaretChange SftTreeIE1.Items.Current
End If
End Sub
Sub SftTreeIE1_ItemDblClick(ItemIndex, ColIndex, AreaType, Button, Shift)
If AreaType = 5 Or AreaType = 3 Then ' constSftTreeText Or constSftTreeButton
' if an item on level 1 or lower is clicked, it's an
' email message, display message box
If SftTreeIE1.Item(ItemIndex).Level > 0 And AreaType = 5 Then ' constSftTreeText
MsgBox ("You could be viewing the message from " & SftTreeIE1.Cell(ItemIndex, 0).Text & _
" with the subject '" & SftTreeIE1.Cell(ItemIndex, 1).Text & "'.")
Else
' otherwise just expand or collapse the item
If SftTreeIE1.Item(ItemIndex).Expanded Then
SftTreeIE1.Item(ItemIndex).Collapse True
Else
SftTreeIE1.Item(ItemIndex).Expand True, False
End If
End If
ElseIf AreaType = 11 Then ' constSftTreeColumnRes
If ColIndex >= 0 Then
SftTreeIE1.Column(ColIndex).MakeOptimal
SftTreeIE1.Items.RecalcHorizontalExtent
Else
SftTreeIE1.Splitter.MakeOptimal
End If
End If
End Sub
Sub SftTreeIE1_AfterEdit(CancelEdit, NewString, CBIndex, ItemIndex, ColIndex)
If NewString = "" Then
MsgBox ("Please enter a description.")
CancelEdit = True
End If
End Sub
Sub CellEditing(ItemIndex, ColNum)
' Start editing a specific item (ItemIndex and ColNum)
' Based on the column number, you can create different types of controls
' You could even create controls in response to certain ItemIndex, ColNum
' combinations
SftTreeIE1.Items.Current = ItemIndex
SftTreeIE1.Item(ItemIndex).Selected = True
Select Case ColNum
Case 0, 1
SftTreeIE1.StartEdit ItemIndex, ColNum
'Case 2
' SftTreeIE1.StartComboEdit ItemIndex, ColNum, SftTreeIE1.Cell(ItemIndex, ColNum).Text & ",A,B,C,D,E,F,G", ","
'Case 3
' SftTreeIE1.StartCombo ItemIndex, ColNum, SftTreeIE1.Cell(ItemIndex, ColNum).Text & ",1,2,3,4,5,6,7", ","
End Select
End Sub
Sub SftTreeIE1_CEKeyDown(Key, Shift, ItemIndex, ColNum, CurrString)
' Here we can handle special keys to implement cell editing with
' cell motion. Cell motion is not automatic, but using this sample
' code, a sophisticated editing scheme can be easily implemented,
' even with skipped columns, hidden columns, collapsed items, etc.
' Keep in mind that ColNum is a REAL column number, but we have
' to deal in DISPLAY columns as the user may have reordered the
' columns. When using cell motion, we want to move through the
' displayed columns
Dim NewIndex
Dim NewColumn
Dim DisplayColumn
NewIndex = ItemIndex
' Handle Home
If Key = 36 And (Shift Or 1) Then ' vbKeyHome , constSftTreeCtrlMask
If SftTreeIE1.EndEdit(True) = True Then
CellEditing 0, SftTreeIE1.ColumnsObj.ColumnIndex(SftTreeIE1.ColumnsObj.FirstDisplayColumn)
End If
' We just handled this key, so don't process it again
Key = 0
' Handle End
ElseIf Key = 35 And (Shift Or 1) Then ' vbKeyEnd , constSftTreeCtrlMask
If SftTreeIE1.EndEdit(True) = True Then
CellEditing SftTreeIE1.Items.LastShown, SftTreeIE1.ColumnsObj.ColumnIndex(SftTreeIE1.ColumnsObj.FirstDisplayColumn)
End If
' We just handled this key, so don't process it again
Key = 0
' Handle tab and back-tab
ElseIf Key = 9 Or Key = 13 Then ' vbKeyTab , vbKeyReturn
' get the display column number
DisplayColumn = SftTreeIE1.Column(ColNum).DisplayPosition
If Key = 9 And (Shift And 1) Then ' vbKeyTab , constSftTreeShiftMask
Do
' try previous column
DisplayColumn = DisplayColumn - 1
' if we tried all columns, go to previous item, last column
If DisplayColumn < SftTreeIE1.ColumnsObj.FirstDisplayColumn Then
' try previous item
NewIndex = SftTreeIE1.Item(NewIndex).PrevShown
DisplayColumn = 1 ' or use SftTreeIE1.ColumnsObj.LastDisplayColumn2
Exit Do
End If
' make sure the column is really displayed
Loop Until SftTreeIE1.Column(SftTreeIE1.ColumnsObj.ColumnIndex(DisplayColumn)).Width > 0
Else ' vbKeyTab or vbKeyReturn
Do
' try next column
DisplayColumn = DisplayColumn + 1
' if we tried all columns, go to next item, first column
If DisplayColumn > 1 Then ' or use SftTreeIE1.ColumnsObj.LastDisplayColumn
' try next item
NewIndex = SftTreeIE1.Item(NewIndex).NextShown
DisplayColumn = SftTreeIE1.ColumnsObj.FirstDisplayColumn
Exit Do
End If
' make sure the column is really displayed
Loop Until SftTreeIE1.Column(SftTreeIE1.ColumnsObj.ColumnIndex(DisplayColumn)).Width > 0
End If
' get the real column number
If DisplayColumn >= 0 And DisplayColumn < SftTreeIE1.Columns And NewIndex >= 0 And NewIndex < SftTreeIE1.Items.Count Then
NewColumn = SftTreeIE1.ColumnsObj.ColumnIndex(DisplayColumn)
If SftTreeIE1.EndEdit(True) = True Then
CellEditing NewIndex, NewColumn
End If
End If
' We just handled this key, so don't process it again
Key = 0
ElseIf Key = 38 Then ' vbKeyUp
' go up, skip items that are not visible because the parent
' is collapsed
If ColNum = 2 Or ColNum = 3 Then
' For combo boxes we don't intercept up/down arrows
Else
NewIndex = ItemIndex
' try previous item
NewIndex = SftTreeIE1.Item(NewIndex).PrevShown
' edit previous item
If NewIndex >= 0 Then
If SftTreeIE1.EndEdit(True) = True Then
CellEditing NewIndex, ColNum
End If
End If
' We just handled this key, so don't process it again
Key = 0
End If
ElseIf Key = 40 Then ' vbKeyDown
' go down, skip items that are not visible because the parent
' is collapsed
If ColNum = 2 Or ColNum = 3 Then
' For combo boxes we don't intercept up/down arrows
Else
' try next item
NewIndex = SftTreeIE1.Item(NewIndex).NextShown
' edit previous item
If NewIndex >= 0 And NewIndex < SftTreeIE1.Items.Count Then
If SftTreeIE1.EndEdit(True) = True Then
CellEditing NewIndex, ColNum
End If
End If
' We just handled this key, so don't process it again
Key = 0
End If
End If
End Sub
-->
</SCRIPT>
</head>
<body>
<p><font face="verdana,arial,geneva" size="3"><b>Softel vdm, Inc. - Email Sample</b></font></p>
<p><FONT face="verdana,arial,geneva" size="1">
<object classid="clsid:0DE0AC03-8141-4ea3-8FDF-4960C261F680" id="SftTreeIE1" width="573" height="410"
CODEBASE="SftTree_IX86_I_70.cab#version=6,5,0,0">
<param name="PropVer" value="51">
<param name="PropFile" value>
<param name="PropDesignTime" value="1">
<param name="DeletePropFile" value="0">
<param name="IntVal" value="55">
<param name="FlatProperties" value="1">
<param name="Appearance" value="1">
<param name="AutoRespond" value="0">
<param name="BackgroundStyle" value="0">
<param name="BackgroundX" value="0">
<param name="BackgroundY" value="0">
<param name="BorderStyle" value="0">
<param name="ButtonStyle" value="2">
<param name="CellEventHandling" value="0">
<param name="CellEditStyle" value="0">
<param name="CellEditLimit" value="0">
<param name="ColumnCount" value="4">
<param name="CopyItemDataString" value="0">
<param name="CustomCode" value="0">
<param name="DragImage" value="3452816845">
<param name="DragMethod" value="0">
<param name="DragType" value="3">
<param name="Enabled" value="1">
<param name="HandleReturn" value="3452816845">
<param name="MousePointer" value="0">
<param name="LeftButtonOnly" value="0">
<param name="LeftItemClickOnly" value="1">
<param name="OLEDropMode" value="0">
<param name="RightToLeft" value="0">
<param name="UseThemes" value="-1">
<param name="Scrollbars" value="3">
<param name="ScrollbarStyle" value="0">
<param name="ShowTruncated" value="1">
<param name="VAlignStyle" value="0">
<param name="VirtualMode" value="0">
<param name="WebLicense" value="softelvdm.com 225854">
<param name="ItemEditFontName" value="Times New Roman">
<param name="ItemEditFontSize" value="12">
<param name="ItemEditFontBold" value="0">
<param name="ItemEditFontItalic" value="0">
<param name="ItemEditFontUnderline" value="0">
<param name="ItemEditFontStrikethrough" value="0">
<param name="ItemEditFontWeight" value="400">
<param name="ItemEditFontCharset" value="0">
<param name="Columns.InheritBgColor" value="1">
<param name="Columns.OpenEnded" value="1">
<param name="Columns.OpenEnded2" value="1">
<param name="Headers.Appearance" value="1">
<param name="Headers.BackColor" value="2147483663">
<param name="Headers.ForeColor" value="2147483666">
<param name="Headers.GrayedColor" value="2147483665">
<param name="Headers.HilightColor" value="2147483668">
<param name="Headers.Multiline" value="1">
<param name="Headers.ShadowColor" value="2147483664">
<param name="Headers.Reorderable" value="1">
<param name="Headers.Resizable" value="1">
<param name="Headers.Font.Name" value="MS Sans Serif">
<param name="Headers.Font.Size" value="8.25">
<param name="Headers.Font.Bold" value="0">
<param name="Headers.Font.Italic" value="0">
<param name="Headers.Font.Underline" value="0">
<param name="Headers.Font.Strikethrough" value="0">
<param name="Headers.Font.Weight" value="400">
<param name="Headers.Font.Charset" value="0">
<param name="Items.AutoExpandDragDrop" value="1">
<param name="Items.AutoExpandHover" value="0">
<param name="Items.BackColor" value="2147483653">
<param name="Items.BackColorOdd" value="2147483653">
<param name="Items.CalcLimit" value="0">
<param name="Items.CalcVisibleOnly" value="0">
<param name="Items.Cell3D" value="0">
<param name="Items.CharSearchColumn" value="65535">
<param name="Items.CharSearchMode" value="1">
<param name="Items.DropHighlightColor" value="2147483661">
<param name="Items.DropHighlightStyle" value="1">
<param name="Items.EditNoFocusStyle" value="2">
<param name="Items.FlybyHighlight" value="1">
<param name="Items.ForeColor" value="2147483656">
<param name="Items.ForeColorOdd" value="2147483656">
<param name="Items.GrayedColor" value="2147483665">
<param name="Items.GridHorizontalColor" value="2147483664">
<param name="Items.GridStyle" value="0">
<param name="Items.GridVerticalColor" value="2147483664">
<param name="Items.HilightColor" value="2147483668">
<param name="Items.HorizontalExtentPix" value="0">
<param name="Items.HorizontalExtent2Pix" value="0">
<param name="Items.HorizontalOffsetPix" value="0">
<param name="Items.HorizontalOffset2Pix" value="0">
<param name="Items.Indentation" value="65535">
<param name="Items.ItemImageAlign" value="1">
<param name="Items.Lines" value="3">
<param name="Items.MaxHeightPix" value="0">
<param name="Items.MinHeightPix" value="0">
<param name="Items.MultiSelect" value="0">
<param name="Items.NoFocusStyle" value="0">
<param name="Items.NoSelection" value="0">
<param name="Items.RubberbandSelection" value="1">
<param name="Items.SelectBackColor" value="2147483661">
<param name="Items.SelectBackColorNoFocus" value="2147483663">
<param name="Items.SelectForeColor" value="2147483662">
<param name="Items.SelectForeColorNoFocus" value="2147483666">
<param name="Items.ShadowColor" value="2147483664">
<param name="Items.Style" value="1">
<param name="Items.ScrollTips" value="1">
<param name="Items.SelectionArea" value="1">
<param name="Items.SelectStyle" value="2">
<param name="Items.ShowFocusRectangle" value="1">
<param name="Items.ToolTipAlways" value="0">
<param name="Items.ToolTipBackColor" value="4294967295">
<param name="Items.ToolTipForeColor" value="4294967295">
<param name="Items.ToolTipsUseEntireCell" value="1">
<param name="Items.TopIndex" value="0">
<param name="Items.TreeLineColor" value="2147483664">
<param name="Items.TreeLineGrayedColor" value="2147483664">
<param name="Items.TreeLineStyle" value="3">
<param name="Items.UpdateCurrentExpandCollapse" value="0">
<param name="RowColumnHeader.Appearance" value="0">
<param name="RowColumnHeader.ButtonDown" value="0">
<param name="RowColumnHeader.RemainUp" value="1">
<param name="RowColumnHeader.Enabled" value="1">
<param name="RowColumnHeader.ImageHAlign" value="0">
<param name="RowColumnHeader.ImageVAlign" value="0">
<param name="RowColumnHeader.TextHAlign" value="0">
<param name="RowColumnHeader.TextVAlign" value="0">
<param name="RowColumnHeader.Text" value>
<param name="RowColumnHeader.ForeColor" value="2147483666">
<param name="RowColumnHeader.BackColor" value="2147483663">
<param name="RowColumnHeader.HilightColor" value="2147483668">
<param name="RowColumnHeader.ShadowColor" value="2147483664">
<param name="RowColumnHeader.GrayedColor" value="2147483665">
<param name="RowHeaders.Appearance" value="0">
<param name="RowHeaders.RemainUp" value="1">
<param name="RowHeaders.Enabled" value="1">
<param name="RowHeaders.Lines" value="1">
<param name="RowHeaders.TextHAlign" value="0">
<param name="RowHeaders.TextVAlign" value="0">
<param name="RowHeaders.Width" value="0">
<param name="RowHeaders.BackColor" value="2147483663">
<param name="RowHeaders.ForeColor" value="2147483666">
<param name="RowHeaders.GrayedColor" value="2147483665">
<param name="RowHeaders.HilightColor" value="2147483668">
<param name="RowHeaders.ShadowColor" value="2147483664">
<param name="RowHeaders.SelectBackColor" value="2147483663">
<param name="RowHeaders.SelectForeColor" value="2147483666">
<param name="RowHeaders.Font.Name" value="MS Sans Serif">
<param name="RowHeaders.Font.Size" value="8.25">
<param name="RowHeaders.Font.Bold" value="0">
<param name="RowHeaders.Font.Italic" value="0">
<param name="RowHeaders.Font.Underline" value="0">
<param name="RowHeaders.Font.Strikethrough" value="0">
<param name="RowHeaders.Font.Weight" value="400">
<param name="RowHeaders.Font.Charset" value="0">
<param name="Splitter.SplitColumn" value="1">
<param name="Splitter.Visible" value="1">
<param name="Splitter.OffsetPix" value="283">
<param name="Splitter.WidthPix" value="3">
<param name="Column(0).BackColor" value="4294967295">
<param name="Column(0).CellHAlign" value="0">
<param name="Column(0).CellMultiline" value="0">
<param name="Column(0).CellVAlign" value="0">
<param name="Column(0).CellWordWrap" value="0">
<param name="Column(0).ForeColor" value="4294967295">
<param name="Column(0).Merge" value="1">
<param name="Column(0).MergeInto" value="1">
<param name="Column(0).MinWidth" value="17">
<param name="Column(0).SelectBackColor" value="4294967295">
<param name="Column(0).SelectForeColor" value="4294967295">
<param name="Column(0).ToolTip" value="1">
<param name="Column(0).Width" value="100">
<param name="Column(0).RealPos" value="0">
<param name="Column(0).DispPos" value="0">
<param name="Header(0).Enabled" value="1">
<param name="Header(0).KeepPosition" value="1">
<param name="Header(0).Locked" value="0">
<param name="Header(0).ImageHAlign" value="2">
<param name="Header(0).ImageVAlign" value="0">
<param name="Header(0).RemainUp" value="1">
<param name="Header(0).Text" value="Folder">
<param name="Header(0).TextHAlign" value="0">
<param name="Header(0).TextVAlign" value="0">
<param name="Header(0).Image.Height" value="8">
<param name="Header(0).Image.Width" value="8">
<param name="Header(0).Image.Appearance" value="14">
<param name="Header(0).Image.FrameColor" value="4294967295">
<param name="Header(0).Image.SampleColor" value="4294967295">
<param name="Column(1).BackColor" value="4294967295">
<param name="Column(1).CellHAlign" value="0">
<param name="Column(1).CellMultiline" value="0">
<param name="Column(1).CellVAlign" value="0">
<param name="Column(1).CellWordWrap" value="0">
<param name="Column(1).ForeColor" value="4294967295">
<param name="Column(1).Merge" value="1">
<param name="Column(1).MergeInto" value="1">
<param name="Column(1).MinWidth" value="17">
<param name="Column(1).SelectBackColor" value="4294967295">
<param name="Column(1).SelectForeColor" value="4294967295">
<param name="Column(1).ToolTip" value="1">
<param name="Column(1).Width" value="100">
<param name="Column(1).RealPos" value="1">
<param name="Column(1).DispPos" value="1">
<param name="Header(1).Enabled" value="1">
<param name="Header(1).KeepPosition" value="0">
<param name="Header(1).Locked" value="0">
<param name="Header(1).ImageHAlign" value="2">
<param name="Header(1).ImageVAlign" value="0">
<param name="Header(1).RemainUp" value="1">
<param name="Header(1).Text" value="Description">
<param name="Header(1).TextHAlign" value="0">
<param name="Header(1).TextVAlign" value="0">
<param name="Header(1).Image.Height" value="8">
<param name="Header(1).Image.Width" value="8">
<param name="Header(1).Image.Appearance" value="14">
<param name="Header(1).Image.FrameColor" value="4294967295">
<param name="Header(1).Image.SampleColor" value="4294967295">
<param name="Column(2).BackColor" value="4294967295">
<param name="Column(2).CellHAlign" value="2">
<param name="Column(2).CellMultiline" value="0">
<param name="Column(2).CellVAlign" value="0">
<param name="Column(2).CellWordWrap" value="0">
<param name="Column(2).ForeColor" value="4294967295">
<param name="Column(2).Merge" value="1">
<param name="Column(2).MergeInto" value="1">
<param name="Column(2).MinWidth" value="17">
<param name="Column(2).SelectBackColor" value="4294967295">
<param name="Column(2).SelectForeColor" value="4294967295">
<param name="Column(2).ToolTip" value="1">
<param name="Column(2).Width" value="100">
<param name="Column(2).RealPos" value="2">
<param name="Column(2).DispPos" value="2">
<param name="Header(2).Enabled" value="1">
<param name="Header(2).KeepPosition" value="0">
<param name="Header(2).Locked" value="0">
<param name="Header(2).ImageHAlign" value="2">
<param name="Header(2).ImageVAlign" value="0">
<param name="Header(2).RemainUp" value="1">
<param name="Header(2).Text" value="Received">
<param name="Header(2).TextHAlign" value="0">
<param name="Header(2).TextVAlign" value="0">
<param name="Header(2).Image.Height" value="8">
<param name="Header(2).Image.Width" value="8">
<param name="Header(2).Image.Appearance" value="14">
<param name="Header(2).Image.FrameColor" value="4294967295">
<param name="Header(2).Image.SampleColor" value="4294967295">
<param name="Column(3).BackColor" value="4294967295">
<param name="Column(3).CellHAlign" value="2">
<param name="Column(3).CellMultiline" value="0">
<param name="Column(3).CellVAlign" value="0">
<param name="Column(3).CellWordWrap" value="0">
<param name="Column(3).ForeColor" value="4294967295">
<param name="Column(3).Merge" value="1">
<param name="Column(3).MergeInto" value="1">
<param name="Column(3).MinWidth" value="17">
<param name="Column(3).SelectBackColor" value="4294967295">
<param name="Column(3).SelectForeColor" value="4294967295">
<param name="Column(3).ToolTip" value="1">
<param name="Column(3).Width" value="100">
<param name="Column(3).RealPos" value="3">
<param name="Column(3).DispPos" value="3">
<param name="Header(3).Enabled" value="1">
<param name="Header(3).KeepPosition" value="0">
<param name="Header(3).Locked" value="0">
<param name="Header(3).ImageHAlign" value="2">
<param name="Header(3).ImageVAlign" value="0">
<param name="Header(3).RemainUp" value="1">
<param name="Header(3).Text" value="Size">
<param name="Header(3).TextHAlign" value="2">
<param name="Header(3).TextVAlign" value="0">
<param name="Header(3).Image.Height" value="8">
<param name="Header(3).Image.Width" value="8">
<param name="Header(3).Image.Appearance" value="14">
<param name="Header(3).Image.FrameColor" value="4294967295">
<param name="Header(3).Image.SampleColor" value="4294967295">
<param name="SavedItemCount" value="0">
<param name="SavedColumnCount" value="4">
<param name="FontName" value="MS Sans Serif">
<param name="FontSize" value="8.25">
<param name="FontBold" value="0">
<param name="FontItalic" value="0">
<param name="FontUnderline" value="0">
<param name="FontStrikethrough" value="0">
<param name="FontWeight" value="400">
<param name="FontCharset" value="0">
<param name="xcx" value="15161">
<param name="xcy" value="10848">
<param name="xBfStyle1" value="63404617">
<param name="xBfStyle2" value="1433977903">
<param name="xBfStyle3" value="1387354614">
<param name="xBfStyle4" value="2907612698">
</object>
</font></p>
<p><font face="verdana,arial,geneva" size="1">This sample demonstrates loading
bitmaps, sorting using the column headers and cell editing. To edit a cell
in the "Description" column, click on it, then use Tab, Return, Up,
Down arrow keys to move to other cells. Clicking outside of the cell being
edited (or hitting the Escape key) ends cell editing.</font></p>
<p> </p>
<p> </p>
</body>
</html>