<html>
<head>
<title>SimpleExplorer Sample - Softel vdm, Inc.</title>
<SCRIPT LANGUAGE=javascript FOR=SftDirectoryLeft EVENT=SelectionFinal>
<!--
SftDirectoryLeft_SelectionFinal()
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=SftDirectoryRight EVENT=SelectionFinal>
<!--
SftDirectoryRight_SelectionFinal()
//-->
</SCRIPT>
</head>
<body language="javascript" onload="return window_onload()">
<p><font face="verdana,arial,geneva" size="3"><b>SimpleExplorer Sample - Softel
vdm, Inc.</b></font></p>
<font face="verdana,arial,geneva" size="1">
<table border="0" width="675" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="208"></td>
<td valign="top" width="453">
<p><font face="verdana,arial,geneva" size="1"><input type="button" value="Up" id="UpButton" name="UpButton" language="javascript" onclick="return UpButton_onclick()">
<input type="button" value="Properties" id="PropButton" name="PropButton" language="javascript" onclick="return PropButton_onclick()">
<input type="button" value="New Folder" id="NewFolderButton" name="NewFolderButton" language="javascript" onclick="return NewFolderButton_onclick()"></font></td>
</tr>
<tr>
<td valign="top" width="208">
<p><font face="verdana,arial,geneva" size="1">
<object id="SftDirectoryLeft" style="LEFT: 0px; TOP: 0px" height="350" width="199" classid="clsid:7C2EA0D2-31A4-431F-B315-3C6D57E5F394" codebase="SftDirectory_IX86_I_25.cab#version=2,5,0,0">
<param name="PropVer" value="25">
<param name="PropFile" value>
<param name="PropDesignTime" value="1">
<param name="DeletePropFile" value="0">
<param name="IntVal" value="3452816845">
<param name="ActiveColumnBackColor" value="4294967295">
<param name="Appearance" value="1">
<param name="AutoExpandDragDrop" value="-1">
<param name="AutoExpandHover" value="0">
<param name="AutoInitialLoad" value="-1">
<param name="AutoReload" value="-1">
<param name="AutoSizeColumns" value="-1">
<param name="BackColor" value="2147483653">
<param name="BorderStyle" value="0">
<param name="ColumnCount" value="1">
<param name="ControlStyle" value="0">
<param name="CustomCode" value="0">
<param name="DeleteOnCollapse" value="-1">
<param name="DropDownHeight" value="6">
<param name="DropDownWidth" value="0">
<param name="Enabled" value="1">
<param name="ExpandButtons" value="2">
<param name="FlatProperties" value="1">
<param name="Font" value="MS Sans Serif">
<param name="ForeColor" value="2147483656">
<param name="ForeColorArchiveReady" value="4294967295">
<param name="ForeColorCompressed" value="16711680">
<param name="ForeColorEncrypted" value="65280">
<param name="ForeColorHidden" value="2147483665">
<param name="ForeColorReadOnly" value="4294967295">
<param name="GridStyle" value="0">
<param name="InitialFolder" value>
<param name="InitialFolderSpecial" value="4294967295">
<param name="MousePointer" value="0">
<param name="MultiSelect" value="0">
<param name="OLEDragMode" value="2">
<param name="OLEDropMode" value="2">
<param name="OpenFiles" value="0">
<param name="RegistryLocation" value>
<param name="RegistryEntry" value>
<param name="RenameStyle" value="3">
<param name="RightToLeft" value="0">
<param name="SelectBackColor" value="2147483661">
<param name="SelectBackColorNoFocus" value="2147483663">
<param name="SelectForeColor" value="2147483662">
<param name="SelectForeColorNoFocus" value="2147483666">
<param name="ShowCheckBoxes" value="0">
<param name="ShowContextMenu" value="-1">
<param name="ShowErrors" value="-1">
<param name="ShowFiles" value="0">
<param name="ShowHiddenFolders" value="-1">
<param name="ShowImages" value="-1">
<param name="SizeBox" value="-1">
<param name="TopMostFolder" value>
<param name="TopMostFolderSpecial" value="4294967295">
<param name="TreeLineStyle" value="2">
<param name="UseThemes" value="-1">
<param name="Column(0)PropVer" value="0">
<param name="Column(0)BackColor" value="4294967295">
<param name="Column(0)CellAlign" value="0">
<param name="Column(0)Enabled" value="1">
<param name="Column(0)ForeColor" value="4294967295">
<param name="Column(0)HeaderAlign" value="0">
<param name="Column(0)HeaderText" value="Folders">
<param name="Column(0)HeaderToolTip" value>
<param name="Column(0)KeepPosition" value="0">
<param name="Column(0)Locked" value="0">
<param name="Column(0)MinWidth" value="0">
<param name="Column(0)SelectBackColor" value="4294967295">
<param name="Column(0)SelectForeColor" value="4294967295">
<param name="Column(0)WidthCol" value="100">
<param name="Column(0)Contents" value="0">
<param name="HeadersPropVer" value="0">
<param name="HeadersFont" value="MS Sans Serif">
<param name="HeadersBackColor" value="2147483663">
<param name="HeadersComboBoxStyle" value="0">
<param name="HeadersDarkEdgeColor" value="2147483664">
<param name="HeadersForeColor" value="2147483666">
<param name="HeadersGrayedColor" value="2147483665">
<param name="HeadersLightEdgeColor" value="2147483668">
<param name="HeadersSortable" value="0">
<param name="HeadersStyle" value="1">
<param name="xBfStyle1" value="63425126">
<param name="xBfStyle2" value="3018614239">
<param name="xBfStyle3" value="2971970425">
<param name="xBfStyle4" value="1322996871">
<param name="xcx" value="5265">
<param name="xcy" value="9260">
<param name="MatchFolderRegexp" value>
<param name="MatchFileRegexp" value>
<param name="MatchFolder" value>
<param name="MatchFile" value>
<param name="SelectEnabledItemsOnly" value="0">
<param name="OutlineStyle" value="1">
<param name="SelectOutlineBorderColor" value="16760576">
<param name="SelectInnerBorderColor" value="15128749">
<param name="SelectInnerFill1" value="15128749">
<param name="SelectInnerFill2" value="16777215">
<param name="SelectHotOutlineBorderColor" value="16760576">
<param name="SelectHotInnerBorderColor" value="15128749">
<param name="SelectHotInnerFill1" value="15128749">
<param name="SelectHotInnerFill2" value="16777215">
<param name="SelectNoFocusOutlineBorderColor" value="16760576">
<param name="SelectNoFocusInnerBorderColor" value="15128749">
<param name="SelectNoFocusInnerFill1" value="15128749">
<param name="SelectNoFocusInnerFill2" value="16777215">
<param name="HotOutlineBorderColor" value="15128749">
<param name="HotInnerBorderColor" value="13882323">
<param name="HotInnerFill1" value="15128749">
<param name="HotInnerFill2" value="16777215">
<param name="DropTargetOutlineBorderColor" value="16711680">
<param name="DropTargetInnerBorderColor" value="8388608">
<param name="DropTargetInnerFill1" value="15128749">
<param name="DropTargetInnerFill2" value="16777215">
</object>
</font></p>
</td>
<td valign="top" width="453">
<p><font face="verdana,arial,geneva" size="1">
<object id="SftDirectoryRight" style="LEFT: 0px; TOP: 0px" height="350" width="443" classid="clsid:7C2EA0D2-31A4-431F-B315-3C6D57E5F394" codebase="SftDirectory_IX86_I_25.cab#version=2,5,0,0">
<param name="PropVer" value="25">
<param name="PropFile" value>
<param name="PropDesignTime" value="1">
<param name="DeletePropFile" value="0">
<param name="IntVal" value="3452816845">
<param name="ActiveColumnBackColor" value="4294967295">
<param name="Appearance" value="1">
<param name="AutoExpandDragDrop" value="0">
<param name="AutoExpandHover" value="0">
<param name="AutoInitialLoad" value="-1">
<param name="AutoReload" value="-1">
<param name="AutoSizeColumns" value="0">
<param name="BackColor" value="2147483653">
<param name="BorderStyle" value="0">
<param name="ColumnCount" value="7">
<param name="ControlStyle" value="1">
<param name="CustomCode" value="0">
<param name="DeleteOnCollapse" value="0">
<param name="DropDownHeight" value="6">
<param name="DropDownWidth" value="0">
<param name="Enabled" value="1">
<param name="ExpandButtons" value="0">
<param name="FlatProperties" value="1">
<param name="Font" value="MS Sans Serif">
<param name="ForeColor" value="2147483656">
<param name="ForeColorArchiveReady" value="4294967295">
<param name="ForeColorCompressed" value="16711680">
<param name="ForeColorEncrypted" value="65280">
<param name="ForeColorHidden" value="2147483665">
<param name="ForeColorReadOnly" value="4294967295">
<param name="GridStyle" value="0">
<param name="InitialFolder" value>
<param name="InitialFolderSpecial" value="4294967295">
<param name="MousePointer" value="0">
<param name="MultiSelect" value="1">
<param name="OLEDragMode" value="2">
<param name="OLEDropMode" value="2">
<param name="OpenFiles" value="-1">
<param name="RegistryLocation" value>
<param name="RegistryEntry" value>
<param name="RenameStyle" value="3">
<param name="RightToLeft" value="0">
<param name="SelectBackColor" value="2147483661">
<param name="SelectBackColorNoFocus" value="2147483663">
<param name="SelectForeColor" value="2147483662">
<param name="SelectForeColorNoFocus" value="2147483666">
<param name="ShowCheckBoxes" value="0">
<param name="ShowContextMenu" value="-1">
<param name="ShowErrors" value="-1">
<param name="ShowFiles" value="-1">
<param name="ShowHiddenFolders" value="-1">
<param name="ShowImages" value="-1">
<param name="SizeBox" value="-1">
<param name="TopMostFolder" value>
<param name="TopMostFolderSpecial" value="4294967295">
<param name="TreeLineStyle" value="0">
<param name="UseThemes" value="-1">
<param name="Column(0)PropVer" value="0">
<param name="Column(0)BackColor" value="4294967295">
<param name="Column(0)CellAlign" value="0">
<param name="Column(0)Enabled" value="1">
<param name="Column(0)ForeColor" value="4294967295">
<param name="Column(0)HeaderAlign" value="0">
<param name="Column(0)HeaderText" value="Name">
<param name="Column(0)HeaderToolTip" value>
<param name="Column(0)KeepPosition" value="4294967295">
<param name="Column(0)Locked" value="0">
<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)WidthCol" value="100">
<param name="Column(0)Contents" value="0">
<param name="Column(1)PropVer" value="0">
<param name="Column(1)BackColor" value="4294967295">
<param name="Column(1)CellAlign" value="2">
<param name="Column(1)Enabled" value="1">
<param name="Column(1)ForeColor" value="4294967295">
<param name="Column(1)HeaderAlign" value="2">
<param name="Column(1)HeaderText" value="Size">
<param name="Column(1)HeaderToolTip" value>
<param name="Column(1)KeepPosition" value="0">
<param name="Column(1)Locked" value="0">
<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)WidthCol" value="100">
<param name="Column(1)Contents" value="1">
<param name="Column(2)PropVer" value="0">
<param name="Column(2)BackColor" value="4294967295">
<param name="Column(2)CellAlign" value="0">
<param name="Column(2)Enabled" value="1">
<param name="Column(2)ForeColor" value="4294967295">
<param name="Column(2)HeaderAlign" value="0">
<param name="Column(2)HeaderText" value="Type">
<param name="Column(2)HeaderToolTip" value>
<param name="Column(2)KeepPosition" value="0">
<param name="Column(2)Locked" value="0">
<param name="Column(2)MinWidth" value="0">
<param name="Column(2)SelectBackColor" value="4294967295">
<param name="Column(2)SelectForeColor" value="4294967295">
<param name="Column(2)WidthCol" value="100">
<param name="Column(2)Contents" value="2">
<param name="Column(3)PropVer" value="0">
<param name="Column(3)BackColor" value="4294967295">
<param name="Column(3)CellAlign" value="0">
<param name="Column(3)Enabled" value="1">
<param name="Column(3)ForeColor" value="4294967295">
<param name="Column(3)HeaderAlign" value="0">
<param name="Column(3)HeaderText" value="Date Modified">
<param name="Column(3)HeaderToolTip" value>
<param name="Column(3)KeepPosition" value="0">
<param name="Column(3)Locked" value="0">
<param name="Column(3)MinWidth" value="0">
<param name="Column(3)SelectBackColor" value="4294967295">
<param name="Column(3)SelectForeColor" value="4294967295">
<param name="Column(3)WidthCol" value="100">
<param name="Column(3)Contents" value="3">
<param name="Column(4)PropVer" value="0">
<param name="Column(4)BackColor" value="4294967295">
<param name="Column(4)CellAlign" value="0">
<param name="Column(4)Enabled" value="1">
<param name="Column(4)ForeColor" value="4294967295">
<param name="Column(4)HeaderAlign" value="0">
<param name="Column(4)HeaderText" value="Date Created">
<param name="Column(4)HeaderToolTip" value>
<param name="Column(4)KeepPosition" value="0">
<param name="Column(4)Locked" value="0">
<param name="Column(4)MinWidth" value="0">
<param name="Column(4)SelectBackColor" value="4294967295">
<param name="Column(4)SelectForeColor" value="4294967295">
<param name="Column(4)WidthCol" value="100">
<param name="Column(4)Contents" value="4">
<param name="Column(5)PropVer" value="0">
<param name="Column(5)BackColor" value="4294967295">
<param name="Column(5)CellAlign" value="0">
<param name="Column(5)Enabled" value="1">
<param name="Column(5)ForeColor" value="4294967295">
<param name="Column(5)HeaderAlign" value="0">
<param name="Column(5)HeaderText" value="Date Accessed">
<param name="Column(5)HeaderToolTip" value>
<param name="Column(5)KeepPosition" value="0">
<param name="Column(5)Locked" value="0">
<param name="Column(5)MinWidth" value="0">
<param name="Column(5)SelectBackColor" value="4294967295">
<param name="Column(5)SelectForeColor" value="4294967295">
<param name="Column(5)WidthCol" value="100">
<param name="Column(5)Contents" value="5">
<param name="Column(6)PropVer" value="0">
<param name="Column(6)BackColor" value="4294967295">
<param name="Column(6)CellAlign" value="0">
<param name="Column(6)Enabled" value="1">
<param name="Column(6)ForeColor" value="4294967295">
<param name="Column(6)HeaderAlign" value="0">
<param name="Column(6)HeaderText" value="Attributes">
<param name="Column(6)HeaderToolTip" value>
<param name="Column(6)KeepPosition" value="0">
<param name="Column(6)Locked" value="0">
<param name="Column(6)MinWidth" value="0">
<param name="Column(6)SelectBackColor" value="4294967295">
<param name="Column(6)SelectForeColor" value="4294967295">
<param name="Column(6)WidthCol" value="100">
<param name="Column(6)Contents" value="6">
<param name="HeadersPropVer" value="0">
<param name="HeadersFont" value="MS Sans Serif">
<param name="HeadersBackColor" value="2147483663">
<param name="HeadersComboBoxStyle" value="0">
<param name="HeadersDarkEdgeColor" value="2147483664">
<param name="HeadersForeColor" value="2147483666">
<param name="HeadersGrayedColor" value="2147483665">
<param name="HeadersLightEdgeColor" value="2147483668">
<param name="HeadersSortable" value="-1">
<param name="HeadersStyle" value="1">
<param name="xBfStyle1" value="63425126">
<param name="xBfStyle2" value="3084084239">
<param name="xBfStyle3" value="3037440441">
<param name="xBfStyle4" value="1257526871">
<param name="xcx" value="11721">
<param name="xcy" value="9260">
<param name="MatchFolderRegexp" value>
<param name="MatchFileRegexp" value>
<param name="MatchFolder" value>
<param name="MatchFile" value>
<param name="SelectEnabledItemsOnly" value="0">
<param name="OutlineStyle" value="1">
<param name="SelectOutlineBorderColor" value="16760576">
<param name="SelectInnerBorderColor" value="15128749">
<param name="SelectInnerFill1" value="15128749">
<param name="SelectInnerFill2" value="16777215">
<param name="SelectHotOutlineBorderColor" value="16760576">
<param name="SelectHotInnerBorderColor" value="15128749">
<param name="SelectHotInnerFill1" value="15128749">
<param name="SelectHotInnerFill2" value="16777215">
<param name="SelectNoFocusOutlineBorderColor" value="16760576">
<param name="SelectNoFocusInnerBorderColor" value="15128749">
<param name="SelectNoFocusInnerFill1" value="15128749">
<param name="SelectNoFocusInnerFill2" value="16777215">
<param name="HotOutlineBorderColor" value="15128749">
<param name="HotInnerBorderColor" value="13882323">
<param name="HotInnerFill1" value="15128749">
<param name="HotInnerFill2" value="16777215">
<param name="DropTargetOutlineBorderColor" value="16711680">
<param name="DropTargetInnerBorderColor" value="8388608">
<param name="DropTargetInnerFill1" value="15128749">
<param name="DropTargetInnerFill2" value="16777215">
</object>
</font></p>
</td>
</tr>
</table>
<hr size="3" color="#c0c0c0">
<small><a href="http://www.softelvdm.com">www.softelvdm.com</a> --- Softel vdm,
Inc. </small></font>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub SftDirectoryRight_Opening(Folder, Allow)
' we're about to open a file/folder. If we can add the folder on the
' left side, that means we don't need to open it in a separate window
IDL = Folder.ItemIDList ' the folder we are looking for
' this will add the complete hierarchy down to the folder in
' left tree (if possible)
On Error Resume Next
Set Fldr = SftDirectoryLeft.FolderUsingIDL(IDL, False)
On Error GoTo 0
' this will locate the exact item if we just added it
Set Fldr = SftDirectoryLeft.FolderUsingIDL(IDL, True)
if Not Fldr Is Nothing then
' The folder has been added on the left side
Fldr.MakeCurrent ' make it the current item
Fldr.MakeVisible ' make it the current item
Allow = False ' no need to open it
End if
End Sub
-->
</SCRIPT>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onload() {
// call this to update the buttons
UpdateLeftButtons();
UpdateRightButtons();
SftDirectoryRight.MakeColumnsOptimal();
}
function UpdateLeftButtons() {
var fldr;
// Update the buttons dependent on the left tree
// Enable/disable Up button
fldr = SftDirectoryLeft.CurrentFolder;
if (fldr != null)
fldr = fldr.Parent;
UpButton.disabled = (fldr == null);
}
function UpdateRightButtons() {
var fldr;
// Update the buttons dependent on the right side detaillist
// Enable/disable properties button
fldr = SftDirectoryRight.CurrentFolder;
PropButton.disabled = true;
if (SftDirectoryRight.SelectionCount > 0 && fldr != null) {
if (fldr.Can("properties"))
PropButton.disabled = false;
}
// Enable/disable New Folder button
fldr = SftDirectoryRight.RootFolder;
NewFolderButton.disabled = true;
if (fldr != null) {
if (fldr.Can("NewFolder"))
NewFolderButton.disabled = false;
}
}
function SftDirectoryLeft_SelectionFinal() {
var fldr;
// If the selection in the left tree changes, update right side detaillist
UpdateLeftButtons();
SftDirectoryRight.Clear();
SftDirectoryRight.CancelMode();
SftDirectoryRight.Refresh();
if (SftDirectoryLeft.CurrentFolder != null)
SftDirectoryRight.TopMostFolderIDL = SftDirectoryLeft.CurrentFolder.ItemIDList;
else
SftDirectoryRight.TopMostFolderSpecial = 999; //specialSftDirectoryEmpty
}
function SftDirectoryRight_SelectionFinal() {
UpdateRightButtons();
}
function UpButton_onclick() {
// Move up on level in left side tree control
fldr = SftDirectoryLeft.CurrentFolder;
if (fldr != null) {
fldr = fldr.Parent;
if (fldr != null) {
fldr.MakeCurrent(); // make it the current item
fldr.MakeVisible(); // make sure it's scrolled into view
}
}
}
function PropButton_onclick() {
var fldr;
// Display properties dialog for the currently selected item
fldr = SftDirectoryRight.CurrentFolder;
if (SftDirectoryRight.SelectionCount > 0 && fldr != null)
fldr.Do("properties");
}
function NewFolderButton_onclick() {
var fldr;
// Create a new folder
fldr = SftDirectoryRight.RootFolder;
if (fldr != null)
fldr.Do("NewFolder");
}
//-->
</SCRIPT>
</body>
</html>