31:
How can I use my own operators only

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AllowValueKeyword = .f.
oExpression.AllowDefaultOperators = .f.
oExpression.AddCustomOperator("+","<b>+</b>","This is a new binary-operator",2)
oExpression.AddCustomOperator("xxx","<b>xxx</b>","This is a new keyword",0)
oExpression.AddCustomOperator("yyy","<b>yyy</b>","This is a unary-operator",1)
oExpression.AddCustomOperator("zzz","<b>zzz</b>","This is a binary-operator",2)
oExpression.Text = "xxx + yyy(100 zzz 200)"

30:
How can I add a new binary-operator

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AddCustomOperator("xxx","<b>xxx</b>","This is a new binary-operator",2)
oExpression.Text = "value + 100 xxx 200"

29:
How can I add a new unary-operator

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AddCustomOperator("xxx","<b>xxx</b>","This is a new unary-operator",1)
oExpression.Text = "value + xxx(100)"

28:
How can I add a new keyword

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AddCustomOperator("xxx","<b>xxx</b>","This is a new keyword",0)
oExpression.Text = "value + xxx"

27:
How can I disable all operators
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AllowValueKeyword = .f.
oExpression.AllowDefaultOperators = .f.

26:
How can I disable the value keyword
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AllowValueKeyword = .f.

25:
Usage of and ( and operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "(value contains 1) and (value != 1)"

24:
Usage of or ( or operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "(value=1) or value=`string`"

23:
Usage of not ( not operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "not(value=1)"

22:
Usage of - ( subtraction operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value - 2"

21:
Usage of + ( addition operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value + 2"

20:
Usage of mod ( reminder operator )

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value mod 2"

19:
Usage of / (divide operator)

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value / 2"

18:
Usage of * (multiplicity operator)

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "2 * value"

17:
How can I get the word from cursor when user double clicks the control
' Occurs when the user double clicks the left mouse button over an object.
function DblClick as v (Shift  as  N,X  as  OLE::Exontrol.Expression.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Expression.1::OLE_YPOS_PIXELS)
	oExpression = topparent:CONTROL_ACTIVEX1.activex
	? "Word: " 
	? oExpression.WordFromPoint(-1,-1) 
end function

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.AllowSplitter = 2
oExpression.SplitPaneHeight = 196

16:
How do I determine the word from the cursor
' Occurs when the user presses and then releases the left mouse button over the list control.
function Click as v ()
	oExpression = topparent:CONTROL_ACTIVEX1.activex
	? "Word: " 
	? oExpression.WordFromPoint(-1,-1) 
end function

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.SplitPaneHeight = 196
oExpression.Template = "Background(1) = 15790320" // oExpression.Background(1) = 15790320
oExpression.AllowSplitter = 2

15:
How can I check if the expression is valid/syntactically correct
' Indicates that the control's text has changed.
function Change as v ()
	oExpression = topparent:CONTROL_ACTIVEX1.activex
	? "Valid: " 
	? oExpression.IsValid 
end function

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.SplitPaneHeight = 196
oExpression.Template = "Background(1) = 15790320" // oExpression.Background(1) = 15790320
oExpression.AllowSplitter = 2

14:
How can I change the visual appearance of the horizontal splitter

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.SplitPaneHeight = 196
oExpression.Template = "Background(1) = 15790320" // oExpression.Background(1) = 15790320
oExpression.AllowSplitter = 2

13:
How can I change the visual appearance of the vertical splitter

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.SplitPaneWidth = 196
oExpression.Template = "Background(0) = 15790320" // oExpression.Background(0) = 15790320

12:
How can I add a new menu-item to control's context menu
' Occurs when the user selects an user item from the control's context menu.
function ExecuteContextMenu as v (Item  as  C,Position  as  N)
	oExpression = topparent:CONTROL_ACTIVEX1.activex
	? "ExecuteContextMenu: " 
	? Item 
end function

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value + 100"
oExpression.ContextMenuItems = "Test"

11:
How can I change the tooltip that shows when cursor hovers a keyword

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.Template = "Description(0) = `This is a bit of text to be shown when cursor hovers the <b>value</b> keyword.`" // oExpression.Description(0) = "This is a bit of text to be shown when cursor hovers the <b>value</b> keyword."
oExpression.Refresh()

10:
How do I check if the expression is correct
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "currency(value)"
? oExpression.IsValid 

9:
How do I programmatically evaluate the expression
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "currency(value)"
? oExpression.Evaluate("value=100") 

8:
How can I assign multiple values for variables %1, %2, ...

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "currency(%1 + %2)"
oExpression.EvaluationText = "%1 = 100;%2 = 200"

7:
How can I change the values to show the result
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "currency(value)"
oExpression.EvaluationText = "value = 100"

6:
How can I prevent changing the color when expression is invalid
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value 2"
oExpression.ForeColorInvalid = 0

5:
How can I change the color when expression is invalid
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value 2"
oExpression.ForeColorInvalid = 255

4:
How can I prevent evaluation the selection

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value + 1"
oExpression.EvaluateSelection = .f.
oExpression.HideSelection = .f.
oExpression.SelLength = 1

3:
How can I programatically show the result
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "value"

2:
How can I get ride of the right-vertical line/split
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.AllowSplitter = 0
oExpression.Expression = "value + 1"

1:
How can I change the control's background
Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.Expression = "value"
oExpression.BackColor = 15790320