|
205
|
Is it possible to show just expressions
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=00FF00>("
Send ComAddWild "<fgcolor=00FF00>)"
Send ComAddExpression "<fgcolor=FF0000><b>(*" "<fgcolor=FF0000> " "<fgcolor=FF0000><b>*)" Nothing Nothing
Send ComInsertText "some text ( another text ) other text\r\n" 1
Send ComInsertText "some text (* another text *) other text\r\n" 1
Set ComShow to "expression"
End_Procedure
|
|
204
|
How can I stop any highlight
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=00FF00>("
Send ComAddWild "<fgcolor=00FF00>)"
Send ComAddExpression "<fgcolor=FF0000><b>(*" "<fgcolor=FF0000> " "<fgcolor=FF0000><b>*)" Nothing Nothing
Send ComInsertText "some text ( another text ) other text\r\n" 1
Send ComInsertText "some text (* another text *) other text\r\n" 1
Set ComShow to ""
End_Procedure
|
|
203
|
How can I highlight the start of the line until a specified character is found
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "^" "<fgcolor=FF0000> " ":" Nothing Nothing
Send ComRefresh
End_Procedure
|
|
202
|
Can I use code completion without any UI
Procedure OnCreate
Forward Send OnCreate
Set ComCodeCompletion to OLEexCodeCompletionEnableNoUI
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "class" Nothing Nothing Nothing
Send Destroy to hoContext
End_Procedure
|
|
201
|
How can I hide the control's horizontal scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBars to OLEexVertical
End_Procedure
|
|
200
|
Is it possible to change the line's height
Procedure OnCreate
Forward Send OnCreate
Set ComLineHeight to "value + 8 * dpi"
Set ComDrawGridLines to True
End_Procedure
|
|
199
|
How to bold everything between two * (asterisk) characters
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Consolas"
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Send ComAddExpression "<fgcolor=FF0000><b>*" "<fgcolor=FF0000> " "<fgcolor=FF0000><b>*" Nothing Nothing
Send ComInsertText "some text * another text * other text\r\n" 1
Send ComRefresh
End_Procedure
|
|
198
|
How to bold everything that starts with * (asterisk), to the end of the line
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Consolas"
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Send ComAddWild "<fgcolor=FF0000><b>\**"
Send ComInsertText "some text * another text * other text\r\n" 1
Send ComRefresh
End_Procedure
|
|
197
|
How to make a * (asterisk) bold, not the entire / rest line
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Consolas"
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Send ComAddWild "<fgcolor=FF0000><b>\*"
Send ComInsertText "some text * another text * other text\r\n" 1
Send ComRefresh
End_Procedure
|
|
196
|
How can I change the control's font (template)
Procedure OnCreate
Forward Send OnCreate
Set ComTemplate to "Font { Name = `Consolas`; Size = 12 }"
Send ComAddKeyword "<fgcolor=FF0000>class</fgcolor>" Nothing Nothing Nothing
Send ComRefresh
End_Procedure
|
|
195
|
How can I change the control's font (runtime)
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Consolas"
Set ComSize of hoStdFont to 12
Send Destroy to hoStdFont
Send ComAddKeyword "<fgcolor=FF0000>class</fgcolor>" Nothing Nothing Nothing
Send ComRefresh
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Set ComOLEDropMode to OLEexOLEDropAutomatic
End_Procedure
|
|
193
|
How can I display information about events the control fires
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=808080>(?*)</fgcolor>"
Send ComAddKeyword "<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" Nothing Nothing
Send ComRefresh
End_Procedure
|
|
192
|
How do I highlights words based on wild characters
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=0000FF><b>[MC]*_HANDLER*</b></fgcolor>(*)"
Send ComRefresh
End_Procedure
|
|
191
|
How do I highlights words based on wild characters
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=0000FF><b> *</b></fgcolor>(*)*;"
Send ComRefresh
End_Procedure
|
|
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.
Procedure OnComQueryContext Integer llXCursor Integer llYCursor Variant llQContext
Forward Send OnComQueryContext llXCursor llYCursor llQContext
Move llYCursor to QContext
End_Procedure
// Asks for the tooltip/title of the keyword on the context retrieved by the QueryContext event.
Procedure OnComQueryContextToolTip String llQContext String llKeyword Variant llQToolTip Variant llQToolTipTitle
Forward Send OnComQueryContextToolTip llQContext llKeyword llQToolTip llQToolTipTitle
Move llQContext to QToolTip
Move "Keyword Found At Line:" to QToolTipTitle
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Send ComAddKeyword "<fgcolor=FF0000><b>keyword</b></fgcolor>" Nothing Nothing Nothing
Set ComText to ""
Send ComInsertText "here's the keyword on the first line" Nothing
Send ComInsertText "\r\nhere's the keyword on the second line" Nothing
Send ComInsertText "\r\nhere's the keyword on the third line" Nothing
End_Procedure
|
|
189
|
Is it possible to left, right or center align the inline tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComCaretLine to 6
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(240,240,240))
Set ComTempInlineToolTip to "<font ;6>Left Alignment<br><c>Center Alignment<br><r>Right Alignment"
Send ComRefresh
End_Procedure
|
|
188
|
Is it possible to display the inline tooltip with a different appearance than temporarily inline tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Send ComAddKeyword "<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." Nothing Nothing
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTip)
Set ComBackground OLEexInlineToolTipForeColor to (RGB(128,128,128))
Set ComBackground OLEexInlineToolTipBackColor to (RGB(240,240,240))
Set ComCaretLine to 6
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(255,40,0))
Set ComBackground OLEexTempInlineToolTipForeColor to (RGB(0,0,1))
Set ComTempInlineToolTip to "<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>"
Send ComRefresh
End_Procedure
|
|
187
|
How can I display the inline tooltip over the lines, instead pushing the lines
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(255,255,0))
Set ComCaretLine to 3
Set ComTempInlineToolTip to "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."
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTipOver)
Send ComRefresh
End_Procedure
|
|
186
|
Is it possible to display the inline tooltip all the time
// Occurs when the user selects text in the control.
Procedure OnComSelChange
Forward Send OnComSelChange
Set ComTempInlineToolTip to "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_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(255,255,0))
Set ComCaretLine to 12
Set ComAllowInlineToolTip to OLEexInlineToolTipWordWrap
Send ComRefresh
End_Procedure
|
|
185
|
Is it possible to display images in the inline tooltip
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComCaretLine to 4
Set ComBackground OLEexTempInlineToolTipBackColor to |CI$1000000
Set ComAllowInlineToolTip to OLEexInlineToolTipWordWrap
Set ComTempInlineToolTip to "<img>1</img>This is a bit of text that's shown programatically under the current line"
End_Procedure
|
|
184
|
How can I change the visual appearance of the temporarily inline tooltip
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComCaretLine to 4
Set ComBackground OLEexTempInlineToolTipBackColor to |CI$1000000
Set ComAllowInlineToolTip to OLEexInlineToolTipWordWrap
Set ComTempInlineToolTip to "This is a bit of text that's shown programatically under the current line"
End_Procedure
|
|
183
|
How can I display programmatically the inline tooltip, but using word-wrapping
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComCaretLine to 4
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(240,240,240))
Set ComAllowInlineToolTip to OLEexInlineToolTipWordWrap
Set ComTempInlineToolTip to "This is a bit of text that's shown programatically under the current line"
End_Procedure
|
|
182
|
How can I display programmatically the inline tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComCaretLine to 4
Set ComBackground OLEexTempInlineToolTipBackColor to (RGB(240,240,240))
Set ComTempInlineToolTip to "<br><c>This is a bit of text that's shown programatically under the current line<br>"
End_Procedure
|
|
181
|
How can I show the inline tooltip with a different appearance
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Send ComAddKeyword "<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." Nothing Nothing
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTip)
Set ComBackground OLEexInlineToolTipBackColor to |CI$1000000
Set ComBackground OLEexInlineToolTipForeColor to (RGB(128,0,0))
Send ComRefresh
End_Procedure
|
|
180
|
Is it possible to prevent moving the lines after the inline tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Send ComAddKeyword "<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." Nothing Nothing
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTipOver + OLEexInlineToolTip)
Set ComBackground OLEexInlineToolTipBackColor to (RGB(255,255,0))
Send ComRefresh
End_Procedure
|
|
179
|
How can I display the inline tooltip, when typing only
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Set ComToolTipOnTyping to False
Send ComAddKeyword "<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." Nothing Nothing
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTipOnChange)
Set ComBackground OLEexInlineToolTipBackColor to (RGB(240,240,240))
Send ComRefresh
End_Procedure
|
|
178
|
How do I enable the inline tooltip support
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to -1
Set ComLineNumberBackColor to (RGB(240,240,240))
Send ComAddKeyword "<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." Nothing Nothing
Set ComAllowInlineToolTip to (OLEexInlineToolTipWordWrap + OLEexInlineToolTip)
Set ComBackground OLEexInlineToolTipForeColor to (RGB(128,128,128))
Send ComRefresh
End_Procedure
|
|
177
|
How do I display a tooltip for a non-keyword
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip (ComWordFromPoint(Self,-1,-1,Nothing)) "+8" "+8"
End_Procedure
|
|
176
|
How do I get the text from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln (ComWordFromPoint(Self,-1,-1,Nothing))
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "exText" Nothing Nothing Nothing
Send ComAdd of hoContext "exHTML" Nothing Nothing Nothing
Set ComOptions of hoContext OLEexContextDisableIncrementalSearchContains to True
Send Destroy to hoContext
Set ComText to ""
Send ComInsertText "Press CTRL+SPACE, and type h, so the exHTML is not selected." Nothing
End_Procedure
|
|
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
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "<fgcolor=008000>'</fgcolor>" "<fgcolor=008000> </fgcolor>" "" Nothing Nothing
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "exText (0)" "0 ' specifies the exText flag" Nothing Nothing
Send ComAdd of hoContext "exHTML (-1)" "-1 ' specifies the exHTML flag" Nothing Nothing
Set ComOptions of hoContext OLEexContextInsertCaretPos to "(0:=value lfind `'`) < 0 ? -1 : ( =:0 - (len(1:=(value left =:0)) - len(ltrim(reverse(=:1)))))"
Send Destroy to hoContext
Set ComText to ""
Send ComInsertText "Press CTRL + SPACE, and select any item, a number is inserted" Nothing
End_Procedure
|
|
173
|
How can I show a different sensitive context when user press a key/character
// Indicates that the control's text have changed.
Procedure OnComChange
Forward Send OnComChange
Send ComShowContext (ComChangeOnKey(Self))
Set ComActiveContextItems to ""
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComText to ""
Send ComInsertText "Press .(dot), :(color) or =(equal), to get different sensitive context" Nothing
Set ComActiveContextItems to ""
Variant voContext
Get ComContext "61" to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "Equal_1" Nothing Nothing Nothing
Send ComAdd of hoContext "Equal_2" Nothing Nothing Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext "46" to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "Dot_1" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Dot_2" Nothing Nothing Nothing
Send Destroy to hoContext1
Variant voContext2
Get ComContext "58" to voContext2
Handle hoContext2
Get Create (RefClass(cComContext)) to hoContext2
Set pvComObject of hoContext2 to voContext2
Send ComAdd of hoContext2 "Colon_1" Nothing Nothing Nothing
Send ComAdd of hoContext2 "Colon_2" Nothing Nothing Nothing
Send Destroy to hoContext2
End_Procedure
|
|
172
|
How can I allow spaces when control's sentitive context is shown/opened
// Indicates that the control's text have changed.
Procedure OnComChange
Forward Send OnComChange
Send ComShowContext (ComChangeOnKey(Self))
Set ComActiveContextItems to ""
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext "61" to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "True (-1)" "True" Nothing Nothing
Send ComAdd of hoContext "False (-1)" "False" Nothing Nothing
Set ComOptions of hoContext OLEexContextAllowSpaceOnFront to True
Send Destroy to hoContext
Set ComText to ""
Send ComInsertText "Press the = key and after that press the space keys" Nothing
Send ComInsertText "" Nothing
End_Procedure
|
|
171
|
How can I display more pages on the control's senitive context
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "First_1" Nothing Nothing Nothing
Send ComAdd of hoContext "First_2" Nothing Nothing Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext "Second" to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "Second_1" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_2" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_3" Nothing Nothing Nothing
Send Destroy to hoContext1
Set ComActiveContextItems to "Second"
Set ComPagesContextItems to ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
End_Procedure
|
|
170
|
Is it possible to disable showing tooltip for items in the control's senitive context
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "Column" Nothing Nothing Nothing
Set ComOptions of hoContext OLEexContextItemToolTip to "This is bit of text that shown when user selects the <b>Column</b> item."
Send ComAdd of hoContext "Item" Nothing Nothing Nothing
Set ComOptions of hoContext OLEexContextItemToolTip to "This is bit of text that shown when user selects the <b>Item</b> item."
Set ComOptions of hoContext OLEexContextAllowToolTip to False
Send Destroy to hoContext
End_Procedure
|
|
169
|
How can I assign tooltips for items in the control's senitive context
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "Column" Nothing Nothing Nothing
Set ComOptions of hoContext OLEexContextItemToolTip to "This is bit of text that shown when user selects the <b>Column</b> item."
Send ComAdd of hoContext "Item" Nothing Nothing Nothing
Set ComOptions of hoContext OLEexContextItemToolTip to "This is bit of text that shown when user selects the <b>Item</b> item."
Send Destroy to hoContext
End_Procedure
|
|
168
|
By default, the control shows the Context(""). How can I display other items
// Occurs when the user invokes the control's context window.
Procedure OnComOnContext Integer llStart String llContext
Forward Send OnComOnContext llStart llContext
Showln "CurrentContext:" llContext
Set ComActiveContextItems to "Second"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "First_1" Nothing Nothing Nothing
Send ComAdd of hoContext "First_2" Nothing Nothing Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext "Second" to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "Second_1" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_2" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_3" Nothing Nothing Nothing
Send Destroy to hoContext1
End_Procedure
|
|
167
|
How can I show the control's sensitive context
// Occurs when the user double clicks the left mouse button over an object.
Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComDblClick llShift llX llY
Send ComShowContext "DB"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext "DB" to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "BEGIN_MSG_MAP" Nothing Nothing Nothing
Send ComAdd of hoContext "<fgcolor=808080>MESSAGE_HANDLER" Nothing Nothing Nothing
Send ComAdd of hoContext "<fgcolor=808080>COMMAND_HANDLER" Nothing Nothing Nothing
Send ComAdd of hoContext "END_MSG_MAP" Nothing Nothing Nothing
Send Destroy to hoContext
End_Procedure
|
|
166
|
How can I provide different sensitive context
// Indicates that the control's text have changed.
Procedure OnComChange
Forward Send OnComChange
Send ComShowContext (ComChangeOnKey(Self))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComText to ""
Send ComInsertText "Press .(dot), :(colon) or CTRL + SPACE to invoke the control's context" Nothing
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "General_1" Nothing Nothing Nothing
Send ComAdd of hoContext "General_2" Nothing Nothing Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext "46" to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "Property_1" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Property_2" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Property_3" Nothing Nothing Nothing
Send Destroy to hoContext1
Variant voContext2
Get ComContext "58" to voContext2
Handle hoContext2
Get Create (RefClass(cComContext)) to hoContext2
Set pvComObject of hoContext2 to voContext2
Send ComAdd of hoContext2 "Method_1" Nothing Nothing Nothing
Send ComAdd of hoContext2 "Method_2" Nothing Nothing Nothing
Send ComAdd of hoContext2 "Method_3" Nothing Nothing Nothing
Send Destroy to hoContext2
End_Procedure
|
|
165
|
How can I change the control's background/foreground colors while the control is locked/read-only
Procedure OnCreate
Forward Send OnCreate
Set ComLocked to True
Set ComSelBackColor to (RGB(128,128,128))
Set ComForeColorLockedLine to (RGB(128,128,128))
Set ComBackColorLockedLine to (RGB(255,255,255))
End_Procedure
|
|
164
|
How can change the color for selected text, when the control has no focus
Procedure OnCreate
Forward Send OnCreate
Set ComHideSelection to False
Set ComSelLength to 10
Set ComSelBackColorHide to (RGB(255,0,0))
End_Procedure
|
|
163
|
How do I change the "Incremental Search" caption
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexIncrementalSearchArea to "exHelp"
Set ComCaption OLEexIncrementalSearchField OLEexCaption to "Search for: %s"
Set ComIncrementalSearchError to (RGB(255,0,0))
End_Procedure
|
|
162
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBars to OLEexBoth
Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible |CI$2 OLEexExtentThumbPart to True
Set ComScrollWidth to 4
Set ComBackground OLEexVSBack to (RGB(240,240,240))
Set ComBackground OLEexVSThumb to (RGB(128,128,128))
Set ComScrollHeight to 4
Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
Set ComBackground OLEexSizeGrip to (ComBackground(Self,OLEexVSBack))
End_Procedure
|
|
161
|
How can I get ride of control's horizontal scroll bar
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b>CExHelperDialog</b>" Nothing Nothing Nothing
Send ComRefresh
Set ComScrollBars to OLEexVertical
End_Procedure
|
|
160
|
How do I specify the characters to close the sensitive context
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComAddKeyword "<b>public</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "<b>class</b>" "" 1 Nothing
Send ComAdd of hoContext "<b>public</b>" "" 2 Nothing
Set ComOptions of hoContext OLEexContextAllowChars to "_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Send Destroy to hoContext
End_Procedure
|
|
159
|
How do I sort items in the sensitive context
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComAddKeyword "<b>public</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "<b>public</b>" "" 2 Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext Nothing to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "<b>class</b>" "" 1 Nothing
Send Destroy to hoContext1
Variant voContext2
Get ComContext Nothing to voContext2
Handle hoContext2
Get Create (RefClass(cComContext)) to hoContext2
Set pvComObject of hoContext2 to voContext2
Send ComSort of hoContext2 True
Send Destroy to hoContext2
End_Procedure
|
|
158
|
Can I add icons to the sensitive context
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "<b>class</b>" "" 1 Nothing
Send Destroy to hoContext
End_Procedure
|
|
157
|
How can I change the keys combination that invokes the sensitive context
Procedure OnCreate
Forward Send OnCreate
Set ComContextKey to 544
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "class" Nothing Nothing Nothing
Send Destroy to hoContext
End_Procedure
|
|
156
|
How do I enable or disable the sensitive context menu
Procedure OnCreate
Forward Send OnCreate
Set ComCodeCompletion to OLEexCodeCompletionDisable
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "class" Nothing Nothing Nothing
Send Destroy to hoContext
End_Procedure
|
|
155
|
How can I add a sensitive context menu
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "class" Nothing Nothing Nothing
Send Destroy to hoContext
End_Procedure
|
|
154
|
Can I use wild characters to define keys in your control
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "<fgcolor=808080>(*)</fgcolor>"
Send ComRefresh
End_Procedure
|
|
153
|
Can I use wild characters to define keys in your control
Procedure OnCreate
Forward Send OnCreate
Send ComAddWild "_HANDLER<fgcolor=FF0000>(*)</fgcolor>"
Send ComRefresh
End_Procedure
|
|
152
|
How can I remove or delete all expressions
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "(" "<b><fgcolor=FF0000> </fgcolor></b>" ")" False Nothing
Send ComClearExpressions
Send ComRefresh
End_Procedure
|
|
151
|
How can I remove or delete an expression
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "(" "<b><fgcolor=FF0000> </fgcolor></b>" ")" False Nothing
Send ComDeleteExpression "("
Send ComRefresh
End_Procedure
|
|
150
|
How can I add an expression
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "(" "<b><fgcolor=FF0000> </fgcolor></b>" ")" False Nothing
Send ComRefresh
End_Procedure
|
|
149
|
How can I add an expression on multiple lines
Procedure OnCreate
Forward Send OnCreate
Send ComAddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>" "<b><fgcolor=FF0000> </fgcolor></b>" "<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>" True Nothing
Send ComRefresh
End_Procedure
|
|
148
|
How can I remove or delete all keywords
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>" Nothing Nothing Nothing
Send ComClearKeywords
Send ComRefresh
End_Procedure
|
|
147
|
How can I remove or delete keyword
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>" Nothing Nothing Nothing
Send ComDeleteKeyword "class"
Send ComRefresh
End_Procedure
|
|
146
|
How do I add a keyword that's not case sensitive
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b><fgcolor=FF0000>class</fgcolor></b>" "" "" 2
Send ComRefresh
Send ComInsertText "ClasS\r\n" 1
Send ComInsertText "CLASS\r\n" 1
End_Procedure
|
|
145
|
How do I add a keyword that's not case sensitive
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<fgcolor=FF0000>class</fgcolor>" "" "" 1
Send ComRefresh
Send ComInsertText "ClasS\r\n" 1
Send ComInsertText "CLASS\r\n" 1
End_Procedure
|
|
144
|
How can I assign a tooltip to a keyword
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<fgcolor=FF0000>class</fgcolor>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
End_Procedure
|
|
143
|
How do I add a keyword
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<fgcolor=FF0000>class</fgcolor>" Nothing Nothing Nothing
Send ComRefresh
End_Procedure
|
|
142
|
How do I add a keyword
Procedure OnCreate
Forward Send OnCreate
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
End_Procedure
|
|
141
|
How can I display a tooltip as soon as the user types a keyword
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipOnTyping to True
Send ComAddKeyword "<b>class</b>" "this is a bit of text that's shown when the cursor hovers the <b>class</b> keyword." "exontrol.edit" Nothing
Send ComRefresh
End_Procedure
|
|
140
|
How do I change the color for a locked or a read only line
Procedure OnCreate
Forward Send OnCreate
Set ComForeColorLockedLine to (RGB(0,0,0))
Set ComBackColorLockedLine to (RGB(255,0,0))
Set ComLockedLine 1 to True
End_Procedure
|
|
139
|
How do I lock or make read only a line
Procedure OnCreate
Forward Send OnCreate
Set ComLockedLine 1 to True
End_Procedure
|
|
138
|
How do I start overtyping
Procedure OnCreate
Forward Send OnCreate
Set ComOvertype to True
End_Procedure
|
|
137
|
How do I get the selection
Procedure OnCreate
Forward Send OnCreate
Send ComGetSelection sy sx ey ex
Showln sy sx ey ex
End_Procedure
|
|
136
|
How do I select multiple lines
Procedure OnCreate
Forward Send OnCreate
Send ComSetSelection 0 0 10 0
Set ComHideSelection to False
End_Procedure
|
|
135
|
How can I change the shape of the cursor when it hovers the selected text
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexSelectedText to "exHelp"
Set ComSelLength to 10
Set ComHideSelection to False
End_Procedure
|
|
134
|
How can I change the shape of the cursor when it hovers the incremental search area
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexIncrementalSearchArea to "exHelp"
End_Procedure
|
|
133
|
How can I change the shape of the cursor when it hovers the line numbers area
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexLineNumberArea to "exHelp"
Set ComLineNumberWidth to 16
End_Procedure
|
|
132
|
How can I change the shape of the cursor when it hovers the bookmark area
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexBookmarkArea to "exHelp"
Set ComBookmarkWidth to 16
End_Procedure
|
|
131
|
How can I change the shape of the cursor when it hovers the edit
Procedure OnCreate
Forward Send OnCreate
Set ComCursor OLEexEditArea to "exHelp"
End_Procedure
|
|
130
|
How can I enable or disable OLE drag and drop operations
Procedure OnCreate
Forward Send OnCreate
Set ComOLEDropMode to OLEexOLEDropAutomatic
End_Procedure
|
|
129
|
How can I change the descriptions for items in the control's context menu
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexContextMenu OLEexContextUndo to "U N D O"
Set ComCaption OLEexContextMenu OLEexContextRedo to "R E D O"
Set ComCaption OLEexContextMenu OLEexContextCut to "C U T"
Set ComCaption OLEexContextMenu OLEexContextCopy to "C O P Y"
Set ComCaption OLEexContextMenu OLEexContextPaste to "P A S T E"
Set ComCaption OLEexContextMenu OLEexContextDelete to "D E L"
Set ComCaption OLEexContextMenu OLEexContextSelectAll to "A L L "
End_Procedure
|
|
128
|
How can I change the descriptions for fields in the Replace dialog
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexReplaceDialog OLEexFieldFindWhat to "What"
Set ComCaption OLEexReplaceDialog OLEexFieldReplaceWith to "Replace"
Set ComCaption OLEexReplaceDialog OLEexFieldWordOnly to "Word"
Set ComCaption OLEexReplaceDialog OLEexFieldMatchCase to "Case"
Set ComCaption OLEexReplaceDialog OLEexFieldFindNext to "Dir"
Set ComCaption OLEexReplaceDialog OLEexFieldSelection to "Sel"
Set ComCaption OLEexReplaceDialog OLEexFieldWholeFile to "File"
Set ComCaption OLEexReplaceDialog OLEexFieldReplace to "Rep"
Set ComCaption OLEexReplaceDialog OLEexFieldReplaceAll to "All"
Set ComCaption OLEexReplaceDialog OLEexFieldCancel to "Abandon"
Set ComCaption OLEexReplaceDialog OLEexErrorTitle to "Title"
Set ComCaption OLEexReplaceDialog OLEexErrorFindNext to "Failed!"
Set ComCaption OLEexReplaceDialog OLEexErrorFindNext to "Done"
End_Procedure
|
|
127
|
How can I change the descriptions for fields in the Find dialog
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexFindDialog OLEexFieldFindWhat to "What"
Set ComCaption OLEexFindDialog OLEexFieldWordOnly to "Word"
Set ComCaption OLEexFindDialog OLEexFieldMatchCase to "Case"
Set ComCaption OLEexFindDialog OLEexFieldFindNext to "Dir"
Set ComCaption OLEexFindDialog OLEexFieldSelection to "U"
Set ComCaption OLEexFindDialog OLEexFieldWholeFile to "D"
Set ComCaption OLEexFindDialog OLEexFieldFindNext to "Next"
Set ComCaption OLEexFindDialog OLEexFieldReplace to "All"
Set ComCaption OLEexFindDialog OLEexFieldCancel to "Abandon"
Set ComCaption OLEexFindDialog OLEexErrorFindNext to "Failed!"
End_Procedure
|
|
126
|
How can I change the caption for the Replace dialog
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexReplaceDialog OLEexCaption to "Search and Replace"
End_Procedure
|
|
125
|
How can I change the caption for the Find dialog
Procedure OnCreate
Forward Send OnCreate
Set ComCaption OLEexFindDialog OLEexCaption to "Search"
End_Procedure
|
|
124
|
How can I move the cursor when user invokes the control's context menu
Procedure OnCreate
Forward Send OnCreate
Set ComRClick to True
End_Procedure
|
|
123
|
How can I disable indenting the selected text when the user presses the TAB key
Procedure OnCreate
Forward Send OnCreate
Set ComIndentOnTab to False
End_Procedure
|
|
122
|
How can I indent a line
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to 18
Set ComHideSelection to False
Send ComSelectLine 3
Send ComIndentSel True
End_Procedure
|
|
121
|
How can I show or hide the control's splitter
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSplitter to OLEexBothSplitter
Set ComSplitPaneHeight to 128
Set ComSplitPaneWidth to 128
End_Procedure
|
|
120
|
How can I select a line
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberWidth to 18
Set ComHideSelection to False
Send ComSelectLine 3
End_Procedure
|
|
119
|
How do I change the font to display the line numbers
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComLineNumberFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Send Destroy to hoStdFont
Set ComLineNumberWidth to 18
End_Procedure
|
|
118
|
How can I change the height of the line
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 32
Send Destroy to hoStdFont
Set ComDrawGridLines to True
Send ComRefresh
End_Procedure
|
|
117
|
How can I show or hide the grid lines
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to True
End_Procedure
|
|
116
|
How do I highlight the position of multiple lines expression on the vertical scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComAllowMark to True
Set ComMarkContinueBlocks to True
Send ComAddKeyword "<b>CAxWnd" Nothing Nothing Nothing
Send ComAddExpression "<fgcolor=800000><b>BEGIN_MSG_MAP</b></fgcolor>" "<b><fgcolor=FF0000> </fgcolor></b>" "<fgcolor=800000><b>END_MSG_MAP</b></fgcolor>" True Nothing
Set ComMarkColor "BEGIN_MSG_MAP" to (RGB(255,0,0))
Set ComMarkColor "END_MSG_MAP" to (RGB(128,0,0))
Set ComMarkColor "CAxWnd" to (RGB(0,0,0))
Send ComRefresh
End_Procedure
|
|
115
|
How do I ignore \" in a string
Procedure OnCreate
Forward Send OnCreate
Send ComInsertText ""just a string \"expression"\r\n" 1
Send ComAddExpression "<fgcolor=800000><b>"</b></fgcolor>" "<b><fgcolor=FF0000> </fgcolor></b>" "<fgcolor=800000><b>"</b></fgcolor>" True Nothing
Set ComIgnorePrefixInExpression """ to "\"
Send ComRefresh
End_Procedure
|
|
114
|
How can I change the color for the line number's border
Procedure OnCreate
Forward Send OnCreate
Set ComLineNumberBorderColor to (RGB(255,0,0))
Set ComLineNumberWidth to 18
End_Procedure
|
|
113
|
How can I change the color for the bookmark's border
Procedure OnCreate
Forward Send OnCreate
Set ComBookmarkBorderColor to (RGB(255,0,0))
Set ComBookmarkWidth to 18
End_Procedure
|
|
112
|
Can I display a custom icon or picture for bookmarks
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComBookmarkImage to 1
Set ComBookmark 2 to True
Set ComBookmark 4 to True
Set ComBookmarkWidth to 18
End_Procedure
|
|
111
|
Can I display a custom icon or picture in the bookmark area
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComBookmarkImageLine 2 to 1
Set ComBookmark 4 to True
Set ComBookmarkWidth to 18
End_Procedure
|
|
110
|
How do I remove the line's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColorLine 1 to (RGB(255,0,0))
Send ComClearBackColorLine 1
End_Procedure
|
|
109
|
How do I change the foreground color for a line
Procedure OnCreate
Forward Send OnCreate
Set ComForeColorLine 1 to (RGB(255,0,0))
End_Procedure
|
|
108
|
How do I change the background color for a line
Procedure OnCreate
Forward Send OnCreate
Set ComBackColorLine 1 to (RGB(255,0,0))
End_Procedure
|
|
107
|
How can I add my own items in the control's context menu
Procedure OnCreate
Forward Send OnCreate
Set ComContextMenuItems to "New Item"
End_Procedure
|
|
106
|
How do I ensure that a specified line is visible
Procedure OnCreate
Forward Send OnCreate
Send ComEnsureVisibleLine (ComCount(Self))
End_Procedure
|
|
105
|
How can I programmatically perform a REDO operation
Procedure OnCreate
Forward Send OnCreate
Send ComRedo
End_Procedure
|
|
104
|
How can I programmatically perform an UNDO operation
Procedure OnCreate
Forward Send OnCreate
Send ComUndo
End_Procedure
|
|
103
|
How do I get the bookmarks as a list
Procedure OnCreate
Forward Send OnCreate
Set ComBookmark 2 to True
Set ComBookmark 4 to True
Set ComBookmarkWidth to 16
Variant var_BookmarksList
Get ComBookmarksList to var_BookmarksList
End_Procedure
|
|
102
|
How can I move to the previous bookmark
Procedure OnCreate
Forward Send OnCreate
Set ComBookmark 2 to True
Set ComBookmark 4 to True
Set ComBookmarkWidth to 16
Send ComPrevBookmark
End_Procedure
|
|
101
|
How can I move to the next bookmark
Procedure OnCreate
Forward Send OnCreate
Set ComBookmark 2 to True
Set ComBookmark 4 to True
Set ComBookmarkWidth to 16
Send ComNextBookmark
End_Procedure
|