<%@ Import Namespace="HTCOMNET.Main" %>
<%@ Page  Language="vb" AutoEventWireup="false" Codebehind="Themes.aspx.vb" Inherits="HTCOMNET.Themes"%>
<html>
<head>
<title><%=Session(SK_LANGUAGE).GetText("THEMES_AND_SETTINGS")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=<%=Session(SK_CHARSET)%>">
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<link rel="stylesheet" href="Scripts<%=JS_CSS_VERSION%>/Style.css" type="text/css">
<SCRIPT language="JavaScript" src="Scripts<%=JS_CSS_VERSION%>/Main.js"></SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="5" topmargin="5">
<script language="JavaScript">
drawupwin('<font color="#FFFF66">&nbsp;&nbsp;<%=Session(SK_LANGUAGE).GetText("THEMES_AND_SETTINGS")%></font>',Innerwidth()-15,Innerheight()-15,'#F8F6E6');
</script>
<form id="Form1" runat=server>
<asp:label CssClass="subactionsfont" id="lblinfo" Runat="server" Text=""></asp:label>
 <table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10">&nbsp;</td>
    <td width="260" align="left">  
         <fieldset style="padding:5px;width:260;height:120px;">
		<legend><%=Session(SK_LANGUAGE).GetText("COLOR_LANGUAGE")%></legend>
        <table border="0" cellspacing="0" cellpadding="0" width="100%">
          <tr> 
            <td width="10"></td>
            <td width="100"><br><asp:DropDownList width="220" ID="lstLanguage" Runat="server">
							</asp:DropDownList>
			</td>
          </tr>  
          <tr> 
            <td width="10"></td>
            <td width="100"><br><asp:DropDownList width="220" ID="lstTheme" Runat="server">
							</asp:DropDownList>
			</td>
          </tr>  
        </table>
		</fieldset>
     </td>

	<td width="10">&nbsp;</td>
    <td width="170" align="left">
        <fieldset style="padding:5px;width:170;height:120px;">
		<legend><%=Session(SK_LANGUAGE).GetText("BROWSER_SETTINGS")%></legend>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
              <input type="checkbox" name="cx1" id="cx1" value="1" <%if Session(SK_WINDOW_SETTINGS).ShowMenubar="no" then%>checked<%end if%>>
                <%=Session(SK_LANGUAGE).GetText("HIDE")%> <%=Session(SK_LANGUAGE).GetText("MENU")%></font></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="cx2" id="cx2" value="1" <%if Session(SK_WINDOW_SETTINGS).ShowToolbar="no" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("HIDE")%> <%=Session(SK_LANGUAGE).GetText("TOOLBAR")%></font></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="cx3" id="cx3" value="1" <%if Session(SK_WINDOW_SETTINGS).ShowLocation="no" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("HIDE")%> <%=Session(SK_LANGUAGE).GetText("LOCATION")%></font></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
               <input type="checkbox" name="cx4" id="cx4" value="1" <%if Session(SK_WINDOW_SETTINGS).ShowStatus="no" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("HIDE")%> <%=Session(SK_LANGUAGE).GetText("STATUS")%></font></td>
            </tr>
          </table>
		</fieldset>
     </td>
  </tr>
