|
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()
|