Kbase P38154: How to force user input to be in capital letters in a SDV
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
20/08/2003 |
|
Status: Unverified
GOAL:
How to force user input to be in capital letters in a SDV
FACT(s) (Environment):
Progress 9.x
FACT(s) (Environment):
Windows NT 32 Intel/Windows 2000
FACT(s) (Environment):
Windows 32 Intel
FIX:
1- Define the following variable in the definitions section:
DEFINE VARIABLE iCursorPosition AS INTEGER NO-UNDO.
2- Override the "valueChanged" procedure and insert the following before "RUN Super":
DO:
iCursorPosition = SELF:CURSOR-OFFSET.
IF CAN-DO("FILL-IN,EDITOR":U, SELF:TYPE) THEN
ASSIGN
SELF:SCREEN-VALUE = CAPS(SELF:SCREEN-VALUE)
SELF:CURSOR-OFFSET = iCursorPosition.
END.