</table>
 <table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10">&nbsp;</td>
    <td width="260" align="left"> 
        <fieldset style="padding:5px;width:260;">
		<legend><%=Session(SK_LANGUAGE).GetText("SET_COLUMNS")%></legend>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
           <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="sizec" id="sizec" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), "SystemSize_checked")="1" and not Page.IsPostBack) or Request.Form("sizec")="1" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("COMMON", "SIZE")%></font></td>
                <td width="40" align="left"><input name="sizew" id="sizew" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), "SystemSize_width")%><%else%><%=Request.Form("sizew")%><%end if%>" type="text"></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="DMc" id="DMc" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), "SystemDM_checked")="1" and not Page.IsPostBack) or Request.Form("DMc")="1" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("COMMON", "DATE_MODIFIED")%></font></td>
                <td width="40" align="left"><input name="DMw" id="DMw" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), "SystemDM_width")%><%else%><%=Request.Form("DMw")%><%end if%>" type="text"></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="DCc" id="DCc" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), "SystemDC_checked")="1" and not Page.IsPostBack) or Request.Form("DCc")="1" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("COMMON", "DATE_CREATED")%></font></td>
                <td width="40" align="left"><input name="DCw" id="DCw" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), "SystemDC_width")%><%else%><%=Request.Form("DCw")%><%end if%>" type="text"></td>
            </tr>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="DAc" id="DAc" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), "SystemDA_checked")="1" and not Page.IsPostBack) or Request.Form("DAc")="1" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("COMMON", "DATE_ACCESSED")%></font></td>
                <td width="40" align="left"><input name="DAw" id="DAw" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), "SystemDA_width")%><%else%><%=Request.Form("DAw")%><%end if%>" type="text"></td>
            </tr>
            <%If Session(SK_CURRENT_FOLDER).CanReadProperties%>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="CPc" id="CPc" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), "SystemCP_checked")="1" and not Page.IsPostBack) or Request.Form("CPc")="1" then%>checked<%end if%>> 
                <%=Session(SK_LANGUAGE).GetText("ALL_PROPERTIES")%></font></td>
                <td width="40" align="left"><input name="CPw" id="CPw" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), "SystemCP_width")%><%else%><%=Request.Form("CPw")%><%end if%>" type="text"></td>
            </tr>
            <%End if%>
            <%
			 Dim i as Integer=1
             Dim locPropAccess As PropertyAccess
             For Each locPropAccess In Session(SK_CURRENT_FOLDER).Properties()
             if string.compare(locPropAccess.Name,"CUSTOM",ignorecase:=true)<>0 then
            %>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
                <input type="checkbox" name="p<%=i%>c" id="p<%=i%>c" value="1" <%if (GetSettingsValue(Session(SK_SETTINGS), locPropAccess.Name & "_checked")="1" and not Page.IsPostBack) or Request.Form("p" & i & "c")="1" then%>checked<%end if%>> 
                <%=locPropAccess.Name%></font></td>
                <td width="40" align="left"><input name="p<%=i%>w" id="p<%=i%>w" maxlength="3" style="width:30;" value="<%if not Page.IsPostBack then%><%=GetSettingsValue(Session(SK_SETTINGS), locPropAccess.Name & "_width")%><%else%><%=Request.Form("p" & i & "w")%><%end if%>" type="text"></td>
            </tr>
            <%
            i+=1
            end if
            %>
			<%Next%>
          </table>
       </fieldset>
     </td>
     
     	<td width="10">&nbsp;</td>
		<td width="170" align="left">
		<fieldset style="padding:5px;width:170;height:150px;">
		<legend><%=Session(SK_LANGUAGE).GetText("OTHER")%></legend>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <%If not ISADVERSION then%>
            <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
              <input type="checkbox" name="showused" id="showused" value="1" <%if GetSettingsValue(Session(SK_SETTINGS), "SHOW_USED_SPACE")="yes" then%>checked<%end if%>>
                <%=Session(SK_LANGUAGE).GetText("SHOW_USED_SPACE")%></font></td>
            </tr> 
           <%End if%>
             <tr> 
              <td align="left"><font class="subactionsfont">&nbsp; 
              <input type="checkbox" name="showtree" id="showtree" value="1" <%if Session(SK_SHOW_FOLDERS_TREE) then%>checked<%end if%>>
                <%=Session(SK_LANGUAGE).GetText("SHOW_FOLDERS_TREE")%></font></td>
            </tr>     
          </table>
      </fieldset>
     </td>     
  </tr>
</table>

 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:Button class="button" ID="btnsave" Runat="server"></asp:Button>
</form>
<script language="JavaScript">
drawdownwin('');
</script>
</body>
</html>

