📄 left.htm

📁 Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器
💻 HTM
字号:
<HTML><HEAD><TITLE>Start Page</TITLE>
<STYLE type=text/css>
<!--
td             { font-family: Verdana; font-size: 9pt }
a.menu         { color: #FFFFFF; text-decoration: none }
a.menu:active  { color: #FFCC99; text-decoration: underline }
a.menu:visited { color: #FFFFFF; text-decoration: none }
a.menu:hover   { color: #FFCC99; text-decoration: underline }

.clsSideBarDtl
{
 color:white;
 font-family:verdana;
 font-size:9pt;
 text-decoration:none;
 }

.clsHilite
{
 color:black;
 font-family:verdana;
 font-size:9pt;
 font-weight:bold;
 text-decoration:none;
 }


-->
</STYLE>

<script language=vbscript>
	dim o

	sub showSelected(obj)
		if not isempty(o)then
			o.classname="menu"
			o.style.background = "#313163"
		end if
		set o=obj
		o.style.background = "#FFFFFF"

		td1.style.background = "#313163"
		td2.style.background = "#313163"
		td3.style.background = "#313163"
		td4.style.background = "#313163"

		a1.classname="menu"
		a2.classname="menu"
		a3.classname="menu"
		a4.classname="menu"

		if o.id = "a1" then td1.style.background = "#FFFFFF"
		o.classname="clsHilite"

		if o.id = "a2" then td2.style.background = "#FFFFFF"
		o.classname="clsHilite"

		if o.id = "a3" then td3.style.background = "#FFFFFF"
		o.classname="clsHilite"

		if o.id = "a4" then td4.style.background = "#FFFFFF"
		o.classname="clsHilite"


	end sub

</Script>

</HEAD>
<BODY leftmargin="0" topmargin="0" SCROLL="no">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
  <tr>
	<td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
	<td width="135" bgcolor="#313163"></td>
  </tr>
  <tr>
	<td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
	<td width="135" bgcolor="#313163"></td>
  </tr>

  <tr>
    <td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
    <td id=td1 width="100%" bgcolor="#313163"><IMG height=16 src="clear.gif" width=16 border=0><a id=a1 onClick='showSelected(me)' class="menu" target=#Main href="right.htm">About cEdit</a></td>
  </tr>

  <tr>
    <td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
    <td id=td2 width="100%" bgcolor="#313163"><IMG height=16 src="clear.gif" width=16 border=0><a id=a2 onClick='showSelected(me)' class="menu" target=#Main href="whatsnew.htm">What's New</a></td>
  </tr>

  <tr>
    <td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
    <td id=td3 width="100%" bgcolor="#313163"><IMG height=16 src="clear.gif" width=16 border=0><a id=a3 onClick='showSelected(me)' class="menu" target=#Main href="features.htm">Features</a></td>
  </tr>

  <tr>
    <td bgcolor="#313163"><IMG height=21 src="clear.gif" width=16 border=0></td>
    <td id=td4 width="100%" bgcolor="#313163"><IMG height=16 src="clear.gif" width=16 border=0><a id=a4 onClick='showSelected(me)' class="menu" target=#Main href="credits.htm">Credits</a></td>
  </tr>


  <tr>
    <td height="100%" bgcolor="#313163">&nbsp;</td>
    <td width="135" height="100%" bgcolor="#313163">&nbsp;</td>
  </tr>

<script language=vbscript>
	showSelected(a1)
</Script>

</table>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -