205
Is it possible to show just expressions
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=00FF00>(")
oEdit.AddWild("<fgcolor=00FF00>)")
oEdit.AddExpression("<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)")
oEdit.InsertText("some text ( another text ) other text\r\n",1)
oEdit.InsertText("some text (* another text *) other text\r\n",1)
oEdit.Show = "expression"
204
How can I stop any highlight
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=00FF00>(")
oEdit.AddWild("<fgcolor=00FF00>)")
oEdit.AddExpression("<fgcolor=FF0000><b>(*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*)")
oEdit.InsertText("some text ( another text ) other text\r\n",1)
oEdit.InsertText("some text (* another text *) other text\r\n",1)
oEdit.Show = ""
203
How can I highlight the start of the line until a specified character is found

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("^","<fgcolor=FF0000> ",":")
oEdit.Refresh()
202
Can I use code completion without any UI
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.CodeCompletion = 1
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("class")
201
How can I hide the control's horizontal scroll bar
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ScrollBars = 2
200
Is it possible to change the line's height

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineHeight = "value + 8 * dpi"
oEdit.DrawGridLines = .t.
199
How to bold everything between two * (asterisk) characters

Dim oEdit as P
Dim var_StdFont as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_StdFont = oEdit.Font
	var_StdFont.Name = "Consolas"
	var_StdFont.Size = 12
oEdit.AddExpression("<fgcolor=FF0000><b>*","<fgcolor=FF0000> ","<fgcolor=FF0000><b>*")
oEdit.InsertText("some text * another text * other text\r\n",1)
oEdit.Refresh()
198
How to bold everything that starts with * (asterisk), to the end of the line

Dim oEdit as P
Dim var_StdFont as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_StdFont = oEdit.Font
	var_StdFont.Name = "Consolas"
	var_StdFont.Size = 12
oEdit.AddWild("<fgcolor=FF0000><b>\**")
oEdit.InsertText("some text * another text * other text\r\n",1)
oEdit.Refresh()
197
How to make a * (asterisk) bold, not the entire / rest line

Dim oEdit as P
Dim var_StdFont as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_StdFont = oEdit.Font
	var_StdFont.Name = "Consolas"
	var_StdFont.Size = 12
oEdit.AddWild("<fgcolor=FF0000><b>\*")
oEdit.InsertText("some text * another text * other text\r\n",1)
oEdit.Refresh()
196
How can I change the control's font (template)

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Font { Name = `Consolas`; Size = 12 }"
oEdit.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
oEdit.Refresh()
195
How can I change the control's font (runtime)

Dim oEdit as P
Dim var_StdFont as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_StdFont = oEdit.Font
	var_StdFont.Name = "Consolas"
	var_StdFont.Size = 12
oEdit.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
oEdit.Refresh()
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
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.OLEDropMode = -1
193
How can I display information about events the control fires

' Notifies the application once the control fires an event.
function Event as v (EventID  as  N)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	? oEdit.EventParam(-2) 
end function

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=808080>(?*)</fgcolor>")
oEdit.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 quality")
oEdit.Refresh()
192
How do I highlights words based on wild characters

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=0000FF><b>[MC]*_HANDLER*</b></fgcolor>(*)")
oEdit.Refresh()
191
How do I highlights words based on wild characters

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=0000FF><b> *</b></fgcolor>(*)*;")
oEdit.Refresh()
190
How can I provide different tooltip for the same keyword

' Queries for the context at the specified location, to provide different tooltips for the same keyword on QueryContextToolTip event.
function QueryContext as v (XCursor  as  N,YCursor  as  N,QContext  as  A)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	QContext = YCursor
end function

' Asks for the tooltip/title of the keyword on the context retrieved by the QueryContext event.
function QueryContextToolTip as v (QContext  as  C,Keyword  as  C,QToolTip  as  A,QToolTipTitle  as  A)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	QToolTip = QContext
	QToolTipTitle = "Keyword Found At Line:"
end function

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.AddKeyword("<fgcolor=FF0000><b>keyword</b></fgcolor>")
oEdit.Text = ""
oEdit.InsertText("here's the keyword on the first line")
oEdit.InsertText("\r\nhere's the keyword on the second line")
oEdit.InsertText("\r\nhere's the keyword on the third line")
189
Is it possible to left, right or center align the inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.CaretLine = 6
oEdit.Template = "Background(160) = 15790320" // oEdit.Background(160) = 15790320
oEdit.TempInlineToolTip = "<font ;6>Left Alignment<br><c>Center Alignment<br><r>Right Alignment"
oEdit.Refresh()
188
Is it possible to display the inline tooltip with a different appearance than temporarily inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.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 quality.")
oEdit.AllowInlineToolTip = 513 'exInlineToolTipWordWrap + exInlineToolTip
oEdit.Template = "Background(159) = 8421504" // oEdit.Background(159) = 8421504
oEdit.Template = "Background(158) = 15790320" // oEdit.Background(158) = 15790320
oEdit.CaretLine = 6
oEdit.Template = "Background(160) = 10495" // oEdit.Background(160) = 10495
oEdit.Template = "Background(161) = 65536" // oEdit.Background(161) = 65536
oEdit.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>"
oEdit.Refresh()
187
How can I display the inline tooltip over the lines, instead pushing the lines

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.Template = "Background(160) = 65535" // oEdit.Background(160) = 65535
oEdit.CaretLine = 3
oEdit.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."
oEdit.AllowInlineToolTip = 768 'exInlineToolTipWordWrap + exInlineToolTipOver
oEdit.Refresh()
186
Is it possible to display the inline tooltip all the time

' Occurs when the user selects text in the control.
function SelChange as v ()
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.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 function

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.Template = "Background(160) = 65535" // oEdit.Background(160) = 65535
oEdit.CaretLine = 12
oEdit.AllowInlineToolTip = 512
oEdit.Refresh()
185
Is it possible to display images in the inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.CaretLine = 4
oEdit.Template = "Background(160) = 16777216" // oEdit.Background(160) = 16777216
oEdit.AllowInlineToolTip = 512
oEdit.TempInlineToolTip = "<img>1</img>This is a bit of text that's shown programatically under the current line"
184
How can I change the visual appearance of the temporarily inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.CaretLine = 4
oEdit.Template = "Background(160) = 16777216" // oEdit.Background(160) = 16777216
oEdit.AllowInlineToolTip = 512
oEdit.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
183
How can I display programmatically the inline tooltip, but using word-wrapping

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.CaretLine = 4
oEdit.Template = "Background(160) = 15790320" // oEdit.Background(160) = 15790320
oEdit.AllowInlineToolTip = 512
oEdit.TempInlineToolTip = "This is a bit of text that's shown programatically under the current line"
182
How can I display programmatically the inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.CaretLine = 4
oEdit.Template = "Background(160) = 15790320" // oEdit.Background(160) = 15790320
oEdit.TempInlineToolTip = "<br><c>This is a bit of text that's shown programatically under the current line<br>"
181
How can I show the inline tooltip with a different appearance

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.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 quality.")
oEdit.AllowInlineToolTip = 513 'exInlineToolTipWordWrap + exInlineToolTip
oEdit.Template = "Background(158) = 16777216" // oEdit.Background(158) = 16777216
oEdit.Template = "Background(159) = 128" // oEdit.Background(159) = 128
oEdit.Refresh()
180
Is it possible to prevent moving the lines after the inline tooltip

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.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 quality.")
oEdit.AllowInlineToolTip = 769 'exInlineToolTipWordWrap + exInlineToolTipOver + exInlineToolTip
oEdit.Template = "Background(158) = 65535" // oEdit.Background(158) = 65535
oEdit.Refresh()
179
How can I display the inline tooltip, when typing only

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.ToolTipOnTyping = .f.
oEdit.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 quality.")
oEdit.AllowInlineToolTip = 514 'exInlineToolTipWordWrap + exInlineToolTipOnChange
oEdit.Template = "Background(158) = 15790320" // oEdit.Background(158) = 15790320
oEdit.Refresh()
178
How do I enable the inline tooltip support

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = -1
oEdit.LineNumberBackColor = 15790320
oEdit.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 quality.")
oEdit.AllowInlineToolTip = 513 'exInlineToolTipWordWrap + exInlineToolTip
oEdit.Template = "Background(159) = 8421504" // oEdit.Background(159) = 8421504
oEdit.Refresh()
177
How do I display a tooltip for a non-keyword

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Edit.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Edit.1::OLE_YPOS_PIXELS)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.ShowToolTip(oEdit.WordFromPoint(-1,-1),,,"+8","+8")
end function

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
176
How do I get the text from the cursor

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Edit.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Edit.1::OLE_YPOS_PIXELS)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	? oEdit.WordFromPoint(-1,-1) 
end function

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
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
Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context()
	var_Context.Add("exText")
	var_Context.Add("exHTML")
	' var_Context.Options(7) = .t.
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(7) = True"

