' $System.Access Login
' $WorkSpace.AccessManage
' If $System.IsPost
'  $System.Redirect $Server?page=ManageFormViewConfig&wid=$WID&id=$ID
'  $Command.Form.SetView
'  Exit
' EndIf
' $AppliName = $WorkSpace.Forms.$ID.Name
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
<!--#include file="LibraryViewSet.html"-->
' $CaptionTitle = "表示の変更"
' Call cmHead $CaptionTitle 1
</head>
<body>
' $System.SetParameter BackURL "$Server?page=ManageFormViewConfig&wid=$WID&id=$ID"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=ManageAdmin&wid=$WID&id=$ID" "運用管理" $BackURL "表示の設定"
' $System.CloseDatabase "mw"
' Set $FormProfile = $Command.Form.GetFormTop $ID
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="ManageFormViewSet">
<input type="hidden" name="WID" value="$WID">
<input type="hidden" name="ID" value="$ID">
<p>$AppliNameの表示の情報を設定してください。</p>
<ul>
' $Rows = $FormProfile.Rows
' Init $Rows = 20
<p>
<li>一覧画面で表示する件数</li>
<select name="Rows">
' Options $Rows in 5 to 30 step 5
' Options $Rows in 40 to 100 step 10
</select>
</p>
<p>
<li>一覧画面で表示する項目</li>
<blockquote>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="#ffffff">
<tr class="header"><th nowrap>表示</th><th width="150" nowrap>項目名</th><th nowrap>表示文字数</th><th nowrap>文字色</th><th nowrap>太字</th></tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td><td>日時</td><td>(全て)</td>
<td align="center">
' $Color = $FormProfile.DateTime.Color
' Init $Color = "#000000"
' Call FormSelectColor "ColorDateTime" $Color
</td>
<td align="center">
' Call formCheckBox "BoldDateTime" "" $FormProfile.DateTime.Bold 1
</td>
</tr>
<tr><td align="center">
' If $FormProfile.Creator.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Creator" "" $Checked 1
</td>
<td>作成者</td><td>(全て)</td>
<td align="center">
' $Color = $FormProfile.Creator.Color
' Init $Color = "#000000"
' Call FormSelectColor "ColorCreator" $Color
</td>
<td align="center">
' Call formCheckBox "BoldCreator" "" $FormProfile.Creator.Bold 1
</td>
</tr>
<tr><td align="center">
' If $FormProfile.Code.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Code" "" $Checked 1
</td>
<td>番号</td><td>(全て)</td>
<td align="center">
' $Color = $FormProfile.Code.Color
' Init $Color = "#000000"
' Call FormSelectColor "ColorCode" $Color
</td>
<td align="center">
' Call formCheckBox "BoldCode" "" $FormProfile.Code.Bold 1
</td>
</tr>
<tr><td align="center">
' Call cmImage "check20.png" "変更できません。"
</td>
<td>件名</td><td>
' Call SelectLength "SubjectLength" $FormProfile.Subject.Length
</td>
<td align="center"><font color="#0000ff">(リンク)</font></td>
<td align="center">
' Call formCheckBox "BoldSubject" "" $FormProfile.Subject.Bold 1
</td>
</tr>
<tr><td align="center">
' If $FormProfile.Customer.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Customer" "" $Checked 1
</td>
<td>顧客</td><td>
' Call SelectLength "CustomerLength" $FormProfile.Customer.Length
</td>
<td align="center">
' $Color = $FormProfile.Customer.Color
' Init $Color = "#000000"
' Call FormSelectColor "ColorCustomer" $Color
</td>
<td align="center">
' Call formCheckBox "BoldCustomer" "" $FormProfile.Customer.Bold 1
</td>
</tr>
' For Each $Item in $FormProfile.Items
'  $IID = $Item.ID
<tr><td align="center">
'  If $Item.Hidden
'   $Checked = 0
'  Else
'   $Checked = 1
'  EndIf
'  Call formCheckBox "$IID" "" $Checked 1
</td>
<td nowrap>$Item.Name<br></td><td>
'  If $Item.Type = Text
'   Call SelectLength "Length$IID" $Item.Length
'  Else
(全て)
'  EndIf
</td>
<td align="center">
'  $Color = $Item.Color
'  Init $Color = "#000000"
'  Call FormSelectColor "Color$IID" $Color
</td>
<td align="center">
'  Call formCheckBox "Bold$IID" "" $Item.Bold 1
</td>
</tr>
' Next
<tr><td align="center">
' If $FormProfile.Comment.Hidden
'  $Checked = 0
' Else
'  $Checked = 1
' EndIf
' Call formCheckBox "Comment" "" $Checked 1
</td>
<td>コメント</td><td>(全て)</td>
<td align="center">
' $Color = $FormProfile.Comment.Color
' Init $Color = "#000000"
' Call FormSelectColor "ColorComment" $Color
</td>
<td align="center">
' Call formCheckBox "BoldComment" "" $FormProfile.Comment.Bold 1
</td>
</tr>
</table>
</blockquote>
</p>
</ul>
' Call formCommit "変更する"
</form>
' Call cmChildFooter $BackURL "表示の設定へ"
</body>
</html>