开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
RTFBox.vb
资源名称：ASP[1].NET.rar　[点击查看]
上传用户：autodoor
上传日期：2022-08-04
资源大小：9973k
文件大小：87k
源码类别：

.net编程

开发平台：

Others

RTFBox.vb：源码内容
  1. 'HTML Area Server Side Control for ASP .NET
  2. 'Created by Sameers (theAngrycodeR)
  3. 'All Rights Reserved
  4. 'Contact : theAngrycodeR@Yahoo.com
  6. Imports System.ComponentModel
  7. Imports System.Web.UI
  8. Imports System.Web.UI.WebControls
  9. Imports System.Xml
  10. Imports System.Drawing
  11. Imports System.Windows.Forms.Design
  12. Imports System
  13. Imports System.IO
  14. Imports System.Web
  17. Imports System.Drawing.Design
  19. Namespace HangamaHouse
  20.     Public Class RTFBox
  21.         Inherits System.Web.UI.WebControls.WebControl
  22.         Implements IPostBackDataHandler
  23. #Region "Private Variable Declaration"
  25.         Public Event TextChanged As EventHandler
  26.         Private mEmDlgWidth As Integer = 110
  27.         Private mEmDlgHeight As Integer = 140
  28.         Private mIconsPath As String = "icons"
  29.         Private mSmilesPath As String = "icons/smiles"
  30.         Private mButtonBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")  'ColorTranslator.ToHtml
  31.         Private mTableBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")
  32.         Private mCellBackColor As Color = ColorTranslator.FromHtml("#D6D3CE")
  33.         Private mColorFilePath As String = "ColorPicker.html"
  34.         Private mSmilesFilePath As String = "Smiles.html"
  35.         Private mWidth As Integer = 500
  36. #End Region
  37.         Public Sub New()
  38.             'Create Modal Dialogue Fies
  39.         End Sub
  41. #Region "Public Properties"
  42.         Public Property EmotionsDialogueWidth() As Integer
  43.             Get
  44.                 Return mEmDlgWidth
  45.             End Get
  46.             Set(ByVal Value As Integer)
  47.                 mEmDlgWidth = Value
  48.             End Set
  49.         End Property
  50.         Public Property EmotionsDialogueHeight() As Integer
  51.             Get
  52.                 Return mEmDlgHeight
  53.             End Get
  54.             Set(ByVal Value As Integer)
  55.                 mEmDlgHeight = Value
  56.             End Set
  57.         End Property
  58.         Public Property IconsPath() As String
  59.             Get
  60.                 Return mIconsPath
  61.             End Get
  62.             Set(ByVal Value As String)
  63.                 mIconsPath = Value
  64.             End Set
  65.         End Property
  66.         Public Property SmilesPath() As String
  67.             Get
  68.                 Return mSmilesPath
  69.             End Get
  70.             Set(ByVal Value As String)
  71.                 mSmilesPath = Value
  72.             End Set
  73.         End Property
  74.         Public ReadOnly Property StyleSheet() As String
  75.             Get
  76.                 Return Me.GenerateCSSCode()
  77.             End Get
  78.         End Property
  79.         Public Property ButtonBackColor() As Color
  80.             Get
  81.                 Return mButtonBackColor
  82.             End Get
  83.             Set(ByVal Value As Color)
  84.                 mButtonBackColor = Value
  85.             End Set
  86.         End Property
  87.         Public Property TableBackColor() As Color
  88.             Get
  89.                 Return mTableBackColor
  90.             End Get
  91.             Set(ByVal Value As Color)
  92.                 mTableBackColor = Value
  93.             End Set
  94.         End Property
  95.         Public Property TableCellBackColor() As Color
  96.             Get
  97.                 Return mCellBackColor
  98.             End Get
  99.             Set(ByVal Value As Color)
  100.                 mCellBackColor = Value
  101.             End Set
  102.         End Property
  103.         Public Property SmilesPickerFilePath() As String
  104.             Get
  105.                 Return mSmilesFilePath
  106.             End Get
  107.             Set(ByVal Value As String)
  108.                 mSmilesFilePath = Value
  109.             End Set
  110.         End Property
  111.         Public Property ColorPickerFilePath() As String
  112.             Get
  113.                 Return mColorFilePath
  114.             End Get
  115.             Set(ByVal Value As String)
  116.                 mColorFilePath = Value
  117.             End Set
  118.         End Property
  120.         Public Property Text() As String
  121.             Get
  122.                 Return CType(Me.ViewState("Text"), String)
  123.             End Get
  124.             Set(ByVal Value As String)
  125.                 Value = Replace(Value, "", "&#92")       ' is a Special Character, Replace with \
  126.                 Value = Replace(Value, "'", "&#146")       ' ' is cause of Error, replace with '
  127.                 Value = Replace(Value, vbCrLf, " ")
  129.                 Me.ViewState("Text") = Value
  131.             End Set
  132.         End Property
  133. #End Region
  135. #Region "Private Functions"
  136.         Private Function GenerateCSSCode() As String
  138.             Dim mCSS As String
  139.             mCSS = vbCrLf
  140.             mCSS = "<STYLE> " & vbCrLf
  141.             mCSS += ".EditControl       {       " & vbCrLf
  142.             mCSS += "width:" & Me.mWidth & "px;               " & vbCrLf
  143.             mCSS += "height:300px;      }       " & vbCrLf
  145.             mCSS += ".tblTable          {       " & vbCrLf
  146.             mCSS += "width : " & Me.mWidth & "px;             " & vbCrLf
  147.             mCSS += "height: 30px;              " & vbCrLf
  148.             mCSS += "border:0;                  " & vbCrLf
  149.             mCSS += "cellspacing:0;             " & vbCrLf
  150.             mCSS += "cellpadding:0;             " & vbCrLf
  151.             mCSS += "background-color:" & ColorTranslator.ToHtml(mTableBackColor) & ";" & vbCrLf
  152.             mCSS += "                   }     " & vbCrLf
  154.             mCSS += ".butClass          {       " & vbCrLf
  155.             mCSS += "width:22;                  " & vbCrLf
  156.             mCSS += "height:22;                 " & vbCrLf
  157.             mCSS += "border: 0px solid;         " & vbCrLf
  158.             mCSS += "border-color: #D6D3CE ;    " & vbCrLf
  159.             mCSS += "background-color:" & ColorTranslator.ToHtml(mButtonBackColor) & ";" & vbCrLf
  160.             mCSS += "                   }       " & vbCrLf
  162.             mCSS += ".tdClass           {       " & vbCrLf
  163.             mCSS += "padding-left: 0px;         " & vbCrLf
  164.             mCSS += "padding-top:0px;           " & vbCrLf
  165.             mCSS += "background-Color: " & ColorTranslator.ToHtml(mCellBackColor) & "; }       " & vbCrLf
  167.             mCSS += "</STYLE>" & vbCrLf
  168.             Return (mCSS & vbCrLf)
  170.         End Function
  171.         Private Function GenerateSelONScript() As String
  172.             Dim mStr As String
  174.             mStr = "<Script Language=""javascript"">" & vbCrLf
  175.             mStr += "function selOn(ctrl) {" & vbCrLf
  176.             mStr += "   var mImage " & vbCrLf
  177.             mStr += "   switch(ctrl.id)" & vbCrLf
  178.             mStr += "   {" & vbCrLf
  179.             mStr += "       case 'imgCuston' :" & vbCrLf
  180.             mStr += "           mImage = 'customtag_over.gif';" & vbCrLf
  181.             mStr += "           break;" & vbCrLf
  182.             mStr += "       case 'imgAbout' :" & vbCrLf
  183.             mStr += "           mImage = 'about_over.gif';" & vbCrLf
  184.             mStr += "           break; " & vbCrLf
  185.             mStr += "       case 'imgBold' :" & vbCrLf
  186.             mStr += "           mImage = 'bold_over.gif';" & vbCrLf
  187.             mStr += "           break;" & vbCrLf
  188.             mStr += "       case 'imgItalic' :" & vbCrLf
  189.             mStr += "           mImage = 'italic_over.gif';" & vbCrLf
  190.             mStr += "           break; " & vbCrLf
  191.             mStr += "       case 'imgBoldItalic' :" & vbCrLf
  192.             mStr += "           mImage = 'bolditalicunderline_over.gif';" & vbCrLf
  193.             mStr += "           break; " & vbCrLf
  194.             mStr += "       case 'imgUnderLine' :" & vbCrLf
  195.             mStr += "           mImage = 'underline_over.gif';" & vbCrLf
  196.             mStr += "           break; " & vbCrLf
  197.             mStr += "       case 'imgStrikeThrough' :" & vbCrLf
  198.             mStr += "           mImage = 'strikethrough_over.gif';" & vbCrLf
  199.             mStr += "           break; " & vbCrLf
  200.             mStr += "       case 'imgSpecialChar' :" & vbCrLf
  201.             mStr += "           mImage ='specialchars_over.gif'" & vbCrLf
  202.             mStr += "           break;" & vbCrLf
  203.             mStr += "" & vbCrLf
  205.             mStr += "       case 'imgSuperScript' :" & vbCrLf
  206.             mStr += "           mImage = 'superscript_over.gif'" & vbCrLf
  207.             mStr += "           break;" & vbCrLf
  208.             mStr += "       case 'imgSubScript' :" & vbCrLf
  209.             mStr += "           mImage = 'subscript_over.gif'" & vbCrLf
  210.             mStr += "           break;" & vbCrLf
  211.             mStr += "       case 'imgSave':" & vbCrLf
  212.             mStr += "           mImage = 'save_over.gif'" & vbCrLf
  213.             mStr += "           break;" & vbCrLf
  214.             mStr += "       case 'imgAlignLeft' :" & vbCrLf
  215.             mStr += "           mImage = 'alignleft_over.gif';" & vbCrLf
  216.             mStr += "           break; " & vbCrLf
  217.             mStr += "       case 'imgAlignRight' :" & vbCrLf
  218.             mStr += "           mImage = 'alignright_over.gif';" & vbCrLf
  219.             mStr += "           break; " & vbCrLf
  220.             mStr += "       case 'imgAlignCenter' :" & vbCrLf
  221.             mStr += "           mImage = 'aligncenter_over.gif';" & vbCrLf
  222.             mStr += "           break; " & vbCrLf
  223.             mStr += "       case 'imgAlignJustify' :" & vbCrLf
  224.             mStr += "           mImage = 'alignjustify_over.gif';" & vbCrLf
  225.             mStr += "           break; " & vbCrLf
  226.             mStr += "       case 'imgCut' :" & vbCrLf
  227.             mStr += "           mImage = 'cut_over.gif';" & vbCrLf
  228.             mStr += "           break; " & vbCrLf
  229.             mStr += "       case 'imgCopy' :" & vbCrLf
  230.             mStr += "           mImage = 'copy_over.gif';" & vbCrLf
  231.             mStr += "           break; " & vbCrLf
  232.             mStr += "       case 'imgPaste' :" & vbCrLf
  233.             mStr += "           mImage = 'paste_over.gif';" & vbCrLf
  234.             mStr += "           break; " & vbCrLf
  235.             mStr += "       case 'imgImage' :" & vbCrLf
  236.             mStr += "           mImage = 'image_over.gif';" & vbCrLf
  237.             mStr += "           break; " & vbCrLf
  238.             mStr += "       case 'imgLink' :" & vbCrLf
  239.             mStr += "           mImage = 'link_over.gif';" & vbCrLf
  240.             mStr += "           break; " & vbCrLf
  241.             mStr += "       case 'imgLine' :" & vbCrLf
  242.             mStr += "           mImage = 'line_over.gif';" & vbCrLf
  243.             mStr += "         break; " & vbCrLf
  244.             mStr += "       case 'imgUndo' :" & vbCrLf
  245.             mStr += "           mImage = 'undo_over.gif';" & vbCrLf
  246.             mStr += "           break; " & vbCrLf
  247.             mStr += "       case 'imgRedo' :" & vbCrLf
  248.             mStr += "           mImage = 'redo_over.gif';" & vbCrLf
  249.             mStr += "           break; " & vbCrLf
  250.             mStr += "       case 'imgOrderList' :" & vbCrLf
  251.             mStr += "           mImage = 'orderedlist_over.gif';" & vbCrLf
  252.             mStr += "           break; " & vbCrLf
  253.             mStr += "       case 'imgUnOrderList' :" & vbCrLf
  254.             mStr += "           mImage = 'unorderedlist_over.gif';" & vbCrLf
  255.             mStr += "           break; " & vbCrLf
  256.             mStr += "       case 'imgOutdent' :" & vbCrLf
  257.             mStr += "           mImage = 'outdent_over.gif';" & vbCrLf
  258.             mStr += "           break; " & vbCrLf
  259.             mStr += "       case 'imgIndent' :" & vbCrLf
  260.             mStr += "           mImage = 'indent_over.gif';" & vbCrLf
  261.             mStr += "           break; " & vbCrLf
  262.             mStr += "       case 'imgHighLight' :" & vbCrLf
  263.             mStr += "           mImage = 'highlight_over.gif';" & vbCrLf
  264.             mStr += "         break; " & vbCrLf
  265.             mStr += "     case 'imgFontColor' :" & vbCrLf
  266.             mStr += "         mImage = 'fontcolor_over.gif';" & vbCrLf
  267.             mStr += "         break; " & vbCrLf
  268.             mStr += "     case 'imgCustom' :" & vbCrLf
  269.             mStr += "         mImage = 'customtag_over.gif';" & vbCrLf
  270.             mStr += "         break; " & vbCrLf
  271.             mStr += "     default :" & vbCrLf
  272.             mStr += "           mImage = ctrl.src;" & vbCrLf
  273.             mStr += "" & vbCrLf
  274.             mStr += "   }" & vbCrLf
  275.             mStr += "   var mNewImage = new Image();" & vbCrLf
  276.             mStr += "   mNewImage.src = '" & mIconsPath & "/' + mImage ;" & vbCrLf
  277.             mStr += "   if (! (mImage == ctrl.src) ) " & vbCrLf
  278.             mStr += "       ctrl.src = mNewImage.src;" & vbCrLf
  279.             mStr += "   ctrl.style.cursor = 'hand'; " & vbCrLf
  280.             'mStr += "   ctrl.style.borderColor = '#000000';" & vbCrLf
  281.             'mStr += "   ctrl.style.backgroundColor = '#B5BED6';" & vbCrLf
  282.             mStr += "}" & vbCrLf
  284.             mStr += "</Script>" & vbCrLf
  285.             Return (mStr & vbCrLf)
  286.         End Function
  287.         Private Function GenerateSelOFFScript() As String
  288.             Dim mStr As String
  289.             mStr = "<Script Language=""javascript"">" & vbCrLf
  290.             mStr += "function selOff(ctrl)" & vbCrLf
  291.             mStr += "{" & vbCrLf
  293.             mStr += "   var mImage ;" & vbCrLf
  294.             mStr += "   switch(ctrl.id)" & vbCrLf
  295.             mStr += "   {" & vbCrLf
  296.             mStr += "       case 'imgCuston' :" & vbCrLf
  297.             mStr += "           mImage = 'customtag_off.gif';" & vbCrLf
  298.             mStr += "           break;" & vbCrLf
  299.             mStr += "       case 'imgAbout' :" & vbCrLf
  300.             mStr += "           mImage = 'about_off.gif';" & vbCrLf
  301.             mStr += "           break; " & vbCrLf
  303.             mStr += "       case 'imgBold' :" & vbCrLf
  304.             mStr += "     mImage = 'bold_off.gif';" & vbCrLf
  305.             mStr += "         break;" & vbCrLf
  306.             mStr += "       case 'imgItalic' :" & vbCrLf
  307.             mStr += "           mImage = 'italic_off.gif';" & vbCrLf
  308.             mStr += "           break; " & vbCrLf
  309.             mStr += "       case 'imgBoldItalic' :" & vbCrLf
  310.             mStr += "           mImage = 'bolditalicunderline_off.gif';" & vbCrLf
  311.             mStr += "           break; " & vbCrLf
  312.             mStr += "" & vbCrLf
  313.             mStr += "       case 'imgSuperScript' :" & vbCrLf
  314.             mStr += "           mImage = 'superscript_off.gif'" & vbCrLf
  315.             mStr += "           break;" & vbCrLf
  316.             mStr += " case 'imgSubScript' :" & vbCrLf
  317.             mStr += "         mImage = 'subscript_off.gif'" & vbCrLf
  318.             mStr += "           break;" & vbCrLf
  319.             mStr += "       case 'imgSpecialChar' :" & vbCrLf
  320.             mStr += "           mImage = 'specialchars_off.gif'" & vbCrLf
  321.             mStr += "           break;" & vbCrLf
  323.             mStr += " case 'imgSave':" & vbCrLf
  324.             mStr += "         mImage = 'save_off.gif'" & vbCrLf
  325.             mStr += "           break;" & vbCrLf
  327.             mStr += " case 'imgUnderLine' :" & vbCrLf
  328.             mStr += "         mImage = 'underline_off.gif';" & vbCrLf
  329.             mStr += "           break; " & vbCrLf
  330.             mStr += "       case 'imgStrikeThrough' :" & vbCrLf
  331.             mStr += "           mImage = 'strikethrough_off.gif';" & vbCrLf
  332.             mStr += "           break; " & vbCrLf
  333.             mStr += "       case 'imgAlignLeft' :" & vbCrLf
  334.             mStr += "           mImage = 'alignleft_off.gif';" & vbCrLf
  335.             mStr += "           break; " & vbCrLf
  336.             mStr += "       case 'imgAlignRight' :" & vbCrLf
  337.             mStr += "           mImage = 'alignright_off.gif';" & vbCrLf
  338.             mStr += "           break; " & vbCrLf
  339.             mStr += "       case 'imgAlignCenter' :" & vbCrLf
  340.             mStr += "           mImage = 'aligncenter_off.gif';" & vbCrLf
  341.             mStr += "           break; " & vbCrLf
  342.             mStr += "       case 'imgAlignJustify' :" & vbCrLf
  343.             mStr += "           mImage = 'alignjustify_off.gif';" & vbCrLf
  344.             mStr += "           break; " & vbCrLf
  346.             mStr += " case 'imgCut' :" & vbCrLf
  347.             mStr += "         mImage = 'cut_off.gif';" & vbCrLf
  348.             mStr += "           break; " & vbCrLf
  349.             mStr += "       case 'imgCopy' :" & vbCrLf
  350.             mStr += "           mImage = 'copy_off.gif';" & vbCrLf
  351.             mStr += "           break; " & vbCrLf
  352.             mStr += "       case 'imgPaste' :" & vbCrLf
  353.             mStr += " mImage = 'paste_off.gif';" & vbCrLf
  354.             mStr += "         break; " & vbCrLf
  355.             mStr += "       case 'imgImage' :" & vbCrLf
  356.             mStr += "           mImage = 'image_off.gif';" & vbCrLf
  357.             mStr += "           break; " & vbCrLf
  358.             mStr += "       case 'imgLink' :" & vbCrLf
  359.             mStr += "           mImage = 'link_off.gif';" & vbCrLf
  360.             mStr += "           break; " & vbCrLf
  361.             mStr += "       case 'imgLine' :" & vbCrLf
  362.             mStr += "           mImage = 'line_off.gif';" & vbCrLf
  363.             mStr += "           break; " & vbCrLf
  364.             mStr += "" & vbCrLf
  365.             mStr += "       case 'imgUndo' :" & vbCrLf
  366.             mStr += "           mImage = 'undo_off.gif';" & vbCrLf
  367.             mStr += "           break; " & vbCrLf
  368.             mStr += "       case 'imgRedo' :" & vbCrLf
  369.             mStr += "           mImage = 'redo_off.gif';" & vbCrLf
  370.             mStr += "           break; " & vbCrLf
  371.             mStr += "       case 'imgOrderList' :" & vbCrLf
  372.             mStr += "           mImage = 'orderedlist_off.gif';" & vbCrLf
  373.             mStr += "           break; " & vbCrLf
  374.             mStr += "       case 'imgUnOrderList' :" & vbCrLf
  375.             mStr += "           mImage = 'unorderedlist_off.gif';" & vbCrLf
  376.             mStr += "           break;  " & vbCrLf
  377.             mStr += "       case 'imgOutdent' :" & vbCrLf
  378.             mStr += "           mImage = 'outdent_off.gif';" & vbCrLf
  379.             mStr += "           break;  " & vbCrLf
  380.             mStr += "       case 'imgIndent' :" & vbCrLf
  381.             mStr += "           mImage = 'indent_off.gif';" & vbCrLf
  382.             mStr += "           break;  " & vbCrLf
  383.             mStr += "       case 'imgHighLight' :" & vbCrLf
  384.             mStr += "           mImage = 'highlight_off.gif';" & vbCrLf
  385.             mStr += "           break; " & vbCrLf
  386.             mStr += "       case 'imgFontColor' :" & vbCrLf
  387.             mStr += "           mImage = 'fontcolor_off.gif';" & vbCrLf
  388.             mStr += "           break; " & vbCrLf
  389.             mStr += "     case 'imgCustom' :" & vbCrLf
  390.             mStr += "         mImage = 'customtag_off.gif';" & vbCrLf
  391.             mStr += "         break; " & vbCrLf
  393.             mStr += "       default :" & vbCrLf
  394.             mStr += "           mImage = ctrl.src; " & vbCrLf
  395.             mStr += "   }" & vbCrLf
  397.             mStr += "   var mNewImage = new Image();" & vbCrLf
  398.             mStr += "   mNewImage.src = '" & mIconsPath & "/' + mImage ;" & vbCrLf
  399.             mStr += "   if (! (mImage == ctrl.src) ) " & vbCrLf
  400.             mStr += "       ctrl.src = mNewImage.src;" & vbCrLf
  401.             'mStr += "   ctrl.style.borderColor = '#D6D3CE';  " & vbCrLf
  402.             'mStr += "   ctrl.style.backgroundColor = '#D6D3CE';" & vbCrLf
  403.             mStr += "}" & vbCrLf
  405.             mStr += "</Script>" & vbCrLf
  406.             Return (mStr & vbCrLf)
  407.         End Function
  408.         Private Function GenerateSelDown_UpScript() As String
  409.             Dim mStr As String
  410.             mStr = "<Script Language=""javascript"">" & vbCrLf
  412.             mStr += "function selDown(ctrl)" & vbCrLf
  413.             mStr += "{" & vbCrLf
  414.             mStr += "   ctrl.style.backgroundColor = '" & ColorTranslator.ToHtml(Me.mButtonBackColor) & "';" & vbCrLf
  415.             mStr += "}" & vbCrLf
  417.             mStr += "function selUp(ctrl)" & vbCrLf
  418.             mStr += "{" & vbCrLf
  419.             mStr += "   ctrl.style.backgroundColor = '" & ColorTranslator.ToHtml(Me.mButtonBackColor) & "';" & vbCrLf
  420.             mStr += "}" & vbCrLf
  421.             mStr += "</Script>" & vbCrLf
  422.             Return (mStr & vbCrLf)
  423.         End Function
  424.         Private Function GenerateCommandScript() As String
  425.             Dim mStr As String
  426.             mStr = "<Script Language=""javascript"">" & vbCrLf
  428.             mStr += "function doCommand(ctrl)" & vbCrLf
  429.             mStr += "{" & vbCrLf
  430.             mStr += "   //BackColor" & vbCrLf
  431.             mStr += "   var mCommand, uInterface, vValue;" & vbCrLf
  433.             mStr += "switch(ctrl.id)" & vbCrLf
  434.             mStr += "{ " & vbCrLf
  435.             mStr += "   case 'imgSuperScript' :" & vbCrLf
  436.             mStr += "     mCommand = 'superscript'; " & vbCrLf
  437.             mStr += "     uInterface = false;" & vbCrLf
  438.             mStr += " vValue = null;" & vbCrLf
  439.             mStr += " break;" & vbCrLf
  440.             mStr += " case 'imgSubScript' :" & vbCrLf
  441.             mStr += "     mCommand = 'subscript'; " & vbCrLf
  442.             mStr += "     uInterface = false;" & vbCrLf
  443.             mStr += "     vValue = null;" & vbCrLf
  444.             mStr += "     break;" & vbCrLf
  446.             mStr += "   case 'imgBold' :" & vbCrLf
  447.             mStr += "     mCommand = 'bold'; " & vbCrLf
  448.             mStr += "     uInterface = false;" & vbCrLf
  449.             mStr += "     vValue = null;" & vbCrLf
  450.             mStr += "     break;" & vbCrLf
  451.             mStr += "   case 'imgItalic' :" & vbCrLf
  452.             mStr += "     mCommand = 'italic'; " & vbCrLf
  453.             mStr += "     uInterface = false;" & vbCrLf
  454.             mStr += "     vValue = null;" & vbCrLf
  455.             mStr += "     break; " & vbCrLf
  456.             mStr += "   case 'imgBoldItalic' :" & vbCrLf
  457.             mStr += "     doCommand (document.all['imgBold'])" & vbCrLf
  458.             mStr += "     doCommand (document.all['imgItalic'])" & vbCrLf
  459.             mStr += "     doCommand (document.all['imgUnderLine'])" & vbCrLf
  460.             mStr += "     break;" & vbCrLf
  462.             mStr += "   case 'imgUnderLine' :" & vbCrLf
  463.             mStr += "     mCommand = 'underline'; " & vbCrLf
  464.             mStr += "     uInterface = false;" & vbCrLf
  465.             mStr += "     vValue = null;" & vbCrLf
  466.             mStr += "     break; " & vbCrLf
  467.             mStr += "   case 'imgStrikeThrough' :" & vbCrLf
  468.             mStr += "     mCommand = 'strikethrough'; " & vbCrLf
  469.             mStr += "     uInterface = false;" & vbCrLf
  470.             mStr += "     vValue = null;" & vbCrLf
  471.             mStr += "     break; " & vbCrLf
  472.             mStr += "   case 'imgAlignLeft' :" & vbCrLf
  473.             mStr += "     mCommand = 'justifyleft'; " & vbCrLf
  474.             mStr += "     uInterface = false;" & vbCrLf
  475.             mStr += "     vValue = null;" & vbCrLf
  476.             mStr += "     break; " & vbCrLf
  477.             mStr += "   case 'imgAlignRight' :" & vbCrLf
  478.             mStr += "     mCommand = 'justifyright';" & vbCrLf
  479.             mStr += "     uInterface = false;" & vbCrLf
  480.             mStr += "     vValue = null;" & vbCrLf
  481.             mStr += "     break; " & vbCrLf
  482.             mStr += "   case 'imgAlignCenter' :" & vbCrLf
  483.             mStr += "     mCommand = 'justifycenter';" & vbCrLf
  484.             mStr += "     uInterface = false;" & vbCrLf
  485.             mStr += "     vValue = null;" & vbCrLf
  486.             mStr += "     break; " & vbCrLf
  487.             mStr += "   case 'imgAlignJustify' :" & vbCrLf
  488.             mStr += "     mCommand = 'justifyfull';" & vbCrLf
  489.             mStr += "     uInterface = false;" & vbCrLf
  490.             mStr += "     vValue = null;" & vbCrLf
  491.             mStr += "     break; " & vbCrLf
  493.             mStr += "   case 'imgCut' :" & vbCrLf
  494.             mStr += "     mCommand = 'cut';" & vbCrLf
  495.             mStr += "     uInterface = false;" & vbCrLf
  496.             mStr += "     vValue = null;" & vbCrLf
  497.             mStr += "     break; " & vbCrLf
  498.             mStr += "   case 'imgCopy' :" & vbCrLf
  499.             mStr += "     mCommand = 'copy';" & vbCrLf
  500.             mStr += "     uInterface = false;" & vbCrLf
  501.             mStr += "     vValue = null;" & vbCrLf
  502.             mStr += "     break; " & vbCrLf
  503.             mStr += "   case 'imgPaste' :" & vbCrLf
  504.             mStr += "     mCommand = 'paste';" & vbCrLf
  505.             mStr += "     uInterface = false;" & vbCrLf
  506.             mStr += "     vValue = null;" & vbCrLf
  507.             mStr += "     break; " & vbCrLf
  508.             mStr += "   case 'imgImage' :" & vbCrLf
  509.             mStr += "     //Note that if we set UserInterface to true and vValue to null, then" & vbCrLf
  510.             mStr += "     //A Dialogue will appear asking for Image location." & vbCrLf
  511.             mStr += "     mCommand = 'insertimage';" & vbCrLf
  512.             mStr += "     uInterface = true;" & vbCrLf
  513.             mStr += "     vValue = null;" & vbCrLf
  514.             mStr += "     break; " & vbCrLf
  515.             mStr += " case 'imgLink' :" & vbCrLf
  516.             mStr += "     mCommand = 'createlink';" & vbCrLf
  517.             mStr += "     uInterface = true;" & vbCrLf
  518.             mStr += "     vValue = null;" & vbCrLf
  519.             mStr += " break; " & vbCrLf
  520.             mStr += " case 'imgLine' :" & vbCrLf
  521.             mStr += " mCommand = 'inserthorizontalrule';" & vbCrLf
  522.             mStr += " uInterface = false;" & vbCrLf
  523.             mStr += " vValue = null;" & vbCrLf
  524.             mStr += " break; " & vbCrLf
  526.             mStr += " case 'imgUndo' :" & vbCrLf
  527.             mStr += " mCommand = 'undo';" & vbCrLf
  528.             mStr += " uInterface = false;" & vbCrLf
  529.             mStr += " vValue = null;" & vbCrLf
  530.             mStr += " break; " & vbCrLf
  531.             mStr += " case 'imgRedo' :" & vbCrLf
  532.             mStr += " mCommand = 'redo';" & vbCrLf
  533.             mStr += " uInterface = false;" & vbCrLf
  534.             mStr += " vValue = null;" & vbCrLf
  535.             mStr += " break; " & vbCrLf
  536.             mStr += " case 'imgOrderList' :" & vbCrLf
  537.             mStr += " mCommand = 'insertorderedlist';" & vbCrLf
  538.             mStr += " uInterface = false;" & vbCrLf
  539.             mStr += " vValue = null;" & vbCrLf
  540.             mStr += " break; " & vbCrLf
  541.             mStr += " case 'imgUnOrderList' :" & vbCrLf
  542.             mStr += " mCommand = 'insertunorderedlist';" & vbCrLf
  543.             mStr += " uInterface = false;" & vbCrLf
  544.             mStr += " vValue = null;" & vbCrLf
  545.             mStr += " break; " & vbCrLf
  546.             mStr += " case 'imgOutdent' :" & vbCrLf
  547.             mStr += " mCommand = 'outdent';" & vbCrLf
  548.             mStr += " uInterface = false;" & vbCrLf
  549.             mStr += " vValue = null;" & vbCrLf
  550.             mStr += " break; " & vbCrLf
  551.             mStr += " case 'imgIndent' :" & vbCrLf
  552.             mStr += " mCommand = 'indent';" & vbCrLf
  553.             mStr += " uInterface = false;" & vbCrLf
  554.             mStr += " vValue = null;" & vbCrLf
  555.             mStr += " break;" & vbCrLf
  557.             mStr += " case 'lstStyle' :" & vbCrLf
  558.             mStr += " mCommand = 'formatblock';" & vbCrLf
  559.             mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ;" & vbCrLf
  560.             mStr += " uInterface = false;" & vbCrLf
  561.             mStr += " break;" & vbCrLf
  563.             'TODO List Font is not working, Check here
  564.             mStr += " case 'lstFontSize' :" & vbCrLf
  565.             mStr += " mCommand = 'fontsize';" & vbCrLf
  566.             mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ;" & vbCrLf
  567.             mStr += " uInterface = false;" & vbCrLf
  568.             mStr += " break;" & vbCrLf
  570.             mStr += " case 'lstFont' :" & vbCrLf
  571.             mStr += " mCommand = 'fontname';" & vbCrLf
  572.             mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ; " & vbCrLf
  573.             mStr += " uInterface = false;" & vbCrLf
  574.             mStr += " break;" & vbCrLf
  575.             mStr += " case 'lstColor' :" & vbCrLf
  576.             mStr += " mCommand = 'forecolor';" & vbCrLf
  577.             mStr += " vValue = ctrl.options[ctrl.selectedIndex].value ; " & vbCrLf
  578.             mStr += " uInterface = false;" & vbCrLf
  579.             mStr += " break; " & vbCrLf
  581.             mStr += " case 'imgDelete' :" & vbCrLf
  582.             mStr += " mCommand = 'delete';" & vbCrLf
  583.             mStr += " vValue = null;" & vbCrLf
  584.             mStr += " uInterface = false;" & vbCrLf
  585.             mStr += " break;" & vbCrLf
  586.             mStr += " case 'imgPrint' :" & vbCrLf
  587.             mStr += " mCommand = 'delete';" & vbCrLf
  588.             mStr += " vValue = null;" & vbCrLf
  589.             mStr += " uInterface = true; " & vbCrLf
  590.             mStr += " break;" & vbCrLf
  591.             mStr += " case 'imgSave' :" & vbCrLf
  592.             mStr += " mCommand = 'saveas';" & vbCrLf
  593.             mStr += " vValue = null;" & vbCrLf
  594.             mStr += " uInterface = true; " & vbCrLf
  595.             mStr += " break;" & vbCrLf
  597.             mStr += " case 'imgCustom' : " & vbCrLf
  598.             mStr += " var temp = table2.style.display;" & vbCrLf
  599.             mStr += " if (temp == 'none')" & vbCrLf
  600.             mStr += " {" & vbCrLf
  601.             mStr += " var mTemp1 = RTFEdit_" & Me.UniqueID & ".document.body.innerText;" & vbCrLf
  602.             mStr += " table1.style.display = 'inline';" & vbCrLf
  603.             mStr += " table2.style.display = 'inline'; " & vbCrLf
  604.             mStr += " RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = mTemp1;" & vbCrLf
  605.             mStr += " }" & vbCrLf
  606.             mStr += "     else" & vbCrLf
  607.             mStr += " { " & vbCrLf
  608.             mStr += " //First Set the  HTMLText in the TextBox" & vbCrLf
  609.             mStr += " var mTemp = RTFEdit_" & Me.UniqueID & ".document.body.innerHTML;" & vbCrLf
  610.             mStr += " table1.style.display = 'none';" & vbCrLf
  611.             mStr += " table2.style.display = 'none'; " & vbCrLf
  612.             mStr += " RTFEdit_" & Me.UniqueID & ".document.body.innerText = mTemp;  " & vbCrLf
  613.             mStr += " }" & vbCrLf
  614.             mStr += " break; " & vbCrLf
  616.             mStr += " case 'imgFontColor' :" & vbCrLf
  617.             mStr += " var oldcolor = GetEditBoxColor('forecolor');     " & vbCrLf
  618.             mStr += " mCommand = 'forecolor';" & vbCrLf
  619.             mStr += " uInterface = false;" & vbCrLf
  620.             mStr += " vValue = GetColorFromUser(oldcolor);" & vbCrLf
  621.             mStr += " break;" & vbCrLf
  623.             mStr += " case 'imgHighLight' : " & vbCrLf
  624.             mStr += " var oldcolor = GetEditBoxColor('backcolor');     " & vbCrLf
  625.             mStr += " mCommand = 'backcolor';" & vbCrLf
  626.             mStr += " uInterface = false;" & vbCrLf
  627.             mStr += " vValue = GetColorFromUser(oldcolor); " & vbCrLf
  628.             mStr += " break;" & vbCrLf
  630.             'TODO Insert Special Characters
  631.             mStr += " case 'imgSpecialChar' :" & vbCrLf
  632.             mStr += " alert ('Special Characters will be provided soon.');" & vbCrLf
  633.             mStr += " return;     " & vbCrLf
  634.             mStr += " break;" & vbCrLf
  636.             mStr += " case 'imgSmile' :" & vbCrLf
  637.             mStr += " var posX    = event.screenX;" & vbCrLf
  638.             mStr += " var posY    = event.screenY + 20;" & vbCrLf
  639.             mStr += " var screenW = screen.width;                                 // screen size" & vbCrLf
  640.             mStr += " var screenH = screen.height - 20;                           // take taskbar into account" & vbCrLf
  641.             mStr += " //if (posX + 232 > screenW) { posX = posX - 232 - 40; }       // if mouse too far right" & vbCrLf
  642.             mStr += " //if (posY + 164 > screenH) { posY = posY - 164 - 80; }       // if mouse too far down" & vbCrLf
  643.             mStr += " var wPosition   = 'dialogLeft:' +posX+ '; dialogTop:' +posY;" & vbCrLf
  644.             mStr += " var newimage = showModalDialog('" & Me.mSmilesFilePath & "', ''," & vbCrLf
  645.             mStr += "             'dialogWidth:" & Me.EmotionsDialogueWidth & "px; dialogHeight: " & Me.EmotionsDialogueHeight & "px; '" & vbCrLf
  646.             mStr += " + 'resizable: no; help: no; status: no; scroll: no; '" & vbCrLf
  647.             mStr += " + wPosition); " & vbCrLf
  649.             'mStr += " var firstpart = location.href ;" & vbCrLf
  650.             'mStr += " var firstpart = firstpart.substr(0, firstpart.lastIndexOf('/'))" & vbCrLf
  651.             mStr += "       if (newimage == null) return;"
  652.             mStr += " newimage = '" & Me.mSmilesPath & "' + '/' + newimage;" & vbCrLf
  653.             mStr += " mCommand = 'insertimage';" & vbCrLf
  654.             mStr += " vValue = newimage;" & vbCrLf
  655.             mStr += " uInterface = false; " & vbCrLf
  656.             mStr += " break;" & vbCrLf
  658.             mStr += " break ;" & vbCrLf
  659.             'TODO Insert About Dialogue
  660.             mStr += " case 'imgAbout' :" & vbCrLf
  661.             mStr += " alert ('HTML Area. Created by Sameers (theAngrycodeR)');" & vbCrLf
  662.             mStr += " break;" & vbCrLf
  664.             mStr += "}" & vbCrLf
  665.             mStr += " RTFEdit_" & Me.UniqueID & ".focus ();" & vbCrLf
  666.             mStr += " RTFEdit_" & Me.UniqueID & ".document.execCommand (mCommand, uInterface, vValue);" & vbCrLf
  667.             mStr += " RTFEdit_" & Me.UniqueID & ".focus ();" & vbCrLf
  668.             mStr += "} " & vbCrLf
  670.             mStr += "function GetColorFromUser(oldcolor)" & vbCrLf
  671.             mStr += "{" & vbCrLf
  672.             mStr += " var posX    = event.screenX;" & vbCrLf
  673.             mStr += " var posY    = event.screenY + 20;" & vbCrLf
  674.             mStr += " var screenW = screen.width;                                 // screen size" & vbCrLf
  675.             mStr += " var screenH = screen.height - 20;                           // take taskbar into account" & vbCrLf
  676.             mStr += " if (posX + 232 > screenW) { posX = posX - 232 - 40; }       // if mouse too far right" & vbCrLf
  677.             mStr += " if (posY + 164 > screenH) { posY = posY - 164 - 80; }       // if mouse too far down" & vbCrLf
  678.             mStr += " var wPosition   = 'dialogLeft:' +posX+ '; dialogTop:' +posY;" & vbCrLf
  680.             mStr += " var newcolor = showModalDialog('" & Me.mColorFilePath & "', oldcolor," & vbCrLf
  681.             mStr += "         'dialogWidth:238px; dialogHeight: 187px; '" & vbCrLf
  682.             mStr += " + 'resizable: no; help: no; status: no; scroll: no; '" & vbCrLf
  683.             mStr += " + wPosition);" & vbCrLf
  685.             mStr += "         return newcolor" & vbCrLf
  686.             mStr += "}" & vbCrLf
  687.             mStr += "function GetEditBoxColor(colorCommand)" & vbCrLf
  688.             mStr += "{" & vbCrLf
  689.             mStr += " return DecimalToRGB(RTFEdit_" & Me.UniqueID & ".document.queryCommandValue(colorCommand));" & vbCrLf
  690.             mStr += "}" & vbCrLf
  692.             mStr += "function DecimalToRGB(value) {" & vbCrLf
  693.             mStr += " var hex_string = '';" & vbCrLf
  694.             mStr += " for (var hexpair = 0; hexpair < 3; hexpair++) {" & vbCrLf
  695.             mStr += "    var byte = value & 0xFF;            // get low byte" & vbCrLf
  696.             mStr += "     value >>= 8;                        // drop low byte" & vbCrLf
  697.             mStr += "     var nybble2 = byte & 0x0F;          // get low nybble (4 bits)" & vbCrLf
  698.             mStr += "     var nybble1 = (byte >> 4) & 0x0F;   // get high nybble" & vbCrLf
  699.             mStr += "     hex_string += nybble1.toString(16); // convert nybble to hex" & vbCrLf
  700.             mStr += "     hex_string += nybble2.toString(16); // convert nybble to hex" & vbCrLf
  701.             mStr += "   }" & vbCrLf
  702.             mStr += " return hex_string.toUpperCase();" & vbCrLf
  703.             mStr += "}" & vbCrLf
  705.             mStr += "</Script>" & vbCrLf
  706.             Return (mStr & vbCrLf)
  707.         End Function
  708.         Private Function GenerateHTMLAreaBody() As String
  709.             Dim mStr As String
  710.             'Start of Main Table which will have three tables
  711.             mStr = "<TABLE align=""center"" class=""tblTable"" cellpadding=0 cellspacing=0>" & vbCrLf
  712.             mStr += "<TR>" & vbCrLf
  713.             mStr += "<TD class=""tdClass"">" & vbCrLf
  715.             'Start Making Frist Table (ie First Row of Toolbar) & vbCrLf
  716.             mStr += " <TABLE id=""table1"" class=""tblTable"">" & vbCrLf
  717.             mStr += " <TR>" & vbCrLf
  718.             mStr += " <td class=""tdClass""><img ID=""imgSave"" alt=""Save"" name=""imgSave"" class=""butClass"" src=""" & mIconsPath & "/save_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  719.             mStr += " <td class=""tdClass""><img ID=""imgUndo"" alt=""Undo"" name=""imgUndo"" class=""butClass"" src=""" & mIconsPath & "/undo_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  720.             mStr += " <td class=""tdClass""><img ID=""imgRedo"" alt=""Redo"" name=""imgRedo"" class=""butClass"" src=""" & mIconsPath & "/redo_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  721.             mStr += " <td class=""tdClass""><img ID=""imgSubScript"" alt=""Subscript"" name=""imgSubScript"" class=""butClass"" src=""" & mIconsPath & "/subscript_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  722.             mStr += " <td class=""tdClass""><img ID=""imgSuperScript"" alt=""SuperScript"" name=""imgSuperScript"" class=""butClass"" src=""" & mIconsPath & "/superscript_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  723.             mStr += " <td class=""tdClass""><img ID=""imgOrderList"" alt=""Ordered List"" name=""imgOrderList"" class=""butClass"" src=""" & mIconsPath & "/orderedlist_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  724.             mStr += " <td class=""tdClass""><img ID=""imgUnOrderList"" alt=""Unordered List"" name=""imgUnOrderList"" class=""butClass"" src=""" & mIconsPath & "/unorderedlist_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  725.             mStr += " <td class=""tdClass""><img alt=""Outdent"" ID=""imgOutdent"" name=""imgOutdent"" class=""butClass"" src=""" & mIconsPath & "/outdent_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  726.             mStr += " <td class=""tdClass""><img alt=""Indent"" ID=""imgIndent"" name=""imgIndent"" class=""butClass"" src=""" & mIconsPath & "/indent_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  727.             mStr += " <td class=""tdClass""> <!-- Insert the Style List -->" & vbCrLf
  728.             mStr += " <select id=""lstStyle"" width=30px onChange=""doCommand(this);"">" & vbCrLf
  729.             mStr += " <option value=""paragraph"">Paragraph</option>" & vbCrLf
  730.             mStr += " <option value=""Heading 1"">H1</option>" & vbCrLf
  731.             mStr += " <option value=""Heading 2"">H2</option>" & vbCrLf
  732.             mStr += " <option value=""Heading 3"">H3</option>" & vbCrLf
  733.             mStr += " <option value=""Heading 4"">H4</option>" & vbCrLf
  734.             mStr += " <option value=""Heading 5"">H5</option>" & vbCrLf
  735.             mStr += " <option value=""Heading 6"">H6</option>" & vbCrLf
  736.             mStr += " <option value=""Heading 7"">H7</option>" & vbCrLf
  737.             mStr += " </select>" & vbCrLf
  738.             mStr += " </td>" & vbCrLf
  739.             mStr += " <td class=""tdClass"">" & vbCrLf
  740.             mStr += " <Select id=""lstFont"" name=""lstFont"" width=30px onChange=""doCommand(this);"">" & vbCrLf
  741.             mStr += " <option value=""Arial"">Arial</option>" & vbCrLf
  742.             mStr += " <option value=""Courier"">Courier</option>" & vbCrLf
  743.             mStr += " <option value=""Sans Serif"">Sans Serif</option>" & vbCrLf
  744.             mStr += " <option value=""Tahoma"">Tahoma</option>" & vbCrLf
  745.             mStr += " <option value=""Verdana"">Verdana</option>" & vbCrLf
  746.             mStr += " <option value=""Wingdings"">Wingdings</option>" & vbCrLf
  747.             mStr += " </Select>" & vbCrLf
  748.             mStr += " </td>" & vbCrLf
  749.             mStr += " <td class=""tdClass"">" & vbCrLf
  750.             mStr += " <select id=""lstFontSize"" onChange=""doCommand(this);"" width=30px>" & vbCrLf
  751.             mStr += " <option value=1>Very Small</option>" & vbCrLf
  752.             mStr += " <option value=2>Small</option>" & vbCrLf
  753.             mStr += " <option value=3>Medium</option>" & vbCrLf
  754.             mStr += " <option value=4>Large</option>" & vbCrLf
  755.             mStr += " <option value=5>Larger</option>" & vbCrLf
  756.             mStr += " <option value=6>Very Large</option>" & vbCrLf
  757.             mStr += " <option value=7>Extra Large</option>" & vbCrLf
  758.             mStr += " </select>" & vbCrLf
  759.             mStr += " </td>" & vbCrLf
  760.             mStr += " </TR>" & vbCrLf
  761.             mStr += " </TABLE>" & vbCrLf
  764.             'End of First Table
  765.             mStr += "</TD>" & vbCrLf
  766.             mStr += "</TR>" & vbCrLf
  768.             'Create Second Table Now
  770.             mStr += " <TR>" & vbCrLf
  771.             mStr += " <TD class=""tdClass"">" & vbCrLf
  772.             mStr += " <TABLE id=""table2"" class=""tblTable"">" & vbCrLf
  773.             mStr += " <TR>" & vbCrLf
  774.             mStr += " <TD class=""tdClass"">" & vbCrLf
  775.             mStr += " <td class=""tdClass""><img ID=""imgBold"" alt=""Bold"" name=""imgBold"" class=""butClass"" src=""" & mIconsPath & "/bold_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  776.             mStr += " <td class=""tdClass""><img ID=""imgItalic"" alt=""Italic"" name=""imgItalic"" class=""butClass"" src=""" & mIconsPath & "/italic_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  777.             mStr += " <td class=""tdClass""><img ID=""imgUnderLine"" alt=""Underline"" name=""imgUnderLine"" class=""butClass"" src=""" & mIconsPath & "/underline_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  778.             mStr += " <td class=""tdClass""><img ID=""imgBoldItalic"" alt=""Bold Italic UnderLine"" name=""imgBoldItalic"" class=""butClass"" src=""" & mIconsPath & "/bolditalicunderline_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  779.             mStr += " <td class=""tdClass""><img ID=""imgStrikeThrough"" alt=""Strike Trhough"" name=""imgStrikeThrough"" class=""butClass"" src=""" & mIconsPath & "/strikethrough_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  780.             mStr += " <td class=""tdClass""><img src=""" & mIconsPath & "/separator.gif""></td>" & vbCrLf
  781.             mStr += " <td class=""tdClass""><img ID=""imgAlignLeft"" alt=""Left Align"" name=""imgAlignLeft"" class=""butClass"" src=""" & mIconsPath & "/alignleft_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  782.             mStr += " <td class=""tdClass""><img ID=""imgAlignCenter"" alt=""Center Align"" name=""imgAlignCenter"" class=""butClass"" src=""" & mIconsPath & "/aligncenter_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  783.             mStr += " <td class=""tdClass""><img ID=""imgAlignRight"" alt=""Right Align"" name=""imgAlignRight"" class=""butClass"" src=""" & mIconsPath & "/alignright_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  784.             mStr += " <td class=""tdClass""><img ID=""imgAlignJustify"" alt=""Justify"" name=""imgAlignJustify"" class=""butClass"" src=""" & mIconsPath & "/alignjustify_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  785.             mStr += " <td class=""tdClass""><img src=""" & mIconsPath & "/separator.gif""></td>" & vbCrLf
  786.             mStr += " <td class=""tdClass""><img ID=""imgCut"" alt=""Cut"" name=""imgCut"" class=""butClass"" src=""" & mIconsPath & "/cut_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  787.             mStr += " <td class=""tdClass""><img ID=""imgCopy"" alt=""Copy"" name=""imgCopy"" class=""butClass"" src=""" & mIconsPath & "/copy_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  788.             mStr += " <td class=""tdClass""><img ID=""imgPaste"" alt=""Paste"" name=""imgPaste"" class=""butClass"" src=""" & mIconsPath & "/paste_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  789.             mStr += " <td class=""tdClass""><img ID=""imgSpecialChar"" alt=""Special Character"" name=""imgSpecialChar"" class=""butClass"" src=""" & mIconsPath & "/specialchars_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  790.             mStr += " <td class=""tdClass""><img src=""" & mIconsPath & "/separator.gif""></td>" & vbCrLf
  791.             mStr += " <td class=""tdClass""><img ID=""imgImage"" alt=""Insert Image"" name=""imgImage"" class=""butClass"" src=""" & mIconsPath & "/image_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  792.             mStr += " <td class=""tdClass""><img ID=""imgLink"" alt=""Hyper Link"" name=""imgLink"" class=""butClass"" src=""" & mIconsPath & "/link_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  793.             mStr += " <td class=""tdClass""><img ID=""imgLine"" alt=""Insert Line"" name=""imgLine"" class=""butClass"" src=""" & mIconsPath & "/line_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  794.             mStr += " <td class=""tdClass""><img ID=""imgFontColor"" alt=""Text Color"" name=""imgFontColor"" class=""butClass"" src=""" & mIconsPath & "/fontcolor_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  795.             mStr += " <td class=""tdClass""><img ID=""imgHighLight"" alt=""Highlight Color"" name=""imgHighLight"" class=""butClass"" src=""" & mIconsPath & "/highlight_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  796.             mStr += " <td class=""tdClass""><img ID=""imgSmile"" alt=""Insert Smiles"" name=""imgSmile"" class=""butClass"" src=""" & mIconsPath & "/1.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)""></td>" & vbCrLf
  797.             mStr += " </TR>" & vbCrLf
  798.             mStr += " </TABLE>" & vbCrLf
  799.             'End of Second Table
  801.             mStr += " </TD>" & vbCrLf
  802.             mStr += "</TR>" & vbCrLf
  804.             'Create Third Table Now
  806.             mStr += " <TR>" & vbCrLf
  807.             mStr += " <TD class=""tdClass"">" & vbCrLf
  808.             mStr += " <TABLE id=""table3"" class=""tblTable"">" & vbCrLf
  809.             mStr += " <TR>" & vbCrLf
  810.             mStr += " <TD class=""tdClass"">" & vbCrLf
  811.             'mStr += " <Form Id=""frmEdit"" name=""frmEdit"">" & vbCrLf
  812.             mStr += " <IFrame name=RTFEdit_" & Me.UniqueID & " ID=RTFEdit_" & Me.UniqueID & " class=""EditControl"" ></IFrame>" & vbCrLf
  813.             mStr += " <Input type=""hidden"" name=" & Me.UniqueID & " ID=" & Me.UniqueID & " value='" & Text & "' >" & vbCrLf
  814.             'mStr += " </Form>" & vbCrLf
  815.             mStr += " </TD>" & vbCrLf
  816.             mStr += " </TR>" & vbCrLf
  817.             mStr += " <TR>" & vbCrLf
  818.             mStr += " <td align=""right"" class=""tdClass"">" & vbCrLf
  819.             mStr += " <img alt=""HTML View"" ID=""imgCustom"" name=""imgCustom"" class=""butClass"" src=""" & mIconsPath & "/customtag_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)"">" & vbCrLf
  820.             mStr += " <img alt=""About"" ID=""imgAbout"" name=""imgAbout"" class=""butClass"" src=""" & mIconsPath & "/about_off.gif"" onMouseOver=""selOn(this)"" onMouseOut=""selOff(this)"" onMouseDown=""selDown(this)"" onMouseUp=""selUp(this)"" onClick=""doCommand(this)"">" & vbCrLf
  821.             mStr += " </td>" & vbCrLf
  822.             mStr += " </TR>" & vbCrLf
  823.             mStr += " </TABLE>" & vbCrLf
  825.             'End of Third Table, Now Close the top most table
  826.             mStr += " </TD>" & vbCrLf
  827.             mStr += " </TR>" & vbCrLf
  828.             mStr += "</TABLE>" & vbCrLf
  831.             'That's all, Now return the HTML String
  832.             Return (mStr & vbCrLf)
  833.         End Function
  834.         Private Function GeneratePostBackScript() As String
  835.             Dim mStr As String
  836.             mStr = "<Script Language=""javascript"" for=RTFEdit_" & Me.UniqueID & " event=""onblur"">" & vbCrLf
  837.             mStr += "var temp = table2.style.display;" & vbCrLf
  838.             mStr += "if (temp == 'none' ) " & vbCrLf
  839.             mStr += "   " & Me.UniqueID & ".value = RTFEdit_" & Me.UniqueID & ".document.body.innerText;" & vbCrLf
  840.             mStr += "else" & vbCrLf
  841.             mStr += "   " & Me.UniqueID & ".value = RTFEdit_" & Me.UniqueID & ".document.body.innerHTML;" & vbCrLf
  842.             mStr += "</Script>" & vbCrLf
  844.             ''Dim mStr1 As String = "RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = " & Me.UniqueID & ".value ;"
  845.             mStr += "<Script Language=""javascript"" for=RTFEdit_" & Me.UniqueID & " event=""onload"">" & vbCrLf
  846.             ''mStr += "setTimeout ('" & mStr1 & "', 3000)"
  847.             'mStr += "<Script Language=javascript>"
  848.             mStr += "RTFEdit_" & Me.UniqueID & ".document.body.innerHTML = '" & Me.Text & "'"
  849.             mStr += "</Script>"
  852.             Return (mStr & vbCrLf)
  853.         End Function
  855.         'Private Function CreateColorPalatte() As String
  856.         '    Dim mStr As String
  858.         '    mStr += "<!-- note: this version of the color picker is optimized for IE 5.5+ only -->"
  860.         '    mStr += "<html><head><title>Select Color</title>"
  861.         '    mStr += "<script language=""javascript"">"
  863.         '    mStr += "function _CloseOnEsc() {"
  864.         '    mStr += "if (event.keyCode == 27) { window.close(); return; }"
  865.         '    mStr += "}"
  867.         '    mStr += "function Init() {                                                       // run on page load"
  868.         '    mStr += "document.body.onkeypress = _CloseOnEsc;"
  870.         '    mStr += "color = window.dialogArguments;"
  871.         '    mStr += "color = ValidateColor(color) || '000000';"
  872.         '    mStr += "View(color);                                                          // set default color"
  873.         '    mStr += "}"
  875.         '    mStr += "function View(color) {                  // preview color"
  876.         '    mStr += "document.all.ColorPreview.style.backgroundColor = '#' + color;"
  877.         '    mStr += "document.all.ColorHex.value = '#' + color;"
  878.         '    mStr += "}"
  880.         '    mStr += "function Set(string) {                   // select color"
  881.         '    mStr += "color = ValidateColor(string);"
  882.         '    mStr += "if (color == null) { alert('Invalid color code: ' + string); }        // invalid color"
  883.         '    mStr += "else {                                                                // valid color"
  884.         '    mStr += "View(color);                          // show selected color"
  885.         '    mStr += "window.returnValue = color;           // set return value"
  886.         '    mStr += "window.close();                       // close dialog"
  887.         '    mStr += "}"
  888.         '    mStr += "}"
  890.         '    mStr += "function ValidateColor(string) {                // return valid color code"
  891.         '    mStr += "string = string || '';"
  892.         '    mStr += "string = string + "";"
  893.         '    mStr += "string = string.toUpperCase();"
  894.         '    mStr += "chars = '0123456789ABCDEF';"
  895.         '    mStr += "out   = '';"
  897.         '    mStr += "for (i=0; i<string.length; i++) {             // remove invalid color chars"
  898.         '    mStr += "schar = string.charAt(i);"
  899.         '    mStr += "if (chars.indexOf(schar) != -1) { out += schar; }"
  900.         '    mStr += "}"
  902.         '    mStr += "if (out.length != 6) { return null; }            // check length"
  903.         '    mStr += "return out;"
  905.         '    mStr += "} "
  907.         '    mStr += "</script>"
  908.         '    mStr += "</head>"
  909.         '    mStr += "<body bgcolor=""#000000"" topmargin=0 leftmargin=0 onload=""Init()"">"
  911.         '    mStr += "<form method=get onSubmit=""Set(document.all.ColorHex.value); return false;"">"
  913.         '    mStr += "<table border=0 cellspacing=0 cellpadding=4 width=100%>"
  914.         '    mStr += "<tr>"
  915.         '    mStr += "<td bgcolor=""buttonface"" valign=center>"
  916.         '    mStr += "<div style=""background-color: #000000; padding: 1; height: 21px; width: 50px"">"
  917.         '    mStr += "<div id=""ColorPreview"" style=""height: 100%; width: 100%""></div></div>"
  918.         '    mStr += "</td>"
  919.         '    mStr += "<td id=""td1"" bgcolor=""buttonface"" valign=center>"
  920.         '    mStr += "<input type=""text"" ID=""ColorHex"" name=""ColorHex"" value="""" size=15 style=""font-size: 12px;"">"
  921.         '    mStr += "</td>"
  922.         '    mStr += "<td bgcolor=""buttonface"" width=100%></td>"
  923.         '    mStr += "</tr>"
  924.         '    mStr += "</table>"
  926.         '    mStr += "<table border=0 cellspacing=1 cellpadding=0 bgcolor=#000000 style=""cursor: hand;"">"
  927.         '    mStr += "<tr>"
  928.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  929.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  930.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  931.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  932.         '    mStr += "<td bgcolor=#003300 onMouseOver=View('003300') onClick=Set('003300') height=10 width=10></td>"
  933.         '    mStr += "<td bgcolor=#006600 onMouseOver=View('006600') onClick=Set('006600') height=10 width=10></td>"
  934.         '    mStr += "<td bgcolor=#009900 onMouseOver=View('009900') onClick=Set('009900') height=10 width=10></td>"
  935.         '    mStr += "<td bgcolor=#00CC00 onMouseOver=View('00CC00') onClick=Set('00CC00') height=10 width=10></td>"
  936.         '    mStr += "<td bgcolor=#00FF00 onMouseOver=View('00FF00') onClick=Set('00FF00') height=10 width=10></td>"
  937.         '    mStr += "<td bgcolor=#330000 onMouseOver=View('330000') onClick=Set('330000') height=10 width=10></td>"
  938.         '    mStr += "<td bgcolor=#333300 onMouseOver=View('333300') onClick=Set('333300') height=10 width=10></td>"
  939.         '    mStr += "<td bgcolor=#336600 onMouseOver=View('336600') onClick=Set('336600') height=10 width=10></td>"
  940.         '    mStr += "<td bgcolor=#339900 onMouseOver=View('339900') onClick=Set('339900') height=10 width=10></td>"
  941.         '    mStr += "<td bgcolor=#33CC00 onMouseOver=View('33CC00') onClick=Set('33CC00') height=10 width=10></td>"
  942.         '    mStr += "<td bgcolor=#33FF00 onMouseOver=View('33FF00') onClick=Set('33FF00') height=10 width=10></td>"
  943.         '    mStr += "<td bgcolor=#660000 onMouseOver=View('660000') onClick=Set('660000') height=10 width=10></td>"
  944.         '    mStr += "<td bgcolor=#663300 onMouseOver=View('663300') onClick=Set('663300') height=10 width=10></td>"
  945.         '    mStr += "<td bgcolor=#666600 onMouseOver=View('666600') onClick=Set('666600') height=10 width=10></td>"
  946.         '    mStr += "<td bgcolor=#669900 onMouseOver=View('669900') onClick=Set('669900') height=10 width=10></td>"
  947.         '    mStr += "<td bgcolor=#66CC00 onMouseOver=View('66CC00') onClick=Set('66CC00') height=10 width=10></td>"
  948.         '    mStr += "<td bgcolor=#66FF00 onMouseOver=View('66FF00') onClick=Set('66FF00') height=10 width=10></td>"
  949.         '    mStr += "</tr>"
  950.         '    mStr += "<tr>"
  951.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  952.         '    mStr += "<td bgcolor=#333333 onMouseOver=View('333333') onClick=Set('333333') height=10 width=10></td>"
  953.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  954.         '    mStr += "<td bgcolor=#000033 onMouseOver=View('000033') onClick=Set('000033') height=10 width=10></td>"
  955.         '    mStr += "<td bgcolor=#003333 onMouseOver=View('003333') onClick=Set('003333') height=10 width=10></td>"
  956.         '    mStr += "<td bgcolor=#006633 onMouseOver=View('006633') onClick=Set('006633') height=10 width=10></td>"
  957.         '    mStr += "<td bgcolor=#009933 onMouseOver=View('009933') onClick=Set('009933') height=10 width=10></td>"
  958.         '    mStr += "<td bgcolor=#00CC33 onMouseOver=View('00CC33') onClick=Set('00CC33') height=10 width=10></td>"
  959.         '    mStr += "<td bgcolor=#00FF33 onMouseOver=View('00FF33') onClick=Set('00FF33') height=10 width=10></td>"
  960.         '    mStr += "<td bgcolor=#330033 onMouseOver=View('330033') onClick=Set('330033') height=10 width=10></td>"
  961.         '    mStr += "<td bgcolor=#333333 onMouseOver=View('333333') onClick=Set('333333') height=10 width=10></td>"
  962.         '    mStr += "<td bgcolor=#336633 onMouseOver=View('336633') onClick=Set('336633') height=10 width=10></td>"
  963.         '    mStr += "<td bgcolor=#339933 onMouseOver=View('339933') onClick=Set('339933') height=10 width=10></td>"
  964.         '    mStr += "<td bgcolor=#33CC33 onMouseOver=View('33CC33') onClick=Set('33CC33') height=10 width=10></td>"
  965.         '    mStr += "<td bgcolor=#33FF33 onMouseOver=View('33FF33') onClick=Set('33FF33') height=10 width=10></td>"
  966.         '    mStr += "<td bgcolor=#660033 onMouseOver=View('660033') onClick=Set('660033') height=10 width=10></td>"
  967.         '    mStr += "<td bgcolor=#663333 onMouseOver=View('663333') onClick=Set('663333') height=10 width=10></td>"
  968.         '    mStr += "<td bgcolor=#666633 onMouseOver=View('666633') onClick=Set('666633') height=10 width=10></td>"
  969.         '    mStr += "<td bgcolor=#669933 onMouseOver=View('669933') onClick=Set('669933') height=10 width=10></td>"
  970.         '    mStr += "<td bgcolor=#66CC33 onMouseOver=View('66CC33') onClick=Set('66CC33') height=10 width=10></td>"
  971.         '    mStr += "<td bgcolor=#66FF33 onMouseOver=View('66FF33') onClick=Set('66FF33') height=10 width=10></td>"
  972.         '    mStr += "</tr>"
  973.         '    mStr += "<tr>"
  974.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  975.         '    mStr += "<td bgcolor=#666666 onMouseOver=View('666666') onClick=Set('666666') height=10 width=10></td>"
  976.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  977.         '    mStr += "<td bgcolor=#000066 onMouseOver=View('000066') onClick=Set('000066') height=10 width=10></td>"
  978.         '    mStr += "<td bgcolor=#003366 onMouseOver=View('003366') onClick=Set('003366') height=10 width=10></td>"
  979.         '    mStr += "<td bgcolor=#006666 onMouseOver=View('006666') onClick=Set('006666') height=10 width=10></td>"
  980.         '    mStr += "<td bgcolor=#009966 onMouseOver=View('009966') onClick=Set('009966') height=10 width=10></td>"
  981.         '    mStr += "<td bgcolor=#00CC66 onMouseOver=View('00CC66') onClick=Set('00CC66') height=10 width=10></td>"
  982.         '    mStr += "<td bgcolor=#00FF66 onMouseOver=View('00FF66') onClick=Set('00FF66') height=10 width=10></td>"
  983.         '    mStr += "<td bgcolor=#330066 onMouseOver=View('330066') onClick=Set('330066') height=10 width=10></td>"
  984.         '    mStr += "<td bgcolor=#333366 onMouseOver=View('333366') onClick=Set('333366') height=10 width=10></td>"
  985.         '    mStr += "<td bgcolor=#336666 onMouseOver=View('336666') onClick=Set('336666') height=10 width=10></td>"
  986.         '    mStr += "<td bgcolor=#339966 onMouseOver=View('339966') onClick=Set('339966') height=10 width=10></td>"
  987.         '    mStr += "<td bgcolor=#33CC66 onMouseOver=View('33CC66') onClick=Set('33CC66') height=10 width=10></td>"
  988.         '    mStr += "<td bgcolor=#33FF66 onMouseOver=View('33FF66') onClick=Set('33FF66') height=10 width=10></td>"
  989.         '    mStr += "<td bgcolor=#660066 onMouseOver=View('660066') onClick=Set('660066') height=10 width=10></td>"
  990.         '    mStr += "<td bgcolor=#663366 onMouseOver=View('663366') onClick=Set('663366') height=10 width=10></td>"
  991.         '    mStr += "<td bgcolor=#666666 onMouseOver=View('666666') onClick=Set('666666') height=10 width=10></td>"
  992.         '    mStr += "<td bgcolor=#669966 onMouseOver=View('669966') onClick=Set('669966') height=10 width=10></td>"
  993.         '    mStr += "<td bgcolor=#66CC66 onMouseOver=View('66CC66') onClick=Set('66CC66') height=10 width=10></td>"
  994.         '    mStr += "<td bgcolor=#66FF66 onMouseOver=View('66FF66') onClick=Set('66FF66') height=10 width=10></td>"
  995.         '    mStr += "</tr>"
  996.         '    mStr += "<tr>"
  997.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  998.         '    mStr += "<td bgcolor=#999999 onMouseOver=View('999999') onClick=Set('999999') height=10 width=10></td>"
  999.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1000.         '    mStr += "<td bgcolor=#000099 onMouseOver=View('000099') onClick=Set('000099') height=10 width=10></td>"
  1001.         '    mStr += "<td bgcolor=#003399 onMouseOver=View('003399') onClick=Set('003399') height=10 width=10></td>"
  1002.         '    mStr += "<td bgcolor=#006699 onMouseOver=View('006699') onClick=Set('006699') height=10 width=10></td>"
  1003.         '    mStr += "<td bgcolor=#009999 onMouseOver=View('009999') onClick=Set('009999') height=10 width=10></td>"
  1004.         '    mStr += "<td bgcolor=#00CC99 onMouseOver=View('00CC99') onClick=Set('00CC99') height=10 width=10></td>"
  1005.         '    mStr += "<td bgcolor=#00FF99 onMouseOver=View('00FF99') onClick=Set('00FF99') height=10 width=10></td>"
  1006.         '    mStr += "<td bgcolor=#330099 onMouseOver=View('330099') onClick=Set('330099') height=10 width=10></td>"
  1007.         '    mStr += "<td bgcolor=#333399 onMouseOver=View('333399') onClick=Set('333399') height=10 width=10></td>"
  1008.         '    mStr += "<td bgcolor=#336699 onMouseOver=View('336699') onClick=Set('336699') height=10 width=10></td>"
  1009.         '    mStr += "<td bgcolor=#339999 onMouseOver=View('339999') onClick=Set('339999') height=10 width=10></td>"
  1010.         '    mStr += "<td bgcolor=#33CC99 onMouseOver=View('33CC99') onClick=Set('33CC99') height=10 width=10></td>"
  1011.         '    mStr += "<td bgcolor=#33FF99 onMouseOver=View('33FF99') onClick=Set('33FF99') height=10 width=10></td>"
  1012.         '    mStr += "<td bgcolor=#660099 onMouseOver=View('660099') onClick=Set('660099') height=10 width=10></td>"
  1013.         '    mStr += "<td bgcolor=#663399 onMouseOver=View('663399') onClick=Set('663399') height=10 width=10></td>"
  1014.         '    mStr += "<td bgcolor=#666699 onMouseOver=View('666699') onClick=Set('666699') height=10 width=10></td>"
  1015.         '    mStr += "<td bgcolor=#669999 onMouseOver=View('669999') onClick=Set('669999') height=10 width=10></td>"
  1016.         '    mStr += "<td bgcolor=#66CC99 onMouseOver=View('66CC99') onClick=Set('66CC99') height=10 width=10></td>"
  1017.         '    mStr += "<td bgcolor=#66FF99 onMouseOver=View('66FF99') onClick=Set('66FF99') height=10 width=10></td>"
  1018.         '    mStr += "</tr>"
  1019.         '    mStr += "<tr>"
  1020.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1021.         '    mStr += "<td bgcolor=#CCCCCC onMouseOver=View('CCCCCC') onClick=Set('CCCCCC') height=10 width=10></td>"
  1022.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1023.         '    mStr += "<td bgcolor=#0000CC onMouseOver=View('0000CC') onClick=Set('0000CC') height=10 width=10></td>"
  1024.         '    mStr += "<td bgcolor=#0033CC onMouseOver=View('0033CC') onClick=Set('0033CC') height=10 width=10></td>"
  1025.         '    mStr += "<td bgcolor=#0066CC onMouseOver=View('0066CC') onClick=Set('0066CC') height=10 width=10></td>"
  1026.         '    mStr += "<td bgcolor=#0099CC onMouseOver=View('0099CC') onClick=Set('0099CC') height=10 width=10></td>"
  1027.         '    mStr += "<td bgcolor=#00CCCC onMouseOver=View('00CCCC') onClick=Set('00CCCC') height=10 width=10></td>"
  1028.         '    mStr += "<td bgcolor=#00FFCC onMouseOver=View('00FFCC') onClick=Set('00FFCC') height=10 width=10></td>"
  1029.         '    mStr += "<td bgcolor=#3300CC onMouseOver=View('3300CC') onClick=Set('3300CC') height=10 width=10></td>"
  1030.         '    mStr += "<td bgcolor=#3333CC onMouseOver=View('3333CC') onClick=Set('3333CC') height=10 width=10></td>"
  1031.         '    mStr += "<td bgcolor=#3366CC onMouseOver=View('3366CC') onClick=Set('3366CC') height=10 width=10></td>"
  1032.         '    mStr += "<td bgcolor=#3399CC onMouseOver=View('3399CC') onClick=Set('3399CC') height=10 width=10></td>"
  1033.         '    mStr += "<td bgcolor=#33CCCC onMouseOver=View('33CCCC') onClick=Set('33CCCC') height=10 width=10></td>"
  1034.         '    mStr += "<td bgcolor=#33FFCC onMouseOver=View('33FFCC') onClick=Set('33FFCC') height=10 width=10></td>"
  1035.         '    mStr += "<td bgcolor=#6600CC onMouseOver=View('6600CC') onClick=Set('6600CC') height=10 width=10></td>"
  1036.         '    mStr += "<td bgcolor=#6633CC onMouseOver=View('6633CC') onClick=Set('6633CC') height=10 width=10></td>"
  1037.         '    mStr += "<td bgcolor=#6666CC onMouseOver=View('6666CC') onClick=Set('6666CC') height=10 width=10></td>"
  1038.         '    mStr += "<td bgcolor=#6699CC onMouseOver=View('6699CC') onClick=Set('6699CC') height=10 width=10></td>"
  1039.         '    mStr += "<td bgcolor=#66CCCC onMouseOver=View('66CCCC') onClick=Set('66CCCC') height=10 width=10></td>"
  1040.         '    mStr += "<td bgcolor=#66FFCC onMouseOver=View('66FFCC') onClick=Set('66FFCC') height=10 width=10></td>"
  1041.         '    mStr += "</tr>"
  1042.         '    mStr += "<tr>"
  1043.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1044.         '    mStr += "<td bgcolor=#FFFFFF onMouseOver=View('FFFFFF') onClick=Set('FFFFFF') height=10 width=10></td>"
  1045.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1046.         '    mStr += "<td bgcolor=#0000FF onMouseOver=View('0000FF') onClick=Set('0000FF') height=10 width=10></td>"
  1047.         '    mStr += "<td bgcolor=#0033FF onMouseOver=View('0033FF') onClick=Set('0033FF') height=10 width=10></td>"
  1048.         '    mStr += "<td bgcolor=#0066FF onMouseOver=View('0066FF') onClick=Set('0066FF') height=10 width=10></td>"
  1049.         '    mStr += "<td bgcolor=#0099FF onMouseOver=View('0099FF') onClick=Set('0099FF') height=10 width=10></td>"
  1050.         '    mStr += "<td bgcolor=#00CCFF onMouseOver=View('00CCFF') onClick=Set('00CCFF') height=10 width=10></td>"
  1051.         '    mStr += "<td bgcolor=#00FFFF onMouseOver=View('00FFFF') onClick=Set('00FFFF') height=10 width=10></td>"
  1052.         '    mStr += "<td bgcolor=#3300FF onMouseOver=View('3300FF') onClick=Set('3300FF') height=10 width=10></td>"
  1053.         '    mStr += "<td bgcolor=#3333FF onMouseOver=View('3333FF') onClick=Set('3333FF') height=10 width=10></td>"
  1054.         '    mStr += "<td bgcolor=#3366FF onMouseOver=View('3366FF') onClick=Set('3366FF') height=10 width=10></td>"
  1055.         '    mStr += "<td bgcolor=#3399FF onMouseOver=View('3399FF') onClick=Set('3399FF') height=10 width=10></td>"
  1056.         '    mStr += "<td bgcolor=#33CCFF onMouseOver=View('33CCFF') onClick=Set('33CCFF') height=10 width=10></td>"
  1057.         '    mStr += "<td bgcolor=#33FFFF onMouseOver=View('33FFFF') onClick=Set('33FFFF') height=10 width=10></td>"
  1058.         '    mStr += "<td bgcolor=#6600FF onMouseOver=View('6600FF') onClick=Set('6600FF') height=10 width=10></td>"
  1059.         '    mStr += "<td bgcolor=#6633FF onMouseOver=View('6633FF') onClick=Set('6633FF') height=10 width=10></td>"
  1060.         '    mStr += "<td bgcolor=#6666FF onMouseOver=View('6666FF') onClick=Set('6666FF') height=10 width=10></td>"
  1061.         '    mStr += "<td bgcolor=#6699FF onMouseOver=View('6699FF') onClick=Set('6699FF') height=10 width=10></td>"
  1062.         '    mStr += "<td bgcolor=#66CCFF onMouseOver=View('66CCFF') onClick=Set('66CCFF') height=10 width=10></td>"
  1063.         '    mStr += "<td bgcolor=#66FFFF onMouseOver=View('66FFFF') onClick=Set('66FFFF') height=10 width=10></td>"
  1064.         '    mStr += "</tr>"
  1065.         '    mStr += "<tr>"
  1066.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1067.         '    mStr += "<td bgcolor=#FF0000 onMouseOver=View('FF0000') onClick=Set('FF0000') height=10 width=10></td>"
  1068.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1069.         '    mStr += "<td bgcolor=#990000 onMouseOver=View('990000') onClick=Set('990000') height=10 width=10></td>"
  1070.         '    mStr += "<td bgcolor=#993300 onMouseOver=View('993300') onClick=Set('993300') height=10 width=10></td>"
  1071.         '    mStr += "<td bgcolor=#996600 onMouseOver=View('996600') onClick=Set('996600') height=10 width=10></td>"
  1072.         '    mStr += "<td bgcolor=#999900 onMouseOver=View('999900') onClick=Set('999900') height=10 width=10></td>"
  1073.         '    mStr += "<td bgcolor=#99CC00 onMouseOver=View('99CC00') onClick=Set('99CC00') height=10 width=10></td>"
  1074.         '    mStr += "<td bgcolor=#99FF00 onMouseOver=View('99FF00') onClick=Set('99FF00') height=10 width=10></td>"
  1075.         '    mStr += "<td bgcolor=#CC0000 onMouseOver=View('CC0000') onClick=Set('CC0000') height=10 width=10></td>"
  1076.         '    mStr += "<td bgcolor=#CC3300 onMouseOver=View('CC3300') onClick=Set('CC3300') height=10 width=10></td>"
  1077.         '    mStr += "<td bgcolor=#CC6600 onMouseOver=View('CC6600') onClick=Set('CC6600') height=10 width=10></td>"
  1078.         '    mStr += "<td bgcolor=#CC9900 onMouseOver=View('CC9900') onClick=Set('CC9900') height=10 width=10></td>"
  1079.         '    mStr += "<td bgcolor=#CCCC00 onMouseOver=View('CCCC00') onClick=Set('CCCC00') height=10 width=10></td>"
  1080.         '    mStr += "<td bgcolor=#CCFF00 onMouseOver=View('CCFF00') onClick=Set('CCFF00') height=10 width=10></td>"
  1081.         '    mStr += "<td bgcolor=#FF0000 onMouseOver=View('FF0000') onClick=Set('FF0000') height=10 width=10></td>"
  1082.         '    mStr += "<td bgcolor=#FF3300 onMouseOver=View('FF3300') onClick=Set('FF3300') height=10 width=10></td>"
  1083.         '    mStr += "<td bgcolor=#FF6600 onMouseOver=View('FF6600') onClick=Set('FF6600') height=10 width=10></td>"
  1084.         '    mStr += "<td bgcolor=#FF9900 onMouseOver=View('FF9900') onClick=Set('FF9900') height=10 width=10></td>"
  1085.         '    mStr += "<td bgcolor=#FFCC00 onMouseOver=View('FFCC00') onClick=Set('FFCC00') height=10 width=10></td>"
  1086.         '    mStr += "<td bgcolor=#FFFF00 onMouseOver=View('FFFF00') onClick=Set('FFFF00') height=10 width=10></td>"
  1087.         '    mStr += "</tr>"
  1088.         '    mStr += "<tr>"
  1089.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1090.         '    mStr += "<td bgcolor=#00FF00 onMouseOver=View('00FF00') onClick=Set('00FF00') height=10 width=10></td>"
  1091.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1092.         '    mStr += "<td bgcolor=#990033 onMouseOver=View('990033') onClick=Set('990033') height=10 width=10></td>"
  1093.         '    mStr += "<td bgcolor=#993333 onMouseOver=View('993333') onClick=Set('993333') height=10 width=10></td>"
  1094.         '    mStr += "<td bgcolor=#996633 onMouseOver=View('996633') onClick=Set('996633') height=10 width=10></td>"
  1095.         '    mStr += "<td bgcolor=#999933 onMouseOver=View('999933') onClick=Set('999933') height=10 width=10></td>"
  1096.         '    mStr += "<td bgcolor=#99CC33 onMouseOver=View('99CC33') onClick=Set('99CC33') height=10 width=10></td>"
  1097.         '    mStr += "<td bgcolor=#99FF33 onMouseOver=View('99FF33') onClick=Set('99FF33') height=10 width=10></td>"
  1098.         '    mStr += "<td bgcolor=#CC0033 onMouseOver=View('CC0033') onClick=Set('CC0033') height=10 width=10></td>"
  1099.         '    mStr += "<td bgcolor=#CC3333 onMouseOver=View('CC3333') onClick=Set('CC3333') height=10 width=10></td>"
  1100.         '    mStr += "<td bgcolor=#CC6633 onMouseOver=View('CC6633') onClick=Set('CC6633') height=10 width=10></td>"
  1101.         '    mStr += "<td bgcolor=#CC9933 onMouseOver=View('CC9933') onClick=Set('CC9933') height=10 width=10></td>"
  1102.         '    mStr += "<td bgcolor=#CCCC33 onMouseOver=View('CCCC33') onClick=Set('CCCC33') height=10 width=10></td>"
  1103.         '    mStr += "<td bgcolor=#CCFF33 onMouseOver=View('CCFF33') onClick=Set('CCFF33') height=10 width=10></td>"
  1104.         '    mStr += "<td bgcolor=#FF0033 onMouseOver=View('FF0033') onClick=Set('FF0033') height=10 width=10></td>"
  1105.         '    mStr += "<td bgcolor=#FF3333 onMouseOver=View('FF3333') onClick=Set('FF3333') height=10 width=10></td>"
  1106.         '    mStr += "<td bgcolor=#FF6633 onMouseOver=View('FF6633') onClick=Set('FF6633') height=10 width=10></td>"
  1107.         '    mStr += "<td bgcolor=#FF9933 onMouseOver=View('FF9933') onClick=Set('FF9933') height=10 width=10></td>"
  1108.         '    mStr += "<td bgcolor=#FFCC33 onMouseOver=View('FFCC33') onClick=Set('FFCC33') height=10 width=10></td>"
  1109.         '    mStr += "<td bgcolor=#FFFF33 onMouseOver=View('FFFF33') onClick=Set('FFFF33') height=10 width=10></td>"
  1110.         '    mStr += "</tr>"
  1111.         '    mStr += "<tr>"
  1112.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1113.         '    mStr += "<td bgcolor=#0000FF onMouseOver=View('0000FF') onClick=Set('0000FF') height=10 width=10></td>"
  1114.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1115.         '    mStr += "<td bgcolor=#990066 onMouseOver=View('990066') onClick=Set('990066') height=10 width=10></td>"
  1116.         '    mStr += "<td bgcolor=#993366 onMouseOver=View('993366') onClick=Set('993366') height=10 width=10></td>"
  1117.         '    mStr += "<td bgcolor=#996666 onMouseOver=View('996666') onClick=Set('996666') height=10 width=10></td>"
  1118.         '    mStr += "<td bgcolor=#999966 onMouseOver=View('999966') onClick=Set('999966') height=10 width=10></td>"
  1119.         '    mStr += "<td bgcolor=#99CC66 onMouseOver=View('99CC66') onClick=Set('99CC66') height=10 width=10></td>"
  1120.         '    mStr += "<td bgcolor=#99FF66 onMouseOver=View('99FF66') onClick=Set('99FF66') height=10 width=10></td>"
  1121.         '    mStr += "<td bgcolor=#CC0066 onMouseOver=View('CC0066') onClick=Set('CC0066') height=10 width=10></td>"
  1122.         '    mStr += "<td bgcolor=#CC3366 onMouseOver=View('CC3366') onClick=Set('CC3366') height=10 width=10></td>"
  1123.         '    mStr += "<td bgcolor=#CC6666 onMouseOver=View('CC6666') onClick=Set('CC6666') height=10 width=10></td>"
  1124.         '    mStr += "<td bgcolor=#CC9966 onMouseOver=View('CC9966') onClick=Set('CC9966') height=10 width=10></td>"
  1125.         '    mStr += "<td bgcolor=#CCCC66 onMouseOver=View('CCCC66') onClick=Set('CCCC66') height=10 width=10></td>"
  1126.         '    mStr += "<td bgcolor=#CCFF66 onMouseOver=View('CCFF66') onClick=Set('CCFF66') height=10 width=10></td>"
  1127.         '    mStr += "<td bgcolor=#FF0066 onMouseOver=View('FF0066') onClick=Set('FF0066') height=10 width=10></td>"
  1128.         '    mStr += "<td bgcolor=#FF3366 onMouseOver=View('FF3366') onClick=Set('FF3366') height=10 width=10></td>"
  1129.         '    mStr += "<td bgcolor=#FF6666 onMouseOver=View('FF6666') onClick=Set('FF6666') height=10 width=10></td>"
  1130.         '    mStr += "<td bgcolor=#FF9966 onMouseOver=View('FF9966') onClick=Set('FF9966') height=10 width=10></td>"
  1131.         '    mStr += "<td bgcolor=#FFCC66 onMouseOver=View('FFCC66') onClick=Set('FFCC66') height=10 width=10></td>"
  1132.         '    mStr += "<td bgcolor=#FFFF66 onMouseOver=View('FFFF66') onClick=Set('FFFF66') height=10 width=10></td>"
  1133.         '    mStr += "</tr>"
  1134.         '    mStr += "<tr>"
  1135.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1136.         '    mStr += "<td bgcolor=#FFFF00 onMouseOver=View('FFFF00') onClick=Set('FFFF00') height=10 width=10></td>"
  1137.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1138.         '    mStr += "<td bgcolor=#990099 onMouseOver=View('990099') onClick=Set('990099') height=10 width=10></td>"
  1139.         '    mStr += "<td bgcolor=#993399 onMouseOver=View('993399') onClick=Set('993399') height=10 width=10></td>"
  1140.         '    mStr += "<td bgcolor=#996699 onMouseOver=View('996699') onClick=Set('996699') height=10 width=10></td>"
  1141.         '    mStr += "<td bgcolor=#999999 onMouseOver=View('999999') onClick=Set('999999') height=10 width=10></td>"
  1142.         '    mStr += "<td bgcolor=#99CC99 onMouseOver=View('99CC99') onClick=Set('99CC99') height=10 width=10></td>"
  1143.         '    mStr += "<td bgcolor=#99FF99 onMouseOver=View('99FF99') onClick=Set('99FF99') height=10 width=10></td>"
  1144.         '    mStr += "<td bgcolor=#CC0099 onMouseOver=View('CC0099') onClick=Set('CC0099') height=10 width=10></td>"
  1145.         '    mStr += "<td bgcolor=#CC3399 onMouseOver=View('CC3399') onClick=Set('CC3399') height=10 width=10></td>"
  1146.         '    mStr += "<td bgcolor=#CC6699 onMouseOver=View('CC6699') onClick=Set('CC6699') height=10 width=10></td>"
  1147.         '    mStr += "<td bgcolor=#CC9999 onMouseOver=View('CC9999') onClick=Set('CC9999') height=10 width=10></td>"
  1148.         '    mStr += "<td bgcolor=#CCCC99 onMouseOver=View('CCCC99') onClick=Set('CCCC99') height=10 width=10></td>"
  1149.         '    mStr += "<td bgcolor=#CCFF99 onMouseOver=View('CCFF99') onClick=Set('CCFF99') height=10 width=10></td>"
  1150.         '    mStr += "<td bgcolor=#FF0099 onMouseOver=View('FF0099') onClick=Set('FF0099') height=10 width=10></td>"
  1151.         '    mStr += "<td bgcolor=#FF3399 onMouseOver=View('FF3399') onClick=Set('FF3399') height=10 width=10></td>"
  1152.         '    mStr += "<td bgcolor=#FF6699 onMouseOver=View('FF6699') onClick=Set('FF6699') height=10 width=10></td>"
  1153.         '    mStr += "<td bgcolor=#FF9999 onMouseOver=View('FF9999') onClick=Set('FF9999') height=10 width=10></td>"
  1154.         '    mStr += "<td bgcolor=#FFCC99 onMouseOver=View('FFCC99') onClick=Set('FFCC99') height=10 width=10></td>"
  1155.         '    mStr += "<td bgcolor=#FFFF99 onMouseOver=View('FFFF99') onClick=Set('FFFF99') height=10 width=10></td>"
  1156.         '    mStr += "</tr>"
  1157.         '    mStr += "<tr>"
  1158.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1159.         '    mStr += "<td bgcolor=#00FFFF onMouseOver=View('00FFFF') onClick=Set('00FFFF') height=10 width=10></td>"
  1160.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1161.         '    mStr += "<td bgcolor=#9900CC onMouseOver=View('9900CC') onClick=Set('9900CC') height=10 width=10></td>"
  1162.         '    mStr += "<td bgcolor=#9933CC onMouseOver=View('9933CC') onClick=Set('9933CC') height=10 width=10></td>"
  1163.         '    mStr += "<td bgcolor=#9966CC onMouseOver=View('9966CC') onClick=Set('9966CC') height=10 width=10></td>"
  1164.         '    mStr += "<td bgcolor=#9999CC onMouseOver=View('9999CC') onClick=Set('9999CC') height=10 width=10></td>"
  1165.         '    mStr += "<td bgcolor=#99CCCC onMouseOver=View('99CCCC') onClick=Set('99CCCC') height=10 width=10></td>"
  1166.         '    mStr += "<td bgcolor=#99FFCC onMouseOver=View('99FFCC') onClick=Set('99FFCC') height=10 width=10></td>"
  1167.         '    mStr += "<td bgcolor=#CC00CC onMouseOver=View('CC00CC') onClick=Set('CC00CC') height=10 width=10></td>"
  1168.         '    mStr += "<td bgcolor=#CC33CC onMouseOver=View('CC33CC') onClick=Set('CC33CC') height=10 width=10></td>"
  1169.         '    mStr += "<td bgcolor=#CC66CC onMouseOver=View('CC66CC') onClick=Set('CC66CC') height=10 width=10></td>"
  1170.         '    mStr += "<td bgcolor=#CC99CC onMouseOver=View('CC99CC') onClick=Set('CC99CC') height=10 width=10></td>"
  1171.         '    mStr += "<td bgcolor=#CCCCCC onMouseOver=View('CCCCCC') onClick=Set('CCCCCC') height=10 width=10></td>"
  1172.         '    mStr += "<td bgcolor=#CCFFCC onMouseOver=View('CCFFCC') onClick=Set('CCFFCC') height=10 width=10></td>"
  1173.         '    mStr += "<td bgcolor=#FF00CC onMouseOver=View('FF00CC') onClick=Set('FF00CC') height=10 width=10></td>"
  1174.         '    mStr += "<td bgcolor=#FF33CC onMouseOver=View('FF33CC') onClick=Set('FF33CC') height=10 width=10></td>"
  1175.         '    mStr += "<td bgcolor=#FF66CC onMouseOver=View('FF66CC') onClick=Set('FF66CC') height=10 width=10></td>"
  1176.         '    mStr += "<td bgcolor=#FF99CC onMouseOver=View('FF99CC') onClick=Set('FF99CC') height=10 width=10></td>"
  1177.         '    mStr += "<td bgcolor=#FFCCCC onMouseOver=View('FFCCCC') onClick=Set('FFCCCC') height=10 width=10></td>"
  1178.         '    mStr += "<td bgcolor=#FFFFCC onMouseOver=View('FFFFCC') onClick=Set('FFFFCC') height=10 width=10></td>"
  1179.         '    mStr += "</tr>"
  1180.         '    mStr += "<tr>"
  1181.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1182.         '    mStr += "<td bgcolor=#FF00FF onMouseOver=View('FF00FF') onClick=Set('FF00FF') height=10 width=10></td>"
  1183.         '    mStr += "<td bgcolor=#000000 onMouseOver=View('000000') onClick=Set('000000') height=10 width=10></td>"
  1184.         '    mStr += "<td bgcolor=#9900FF onMouseOver=View('9900FF') onClick=Set('9900FF') height=10 width=10></td>"
  1185.         '    mStr += "<td bgcolor=#9933FF onMouseOver=View('9933FF') onClick=Set('9933FF') height=10 width=10></td>"
  1186.         '    mStr += "<td bgcolor=#9966FF onMouseOver=View('9966FF') onClick=Set('9966FF') height=10 width=10></td>"
  1187.         '    mStr += "<td bgcolor=#9999FF onMouseOver=View('9999FF') onClick=Set('9999FF') height=10 width=10></td>"
  1188.         '    mStr += "<td bgcolor=#99CCFF onMouseOver=View('99CCFF') onClick=Set('99CCFF') height=10 width=10></td>"
  1189.         '    mStr += "<td bgcolor=#99FFFF onMouseOver=View('99FFFF') onClick=Set('99FFFF') height=10 width=10></td>"
  1190.         '    mStr += "<td bgcolor=#CC00FF onMouseOver=View('CC00FF') onClick=Set('CC00FF') height=10 width=10></td>"
  1191.         '    mStr += "<td bgcolor=#CC33FF onMouseOver=View('CC33FF') onClick=Set('CC33FF') height=10 width=10></td>"
  1192.         '    mStr += "<td bgcolor=#CC66FF onMouseOver=View('CC66FF') onClick=Set('CC66FF') height=10 width=10></td>"
  1193.         '    mStr += "<td bgcolor=#CC99FF onMouseOver=View('CC99FF') onClick=Set('CC99FF') height=10 width=10></td>"
  1194.         '    mStr += "<td bgcolor=#CCCCFF onMouseOver=View('CCCCFF') onClick=Set('CCCCFF') height=10 width=10></td>"
  1195.         '    mStr += "<td bgcolor=#CCFFFF onMouseOver=View('CCFFFF') onClick=Set('CCFFFF') height=10 width=10></td>"
  1196.         '    mStr += "<td bgcolor=#FF00FF onMouseOver=View('FF00FF') onClick=Set('FF00FF') height=10 width=10></td>"
  1197.         '    mStr += "<td bgcolor=#FF33FF onMouseOver=View('FF33FF') onClick=Set('FF33FF') height=10 width=10></td>"
  1198.         '    mStr += "<td bgcolor=#FF66FF onMouseOver=View('FF66FF') onClick=Set('FF66FF') height=10 width=10></td>"
  1199.         '    mStr += "<td bgcolor=#FF99FF onMouseOver=View('FF99FF') onClick=Set('FF99FF') height=10 width=10></td>"
  1200.         '    mStr += "<td bgcolor=#FFCCFF onMouseOver=View('FFCCFF') onClick=Set('FFCCFF') height=10 width=10></td>"
  1201.         '    mStr += "<td bgcolor=#FFFFFF onMouseOver=View('FFFFFF') onClick=Set('FFFFFF') height=10 width=10></td>"
  1202.         '    mStr += "</tr>"
  1203.         '    mStr += "</table>"
  1205.         '    mStr += "</form>"
  1206.         '    mStr += "</body></html>"
  1208.         '    'Dim mWriter As new System.IO.StreamWriter(
  1209.         '    'mWriter.Write(mStr)
  1211.         'End Function
  1212. #End Region
  1214. #Region "Protected Overrides Sub"
  1215.         Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
  1216.             writer.Write(Me.GenerateHTMLAreaBody)
  1217.             'Conver the Simple IFrame to Editable TextBox
  1218.             writer.RenderBeginTag("Script")
  1219.             writer.Write("RTFEdit_" & Me.UniqueID & ".document.designMode='on';")
  1220.             'writer.Write("RTFEdit_" & Me.UniqueID & ".document.body.innerText = '" & Text & "'")
  1221.             writer.RenderEndTag()
  1222.             'End Converting IFrame to Editable Textbox
  1223.         End Sub
  1224.         Protected Overrides Sub OnPreRender(ByVal e As System.EventArgs)
  1225.             Page.RegisterClientScriptBlock("myStyleSheetScript", Me.GenerateCSSCode())
  1227.             Page.RegisterClientScriptBlock("myCommandScript", Me.GenerateCommandScript())
  1228.             Page.RegisterClientScriptBlock("mySelUpDownScript", Me.GenerateSelDown_UpScript())
  1229.             Page.RegisterClientScriptBlock("myselOFFScript", Me.GenerateSelOFFScript())
  1230.             Page.RegisterClientScriptBlock("myselONScript", Me.GenerateSelONScript())
  1231.             Page.RegisterClientScriptBlock(Me.UniqueID & "_PostBackScript", Me.GeneratePostBackScript())
  1233.         End Sub
  1234. #End Region
  1236. #Region "Interface Implementation"
  1237.         Public Function LoadPostData(ByVal postDataKey As String, ByVal postCollection As System.Collections.Specialized.NameValueCollection) As Boolean Implements System.Web.UI.IPostBackDataHandler.LoadPostData
  1238.             Dim currentValue As String = Text
  1239.             Dim postedValue As String = postCollection(postDataKey)
  1240.             If currentValue Is Nothing Or Not postedValue.Equals(currentValue) Then
  1241.                 Text = postedValue
  1242.                 Return True
  1243.             End If
  1244.             Return False
  1245.         End Function
  1246.         Public Sub RaisePostDataChangedEvent() Implements System.Web.UI.IPostBackDataHandler.RaisePostDataChangedEvent
  1247.             OnTextChanged(EventArgs.Empty)
  1248.         End Sub
  1249.         Protected Overridable Sub OnTextChanged(ByVal e As EventArgs)
  1250.             RaiseEvent TextChanged(Me, e)
  1251.         End Sub
  1252. #End Region
  1254.     End Class
  1255. End Namespace