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