120:
Is it possible to add leading-zero for masking floating points

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "-###,###,##0.00;;;float"
oMaskEdit.Text = "1234"

119:
How can I show the full mask if the field is empty and gets the focus

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "!(999) 000 0000;;;warning=Invalid character!,select=4,overtype"
oMaskEdit.AllowEmptyValue = 1
oMaskEdit.Text = ""

118:
How can I mask a date (keep leading zeroes always visible) (method 4)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
oMaskEdit.Text = {01/02/2001}

117:
How can I mask a date (keep leading zeroes always visible) (method 3)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "!00/00/0000;;0;select=4,empty,overtype"
oMaskEdit.Text = {01/02/2001}
oMaskEdit.Warning = "Invalid character!"
oMaskEdit.Invalid = "Invalid date!"
oMaskEdit.ValidateAs = 1

116:
How can I mask a date (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 4
oMaskEdit.Mask = "!99/99/9999;; ;select=4,overtype"
oMaskEdit.Text = {01/02/2001}
oMaskEdit.Warning = "Invalid character!"
oMaskEdit.Invalid = "Invalid date!"
oMaskEdit.ValidateAs = 1
oMaskEdit.AllowEmptyValue = .t.

115:
How can I make the field to support empty values (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "!(999) 000 0000;;;empty,select=4,overtype,invalid=invalid phone number,beep"

114:
How can I make the field to support empty values (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.AllowEmptyValue = .t.
oMaskEdit.Mask = "!(999) 000 0000"
oMaskEdit.TextIncludeLiterals = 2

113:
How do I get the value with no double quoted strings

' Fired while the user changes the control's text.
function Change as v ()
	oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
	? oMaskEdit.Value(3) 
end function

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`IP address is `{0,255}\.{0,255}\.{0,255}\.{0,255}"
oMaskEdit.MaskChar = 48
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Text = "1.2.3.4"

112:
How can I mask a RGB color

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`RGB(`{0,255},{0,255},{0,255}`)`"
oMaskEdit.MaskChar = 48
oMaskEdit.Text = "RGB(255,0,0)"

111:
I noticed that an empty field is validated. Can this be changed

' Validates the field's value, once the user leaves the field.
function ValidateValue as v (NewValue as A,Cancel as L)
	oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
	Cancel = .t.
end function

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Invalid = "The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
oMaskEdit.Mask = "!(999) 000-0000"
oMaskEdit.SelectGotFocus = 4
oMaskEdit.InsertMode = 1

110:
How can I play a beep when the user enters inappropriate value for the field, instead displaying the tooltip

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Invalid = " "
oMaskEdit.Mask = "!(999) 000-0000"
oMaskEdit.SelectGotFocus = 4
oMaskEdit.InsertMode = 1
oMaskEdit.Text = "123-4567"
oMaskEdit.AllowBeep = .t.

109:
How can I restrict the data input until the user enters appropiate value (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Invalid = "The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
oMaskEdit.Mask = "!(999) 000-0000"
oMaskEdit.SelectGotFocus = 4
oMaskEdit.InsertMode = 1
oMaskEdit.Text = "123-4567"

108:
How can I restrict the data input until the user enters appropiate value (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "!(999) 000-0000;;;invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
oMaskEdit.SelectGotFocus = 4
oMaskEdit.InsertMode = 1
oMaskEdit.Text = "123-4567"

107:
How do I set the control's field from right to left

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Phone: `!(999) 000 0000"
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Text = "8450287"

106:
How can I specify multiple masks

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.InsertMode = 1
oMaskEdit.SelectGotFocus = 1
oMaskEdit.VisibleMasks = 6
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Masks = "Local;!000-0000|Domestic;!(999) 000-0000|International;!`+1` 999-000-0000|Dialed in the US;!`1` 999-000-0000|Dialed from Germany;!`001` 999-000-0000|Dialed from France;!`191` 999-000-0000"
oMaskEdit.Text = "845 0287"
oMaskEdit.ActiveMask = 1

105:
How can I mask a date (method 1, limit date)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "{1,12}/{1,31}/{1950,2015}"
oMaskEdit.Text = {01/02/2001}
oMaskEdit.Warning = "Invalid character!"
oMaskEdit.Invalid = "Invalid date!"
oMaskEdit.ValidateAs = 1

104:
How can I mask a medium time (method 3)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "99:00;;0;overtype"
oMaskEdit.Text = "01:22"
oMaskEdit.Warning = "Invalid character"

103:
How can I mask a medium time (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "{1,12}:{0,59} »[aApP]M"
oMaskEdit.Text = "11:22 AM"
oMaskEdit.Warning = "Invalid character"

102:
How can I mask a medium time (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "99:00 »[aApP]M"
oMaskEdit.Text = " 1:22 PM"
oMaskEdit.Warning = "Invalid character"

101:
How can I mask a short time (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "00:00;;0;overtype"
oMaskEdit.Text = "01:22"
oMaskEdit.Warning = "Invalid character"

100:
How can I mask a short time (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "00:00"
oMaskEdit.Text = "01:22"
oMaskEdit.Warning = "Invalid character"

99:
How can I mask a long time (method 3)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "99:00:00;;0;overtype"
oMaskEdit.Text = "01:22:00"
oMaskEdit.Warning = "Invalid character"

98:
How can I mask a long time (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "{1,12}:{0,59}:{0,59} »[aApP]M"
oMaskEdit.Text = "11:22:34 AM"
oMaskEdit.Warning = "Invalid character"

97:
How can I mask a long time (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "99:00:00 »[aApP]M"
oMaskEdit.Text = " 1:22:00 PM"
oMaskEdit.Warning = "Invalid character"

96:
How can I mask a password

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = ";;;password"
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

95:
How can I mask an extension

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "99999"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

94:
How can I mask a zip code

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "00000-9999"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

93:
How can I mask a social security number

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "000-00-0000"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

92:
How can I mask a phone number

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "!(999) 000 0000"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "8450287"
oMaskEdit.Warning = "Invalid character"

91:
How can I mask a binary number (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "[01][01][01][01][01][01][01][01];;0;overtype"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "001"
oMaskEdit.Warning = "Invalid character"

90:
How can I mask a binary number (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "[01][01][01][01][01][01][01][01]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "001"
oMaskEdit.Warning = "Invalid character"

89:
How can I mask a hexa number (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F];;0;overtype"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "00f"
oMaskEdit.Warning = "Invalid character"

88:
How can I mask a hexa number (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "00f"
oMaskEdit.Warning = "Invalid character"

87:
How do I mask an integer number

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = ";;;float,grouping=,digits=0"
oMaskEdit.Text = 12345.67

86:
How do I mask a decimal point number, including grouping of digits

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = ";;;float"
oMaskEdit.Text = 12345.67

85:
How can I mask an email address

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "`e-mail: `*@*.*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "mfl@ex"

84:
How can I mask an URL address

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "`http://`*.*.*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "www."

83:
How can I mask an IP addresse

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "{0,255}.{0,255}.{0,255}.{0,255}"
oMaskEdit.Text = "12.2"

82:
How can I mask a license key

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Mask = "AAAA-AAAA-AAAA-AAAA"
oMaskEdit.Text = "12A"

81:
How can I specify the accepted characters only, converted to lowercase

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`1,2,3,4,a,A,b,B or c,C(->lowercase): `«[1-4aAbBcC][1-4aAbBcC][1-4aAbBcC][1-4aAbBcC]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "WAa"
oMaskEdit.Warning = "Invalid character"

80:
How can I specify the accepted characters only, converted to uppercase

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`1,2,3,4,a,A,b,B or c,C(->uppercase): `»[1-4aAbBcC][1-4aAbBcC][1-4aAbBcC][1-4aAbBcC]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "WAa"
oMaskEdit.Warning = "Invalid character"

79:
How can I specify the accepted characters only

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`1,2,3,4,a,b or c: `[1-4abc][1-4abc][1-4abc][1-4abc]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "WAa"
oMaskEdit.Warning = "Invalid character"

78:
How can I input a number with lower and upper margins

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`number between 1950 and 2050: `{1950,2050}"
oMaskEdit.Warning = "Invalid character"

77:
How can I mask an url

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`any: `http://*.*.*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "www.exontrol.com"
oMaskEdit.Warning = "Invalid character"

76:
How can I enter any characters combinations, converted to lowercase

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`any: `«*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

75:
How can I enter any characters combinations, converted to uppercase

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`any: `»*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

74:
How can I enter any characters combinations

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`any: `*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

73:
How can I enter any letter, converted to lowercase (entry required) (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->lowercase): `«[a-zA-Z][a-zA-Z][a-zA-Z][a-zA-Z]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

72:
How can I enter any letter, converted to lowercase (entry required) (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->lowercase): `<<<<"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

71:
How can I enter any letter, converted to uppercase (entry required) (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase): `»[a-zA-Z][a-zA-Z][a-zA-Z][a-zA-Z]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

70:
How can I enter any letter, converted to uppercase (entry required) (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase): `>>>>"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

69:
How can I enter any character or a space (entry optional)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`character,space,optional: `CCCC"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"

68:
How can I enter any character or a space (entry required)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`character,space: `&&&&"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"

67:
How can I enter any letter or space (entry optional)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter,space,optional: `????"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

66:
Is it possible to display the field with no masking or placeholders, when it has no focus

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.TextIncludeLiteralsLoseFocus = 1
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Phone: `!(999) 000-0000"

65:
I have the mask starting with literals, is it possible to assign the text on editable part only, when calling the Text property

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Upper Hexa [0-9a-fA-F]: `»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "09af"
oMaskEdit.Warning = "Invalid character"

64:
How can I enter a proper name, so the first letter to be upper, rest lower, and so on

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase),any,space,letter(->uppercase),any: `»L««*» »L««*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "mihai filimon"
oMaskEdit.Warning = "Invalid character"

63:
How can I enter the first letter converted to upercase, and anything else after as typed (proper)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase),any: `»L«*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "aFILe"
oMaskEdit.Warning = "Invalid character"

62:
How can I enter the first letter converted to upercase, and anything else after in lowercase (proper)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase),any: `»L««*"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "aFILe"
oMaskEdit.Warning = "Invalid character"

61:
How can I enter any letter (entry require)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter: `LLLL"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

60:
How can I enter any letter, digit, converted to lowercase (entry required)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->lowercase),digit: `«AAAA"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "AA"
oMaskEdit.Warning = "Invalid character"

59:
How can I enter any letter, digit, converted to uppercase (entry required)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter(->uppercase),digit: `»AAAA"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "aa"
oMaskEdit.Warning = "Invalid character"

58:
How can I enter any letter, digit (entry required)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`letter,digit: `AAAA"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "Aa"
oMaskEdit.Warning = "Invalid character"

57:
How can I enter a hexa character, converted to lower, [0-9a-fA-F] ( entry required )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Lower Hexa [0-9a-fA-F]: `«[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "FF"
oMaskEdit.Warning = "Invalid character"

56:
How can I enter a hexa character, converted to upper, [0-9a-fA-F] ( entry required )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Upper Hexa [0-9a-fA-F]: `»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "ff"
oMaskEdit.Warning = "Invalid character"

55:
How can I enter an upper case hexa character, [0-9],[A-F] ( entry required )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Hexa [0-9],[A-F]: `XXXX"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

54:
How can I enter a lower case hexa character, [0-9],[a-f] ( entry required )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`Hexa [0-9],[a-f]: `xxxx"
oMaskEdit.TextIncludeLiterals = 2
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

53:
How can I enter a digit or space (entry not required; plus and minus signs not allowed)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`digit,space,optional: `9999"
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

52:
How can I enter a digit (0 through 9, entry required; plus [+] and minus [-] signs not allowed)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`digit: `0000"
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

51:
How can I enter a digit, +, - or space (entry not required)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Mask = "`digit,+,-,space,optional: `####"
oMaskEdit.Text = "12"
oMaskEdit.Warning = "Invalid character"

50:
How can I add more literals at once (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "\"This text is included between \\"\\" characters: \" 00:00:00"

49:
How can I add more literals at once (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`This text is included between \`\` characters: ` 00:00:00"

48:
Is it possible to change the control's border, using your EBN objects

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oMaskEdit.Appearance = 16777216 '1000000 + 
oMaskEdit.Warning = "Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

47:
How can I get the value as it is displayed

' Fired while the user changes the control's text.
function Change as v ()
	oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
	? oMaskEdit.Text 
end function

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00:00;;;overtype"
oMaskEdit.Text = "12"

46:
How can I get the just typed and accepted characters from the field
' Fired while the user changes the control's text.
function Change as v ()
	oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
	? oMaskEdit.Value(2) 
end function

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00:00;;;overtype"
oMaskEdit.Text = "12"

45:
How can I get the value with no masking or placeholder character
' Fired while the user changes the control's text.
function Change as v ()
	oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
	? oMaskEdit.Value(1) 
end function

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00:00;;;overtype"
oMaskEdit.Text = "12"

44:
How can I change the masking or placeholder character (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Time: `00:00;;0;overtype"

43:
How can I change the masking or placeholder character (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Time: `00:00"
oMaskEdit.MaskChar = 48
oMaskEdit.InsertMode = 1

42:
Can I use your overtype mode in a multi-line control

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Text = "text"
oMaskEdit.MultiLine = .t.
oMaskEdit.InsertMode = 1

41:
Is it possible to show the control's content with a different color, while the control's content is not valid

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Phone: `!(999) 000 0000"
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Text = "8450287"
oMaskEdit.ForeColorRich = 255
oMaskEdit.Type = 1

40:
How can I select the empty and editable entity, when the control got the focus (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Date: `{1,12}/{1,31}/{1950,2050}"
oMaskEdit.SelectGotFocus = 2
oMaskEdit.Text = "1/1/"

39:
How can I select the empty and editable entity, when the control got the focus (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=2"
oMaskEdit.Text = "1/1/"

38:
How can I select the entire text, when the control got the focus (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
oMaskEdit.Text = {01/01/2001}

37:
How can I select the entire text, when the control got the focus (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Date: `{1,12}/{1,31}/{1950,2050}"
oMaskEdit.SelectGotFocus = 1
oMaskEdit.Text = {01/01/2001}

36:
Does your control support subscript or superscript, in HTML tooltips

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Warning = "<sha ;;0>Invalid <b><font ;6><off -6>2<off 4>3<off 4>1 character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

35:
How can I change the font on the control's tooltip

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Warning = "<font ;14>Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

34:
How can I display any picture on the field's tooltip

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oMaskEdit.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oMaskEdit.Warning = "<img>pic1</img> Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

33:
How can I display any icon on the field's tooltip

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oMaskEdit.Warning = "<img>1</img> Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

32:
How can I change the visual appearance of the tooltip shown when user pressed an invalid character (Method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Template = "Background(65) = 16711680" // oMaskEdit.Background(65) = 16711680
oMaskEdit.Template = "Background(66) = 65535" // oMaskEdit.Background(66) = 65535
oMaskEdit.Warning = "Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

31:
How can I change the visual appearance of the tooltip shown when user pressed an invalid character (Method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oMaskEdit.Template = "Background(64) = 16777216" // oMaskEdit.Background(64) = 16777216
oMaskEdit.Warning = "Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

30:
Is it possible to show a message when the user enters an invalid character ( method 2 )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Time: ` 00:00:00;;;warning=Invalid character"

29:
Is it possible to show a message when the user enters an invalid character ( method 1 )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Warning = "Invalid character"
oMaskEdit.Mask = "`Time: ` 00:00:00"

28:
Is it possible to play a beep/sound when user enters an invalid character ( method 2 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "`Time: ` 00:00:00;;;beep"

27:
Is it possible to play a beep/sound when user enters an invalid character ( method 1 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.AllowBeep = .t.
oMaskEdit.Mask = "`Time: ` 00:00:00"

26:
How can I prevent showing the field's content menu when the user right clicks the control ( method 2 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;nocontext"
oMaskEdit.Text = "text"

25:
How can I prevent showing the field's content menu when the user right clicks the control ( method 1 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.AllowContextMenu = .f.
oMaskEdit.Text = "text"

24:
Is it possible to let user choose the inserting mode, when he presses Insert key ( method 2.2 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00;;;inserttype,overtype"
oMaskEdit.Text = "12:3"

23:
Is it possible to let user choose the inserting mode, when he presses Insert key ( method 2.1 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00;;;overtype,inserttype"
oMaskEdit.Text = "12:3"

22:
Is it possible to let user choose the inserting mode, when he presses Insert key ( method 1 )
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00"
oMaskEdit.Text = "12:3"
oMaskEdit.AllowToggleInsertMode = .t.
oMaskEdit.InsertMode = 1

21:
Does your control support overtype mode ( method 2 )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "00:00;;;overtype"
oMaskEdit.Text = "12:3"

20:
Does your control support overtype mode ( method 1 )

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.InsertMode = 1
oMaskEdit.Mask = "00:00"
oMaskEdit.Text = "12:3"

19:
How can I change the colors to show a read only field

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.ForeColorReadOnly = 16777215
oMaskEdit.BackColorReadOnly = 0
oMaskEdit.ReadOnly = .t.
oMaskEdit.Text = "text"

18:
How can I lock or make read only the field (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.ReadOnly = .t.
oMaskEdit.Text = "text"

17:
How can I lock or make read only the field (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "*;;;readonly"
oMaskEdit.Text = "text"

16:
Is it possible to mask a password field (method 2)
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Right = .t.
oMaskEdit.Text = "text"

15:
Is it possible to right align field (method 1)
Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "*;;;right"
oMaskEdit.Text = "text"

14:
Is it possible to mask a password field (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Password = .t.
oMaskEdit.Text = "password"

13:
Is it possible to mask a password field (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "*;;;password"
oMaskEdit.Text = "password"

12:
How can I mask an integer within a range

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "{1950,2050}"
oMaskEdit.Text = 1979

11:
How can I mask an integer value with no grouping support

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,grouping=,decimal=,digits=0,select=1"
oMaskEdit.Text = 12345.67

10:
How can I mask an integer value (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "-#####;;;float,select=1"
oMaskEdit.Text = -12345.67

9:
How can I mask an integer value (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,decimal=,digits=0,select=1"
oMaskEdit.Text = 12345.67

8:
How can I specify the number of digits when masking a float (method 2)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = "###.#;;;float,select=1"
oMaskEdit.Text = 12345.67

7:
How can I specify the number of digits when masking a float (method 1)

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,select=1,digits=1"
oMaskEdit.Text = 12345.67

6:
How do I mask a positive, floating point numbers support, including grouping of digits

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,select=1,negative=0"
oMaskEdit.Text = -12345.67

5:
How do I mask a floating point numbers support, with a different decimal character

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,grouping= ,decimal=\,,select=1"
oMaskEdit.Text = "12345,67"

4:
How do I mask a floating point numbers support, excluding grouping of digits

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,grouping=,select=1"
oMaskEdit.Text = 12345.67

3:
How do I mask a floating point numbers support, including grouping of digits

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.Mask = ";;;float,select=1"
oMaskEdit.Text = 12345.67

2:
How can I change the control's foreground color

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.ForeColor = 255
oMaskEdit.Text = "aka"

1:
How can I change the control's background color

Dim oMaskEdit as P

oMaskEdit = topparent:CONTROL_ACTIVEX1.activex
oMaskEdit.BackColor = 255