Kbase P4605: How to force user input to be in capital letters
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/11/2003 |
|
Status: Unverified
GOAL:
How to force user input to be in capital letters
FACT(s) (Environment):
Windows 32 Intel
FACT(s) (Environment):
Windows NT 32 Intel/Windows 2000
FACT(s) (Environment):
Progress 9.x
FIX:
1- Define the following variable in the definitions section:
DEFINE VARIABLE iCursorPosition AS INTEGER NO-UNDO.
2- Insert the following 'VALUE-CHANGED' trigger after "RUN enable_UI" in the main block:
ON 'VALUE-CHANGED':U ANYWHERE
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.