|
|
|
|
- Properties specific to InputMask variables
- Use
InputMask (Variable type) In french: MasqueSaisie
The InputMask type is used to define all the advanced characteristics of a custom input mask. You can define and change the characteristics of this custom input mask using different WLanguage properties. Remark: For more details on the declaration of this type of variable and the use of WLanguage properties, see Declaring a variable.
sMask is string = "99 99 99 99 99"
CustomMask is InputMask
CustomMask.FormatDuringInput = FormatDuringInput
CustomMask.ValidateDuringInput = ValidateDuringInput
CustomMask.ValidateDuringExit = ValidateDuringExit
CustomMask.FormatDuringExit = FormatDuringExit
CustomMask.FormatDuringEntry = FormatDuringEntry
CustomMask.FormatDuringAssignment = FormatDuringAssignment
CustomMask.CheckIfValidInput = CheckIfValidInput
EDT_Phone.InputMask = CustomMask
INTERNAL PROCEDURE FormatDuringInput(LOCAL sTextBefore is string,
sTextAfter is string, ...
nCursorAfter is int, ...
nEndCursorAfter int)
IF Length(sTextBefore) > Length(sTextAfter) THEN RESULT
IF nEndCursorAfter = Length(sTextAfter) +1 THEN
IF Middle(sMask, nEndCursorAfter, 1) = " " THEN
sTextAfter += " "
nEndCursorAfter ++
nCursorAfter = nEndCursorAfter
END
END
END
INTERNAL PROCEDURE ValidateDuringInput(sText is string): boolean
RETURN MatchRegularExpression(sText , "[0-9 ]*")
END
INTERNAL PROCEDURE CheckIfValidInput(sText is string): boolean
RETURN ValidateDuringInput(sText) _AND_ Length(sText) >= 3
END
INTERNAL PROCEDURE FormatDuringAssignment(sText_INOUT is string)
FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE ValidateDuringExit(sText is string): boolean
IF Length(sText) < 3 THEN
ToastDisplay("3 characters minimum")
RESULT False
END
RETURN True
END
INTERNAL PROCEDURE FormatDuringExit(sText_INOUT is string)
FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE FormatDuringEntry(sText_INOUT is string)
FormatStringToPhoneNumber(sText_INOUT)
END
INTERNAL PROCEDURE FormatStringToPhoneNumber(sText_INOUT is string)
sText_INOUT = Replace(sTexte_INOUT," ","")
sResult is string
nPosSrc is int = 1
FOR I = 1 _TO_ Length(sMask)
SWITCH Middle(sMask, I, 1)
CASE " "
sResult += " "
OTHER CASE
sResult += Middle(sText_INOUT, nPosSrc, 1)
nPosSrc++
END
END
sText_INOUT = sResult
END
Remarks Properties specific to InputMask variables The following properties can be used to handle a custom input mask: | | | Property name | Type used | Effect |
---|
CheckIfValidInput | WLanguage procedure | Name of the WLanguage procedure called by InvalidInputDetect and InvalidInputListControl to determine if the text entered is valid.This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no check is performed. | FormatDuringAssignment | WLanguage procedure | Name of the WLanguage procedure that transforms the text assigned programmatically into text to be displayed.This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no transformation is performed. | FormatDuringEntry | WLanguage procedure | Name of the WLanguage procedure that transforms the displayed text into input text.This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no transformation is performed. | FormatDuringExit | WLanguage procedure | Name of the WLanguage procedure that transforms the input text into displayed text. This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no transformation is performed. | FormatDuringInput | WLanguage procedure | Name of the WLanguage procedure that transforms the text during input.This procedure has the following format: PROCEDURE <Procedure name>(LOCAL<Text before> string, LOCAL <Cursor before> int, LOCAL <End Cursor before> int, <Text after> string, <Cursor after> int, <End Cursor after> int) where: - <Text before> corresponds to the text before input.
- <Cursor before> corresponds to the position of the cursor before input.
- <End cursor before> corresponds to the end position of the cursor before input.
- <Text after> corresponds to the text after input.
- <Cursor after> corresponds to the position of the cursor after input.
- <End cursor after> corresponds to the end position of the cursor after input.
If this property is not specified, no transformation is performed. | ValidateDuringExit | WLanguage procedure | Name of the WLanguage procedure that checks the input (once all the characters have been entered). This procedure returns False if the text entered contains invalid characters. This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no transformation is performed. | ValidateDuringInput | WLanguage procedure | Name of the WLanguage procedure that checks the current input. This procedure returns False if the text being entered contains invalid characters. This procedure has the following format: PROCEDURE <Procedure name>(<Text> string) where <Text> corresponds to the text to handle. If this property is not specified, no transformation is performed. |
Use - An InputMask variable can be assigned to the InputMask property to control each event linked to the management of a mask in an edit control.
- MaskPhoneNumber and MaskZipCode handle InputMask variables.
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|