<html>
<head>
<title>Softel vdm, Inc. - Pictures Sample</title>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Option Explicit

Dim SortDirection

Sub CopyImageFromCurrentItem()
    Dim ItemIndex
    Dim Img
    
    ItemIndex = SftTreeIE1.Items.Current
    If ItemIndex < 0 Then Exit Sub
    
    ' don't use images that are too large in the other areas
    Set Img = SftTreeIE1.Cell(ItemIndex, 0).Image
    If Img.ActualHeight <= 20 And Img.ActualWidth <= 20 Then
        SftTreeIE1.RowColumnHeader.Image = Img
        SftTreeIE1.Header(1).Image = Img
    Else
        SftTreeIE1.RowColumnHeader.Image.Clear
        SftTreeIE1.Header(1).Image.Clear
    End If
    
End Sub
    
Sub ToggleImage(Img)
    Select Case Img.Appearance
    Case 0 ' sftImageCheckboxNo
        Img.Appearance = 1 ' sftImageCheckboxYes
    Case 1 ' sftImageCheckboxYes
        Img.Appearance = 0 ' sftImageCheckboxNo
    Case 2 ' sftImageCheckboxUnknown
        Img.Appearance = 0 ' sftImageCheckboxNo
    Case 3 ' sftImageCheckboxNoDisabled
        Img.Appearance = 4 ' sftImageCheckboxYesDisabled
    Case 4 ' sftImageCheckboxYesDisabled
        Img.Appearance = 3 ' sftImageCheckboxNoDisabled
    Case 5 ' sftImageCheckboxUnknownDisabled
        Img.Appearance = 3 ' sftImageCheckboxNoDisabled
    Case 6 ' sftImageRadioButtonNo
        Img.Appearance = 7 ' sftImageRadioButtonYes
    Case 7 ' sftImageRadioButtonYes
        Img.Appearance = 6 ' sftImageRadioButtonNo
    Case 8 ' sftImageRadioButtonNoDisabled
        Img.Appearance = 9 ' sftImageRadioButtonYesDisabled
    Case 9 ' sftImageRadioButtonYesDisabled
        Img.Appearance = 8 ' sftImageRadioButtonNoDisabled
    Case 10 ' sftImageUp
        Img.Appearance = 12 ' sftImageDown
    Case 11 ' sftImageUpDisabled
        Img.Appearance = 13 ' sftImageDownDisabled
    Case 12 ' sftImageDown
        Img.Appearance = 10 ' sftImageUp
    Case 13 ' sftImageDownDisabled
        Img.Appearance = 11 ' sftImageUpDisabled
    Case 14 ' sftImageSortAsc
        Img.Appearance = 16 ' sftImageSortDesc
    Case 15' sftImageSortAscDisabled
        Img.Appearance = 17 ' sftImageSortDescDisabled
    Case 16 ' sftImageSortDesc
        Img.Appearance = 14 ' sftImageSortAsc
    Case 17 ' sftImageSortDescDisabled
        Img.Appearance = 15 ' sftImageSortAscDisabled
    Case Else
        ' nothing
    End Select
End Sub

Sub PropagateImage(ItemIndex, Img)
    ' don't use images that are too large in the other areas
    If Img.ActualHeight <= 20 And Img.ActualWidth < 20 Then
        SftTreeIE1.Item(ItemIndex).Image = Img
        SftTreeIE1.Item(ItemIndex).LabelImage = Img
        SftTreeIE1.Item(ItemIndex).RowHeader.Image = Img
    End If
End Sub

Sub UpdatePictures(ItemIndex, Pic, Align)
    Dim C
    Set C = SftTreeIE1.Cell(ItemIndex, 0)
    Set C.Image.Picture = Pic
    C.ImageHAlign = Align
    PropagateImage ItemIndex, C.Image
End Sub

