|
205
|
Is it possible to show just expressions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=00FF00>("
.AddWild "<fgcolor=00FF00>)"
.AddExpression "<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)"
.InsertText "some text ( another text ) other text\r\n",1
.InsertText "some text (* another text *) other text\r\n",1
.Show = "expression"
End With
End Function
</SCRIPT>
</BODY>
|
|
204
|
How can I stop any highlight
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=00FF00>("
.AddWild "<fgcolor=00FF00>)"
.AddExpression "<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)"
.InsertText "some text ( another text ) other text\r\n",1
.InsertText "some text (* another text *) other text\r\n",1
.Show = ""
End With
End Function
</SCRIPT>
</BODY>
|
|
203
|
How can I highlight the start of the line until a specified character is found
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "^","<fgcolor=FF0000> ",":"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
202
|
Can I use code completion without any UI
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.CodeCompletion = 1
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "class"
End With
End Function
</SCRIPT>
</BODY>
|
|
201
|
How can I hide the control's horizontal scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ScrollBars = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
200
|
Is it possible to change the line's height
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineHeight = "value + 8 * dpi"
.DrawGridLines = True
End With
End Function
</SCRIPT>
</BODY>
|
|
199
|
How to bold everything between two * (asterisk) characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Font
.Name = "Consolas"
.Size = 12
End With
.AddExpression "<fgcolor=FF0000><b>*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*"
.InsertText "some text * another text * other text\r\n",1
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
198
|
How to bold everything that starts with * (asterisk), to the end of the line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Font
.Name = "Consolas"
.Size = 12
End With
.AddWild "<fgcolor=FF0000><b>\**"
.InsertText "some text * another text * other text\r\n",1
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
197
|
How to make a * (asterisk) bold, not the entire / rest line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Font
.Name = "Consolas"
.Size = 12
End With
.AddWild "<fgcolor=FF0000><b>\*"
.InsertText "some text * another text * other text\r\n",1
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
196
|
How can I change the control's font (template)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Template = "Font { Name = `Consolas`; Size = 12 }"
.AddKeyword "<fgcolor=FF0000>class</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
195
|
How can I change the control's font (runtime)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Font
.Name = "Consolas"
.Size = 12
End With
.AddKeyword "<fgcolor=FF0000>class</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
194
|
When I click and drag to try and select some text, sometimes my cursor turns into a hand and drags the whole text in the window around. I would like to disable this feature, could you tell me what it is called so I can disable it please
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.OLEDropMode = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
193
|
How can I display information about events the control fires
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_Event(EventID)
With Edit1
alert( .EventParam(-2) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=808080>(?*)</fgcolor>"
.AddKeyword "<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
192
|
How do I highlights words based on wild characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=0000FF><b>[MC]*_HANDLER*</b></fgcolor>(*)"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
191
|
How do I highlights words based on wild characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=0000FF><b> *</b></fgcolor>(*)*;"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
190
|
How can I provide different tooltip for the same keyword
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_QueryContext(XCursor,YCursor,QContext)
With Edit1
QContext = YCursor
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function Edit1_QueryContextToolTip(QContext,Keyword,QToolTip,QToolTipTitle)
With Edit1
QToolTip = QContext
QToolTipTitle = "Keyword Found At Line:"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.AddKeyword "<fgcolor=FF0000><b>keyword</b></fgcolor>"
.Text = ""
.InsertText "here's the keyword on the first line"
.InsertText "\r\nhere's the keyword on the second line"
.InsertText "\r\nhere's the keyword on the third line"
End With
End Function
</SCRIPT>
</BODY>
|
|
189
|
Is it possible to left, right or center align the inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.CaretLine = 6
.Background(160) = RGB(240,240,240)
.TempInlineToolTip = "<font ;6>Left Alignment<br><c>Center Alignment<br><r>Right Alignment"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
188
|
Is it possible to display the inline tooltip with a different appearance than temporarily inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.AddKeyword "<b>class</b>","<r>a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qua" & _
"lity."
.AllowInlineToolTip = 513 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTip
.Background(159) = RGB(128,128,128)
.Background(158) = RGB(240,240,240)
.CaretLine = 6
.Background(160) = RGB(255,40,0)
.Background(161) = RGB(0,0,1)
.TempInlineToolTip = "<br><c><font ;12>This is a bit of text that's shown temporarily only. <br><c>Now, click the <off -4><b>class</b></off> keyword," & _
" in the top...<br>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
187
|
How can I display the inline tooltip over the lines, instead pushing the lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.Background(160) = RGB(255,255,0)
.CaretLine = 3
.TempInlineToolTip = "This is a bit of text that's shown under the current line, and it is displayed as soon as the control's caret is changed."
.AllowInlineToolTip = 768 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTipOver
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
186
|
Is it possible to display the inline tooltip all the time
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_SelChange()
With Edit1
.TempInlineToolTip = "This is a bit of text that's shown under the current line, and it is displayed as soon as the control's caret is changed."
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.Background(160) = RGB(255,255,0)
.CaretLine = 12
.AllowInlineToolTip = 512
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
185
|
Is it possible to display images in the inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.CaretLine = 4
.Background(160) = &H1000000
.AllowInlineToolTip = 512
.TempInlineToolTip = "<img>1</img>This is a bit of text that's shown programatically under the current line"
End With
End Function
</SCRIPT>
</BODY>
|
|
184
|
How can I change the visual appearance of the temporarily inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.CaretLine = 4
.Background(160) = &H1000000
.AllowInlineToolTip = 512
.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
End With
End Function
</SCRIPT>
</BODY>
|
|
183
|
How can I display programmatically the inline tooltip, but using word-wrapping
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.CaretLine = 4
.Background(160) = RGB(240,240,240)
.AllowInlineToolTip = 512
.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
End With
End Function
</SCRIPT>
</BODY>
|
|
182
|
How can I display programmatically the inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.CaretLine = 4
.Background(160) = RGB(240,240,240)
.TempInlineToolTip = "<br><c>This is a bit of text that's shown programatically under the current line<br>"
End With
End Function
</SCRIPT>
</BODY>
|
|
181
|
How can I show the inline tooltip with a different appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.AddKeyword "<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y."
.AllowInlineToolTip = 513 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTip
.Background(158) = &H1000000
.Background(159) = RGB(128,0,0)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
180
|
Is it possible to prevent moving the lines after the inline tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.AddKeyword "<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y."
.AllowInlineToolTip = 769 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTipOver Or AllowInlineToolTipEnum.exInlineToolTip
.Background(158) = RGB(255,255,0)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
179
|
How can I display the inline tooltip, when typing only
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.ToolTipOnTyping = False
.AddKeyword "<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y."
.AllowInlineToolTip = 514 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTipOnChange
.Background(158) = RGB(240,240,240)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
178
|
How do I enable the inline tooltip support
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = -1
.LineNumberBackColor = RGB(240,240,240)
.AddKeyword "<b>class</b>","a set or category of things having some property or attribute in common and differentiated from others by kind, type, or qualit" & _
"y."
.AllowInlineToolTip = 513 ' AllowInlineToolTipEnum.exInlineToolTipWordWrap Or AllowInlineToolTipEnum.exInlineToolTip
.Background(159) = RGB(128,128,128)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
177
|
How do I display a tooltip for a non-keyword
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_MouseMove(Button,Shift,X,Y)
With Edit1
.ShowToolTip .WordFromPoint(-1,-1),,,"+8","+8"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
176
|
How do I get the text from the cursor
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_MouseMove(Button,Shift,X,Y)
With Edit1
alert( .WordFromPoint(-1,-1) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
175
|
I've noticed that while I type, the control's sensitive context selects the item that contains the typing word, so the question is how can I disable it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context()
.Add "exText"
.Add "exHTML"
.Options(7) = True
End With
.Text = ""
.InsertText "Press CTRL+SPACE, and type h, so the exHTML is not selected."
End With
End Function
</SCRIPT>
</BODY>
|
|
174
|
I have a context that inserts some comments, it is possible to set the cursor before comment begins, when user selects a value from the control's sensitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "<fgcolor=008000>'</fgcolor>","<fgcolor=008000> </fgcolor>",""
With .Context()
.Add "exText (0)","0 ' specifies the exText flag"
.Add "exHTML (-1)","-1 ' specifies the exHTML flag"
.Options(6) = "(0:=value lfind `'`) < 0 ? -1 : ( =:0 - (len(1:=(value left =:0)) - len(ltrim(reverse(=:1)))))"
End With
.Text = ""
.InsertText "Press CTRL + SPACE, and select any item, a number is inserted"
End With
End Function
</SCRIPT>
</BODY>
|
|
173
|
How can I show a different sensitive context when user press a key/character
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_Change()
With Edit1
.ShowContext .ChangeOnKey
.ActiveContextItems = ""
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Text = ""
.InsertText "Press .(dot), :(color) or =(equal), to get different sensitive context"
.ActiveContextItems = ""
With .Context("61")
.Add "Equal_1"
.Add "Equal_2"
End With
With .Context("46")
.Add "Dot_1"
.Add "Dot_2"
End With
With .Context("58")
.Add "Colon_1"
.Add "Colon_2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
172
|
How can I allow spaces when control's sentitive context is shown/opened
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_Change()
With Edit1
.ShowContext .ChangeOnKey
.ActiveContextItems = ""
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context("61")
.Add "True (-1)","True"
.Add "False (-1)","False"
.Options(5) = True
End With
.Text = ""
.InsertText "Press the = key and after that press the space keys"
.InsertText ""
End With
End Function
</SCRIPT>
</BODY>
|
|
171
|
How can I display more pages on the control's senitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context()
.Add "First_1"
.Add "First_2"
End With
With .Context("Second")
.Add "Second_1"
.Add "Second_2"
.Add "Second_3"
End With
.ActiveContextItems = "Second"
.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
End With
End Function
</SCRIPT>
</BODY>
|
|
170
|
Is it possible to disable showing tooltip for items in the control's senitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context()
.Add "Column"
.Options(3) = "This is bit of text that shown when user selects the <b>Column</b> item."
.Add "Item"
.Options(3) = "This is bit of text that shown when user selects the <b>Item</b> item."
.Options(2) = False
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
169
|
How can I assign tooltips for items in the control's senitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context()
.Add "Column"
.Options(3) = "This is bit of text that shown when user selects the <b>Column</b> item."
.Add "Item"
.Options(3) = "This is bit of text that shown when user selects the <b>Item</b> item."
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
168
|
By default, the control shows the Context(""). How can I display other items
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_OnContext(Start,Context)
With Edit1
alert( "CurrentContext:" )
alert( Context )
.ActiveContextItems = "Second"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context()
.Add "First_1"
.Add "First_2"
End With
With .Context("Second")
.Add "Second_1"
.Add "Second_2"
.Add "Second_3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
167
|
How can I show the control's sensitive context
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_DblClick(Shift,X,Y)
With Edit1
.ShowContext "DB"
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
With .Context("DB")
.Add "BEGIN_MSG_MAP"
.Add "<fgcolor=808080>MESSAGE_HANDLER"
.Add "<fgcolor=808080>COMMAND_HANDLER"
.Add "END_MSG_MAP"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
166
|
How can I provide different sensitive context
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Edit1_Change()
With Edit1
.ShowContext .ChangeOnKey
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Text = ""
.InsertText "Press .(dot), :(colon) or CTRL + SPACE to invoke the control's context"
With .Context()
.Add "General_1"
.Add "General_2"
End With
With .Context("46")
.Add "Property_1"
.Add "Property_2"
.Add "Property_3"
End With
With .Context("58")
.Add "Method_1"
.Add "Method_2"
.Add "Method_3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
165
|
How can I change the control's background/foreground colors while the control is locked/read-only
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Locked = True
.SelBackColor = RGB(128,128,128)
.ForeColorLockedLine = RGB(128,128,128)
.BackColorLockedLine = RGB(255,255,255)
End With
End Function
</SCRIPT>
</BODY>
|
|
164
|
How can change the color for selected text, when the control has no focus
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.HideSelection = False
.SelLength = 10
.SelBackColorHide = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
163
|
How do I change the "Incremental Search" caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(3) = "exHelp"
.Caption(3,0) = "Search for: %s"
.IncrementalSearchError = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
162
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ScrollBars = 3
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True ' &H2
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(3) = .Background(276)
End With
End Function
</SCRIPT>
</BODY>
|
|
161
|
How can I get ride of control's horizontal scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b>CExHelperDialog</b>"
.Refresh
.ScrollBars = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
160
|
How do I specify the characters to close the sensitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.AddKeyword "<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
With .Context()
.Add "<b>class</b>","",1
.Add "<b>public</b>","",2
.Options(1) = "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
159
|
How do I sort items in the sensitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.AddKeyword "<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "<b>public</b>","",2
.Context().Add "<b>class</b>","",1
.Context().Sort True
End With
End Function
</SCRIPT>
</BODY>
|
|
158
|
Can I add icons to the sensitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "<b>class</b>","",1
End With
End Function
</SCRIPT>
</BODY>
|
|
157
|
How can I change the keys combination that invokes the sensitive context
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ContextKey = 544
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "class"
End With
End Function
</SCRIPT>
</BODY>
|
|
156
|
How do I enable or disable the sensitive context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.CodeCompletion = 0
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "class"
End With
End Function
</SCRIPT>
</BODY>
|
|
155
|
How can I add a sensitive context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
.Context().Add "class"
End With
End Function
</SCRIPT>
</BODY>
|
|
154
|
Can I use wild characters to define keys in your control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "<fgcolor=808080>(*)</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
153
|
Can I use wild characters to define keys in your control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddWild "_HANDLER<fgcolor=FF0000>(*)</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
152
|
How can I remove or delete all expressions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.ClearExpressions
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
151
|
How can I remove or delete an expression
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.DeleteExpression "("
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
150
|
How can I add an expression
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "(","<b><fgcolor=FF0000> </fgcolor></b>",")",False
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
149
|
How can I add an expression on multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
148
|
How can I remove or delete all keywords
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
.ClearKeywords
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
147
|
How can I remove or delete keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>"
.DeleteKeyword "class"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
146
|
How do I add a keyword that's not case sensitive
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>","","",2
.Refresh
.InsertText "ClasS\r\n",1
.InsertText "CLASS\r\n",1
End With
End Function
</SCRIPT>
</BODY>
|
|
145
|
How do I add a keyword that's not case sensitive
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>","","",1
.Refresh
.InsertText "ClasS\r\n",1
.InsertText "CLASS\r\n",1
End With
End Function
</SCRIPT>
</BODY>
|
|
144
|
How can I assign a tooltip to a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
143
|
How do I add a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<fgcolor=FF0000>class</fgcolor>"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
142
|
How do I add a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
141
|
How can I display a tooltip as soon as the user types a keyword
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ToolTipDelay = 1
.ToolTipOnTyping = True
.AddKeyword "<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
140
|
How do I change the color for a locked or a read only line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ForeColorLockedLine = RGB(0,0,0)
.BackColorLockedLine = RGB(255,0,0)
.LockedLine(1) = True
End With
End Function
</SCRIPT>
</BODY>
|
|
139
|
How do I lock or make read only a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LockedLine(1) = True
End With
End Function
</SCRIPT>
</BODY>
|
|
138
|
How do I start overtyping
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Overtype = True
End With
End Function
</SCRIPT>
</BODY>
|
|
137
|
How do I get the selection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.GetSelection sy,sx,ey,ex
alert( sy )
alert( sx )
alert( ey )
alert( ex )
End With
End Function
</SCRIPT>
</BODY>
|
|
136
|
How do I select multiple lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.SetSelection 0,0,10,0
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
135
|
How can I change the shape of the cursor when it hovers the selected text
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(4) = "exHelp"
.SelLength = 10
.HideSelection = False
End With
End Function
</SCRIPT>
</BODY>
|
|
134
|
How can I change the shape of the cursor when it hovers the incremental search area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(3) = "exHelp"
End With
End Function
</SCRIPT>
</BODY>
|
|
133
|
How can I change the shape of the cursor when it hovers the line numbers area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(2) = "exHelp"
.LineNumberWidth = 16
End With
End Function
</SCRIPT>
</BODY>
|
|
132
|
How can I change the shape of the cursor when it hovers the bookmark area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(1) = "exHelp"
.BookmarkWidth = 16
End With
End Function
</SCRIPT>
</BODY>
|
|
131
|
How can I change the shape of the cursor when it hovers the edit
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Cursor(0) = "exHelp"
End With
End Function
</SCRIPT>
</BODY>
|
|
130
|
How can I enable or disable OLE drag and drop operations
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.OLEDropMode = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
129
|
How can I change the descriptions for items in the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(2,16384) = "U N D O"
.Caption(2,16385) = "R E D O"
.Caption(2,16387) = "C U T"
.Caption(2,16388) = "C O P Y"
.Caption(2,16389) = "P A S T E"
.Caption(2,16390) = "D E L"
.Caption(2,16392) = "A L L "
End With
End Function
</SCRIPT>
</BODY>
|
|
128
|
How can I change the descriptions for fields in the Replace dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(1,202) = "What"
.Caption(1,204) = "Replace"
.Caption(1,104) = "Word"
.Caption(1,105) = "Case"
.Caption(1,103) = "Dir"
.Caption(1,113) = "Sel"
.Caption(1,114) = "File"
.Caption(1,21199) = "Rep"
.Caption(1,21200) = "All"
.Caption(1,2) = "Abandon"
.Caption(1,32000) = "Title"
.Caption(1,32001) = "Failed!"
.Caption(1,32001) = "Done"
End With
End Function
</SCRIPT>
</BODY>
|
|
127
|
How can I change the descriptions for fields in the Find dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(0,202) = "What"
.Caption(0,104) = "Word"
.Caption(0,105) = "Case"
.Caption(0,103) = "Dir"
.Caption(0,113) = "U"
.Caption(0,114) = "D"
.Caption(0,103) = "Next"
.Caption(0,21199) = "All"
.Caption(0,2) = "Abandon"
.Caption(0,32001) = "Failed!"
End With
End Function
</SCRIPT>
</BODY>
|
|
126
|
How can I change the caption for the Replace dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(1,0) = "Search and Replace"
End With
End Function
</SCRIPT>
</BODY>
|
|
125
|
How can I change the caption for the Find dialog
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Caption(0,0) = "Search"
End With
End Function
</SCRIPT>
</BODY>
|
|
124
|
How can I move the cursor when user invokes the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.RClick = True
End With
End Function
</SCRIPT>
</BODY>
|
|
123
|
How can I disable indenting the selected text when the user presses the TAB key
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.IndentOnTab = False
End With
End Function
</SCRIPT>
</BODY>
|
|
122
|
How can I indent a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = 18
.HideSelection = False
.SelectLine 3
.IndentSel True
End With
End Function
</SCRIPT>
</BODY>
|
|
121
|
How can I show or hide the control's splitter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AllowSplitter = 3
.SplitPaneHeight = 128
.SplitPaneWidth = 128
End With
End Function
</SCRIPT>
</BODY>
|
|
120
|
How can I select a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberWidth = 18
.HideSelection = False
.SelectLine 3
End With
End Function
</SCRIPT>
</BODY>
|
|
119
|
How do I change the font to display the line numbers
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberFont.Name = "Tahoma"
.LineNumberWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
118
|
How can I change the height of the line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Font.Size = 32
.DrawGridLines = True
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
117
|
How can I show or hide the grid lines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.DrawGridLines = True
End With
End Function
</SCRIPT>
</BODY>
|
|
116
|
How do I highlight the position of multiple lines expression on the vertical scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.AllowMark = True
.MarkContinueBlocks = True
.AddKeyword "<b>CAxWnd"
.AddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",True
.MarkColor("BEGIN_MSG_MAP") = RGB(255,0,0)
.MarkColor("END_MSG_MAP") = RGB(128,0,0)
.MarkColor("CAxWnd") = RGB(0,0,0)
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
115
|
How do I ignore \" in a string
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.InsertText """just a string \""expression""\r\n",1
.AddExpression "<fgcolor=800000><b>""</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>""</b></fgcolor>",True
.IgnorePrefixInExpression("""") = "\"
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
114
|
How can I change the color for the line number's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.LineNumberBorderColor = RGB(255,0,0)
.LineNumberWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
113
|
How can I change the color for the bookmark's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BookmarkBorderColor = RGB(255,0,0)
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
112
|
Can I display a custom icon or picture for bookmarks
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.BookmarkImage = 1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
111
|
Can I display a custom icon or picture in the bookmark area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.BookmarkImageLine(2) = 1
.Bookmark(4) = True
.BookmarkWidth = 18
End With
End Function
</SCRIPT>
</BODY>
|
|
110
|
How do I remove the line's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BackColorLine(1) = RGB(255,0,0)
.ClearBackColorLine 1
End With
End Function
</SCRIPT>
</BODY>
|
|
109
|
How do I change the foreground color for a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ForeColorLine(1) = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
108
|
How do I change the background color for a line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.BackColorLine(1) = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
107
|
How can I add my own items in the control's context menu
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.ContextMenuItems = "New Item"
End With
End Function
</SCRIPT>
</BODY>
|
|
106
|
How do I ensure that a specified line is visible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.EnsureVisibleLine .Count
End With
End Function
</SCRIPT>
</BODY>
|
|
105
|
How can I programmatically perform a REDO operation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Redo
End With
End Function
</SCRIPT>
</BODY>
|
|
104
|
How can I programmatically perform an UNDO operation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Undo
End With
End Function
</SCRIPT>
</BODY>
|
|
103
|
How do I get the bookmarks as a list
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
var_BookmarksList = .BookmarksList
End With
End Function
</SCRIPT>
</BODY>
|
|
102
|
How can I move to the previous bookmark
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
.PrevBookmark
End With
End Function
</SCRIPT>
</BODY>
|
|
101
|
How can I move to the next bookmark
<BODY onload="Init()">
<OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With Edit1
.Bookmark(2) = True
.Bookmark(4) = True
.BookmarkWidth = 16
.NextBookmark
End With
End Function
</SCRIPT>
</BODY>
|