oEdit.Text = ""
oEdit.InsertText("Press CTRL+SPACE, and type h, so the exHTML is not selected.")
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
Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("<fgcolor=008000>'</fgcolor>","<fgcolor=008000> </fgcolor>","")
var_Context = oEdit.Context()
	var_Context.Add("exText (0)","0 ' specifies the exText flag")
	var_Context.Add("exHTML (-1)","-1 ' specifies the exHTML flag")
	' var_Context.Options(6) = "(0:=value lfind `'`) < 0 ? -1 : ( =:0 - (len(1:=(value left =:0)) - len(ltrim(reverse(=:1)))))"
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(6) = `(0:=value lfind ``'``) < 0 ? -1 : ( =:0 - (len(1:=(value left =:0)) - len(ltrim(reverse(=:1)))))`"

oEdit.Text = ""
oEdit.InsertText("Press CTRL + SPACE, and select any item, a number is inserted")
173
How can I show a different sensitive context when user press a key/character

' Indicates that the control's text have changed.
function Change as v ()
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.ShowContext(oEdit.ChangeOnKey)
	oEdit.ActiveContextItems = ""
end function

Dim oEdit as P
Dim var_Context as P
Dim var_Context1 as P
Dim var_Context2 as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Text = ""
oEdit.InsertText("Press .(dot), :(color) or =(equal), to get different sensitive context")
oEdit.ActiveContextItems = ""
var_Context = oEdit.Context("61")
	var_Context.Add("Equal_1")
	var_Context.Add("Equal_2")
var_Context1 = oEdit.Context("46")
	var_Context1.Add("Dot_1")
	var_Context1.Add("Dot_2")
var_Context2 = oEdit.Context("58")
	var_Context2.Add("Colon_1")
	var_Context2.Add("Colon_2")
172
How can I allow spaces when control's sentitive context is shown/opened

' Indicates that the control's text have changed.
function Change as v ()
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.ShowContext(oEdit.ChangeOnKey)
	oEdit.ActiveContextItems = ""
end function

Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context("61")
	var_Context.Add("True (-1)","True")
	var_Context.Add("False (-1)","False")
	' var_Context.Options(5) = .t.
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(5) = True"

oEdit.Text = ""
oEdit.InsertText("Press the = key and after that press the space keys")
oEdit.InsertText("")
171
How can I display more pages on the control's senitive context

Dim oEdit as P
Dim var_Context as P
Dim var_Context1 as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context()
	var_Context.Add("First_1")
	var_Context.Add("First_2")
var_Context1 = oEdit.Context("Second")
	var_Context1.Add("Second_1")
	var_Context1.Add("Second_2")
	var_Context1.Add("Second_3")
oEdit.ActiveContextItems = "Second"
oEdit.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
170
Is it possible to disable showing tooltip for items in the control's senitive context
Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context()
	var_Context.Add("Column")
	' var_Context.Options(3) = "This is bit of text that shown when user selects the <b>Column</b> item."
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(3) = `This is bit of text that shown when user selects the <b>Column</b> item.`"

	var_Context.Add("Item")
	' var_Context.Options(3) = "This is bit of text that shown when user selects the <b>Item</b> item."
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(3) = `This is bit of text that shown when user selects the <b>Item</b> item.`"

	' var_Context.Options(2) = .f.
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(2) = False"
169
How can I assign tooltips for items in the control's senitive context

Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context()
	var_Context.Add("Column")
	' var_Context.Options(3) = "This is bit of text that shown when user selects the <b>Column</b> item."
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(3) = `This is bit of text that shown when user selects the <b>Column</b> item.`"

	var_Context.Add("Item")
	' var_Context.Options(3) = "This is bit of text that shown when user selects the <b>Item</b> item."
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(3) = `This is bit of text that shown when user selects the <b>Item</b> item.`"
168
By default, the control shows the Context(""). How can I display other items

' Occurs when the user invokes the control's context window.
function OnContext as v (Start  as  N,Context  as  C)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	? "CurrentContext:" 
	? Context 
	oEdit.ActiveContextItems = "Second"
end function

Dim oEdit as P
Dim var_Context as P
Dim var_Context1 as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context()
	var_Context.Add("First_1")
	var_Context.Add("First_2")
var_Context1 = oEdit.Context("Second")
	var_Context1.Add("Second_1")
	var_Context1.Add("Second_2")
	var_Context1.Add("Second_3")
167
How can I show the control's sensitive context

' Occurs when the user double clicks the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.Edit.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Edit.1::OLE_YPOS_PIXELS)
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.ShowContext("DB")
end function

Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
var_Context = oEdit.Context("DB")
	var_Context.Add("BEGIN_MSG_MAP")
	var_Context.Add("<fgcolor=808080>MESSAGE_HANDLER")
	var_Context.Add("<fgcolor=808080>COMMAND_HANDLER")
	var_Context.Add("END_MSG_MAP")
166
How can I provide different sensitive context

' Indicates that the control's text have changed.
function Change as v ()
	oEdit = topparent:CONTROL_ACTIVEX1.activex
	oEdit.ShowContext(oEdit.ChangeOnKey)
end function

Dim oEdit as P
Dim var_Context as P
Dim var_Context1 as P
Dim var_Context2 as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Text = ""
oEdit.InsertText("Press .(dot), :(colon) or CTRL + SPACE to invoke the control's context")
var_Context = oEdit.Context()
	var_Context.Add("General_1")
	var_Context.Add("General_2")
var_Context1 = oEdit.Context("46")
	var_Context1.Add("Property_1")
	var_Context1.Add("Property_2")
	var_Context1.Add("Property_3")
var_Context2 = oEdit.Context("58")
	var_Context2.Add("Method_1")
	var_Context2.Add("Method_2")
	var_Context2.Add("Method_3")
165
How can I change the control's background/foreground colors while the control is locked/read-only

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Locked = .t.
oEdit.SelBackColor = 8421504
oEdit.ForeColorLockedLine = 8421504
oEdit.BackColorLockedLine = 16777215
164
How can change the color for selected text, when the control has no focus

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.HideSelection = .f.
oEdit.SelLength = 10
oEdit.SelBackColorHide = 255
163
How do I change the "Incremental Search" caption

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(3) = `exHelp`" // oEdit.Cursor(3) = "exHelp"
oEdit.Template = "Caption(3,0) = `Search for: %s`" // oEdit.Caption(3,0) = "Search for: %s"
oEdit.IncrementalSearchError = 255
162
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ScrollBars = 3
oEdit.Template = "ScrollPartVisible(0,65536) = True" // oEdit.ScrollPartVisible(0,65536) = .t.
oEdit.Template = "ScrollPartVisible(1,65536) = True" // oEdit.ScrollPartVisible(1,65536) = .t.
oEdit.Template = "ScrollPartVisible(2,65536) = True" // oEdit.ScrollPartVisible(2 '2 + ,65536) = .t.
oEdit.ScrollWidth = 4
oEdit.Template = "Background(276) = 15790320" // oEdit.Background(276) = 15790320
oEdit.Template = "Background(260) = 8421504" // oEdit.Background(260) = 8421504
oEdit.ScrollHeight = 4
oEdit.Template = "Background(404) = Background(276)" // oEdit.Background(404) = oEdit.Background(276)
oEdit.Template = "Background(388) = Background(260)" // oEdit.Background(388) = oEdit.Background(260)
oEdit.Template = "Background(3) = Background(276)" // oEdit.Background(3) = oEdit.Background(276)
161
How can I get ride of control's horizontal scroll bar

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b>CExHelperDialog</b>")
oEdit.Refresh()
oEdit.ScrollBars = 2
160
How do I specify the characters to close the sensitive context

Dim oEdit as P
Dim var_Context as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
var_Context = oEdit.Context()
	var_Context.Add("<b>class</b>","",1)
	var_Context.Add("<b>public</b>","",2)
	' var_Context.Options(1) = "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
	oEdit.TemplateDef = "dim var_Context"
	oEdit.TemplateDef = var_Context
	oEdit.Template = "var_Context.Options(1) = `_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`"
159
How do I sort items in the sensitive context

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.AddKeyword("<b>public</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("<b>public</b>","",2)
oEdit.Context().Add("<b>class</b>","",1)
oEdit.Context().Sort(.t.)
158
Can I add icons to the sensitive context

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("<b>class</b>","",1)
157
How can I change the keys combination that invokes the sensitive context

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ContextKey = 544
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("class")
156
How do I enable or disable the sensitive context menu
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.CodeCompletion = 0
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("class")
155
How can I add a sensitive context menu

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
oEdit.Context().Add("class")
154
Can I use wild characters to define keys in your control

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("<fgcolor=808080>(*)</fgcolor>")
oEdit.Refresh()
153
Can I use wild characters to define keys in your control

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddWild("_HANDLER<fgcolor=FF0000>(*)</fgcolor>")
oEdit.Refresh()
152
How can I remove or delete all expressions

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",.f.)
oEdit.ClearExpressions()
oEdit.Refresh()
151
How can I remove or delete an expression

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",.f.)
oEdit.DeleteExpression("(")
oEdit.Refresh()
150
How can I add an expression

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("(","<b><fgcolor=FF0000> </fgcolor></b>",")",.f.)
oEdit.Refresh()
149
How can I add an expression on multiple lines

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddExpression("<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",.t.)
oEdit.Refresh()
148
How can I remove or delete all keywords
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
oEdit.ClearKeywords()
oEdit.Refresh()
147
How can I remove or delete keyword
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>")
oEdit.DeleteKeyword("class")
oEdit.Refresh()
146
How do I add a keyword that's not case sensitive

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b><fgcolor=FF0000>class</fgcolor></b>","","",2)
oEdit.Refresh()
oEdit.InsertText("ClasS\r\n",1)
oEdit.InsertText("CLASS\r\n",1)
145
How do I add a keyword that's not case sensitive

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<fgcolor=FF0000>class</fgcolor>","","",1)
oEdit.Refresh()
oEdit.InsertText("ClasS\r\n",1)
oEdit.InsertText("CLASS\r\n",1)
144
How can I assign a tooltip to a keyword

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.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")
oEdit.Refresh()
143
How do I add a keyword

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<fgcolor=FF0000>class</fgcolor>")
oEdit.Refresh()
142
How do I add a keyword

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
141
How can I display a tooltip as soon as the user types a keyword

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ToolTipDelay = 1
oEdit.ToolTipOnTyping = .t.
oEdit.AddKeyword("<b>class</b>","this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword.","exontrol.edit")
oEdit.Refresh()
140
How do I change the color for a locked or a read only line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ForeColorLockedLine = 0
oEdit.BackColorLockedLine = 255
oEdit.Template = "LockedLine(1) = True" // oEdit.LockedLine(1) = .t.
139
How do I lock or make read only a line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "LockedLine(1) = True" // oEdit.LockedLine(1) = .t.
138
How do I start overtyping

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Overtype = .t.
137
How do I get the selection

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.GetSelection(sy,sx,ey,ex)
? sy 
? sx 
? ey 
? ex
136
How do I select multiple lines

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.SetSelection(0,0,10,0)
oEdit.HideSelection = .f.
135
How can I change the shape of the cursor when it hovers the selected text

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(4) = `exHelp`" // oEdit.Cursor(4) = "exHelp"
oEdit.SelLength = 10
oEdit.HideSelection = .f.
134
How can I change the shape of the cursor when it hovers the incremental search area

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(3) = `exHelp`" // oEdit.Cursor(3) = "exHelp"
133
How can I change the shape of the cursor when it hovers the line numbers area

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(2) = `exHelp`" // oEdit.Cursor(2) = "exHelp"
oEdit.LineNumberWidth = 16
132
How can I change the shape of the cursor when it hovers the bookmark area

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(1) = `exHelp`" // oEdit.Cursor(1) = "exHelp"
oEdit.BookmarkWidth = 16
131
How can I change the shape of the cursor when it hovers the edit
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Cursor(0) = `exHelp`" // oEdit.Cursor(0) = "exHelp"
130
How can I enable or disable OLE drag and drop operations
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.OLEDropMode = -1
129
How can I change the descriptions for items in the control's context menu

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Caption(2,16384) = `U N D O`" // oEdit.Caption(2,16384) = "U N D O"
oEdit.Template = "Caption(2,16385) = `R E D O`" // oEdit.Caption(2,16385) = "R E D O"
oEdit.Template = "Caption(2,16387) = `C U T`" // oEdit.Caption(2,16387) = "C U T"
oEdit.Template = "Caption(2,16388) = `C O P Y`" // oEdit.Caption(2,16388) = "C O P Y"
oEdit.Template = "Caption(2,16389) = `P A S T E`" // oEdit.Caption(2,16389) = "P A S T E"
oEdit.Template = "Caption(2,16390) = `D E L`" // oEdit.Caption(2,16390) = "D E L"
oEdit.Template = "Caption(2,16392) = `A L L `" // oEdit.Caption(2,16392) = "A L L "
128
How can I change the descriptions for fields in the Replace dialog

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Caption(1,202) = `What`" // oEdit.Caption(1,202) = "What"
oEdit.Template = "Caption(1,204) = `Replace`" // oEdit.Caption(1,204) = "Replace"
oEdit.Template = "Caption(1,104) = `Word`" // oEdit.Caption(1,104) = "Word"
oEdit.Template = "Caption(1,105) = `Case`" // oEdit.Caption(1,105) = "Case"
oEdit.Template = "Caption(1,103) = `Dir`" // oEdit.Caption(1,103) = "Dir"
oEdit.Template = "Caption(1,113) = `Sel`" // oEdit.Caption(1,113) = "Sel"
oEdit.Template = "Caption(1,114) = `File`" // oEdit.Caption(1,114) = "File"
oEdit.Template = "Caption(1,21199) = `Rep`" // oEdit.Caption(1,21199) = "Rep"
oEdit.Template = "Caption(1,21200) = `All`" // oEdit.Caption(1,21200) = "All"
oEdit.Template = "Caption(1,2) = `Abandon`" // oEdit.Caption(1,2) = "Abandon"
oEdit.Template = "Caption(1,32000) = `Title`" // oEdit.Caption(1,32000) = "Title"
oEdit.Template = "Caption(1,32001) = `Failed!`" // oEdit.Caption(1,32001) = "Failed!"
oEdit.Template = "Caption(1,32001) = `Done`" // oEdit.Caption(1,32001) = "Done"
127
How can I change the descriptions for fields in the Find dialog

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Caption(0,202) = `What`" // oEdit.Caption(0,202) = "What"
oEdit.Template = "Caption(0,104) = `Word`" // oEdit.Caption(0,104) = "Word"
oEdit.Template = "Caption(0,105) = `Case`" // oEdit.Caption(0,105) = "Case"
oEdit.Template = "Caption(0,103) = `Dir`" // oEdit.Caption(0,103) = "Dir"
oEdit.Template = "Caption(0,113) = `U`" // oEdit.Caption(0,113) = "U"
oEdit.Template = "Caption(0,114) = `D`" // oEdit.Caption(0,114) = "D"
oEdit.Template = "Caption(0,103) = `Next`" // oEdit.Caption(0,103) = "Next"
oEdit.Template = "Caption(0,21199) = `All`" // oEdit.Caption(0,21199) = "All"
oEdit.Template = "Caption(0,2) = `Abandon`" // oEdit.Caption(0,2) = "Abandon"
oEdit.Template = "Caption(0,32001) = `Failed!`" // oEdit.Caption(0,32001) = "Failed!"
126
How can I change the caption for the Replace dialog

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Caption(1,0) = `Search and Replace`" // oEdit.Caption(1,0) = "Search and Replace"
125
How can I change the caption for the Find dialog

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Caption(0,0) = `Search`" // oEdit.Caption(0,0) = "Search"
124
How can I move the cursor when user invokes the control's context menu

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.RClick = .t.
123
How can I disable indenting the selected text when the user presses the TAB key
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.IndentOnTab = .f.
122
How can I indent a line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = 18
oEdit.HideSelection = .f.
oEdit.SelectLine(3)
oEdit.IndentSel(.t.)
121
How can I show or hide the control's splitter

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AllowSplitter = 3
oEdit.SplitPaneHeight = 128
oEdit.SplitPaneWidth = 128
120
How can I select a line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberWidth = 18
oEdit.HideSelection = .f.
oEdit.SelectLine(3)
119
How do I change the font to display the line numbers

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberFont.Name = "Tahoma"
oEdit.LineNumberWidth = 18
118
How can I change the height of the line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Font.Size = 32
oEdit.DrawGridLines = .t.
oEdit.Refresh()
117
How can I show or hide the grid lines

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.DrawGridLines = .t.
116
How do I highlight the position of multiple lines expression on the vertical scroll bar

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.AllowMark = .t.
oEdit.MarkContinueBlocks = .t.
oEdit.AddKeyword("<b>CAxWnd")
oEdit.AddExpression("<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>",.t.)
oEdit.Template = "MarkColor(`BEGIN_MSG_MAP`) = 255" // oEdit.MarkColor("BEGIN_MSG_MAP") = 255
oEdit.Template = "MarkColor(`END_MSG_MAP`) = 128" // oEdit.MarkColor("END_MSG_MAP") = 128
oEdit.Template = "MarkColor(`CAxWnd`) = 0" // oEdit.MarkColor("CAxWnd") = 0
oEdit.Refresh()
115
How do I ignore \" in a string

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.InsertText("\"just a string \\"expression\"\r\n",1)
oEdit.AddExpression("<fgcolor=800000><b>\"</b></fgcolor>","<b><fgcolor=FF0000> </fgcolor></b>","<fgcolor=800000><b>\"</b></fgcolor>",.t.)
oEdit.Template = "IgnorePrefixInExpression(`\"`) = `\`" // oEdit.IgnorePrefixInExpression("\"") = "\"
oEdit.Refresh()
114
How can I change the color for the line number's border

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.LineNumberBorderColor = 255
oEdit.LineNumberWidth = 18
113
How can I change the color for the bookmark's border

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.BookmarkBorderColor = 255
oEdit.BookmarkWidth = 18
112
Can I display a custom icon or picture for bookmarks

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.BookmarkImage = 1
oEdit.Template = "Bookmark(2) = True" // oEdit.Bookmark(2) = .t.
oEdit.Template = "Bookmark(4) = True" // oEdit.Bookmark(4) = .t.
oEdit.BookmarkWidth = 18
111
Can I display a custom icon or picture in the bookmark area

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oEdit.Template = "BookmarkImageLine(2) = 1" // oEdit.BookmarkImageLine(2) = 1
oEdit.Template = "Bookmark(4) = True" // oEdit.Bookmark(4) = .t.
oEdit.BookmarkWidth = 18
110
How do I remove the line's background color
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "BackColorLine(1) = 255" // oEdit.BackColorLine(1) = 255
oEdit.ClearBackColorLine(1)
109
How do I change the foreground color for a line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "ForeColorLine(1) = 255" // oEdit.ForeColorLine(1) = 255
108
How do I change the background color for a line

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "BackColorLine(1) = 255" // oEdit.BackColorLine(1) = 255
107
How can I add my own items in the control's context menu

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.ContextMenuItems = "New Item"
106
How do I ensure that a specified line is visible

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.EnsureVisibleLine(oEdit.Count)
105
How can I programmatically perform a REDO operation
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Redo()
104
How can I programmatically perform an UNDO operation
Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Undo()
103
How do I get the bookmarks as a list

Dim oEdit as P
Dim var_BookmarksList as 

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Bookmark(2) = True" // oEdit.Bookmark(2) = .t.
oEdit.Template = "Bookmark(4) = True" // oEdit.Bookmark(4) = .t.
oEdit.BookmarkWidth = 16
var_BookmarksList = oEdit.BookmarksList
102
How can I move to the previous bookmark

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Bookmark(2) = True" // oEdit.Bookmark(2) = .t.
oEdit.Template = "Bookmark(4) = True" // oEdit.Bookmark(4) = .t.
oEdit.BookmarkWidth = 16
oEdit.PrevBookmark()
101
How can I move to the next bookmark

Dim oEdit as P

oEdit = topparent:CONTROL_ACTIVEX1.activex
oEdit.Template = "Bookmark(2) = True" // oEdit.Bookmark(2) = .t.
oEdit.Template = "Bookmark(4) = True" // oEdit.Bookmark(4) = .t.
oEdit.BookmarkWidth = 16
oEdit.NextBookmark()