Sub UpdateColor(ItemIndex, Clr, Align)
    Dim C
    Set C = SftTreeIE1.Cell(ItemIndex, 0)
    C.Image.SetColorSample Clr, vbBlack
    C.Image.Width = 12
    C.Image.Height = 12
    C.ImageHAlign = Align
    PropagateImage ItemIndex, C.Image
End Sub

Sub UpdateBuiltinImage(ItemIndex, Style, wPix, hPix, Align)
    Dim C
    Set C = SftTreeIE1.Cell(ItemIndex, 0)
    C.Image.Appearance = Style
    C.Image.Width = wPix
    C.Image.Height = hPix
    C.ImageHAlign = Align
    PropagateImage ItemIndex, C.Image
End Sub

Private Sub AddColor(Text, Clr)
    Dim I
    I = SftTreeIE1.Items.Add(Text)
    SftTreeIE1.Item(I).Level = 2
    UpdateColor I, Clr, 2 ' halignSftTreeRight
End Sub
    
Private Sub AddBuiltinImage(Text, Style, wPix, hPix)
    Dim I
    I = SftTreeIE1.Items.Add(Text)
    SftTreeIE1.Item(I).Level = 2
    UpdateBuiltinImage I, Style, wPix, hPix, 2 ' halignSftTreeRight
End Sub

Sub ShowSortDirection(Ascending)
    If Ascending Then
        SftTreeIE1.Header(0).Image.Appearance = 14 ' sftImageSortAsc
    Else
        SftTreeIE1.Header(0).Image.Appearance = 16 ' sftImageSortDesc
    End If
    SortDirection = Ascending
End Sub
    
Sub SetSortDirection(NewDirection)
    ShowSortDirection NewDirection
    If NewDirection Then
        SftTreeIE1.Items.SortDependents -1, 0, 0 ' sortSftTreeAscending
    Else
        SftTreeIE1.Items.SortDependents -1, 0, 1 ' sortSftTreeDescending
    End If
End Sub

