' If $System.IsPost
'  If $Admin or ( $UID != $Login.ID )
'   $System.Redirect $Server?page=SystemUserCustomize&uid=$UID&gid=$GID
'  Else
'   $System.Redirect $Server?page=PersonalAdmin&wid=$WID
'  EndIf
'  $Command.User.SetView
'  Exit
' EndIf
' Set $u = $Users.$UID
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "表示の設定"
' If $Admin or ( $UID != $Login.ID )
'  Call cmHead $CaptionTitle 1
' Else
'  Call cmHead $CaptionTitle
' EndIf
</head>
<body>
' If $Admin or ( $UID != $Login.ID )
'  $System.SetParameter BackURL "$Server?page=SystemUserCustomize&uid=$UID&gid=$GID"
'  Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" "$Server?page=SystemUserAdmin&gid=$GID" "ユーザーの設定" $BackURL "個人設定"
' Else
'  $System.SetParameter BackURL "$Server?page=PersonalAdmin&wid=$WID"
'  Call cmHeader $CaptionTitle $BackURL "個人設定"
' EndIf
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="$Page">
<input type="hidden" name="rw" value="User">
<input type="hidden" name="UID" value="$UID">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="GID" value="$GID">
<input type="hidden" name="Admin" value="$Admin">
<p>$u.Name さんの $WorkSpace.Name の表示を設定してください。</p>
<p>
<table border="0" cellspacing="0" cellpadding="4">
<tr><td>画面のデザイン</td><td>
' $System.SetParameter WSColor "Color$WID"
' $Color = $u.$WSColor
' Init $Color = 0
<div class="userview-design-row clearfix">
 <div class="userview-design-col userview-design-standard">
' Call formRadio "Color" "標準" $Color.RChecked "" "DesignStandard"
 </div>
 <div class="userview-design-col userview-design-red">
' Call formRadio "Color" "レッド" $Color.Checked_red "red" "DesignRed"
 </div>
 <div class="userview-design-col userview-design-yellow">
' Call formRadio "Color" "イエロー" $Color.Checked_yellow "yellow" "DesignYellow"
 </div>
 <div class="userview-design-col userview-design-green">
' Call formRadio "Color" "グリーン" $Color.Checked_green "green" "DesignGreen"
 </div>
</div>
<div class="userview-design-row clearfix">
 <div class="userview-design-col" style="visibility:hidden;">
 </div>
 <div class="userview-design-col userview-design-emerald">
' Call formRadio "Color" "エメラルド" $Color.Checked_emerald "emerald" "DesignEmerald"
 </div>
 <div class="userview-design-col userview-design-blue">
' Call formRadio "Color" "ブルー" $Color.Checked_blue "blue" "DesignBlue"
 </div>
 <div class="userview-design-col userview-design-purple">
' Call formRadio "Color" "パープル" $Color.Checked_purple "purple" "DesignPurple"
 </div>
</div>
</td></tr>
<tr><td valign="top" nowrap>メール作成欄のサイズ</td><td valign="top" nowrap>
' $System.SetParameter Param "Cols$WID"
' $Cols = $u.$Param
' $System.SetParameter Param "Rows$WID"
' $Rows = $u.$Param
' Init $Cols = 70
' Init $Rows = 20
<select name="Cols">
' Options $Cols in 40 to 100 step 10
</select>
桁 ×
<select name="Rows">
' Options $Rows in 5 to 30
</select>
行
<tr><td valign="top" nowrap>画像ファイル</td><td valign="top" nowrap>
' $System.SetParameter Param "Inline$WID"
' Call formCheckBox "Inline" "本文と一緒に表示する" $u.$Param 1 "Inline"
</td></tr>
<tr><td valign="top" nowrap>アプリケーションメニュー</td><td valign="top" nowrap>
' $System.SetParameter View "View$WID"
' If $u.$View.Icon
'  $Check = 0
' Else
'  $Check = 1
' EndIf
' Call formCheckBox "Icon" "アイコンを表示する" $Check 1 "Icon"
</td></tr>
<tr><td valign="top" nowrap>一行のアプリケーション数</td><td valign="top" nowrap>
<select name="Line">
<option value="">(指定しない)
' Options $u.$View.Line in 5 to 10 unit "個まで"
</select>
</td></tr>
<tr><td valign="top" nowrap>表示するアプリケーション</td><td valign="top" nowrap>
<table border="0" cellspacing="0" cellpadding="2">
' Set $ws = $Profile.WorkSpaces.$WID
' For Each $m in $ws.Mails
'  $ID = $m.ID
'  $Contains = $u.$View.Mails.Contains $ID
'  If $Contains
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Mail" $m.Name $Check $ID "Mail$ID"
</td></tr>
' Next
' For Each $f in $ws.Forms
'  $ID = $f.ID
'  $Contains = $u.$View.Forms.Contains $ID
'  If $Contains
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Form" $f.Name $Check $ID "Form$ID"
</td></tr>
' Next
' If ! $ws.Customer.Disable
'  If $u.$View.Customer
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Customer" $ws.Customer.Name $Check 1 "Customer"
</td></tr>
' EndIf
' If ! $ws.Post.Disable
'  If $u.$View.Post
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Post" $ws.Post.Name $Check 1 "Post"
</td></tr>
' EndIf
' If ! $ws.Template.Disable
'  If $u.$View.Template
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Template" $ws.Template.Name $Check 1 "Template"
</td></tr>
' EndIf
' If ! $ws.Report.Disable
'  If $u.$View.Report
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "Report" $ws.Report.Name $Check 1 "Report"
</td></tr>
' EndIf
' If ! $ws.User.Disable
'  If $u.$View.User
'   $Check = 0
'  Else
'   $Check = 1
'  EndIf
<tr><td nowrap>
'  Call formCheckBox "User" $ws.User.Name $Check 1 "User"
</td></tr>
' EndIf
</table>
<font size="-1" color="#008800">表示しないアプリケーションは、共有リンク集に追加されます。</font>
</td></tr>
</table>
</p>
' Call formCommit "設定する"
</form>
' Call cmChildFooter $BackURL "個人設定へ"
</body>
</html>