hi guys,
i am trying to force a upper case display on the GUI while user enters a description. the description can have spaces. how can i allow spaces on the right hand side of the description, because spaces can only possible on the left hand side.
here is the code....
thanks.
DEF VAR fill-in-1 AS CHAR.
DEFINE FRAME frame-a
fill-in-1
WITH THREE-D SIDE-LABELS.
ON VALUE-CHANGED OF fill-in-1 IN FRAME frame-a
DO:
ASSIGN fill-in-1.
DEF VAR cursorPos AS INT NO-UNDO.
cursorPos = fill-in-1:CURSOR-OFFSET.
ASSIGN fill-in-1:SCREEN-VALUE = CAPS(fill-in-1:SCREEN-VALUE)
fill-in-1:CURSOR-OFFSET = cursorPos.
RETURN.
END.
UPDATE fill-in-1 WITH FRAME frame-a.
i am trying to force a upper case display on the GUI while user enters a description. the description can have spaces. how can i allow spaces on the right hand side of the description, because spaces can only possible on the left hand side.
here is the code....
thanks.
DEF VAR fill-in-1 AS CHAR.
DEFINE FRAME frame-a
fill-in-1
WITH THREE-D SIDE-LABELS.
ON VALUE-CHANGED OF fill-in-1 IN FRAME frame-a
DO:
ASSIGN fill-in-1.
DEF VAR cursorPos AS INT NO-UNDO.
cursorPos = fill-in-1:CURSOR-OFFSET.
ASSIGN fill-in-1:SCREEN-VALUE = CAPS(fill-in-1:SCREEN-VALUE)
fill-in-1:CURSOR-OFFSET = cursorPos.
RETURN.
END.
UPDATE fill-in-1 WITH FRAME frame-a.