Sub window_onload
    Dim ItemIndex
    Dim I
    Dim C
    Dim Count
    Dim Pic
        
    SortDirection = False

    Set SftTreeIE1.Items.ItemImageExpandable.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/itemexp.bmp")
    Set SftTreeIE1.Items.ItemImageExpanded.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/itemexpd.bmp")
    Set SftTreeIE1.Items.ItemImageLeaf.Picture = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/itemleaf.bmp")
    
    ItemIndex = SftTreeIE1.Items.Add("Supported Picture Types")
    SftTreeIE1.Cell(ItemIndex, 1).Text = "SftTree/OCX supports numerous image types, such as bitmaps, icons, ImageLists and also offers numerous built-in images."
    
    ' add bitmap samples
    
    ItemIndex = SftTreeIE1.Items.Add("Bitmaps")
    SftTreeIE1.Item(ItemIndex).Level = 1
    SftTreeIE1.Cell(ItemIndex, 1).Text = "Bitmaps can be of varying sizes and also support Bitmap Transparency, which allows the background to show through the image (in areas selected by the bitmap designer)."
    
    I = SftTreeIE1.Items.Add("Large Bitmap")
    SftTreeIE1.Item(I).Level = 2
    Set Pic = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/logo3.bmp")
    UpdatePictures I, Pic, 2 ' halignSftTreeRight
    
    I = SftTreeIE1.Items.Add("Various bitmap sizes")
    SftTreeIE1.Item(I).Level = 2
    Set Pic = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/smile1.bmp")
    UpdatePictures I, Pic, 2 ' halignSftTreeRight
    
    ' add icon samples
    
    ItemIndex = SftTreeIE1.Items.Add("Icons")
    SftTreeIE1.Item(ItemIndex).Level = 1
    SftTreeIE1.Cell(ItemIndex, 1).Text = "The supported icons can be stardard size icons (32x32) or any other size supported by the operating system."
    
    I = SftTreeIE1.Items.Add("Standard Icon (32x32)")
    SftTreeIE1.Item(I).Level = 2
    Set Pic = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/sfttree.ico")
    UpdatePictures I, Pic, 2 ' halignSftTreeRight
    
    I = SftTreeIE1.Items.Add("Any other size")
    SftTreeIE1.Item(I).Level = 2
    Set Pic = SftTreeIE1.LoadPicture("http://www.softelvdm.com/images/treeocx6/samples/sfttreesmall.ico")
    UpdatePictures I, Pic, 2 ' halignSftTreeRight
    
    ' add imagelist samples
    
    ItemIndex = SftTreeIE1.Items.Add("ImageLists")
    SftTreeIE1.Item(ItemIndex).Level = 1
    SftTreeIE1.Cell(ItemIndex, 1).Text = "Complete ImageList support simplifies bitmap handling and can avoid the limited resource availability on earlier Windows versions."
                    
    ItemIndex = SftTreeIE1.Items.Add("ImageLists")
    SftTreeIE1.Item(ItemIndex).Level = 2
    SftTreeIE1.Cell(ItemIndex, 1).Text = "ImageLists are not used in this HTML example, but is available in all other samples (for VB, VC++, .NET. C# and VB.NET)"
    
    ' add color samples
    
    ItemIndex = SftTreeIE1.Items.Add("Color Samples")
    SftTreeIE1.Item(ItemIndex).Level = 1
    SftTreeIE1.Cell(ItemIndex, 1).Text = "Using the built-in color sample image, simple color selection can easily be implemented.  Color samples can display all colors available."
    
    AddColor "Black", vbBlack
    AddColor "Blue", vbBlue
    AddColor "Cyan", vbCyan
    AddColor "Green", vbGreen
    AddColor "Magenta", vbMagenta
    AddColor "Red", vbRed
    AddColor "White", vbWhite
    AddColor "Yellow", vbYellow
    
     ' GetSysColor index
    AddColor "3DDKSHADOW - Dark shadow for 3D elements", &H80000021
    AddColor "3DFACE - Face color for 3D elements", &H80000015
    AddColor "3DHILIGHT - Edges facing the light source", &H80000020
    AddColor "3DLIGHT - Edges facing the light source", &H80000022
    AddColor "3DSHADOW - Edges facing away from the light source", &H80000016
    AddColor "INFOBK - Background color for tooltip controls", &H80000024
    AddColor "INFOTEXT - Text color for tooltip controls", &H80000023
    AddColor "MENUTEXT - Text in menus", &H8000007
    AddColor "ACTIVEBORDER - Active window border", &H80000010
    AddColor "ACTIVECAPTION - Active window caption", &H80000002
    AddColor "APPWORKSPACE - Background color MDI applications", &H80000012
    AddColor "BACKGROUND - Desktop", &H80000001
    AddColor "BTNFACE - Face shading on push buttons", &H80000015
    AddColor "BTNHILIGHT - Highlight color for buttons", &H80000013
    AddColor "BTNSHADOW - Edge shading on push buttons", &H80000016
    AddColor "BTNTEXT - Text on push buttons", &H80000018
    AddColor "CAPTIONTEXT - Text in caption", &H80000009
    AddColor "GRAYTEXT - Grayed (disabled) text", &H80000017
    AddColor "HIGHLIGHT - Selected Item(s)", &H80000013
    AddColor "HIGHLIGHTTEXT - Text of selected item(s)", &H80000014
    AddColor "INACTIVEBORDER - Inactive window border", &H80000011
    AddColor "INACTIVECAPTION - Inactive window caption", &H80000003
    AddColor "INACTIVECAPTIONTEXT - Inactive caption text color", &H80000019
    AddColor "MENU - Menu background", &H80000004
    AddColor "SCROLLBAR - Scroll bar gray area", &H80000000
    AddColor "WINDOW - Window background", &H80000005
    AddColor "WINDOWFRAME - Window frame", &H80000006
    AddColor "WINDOWTEXT - Text in windows", &H80000007
    
    ' add predefined image samples
    
    ItemIndex = SftTreeIE1.Items.Add("Predefined (Built-in) Pictures")
    SftTreeIE1.Cell(ItemIndex, 1).Text = "Predefined images are available for commonly used items, such as check boxes, radio buttons, sort direction indicators and more..."
    
    ItemIndex = SftTreeIE1.Items.Add("Check Boxes - Honors Windows Themes")
    SftTreeIE1.Item(ItemIndex).Level = 1
    
    AddBuiltinImage "Enabled, Selected Check Box", 1, 14, 14 ' sftImageCheckboxYes
    AddBuiltinImage "Disabled, Selected Check Box", 4, 14, 14 ' sftImageCheckboxYesDisabled
    AddBuiltinImage "Enabled Check Box", 0, 14, 14 ' sftImageCheckboxNo
    AddBuiltinImage "Disabled Check Box", 3, 14, 14 ' sftImageCheckboxNoDisabled
    AddBuiltinImage "Enabled, Unknown Check Box", 2, 14, 14 ' sftImageCheckboxUnknown
    AddBuiltinImage "Disabled, Unknown Check Box", 5, 14, 14 ' sftImageCheckboxUnknownDisabled
    
    ItemIndex = SftTreeIE1.Items.Add("Radio Buttons - Honors Windows Themes")
    SftTreeIE1.Item(ItemIndex).Level = 1
    
    AddBuiltinImage "Enabled, Selected Radio Button", 7, 14, 14 ' sftImageRadioButtonYes
    AddBuiltinImage "Disabled, Selected Radio Button", 9, 14, 14 ' sftImageRadioButtonYesDisabled
    AddBuiltinImage "Enabled Radio Button", 6, 14, 14 ' sftImageRadioButtonNo
    AddBuiltinImage "Disabled Radio Button", 8, 14, 14 ' sftImageRadioButtonNoDisabled
    
    ItemIndex = SftTreeIE1.Items.Add("Up/Down Buttons - Honors Windows Themes")
    SftTreeIE1.Item(ItemIndex).Level = 1
    
    AddBuiltinImage "Enabled Up Button", 10, 14, 14 ' sftImageUp
    AddBuiltinImage "Disabled Up Button", 11, 14, 14 ' sftImageUpDisabled
    AddBuiltinImage "Enabled Down Button", 12, 14, 14 ' sftImageDown
    AddBuiltinImage "Disabled Down Button", 13, 14, 14 ' sftImageDownDisabled
    
    ItemIndex = SftTreeIE1.Items.Add("Sort Direction Indicator")
    SftTreeIE1.Item(ItemIndex).Level = 1
    
    AddBuiltinImage "Enabled Ascending Indicator", 14, 8, 8 ' sftImageSortAsc
    AddBuiltinImage "Disabled Ascending Indicator", 15, 8, 8 ' sftImageSortAscDisabled
    AddBuiltinImage "Enabled Descending Indicator", 16, 8, 8 ' sftImageSortDesc
    AddBuiltinImage "Disabled Descending Indicator", 17, 8, 8 ' sftImageSortDescDisabled
    
    
    SftTreeIE1.RowHeaders.MakeOptimal ' make the row headers optimal
    SftTreeIE1.Column(0).MakeOptimal  ' make the first column optimal
    SftTreeIE1.Items.RecalcHorizontalExtent ' update horizontal scroll bar
    
    SftTreeIE1.Item(0).Selected = True
    SftTreeIE1.Items.Current = 0
    
    CopyImageFromCurrentItem
        
