SourceToHTML にGUIを
「SourceToHTML」と「SourceToRTF」をマージし、
また、"HTA"によるユーザーインターフェースを持たせました。
以下は、画面の定義部分です
SourceToHtml.Hta (２/２)
<TR>
<TD id="base9">
<span id="font9">
<!-- *********************************************** -->
数字
<!-- *********************************************** -->
</span>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 有効 -->
<!-- =============================================== -->
<input id="chkFontEnabled9" type=checkbox checked onClick="chkFontEnabled_change(9)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 -->
<!-- =============================================== -->
<select id="cboFontColor9" style="width:80px" onChange="cboFontColor_change(9)">
<option value="000000" selected> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value=""> 直接指定
</select>
# <input id ="txtFontColor9" type="text" style="width:50px" value="000000" onChange="txtFontColor_change(9)" />
</TD>
<TD>
<!-- =============================================== -->
<!-- 太字 -->
<!-- =============================================== -->
<input id="chkBold9" type=checkbox onClick="chkBold_change(9)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 斜体 -->
<!-- =============================================== -->
<input id="chkItalic9" type=checkbox onClick="chkItalic_change(9)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 下線 -->
<!-- =============================================== -->
<input id="chkUnderLine9" type=checkbox onClick="chkUnderLine_change(9)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 有効 -->
<!-- =============================================== -->
<input id="chkBackEnabled9" type=checkbox checked onClick="chkBackEnabled_change(9)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 -->
<!-- =============================================== -->
<select id="cboBackColor9" style="width:80px" onChange="cboBackColor_change(9)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value="" selected> 直接指定
</select>
# <input id ="txtBackColor9" type="text" style="width:50px" value="FFF0FF" onChange="txtBackColor_change(9)" />
</TD>
</TR><TR>
<TD id="base10">
<span id="font10">
<!-- *********************************************** -->
記号・演算子
<!-- *********************************************** -->
</span>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 有効 -->
<!-- =============================================== -->
<input id="chkFontEnabled10" type=checkbox checked onClick="chkFontEnabled_change(10)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 -->
<!-- =============================================== -->
<select id="cboFontColor10" style="width:80px" onChange="cboFontColor_change(10)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000" selected> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value=""> 直接指定
</select>
# <input id ="txtFontColor10" type="text" style="width:50px" value="808000" onChange="txtFontColor_change(10)" />
</TD>
<TD>
<!-- =============================================== -->
<!-- 太字 -->
<!-- =============================================== -->
<input id="chkBold10" type=checkbox onClick="chkBold_change(10)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 斜体 -->
<!-- =============================================== -->
<input id="chkItalic10" type=checkbox onClick="chkItalic_change(10)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 下線 -->
<!-- =============================================== -->
<input id="chkUnderLine10" type=checkbox onClick="chkUnderLine_change(10)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 有効 -->
<!-- =============================================== -->
<input id="chkBackEnabled10" type=checkbox onClick="chkBackEnabled_change(10)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 -->
<!-- =============================================== -->
<select id="cboBackColor10" style="width:80px" onChange="cboBackColor_change(10)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF" selected> White
<option value=""> 直接指定
</select>
# <input id ="txtBackColor10" type="text" style="width:50px" value="FFFFFF" onChange="txtBackColor_change(10)" />
</TD>
</TR><TR>
<TD id="base11">
<span id="font11">
<!-- *********************************************** -->
強調表示 1
<!-- *********************************************** -->
</span>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 有効 -->
<!-- =============================================== -->
<input id="chkFontEnabled11" type=checkbox checked onClick="chkFontEnabled_change(11)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 -->
<!-- =============================================== -->
<select id="cboFontColor11" style="width:80px" onChange="cboFontColor_change(11)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000" selected> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value=""> 直接指定
</select>
# <input id ="txtFontColor11" type="text" style="width:50px" value="FF0000" onChange="txtFontColor_change(11)" />
</TD>
<TD>
<!-- =============================================== -->
<!-- 太字 -->
<!-- =============================================== -->
<input id="chkBold11" type=checkbox onClick="chkBold_change(11)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 斜体 -->
<!-- =============================================== -->
<input id="chkItalic11" type=checkbox onClick="chkItalic_change(11)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 下線 -->
<!-- =============================================== -->
<input id="chkUnderLine11" type=checkbox onClick="chkUnderLine_change(11)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 有効 -->
<!-- =============================================== -->
<input id="chkBackEnabled11" type=checkbox onClick="chkBackEnabled_change(11)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 -->
<!-- =============================================== -->
<select id="cboBackColor11" style="width:80px" onChange="cboBackColor_change(11)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF" selected> White
<option value=""> 直接指定
</select>
# <input id ="txtBackColor11" type="text" style="width:50px" value="FFFFFF" onChange="txtBackColor_change(11)" />
</TD>
</TR><TR>
<TD id="base12">
<span id="font12">
<!-- *********************************************** -->
強調表示 2
<!-- *********************************************** -->
</span>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 有効 -->
<!-- =============================================== -->
<input id="chkFontEnabled12" type=checkbox checked onClick="chkFontEnabled_change(12)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 -->
<!-- =============================================== -->
<select id="cboFontColor12" style="width:80px" onChange="cboFontColor_change(12)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080" selected> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value=""> 直接指定
</select>
# <input id ="txtFontColor12" type="text" style="width:50px" value="800080" onChange="txtFontColor_change(12)" />
</TD>
<TD>
<!-- =============================================== -->
<!-- 太字 -->
<!-- =============================================== -->
<input id="chkBold12" type=checkbox onClick="chkBold_change(12)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 斜体 -->
<!-- =============================================== -->
<input id="chkItalic12" type=checkbox onClick="chkItalic_change(12)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 下線 -->
<!-- =============================================== -->
<input id="chkUnderLine12" type=checkbox onClick="chkUnderLine_change(12)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 有効 -->
<!-- =============================================== -->
<input id="chkBackEnabled12" type=checkbox onClick="chkBackEnabled_change(12)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 -->
<!-- =============================================== -->
<select id="cboBackColor12" style="width:80px" onChange="cboBackColor_change(12)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF" selected> White
<option value=""> 直接指定
</select>
# <input id ="txtBackColor12" type="text" style="width:50px" value="FFFFFF" onChange="txtBackColor_change(12)" />
</TD>
</TR><TR>
<TD id="base13">
<span id="font13">
<!-- *********************************************** -->
強調表示 3
<!-- *********************************************** -->
</span>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 有効 -->
<!-- =============================================== -->
<input id="chkFontEnabled13" type=checkbox checked onClick="chkFontEnabled_change(13)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 前景色 -->
<!-- =============================================== -->
<select id="cboFontColor13" style="width:80px" onChange="cboFontColor_change(13)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080" selected> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF"> White
<option value=""> 直接指定
</select>
# <input id ="txtFontColor13" type="text" style="width:50px" value="008080" onChange="txtFontColor_change(13)" />
</TD>
<TD>
<!-- =============================================== -->
<!-- 太字 -->
<!-- =============================================== -->
<input id="chkBold13" type=checkbox onClick="chkBold_change(13)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 斜体 -->
<!-- =============================================== -->
<input id="chkItalic13" type=checkbox onClick="chkItalic_change(13)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 下線 -->
<!-- =============================================== -->
<input id="chkUnderLine13" type=checkbox onClick="chkUnderLine_change(13)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 有効 -->
<!-- =============================================== -->
<input id="chkBackEnabled13" type=checkbox onClick="chkBackEnabled_change(13)"/>
</TD>
<TD>
<!-- =============================================== -->
<!-- 背景色 -->
<!-- =============================================== -->
<select id="cboBackColor13" style="width:80px" onChange="cboBackColor_change(13)">
<option value="000000"> Black
<option value="800000"> Maroon
<option value="008000"> Green
<option value="808000"> Olive
<option value="000080"> Navy
<option value="800080"> Purple
<option value="008080"> Teal
<option value="808080"> Gray
<option value="C0C0C0"> Silver
<option value="FF0000"> Red
<option value="00FF00"> Lime
<option value="FFFF00"> Yellow
<option value="0000FF"> Blue
<option value="FF00FF"> Fuchsia
<option value="00FFFF"> Aqua
<option value="FFFFFF" selected> White
<option value=""> 直接指定
</select>
# <input id ="txtBackColor13" type="text" style="width:50px" value="FFFFFF" onChange="txtBackColor_change(13)" />
</TD>
</TR></TABLE>
<br/>
<div align="right">
<input id="cmdExec" type="button" value="実行" onClick="callSourceToHtml()" style="width:100px;height=30px"/>
<input id="cmdClose" type="button" value="終了" onClick="window.close()" style="width:100px;height=30px"/>
</div></form>
</BODY>
</HTML>
