122
ImageSize property on 32 (specifies the size of control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 32
	Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
	Set ComWarning to "<img>1</img> <font ;16>Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
121
ImageSize property on 16 (specifies the size of control' icons)

Procedure OnCreate
	Forward Send OnCreate
	Set ComImageSize to 16
	Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
	Set ComWarning to "<img>1</img> Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
120
Is it possible to add leading-zero for masking floating points

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "-###,###,##0.00;;;float"
	Set ComText to "1234"
End_Procedure
119
How can I show the full mask if the field is empty and gets the focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "!(999) 000 0000;;;warning=Invalid character!,select=4,overtype"
	Set ComAllowEmptyValue to OLEexAllowEmptyValueShowMask
	Set ComText to ""
End_Procedure
118
How can I mask a date (keep leading zeroes always visible) (method 4)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype"
	Set ComText to "1/2/2001"
End_Procedure
117
How can I mask a date (keep leading zeroes always visible) (method 3)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "!00/00/0000;;0;select=4,empty,overtype"
	Set ComText to "1/2/2001"
	Set ComWarning to "Invalid character!"
	Set ComInvalid to "Invalid date!"
	Set ComValidateAs to OLEexValidateAsDate
End_Procedure
116
How can I mask a date (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectRequiredEditableGotFocus
	Set ComMask to "!99/99/9999;; ;select=4,overtype"
	Set ComText to "1/2/2001"
	Set ComWarning to "Invalid character!"
	Set ComInvalid to "Invalid date!"
	Set ComValidateAs to OLEexValidateAsDate
	Set ComAllowEmptyValue to True
End_Procedure
115
How can I make the field to support empty values (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "!(999) 000 0000;;;empty,select=4,overtype,invalid=invalid phone number,beep"
End_Procedure
114
How can I make the field to support empty values (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComAllowEmptyValue to True
	Set ComMask to "!(999) 000 0000"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
End_Procedure
113
How do I get the value with no double quoted strings

// Fired while the user changes the control's text.
Procedure OnComChange 
	Forward Send OnComChange 
	Showln (ComValue(Self,3))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`IP address is `{0,255}\.{0,255}\.{0,255}\.{0,255}"
	Set ComMaskChar to 48
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComText to "1.2.3.4"
End_Procedure
112
How can I mask a RGB color

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`RGB(`{0,255},{0,255},{0,255}`)`"
	Set ComMaskChar to 48
	Set ComText to "RGB(255,0,0)"
End_Procedure
111
I noticed that an empty field is validated. Can this be changed

// Validates the field's value, once the user leaves the field.
Procedure OnComValidateValue Variant   llNewValue Boolean   llCancel
	Forward Send OnComValidateValue llNewValue llCancel
	Move True to Cancel
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComInvalid to "The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	Set ComMask to "!(999) 000-0000"
	Set ComSelectGotFocus to OLEexSelectRequiredEditableGotFocus
	Set ComInsertMode to OLEexEditOvertypeMode
End_Procedure
110
How can I play a beep when the user enters inappropriate value for the field, instead displaying the tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComInvalid to " "
	Set ComMask to "!(999) 000-0000"
	Set ComSelectGotFocus to OLEexSelectRequiredEditableGotFocus
	Set ComInsertMode to OLEexEditOvertypeMode
	Set ComText to "123-4567"
	Set ComAllowBeep to True
End_Procedure
109
How can I restrict the data input until the user enters appropiate value (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComInvalid to "The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	Set ComMask to "!(999) 000-0000"
	Set ComSelectGotFocus to OLEexSelectRequiredEditableGotFocus
	Set ComInsertMode to OLEexEditOvertypeMode
	Set ComText to "123-4567"
End_Procedure
108
How can I restrict the data input until the user enters appropiate value (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "!(999) 000-0000;;;invalid=The value you entered isn't appropriate for the input mask <b>'<%mask%>'</b> specified for this field."
	Set ComSelectGotFocus to OLEexSelectRequiredEditableGotFocus
	Set ComInsertMode to OLEexEditOvertypeMode
	Set ComText to "123-4567"
End_Procedure
107
How do I set the control's field from right to left

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Phone: `!(999) 000 0000"
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComText to "8450287"
End_Procedure
106
How can I specify multiple masks

Procedure OnCreate
	Forward Send OnCreate
	Set ComInsertMode to OLEexEditOvertypeMode
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComVisibleMasks to 6
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComMasks to "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"
	Set ComText to "845 0287"
	Set ComActiveMask to 1
End_Procedure
105
How can I mask a date (method 1, limit date)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "{1,12}/{1,31}/{1950,2015}"
	Set ComText to "1/2/2001"
	Set ComWarning to "Invalid character!"
	Set ComInvalid to "Invalid date!"
	Set ComValidateAs to OLEexValidateAsDate
End_Procedure
104
How can I mask a medium time (method 3)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "99:00;;0;overtype"
	Set ComText to "01:22"
	Set ComWarning to "Invalid character"
End_Procedure
103
How can I mask a medium time (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "{1,12}:{0,59} »[aApP]M"
	Set ComText to "11:22 AM"
	Set ComWarning to "Invalid character"
End_Procedure
102
How can I mask a medium time (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "99:00 »[aApP]M"
	Set ComText to " 1:22 PM"
	Set ComWarning to "Invalid character"
End_Procedure
101
How can I mask a short time (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "00:00;;0;overtype"
	Set ComText to "01:22"
	Set ComWarning to "Invalid character"
End_Procedure
100
How can I mask a short time (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "00:00"
	Set ComText to "01:22"
	Set ComWarning to "Invalid character"
End_Procedure
99
How can I mask a long time (method 3)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "99:00:00;;0;overtype"
	Set ComText to "01:22:00"
	Set ComWarning to "Invalid character"
End_Procedure
98
How can I mask a long time (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "{1,12}:{0,59}:{0,59} »[aApP]M"
	Set ComText to "11:22:34 AM"
	Set ComWarning to "Invalid character"
End_Procedure
97
How can I mask a long time (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "99:00:00 »[aApP]M"
	Set ComText to " 1:22:00 PM"
	Set ComWarning to "Invalid character"
End_Procedure
96
How can I mask a password

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to ";;;password"
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
95
How can I mask an extension

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "99999"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
94
How can I mask a zip code

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "00000-9999"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
93
How can I mask a social security number

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "000-00-0000"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
92
How can I mask a phone number

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "!(999) 000 0000"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "8450287"
	Set ComWarning to "Invalid character"
End_Procedure
91
How can I mask a binary number (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "[01][01][01][01][01][01][01][01];;0;overtype"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "001"
	Set ComWarning to "Invalid character"
End_Procedure
90
How can I mask a binary number (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "[01][01][01][01][01][01][01][01]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "001"
	Set ComWarning to "Invalid character"
End_Procedure
89
How can I mask a hexa number (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F];;0;overtype"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "00f"
	Set ComWarning to "Invalid character"
End_Procedure
88
How can I mask a hexa number (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "00f"
	Set ComWarning to "Invalid character"
End_Procedure
87
How do I mask an integer number

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to ";;;float,grouping=,digits=0"
	Set ComText to 12345.67
End_Procedure
86
How do I mask a decimal point number, including grouping of digits

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to ";;;float"
	Set ComText to 12345.67
End_Procedure
85
How can I mask an email address

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "`e-mail: `*@*.*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "mfl@ex"
End_Procedure
84
How can I mask an URL address

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "`http://`*.*.*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "www."
End_Procedure
83
How can I mask an IP addresse

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "{0,255}.{0,255}.{0,255}.{0,255}"
	Set ComText to "12.2"
End_Procedure
82
How can I mask a license key

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComMask to "AAAA-AAAA-AAAA-AAAA"
	Set ComText to "12A"
End_Procedure
81
How can I specify the accepted characters only, converted to lowercase

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`1,2,3,4,a,A,b,B or c,C(->lowercase): `«[1-4aAbBcC][1-4aAbBcC][1-4aAbBcC][1-4aAbBcC]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "WAa"
	Set ComWarning to "Invalid character"
End_Procedure
80
How can I specify the accepted characters only, converted to uppercase

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`1,2,3,4,a,A,b,B or c,C(->uppercase): `»[1-4aAbBcC][1-4aAbBcC][1-4aAbBcC][1-4aAbBcC]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "WAa"
	Set ComWarning to "Invalid character"
End_Procedure
79
How can I specify the accepted characters only

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`1,2,3,4,a,b or c: `[1-4abc][1-4abc][1-4abc][1-4abc]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "WAa"
	Set ComWarning to "Invalid character"
End_Procedure
78
How can I input a number with lower and upper margins

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`number between 1950 and 2050: `{1950,2050}"
	Set ComWarning to "Invalid character"
End_Procedure
77
How can I mask an url

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`any: `http://*.*.*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "www.exontrol.com"
	Set ComWarning to "Invalid character"
End_Procedure
76
How can I enter any characters combinations, converted to lowercase

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`any: `«*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
75
How can I enter any characters combinations, converted to uppercase

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`any: `»*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
74
How can I enter any characters combinations

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`any: `*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
73
How can I enter any letter, converted to lowercase (entry required) (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->lowercase): `«[a-zA-Z][a-zA-Z][a-zA-Z][a-zA-Z]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
72
How can I enter any letter, converted to lowercase (entry required) (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->lowercase): `<<<<"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
71
How can I enter any letter, converted to uppercase (entry required) (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase): `»[a-zA-Z][a-zA-Z][a-zA-Z][a-zA-Z]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
70
How can I enter any letter, converted to uppercase (entry required) (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase): `>>>>"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
69
How can I enter any character or a space (entry optional)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`character,space,optional: `CCCC"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
End_Procedure
68
How can I enter any character or a space (entry required)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`character,space: `&&&&"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
End_Procedure
67
How can I enter any letter or space (entry optional)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter,space,optional: `????"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
66
Is it possible to display the field with no masking or placeholders, when it has no focus

Procedure OnCreate
	Forward Send OnCreate
	Set ComTextIncludeLiteralsLoseFocus to OLEexClipModeLiteralsInclude
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Phone: `!(999) 000-0000"
End_Procedure
65
I have the mask starting with literals, is it possible to assign the text on editable part only, when calling the Text property

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Upper Hexa [0-9a-fA-F]: `»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "09af"
	Set ComWarning to "Invalid character"
End_Procedure
64
How can I enter a proper name, so the first letter to be upper, rest lower, and so on

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase),any,space,letter(->uppercase),any: `»L««*» »L««*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "mihai filimon"
	Set ComWarning to "Invalid character"
End_Procedure
63
How can I enter the first letter converted to upercase, and anything else after as typed (proper)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase),any: `»L«*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "aFILe"
	Set ComWarning to "Invalid character"
End_Procedure
62
How can I enter the first letter converted to upercase, and anything else after in lowercase (proper)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase),any: `»L««*"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "aFILe"
	Set ComWarning to "Invalid character"
End_Procedure
61
How can I enter any letter (entry require)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter: `LLLL"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
60
How can I enter any letter, digit, converted to lowercase (entry required)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->lowercase),digit: `«AAAA"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "AA"
	Set ComWarning to "Invalid character"
End_Procedure
59
How can I enter any letter, digit, converted to uppercase (entry required)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter(->uppercase),digit: `»AAAA"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "aa"
	Set ComWarning to "Invalid character"
End_Procedure
58
How can I enter any letter, digit (entry required)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`letter,digit: `AAAA"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "Aa"
	Set ComWarning to "Invalid character"
End_Procedure
57
How can I enter a hexa character, converted to lower, [0-9a-fA-F] ( entry required )

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Lower Hexa [0-9a-fA-F]: `«[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "FF"
	Set ComWarning to "Invalid character"
End_Procedure
56
How can I enter a hexa character, converted to upper, [0-9a-fA-F] ( entry required )

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Upper Hexa [0-9a-fA-F]: `»[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F]"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "ff"
	Set ComWarning to "Invalid character"
End_Procedure
55
How can I enter an upper case hexa character, [0-9],[A-F] ( entry required )

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Hexa [0-9],[A-F]: `XXXX"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
54
How can I enter a lower case hexa character, [0-9],[a-f] ( entry required )

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`Hexa [0-9],[a-f]: `xxxx"
	Set ComTextIncludeLiterals to OLEexClipModeLiteralsExclude
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
53
How can I enter a digit or space (entry not required; plus and minus signs not allowed)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`digit,space,optional: `9999"
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
52
How can I enter a digit (0 through 9, entry required; plus [+] and minus [-] signs not allowed)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`digit: `0000"
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
51
How can I enter a digit, +, - or space (entry not required)

Procedure OnCreate
	Forward Send OnCreate
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComMask to "`digit,+,-,space,optional: `####"
	Set ComText to "12"
	Set ComWarning to "Invalid character"
End_Procedure
50
How can I add more literals at once (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to ""This text is included between \"\" characters: " 00:00:00"
End_Procedure
49
How can I add more literals at once (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`This text is included between \`\` characters: ` 00:00:00"
End_Procedure
48
Is it possible to change the control's border, using your EBN objects

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 ComAppearance to |CI$1000000
	Set ComWarning to "Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
47
How can I get the value as it is displayed

// Fired while the user changes the control's text.
Procedure OnComChange 
	Forward Send OnComChange 
	Showln (ComText(Self))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "00:00:00;;;overtype"
	Set ComText to "12"
End_Procedure
46
How can I get the just typed and accepted characters from the field
// Fired while the user changes the control's text.
Procedure OnComChange 
	Forward Send OnComChange 
	Showln (ComValue(Self,2))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "00:00:00;;;overtype"
	Set ComText to "12"
End_Procedure
45
How can I get the value with no masking or placeholder character
// Fired while the user changes the control's text.
Procedure OnComChange 
	Forward Send OnComChange 
	Showln (ComValue(Self,1))
End_Procedure

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "00:00:00;;;overtype"
	Set ComText to "12"
End_Procedure
44
How can I change the masking or placeholder character (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Time: `00:00;;0;overtype"
End_Procedure
43
How can I change the masking or placeholder character (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Time: `00:00"
	Set ComMaskChar to 48
	Set ComInsertMode to OLEexEditOvertypeMode
End_Procedure
42
Can I use your overtype mode in a multi-line control

Procedure OnCreate
	Forward Send OnCreate
	Set ComText to "text"
	Set ComMultiLine to True
	Set ComInsertMode to OLEexEditOvertypeMode
End_Procedure
41
Is it possible to show the control's content with a different color, while the control's content is not valid

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Phone: `!(999) 000 0000"
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComText to "8450287"
	Set ComForeColorRich to (RGB(255,0,0))
	Set ComType to OLEexTypeRichEdit
End_Procedure
40
How can I select the empty and editable entity, when the control got the focus (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Date: `{1,12}/{1,31}/{1950,2050}"
	Set ComSelectGotFocus to OLEexSelectEditableGotFocus
	Set ComText to "1/1/"
End_Procedure
39
How can I select the empty and editable entity, when the control got the focus (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Date: `{1,12}/{1,31}/{1950,2050};;;select=2"
	Set ComText to "1/1/"
End_Procedure
38
How can I select the entire text, when the control got the focus (method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Date: `{1,12}/{1,31}/{1950,2050};;;select=1"
	Set ComText to "1/1/2001"
End_Procedure
37
How can I select the entire text, when the control got the focus (method 1)

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Date: `{1,12}/{1,31}/{1950,2050}"
	Set ComSelectGotFocus to OLEexSelectAllGotFocus
	Set ComText to "1/1/2001"
End_Procedure
36
Does your control support subscript or superscript, in HTML tooltips

Procedure OnCreate
	Forward Send OnCreate
	Set ComWarning to "<sha ;;0>Invalid <b><font ;6><off -6>2<off 4>3<off 4>1 character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
35
How can I change the font on the control's tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComWarning to "<font ;14>Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
34
How can I display any picture on the field's tooltip

Procedure OnCreate
	Forward Send OnCreate
	Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
	Set ComWarning to "<img>pic1</img> Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
33
How can I display any icon on the field's tooltip

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 ComWarning to "<img>1</img> Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
32
How can I change the visual appearance of the tooltip shown when user pressed an invalid character (Method 2)

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexToolTipBackColor to (RGB(0,0,255))
	Set ComBackground OLEexToolTipForeColor to (RGB(255,255,0))
	Set ComWarning to "Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
31
How can I change the visual appearance of the tooltip shown when user pressed an invalid character (Method 1)

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 ComBackground OLEexToolTipAppearance to |CI$1000000
	Set ComWarning to "Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
30
Is it possible to show a message when the user enters an invalid character ( method 2 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Time: ` 00:00:00;;;warning=Invalid character"
End_Procedure
29
Is it possible to show a message when the user enters an invalid character ( method 1 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComWarning to "Invalid character"
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
28
Is it possible to play a beep/sound when user enters an invalid character ( method 2 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "`Time: ` 00:00:00;;;beep"
End_Procedure
27
Is it possible to play a beep/sound when user enters an invalid character ( method 1 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowBeep to True
	Set ComMask to "`Time: ` 00:00:00"
End_Procedure
26
How can I prevent showing the field's content menu when the user right clicks the control ( method 2 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to ";;;nocontext"
	Set ComText to "text"
End_Procedure
25
How can I prevent showing the field's content menu when the user right clicks the control ( method 1 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowContextMenu to False
	Set ComText to "text"
End_Procedure
24
Is it possible to let user choose the inserting mode, when he presses Insert key ( method 2.2 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "00:00;;;inserttype,overtype"
	Set ComText to "12:3"
End_Procedure
23
Is it possible to let user choose the inserting mode, when he presses Insert key ( method 2.1 )
Procedure OnCreate
	Forward Send OnCreate
	Set ComMask to "00:00;;;overtype,inserttype"
	Set ComText to "12:3"
End_Procedure