End Sub

Sub SftTreeIE1_ItemClick(ItemIndex, ColIndex, AreaType, Button, Shift)
    If AreaType = 12 Then ' constSftTreeExpandAll
        SftTreeIE1.Item(ItemIndex).Expand True, True
    ElseIf AreaType = 6 And ColIndex = 0 Then ' constSftTreeColumnHeader
        SetSortDirection Not SortDirection
    ElseIf AreaType = 10 Then ' constSftTreeCellGraphic 
        ToggleImage SftTreeIE1.Cell(ItemIndex, ColIndex).Image
    ElseIf AreaType = 4 Then ' constSftTreeItem
        ToggleImage SftTreeIE1.Item(ItemIndex).Image
    ElseIf AreaType = 0 Then ' constSftTreeLabel
        ToggleImage SftTreeIE1.Item(ItemIndex).LabelImage
    End If
End Sub

Sub SftTreeIE1_ItemDblClick(ItemIndex, ColIndex, AreaType, Button, Shift)
    If AreaType = 11 Then ' constSftTreeColumnRes
        SftTreeIE1.Column(ColIndex).MakeOptimal ' Make column width optimal
        SftTreeIE1.Items.RecalcHorizontalExtent ' Update horizontal scroll bar
    ElseIf AreaType = 6 And ColIndex = 0 Then ' constSftTreeColumnHeader 
        SetSortDirection Not SortDirection
    ElseIf AreaType = 10 Then ' constSftTreeCellGraphic
        ToggleImage SftTreeIE1.Cell(ItemIndex, ColIndex).Image
    End If
End Sub

Private Sub SftTreeIE1_SelectionChange()
    CopyImageFromCurrentItem
End Sub

-->
</SCRIPT>
</head>

<body>

<p><font face="verdana,arial,geneva" size="3"><b>Softel vdm, Inc. - Pictures Sample</b></font></p>

<p>
<object classid="clsid:0DE0AC03-8141-4ea3-8FDF-4960C261F680" id="SftTreeIE1" width="496" height="497"
         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="3452816845">
  <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="2">
  <param name="CopyItemDataString" value="1">
  <param name="CustomCode" value="0">
  <param name="DragImage" value="3452816845">
  <param name="DragMethod" value="1">
  <param name="DragType" value="3">
  <param name="Enabled" value="1">
  <param name="HandleReturn" value="3452816845">
  <param name="MousePointer" value="0">
  <param name="LeftButtonOnly" value="1">
  <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="0">
  <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="3">
  <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="5">
  <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="0">
  <param name="Items.TopIndex" value="0">
  <param name="Items.TreeLineColor" value="2147483665">
  <param name="Items.TreeLineGrayedColor" value="2147483665">
  <param name="Items.TreeLineStyle" value="3">
  <param name="Items.UpdateCurrentExpandCollapse" value="0">
  <param name="RowColumnHeader.Appearance" value="1">
  <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="3">
  <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="40">
  <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="0">
  <param name="Splitter.Visible" value="0">
  <param name="Splitter.OffsetPix" value="0">
  <param name="Splitter.WidthPix" value="7">
  <param name="Column(0).BackColor" value="4294967295">
  <param name="Column(0).CellHAlign" value="0">
  <param name="Column(0).CellMultiline" value="1">
  <param name="Column(0).CellVAlign" value="0">
  <param name="Column(0).CellWordWrap" value="1">
  <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="50">
  <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="0">
  <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="Pictures">
  <param name="Header(0).TextHAlign" value="0">
  <param name="Header(0).TextVAlign" value="0">
  <param name="Column(1).BackColor" value="4294967295">
  <param name="Column(1).CellHAlign" value="0">
  <param name="Column(1).CellMultiline" value="1">
  <param name="Column(1).CellVAlign" value="0">
  <param name="Column(1).CellWordWrap" value="1">
  <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="0">
  <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="300">
  <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="SavedItemCount" value="0">
  <param name="SavedColumnCount" value="2">
  <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="13123">
  <param name="xcy" value="13150">
  <param name="xBfStyle1" value="63404635">
  <param name="xBfStyle2" value="1898160671">
  <param name="xBfStyle3" value="1851533268">
  <param name="xBfStyle4" value="2174998588">
</object>
</p>

<p> </p>

</body>

</html>