Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 3 Tools : $SETCOLOUR

$SETCOLOUR
Sets the color of a screen field. (C)
Invocation
CALL $SETCOLOUR(screen, table, field, color_type, color)
 
A character string specifying the screen. Its syntax is C (fixed-length character string) with length 16.
A character string specifying the screen table. Its syntax is C with length 16. To set the color for the message area of the specified screen (where the SCREENMSG tool writes), leave table blank.
A character string specifying the screen field. Its syntax is C with length 16. To set the color for the message area of the specified screen (where the SCREENMSG tool writes), set field to @MESSAGE.
A character string specifying the color to be used. Valid values are any color in the @COLOURS table. Its syntax is C with length 25.
Usage Notes
Not all display devices can support background color. If your display device does not support background color, the specification is ignored.
Unexpected results can occur when an extended color is sent to a terminal that does not support extended colors. Generally, if a field is specified with an extended color and sent to a terminal that does not support extended colors, the terminal software returns the entire screen in two-color mode.
You must supply valid values for all the arguments or an error occurs.
$SETCOLOUR operates only on a screen table that has real occurrences and has the current position set by a table access. If the current position is not set in the screen table, a call to $SETCOLOUR is ignored.
Example
The following rule sets the color on the FCNKEYS field of the example screen and displays the screen:

 
SETCOLOUR_1;
_
_ ------------------------------------------------------------------------
_ ------------------------------------------------------------+-----------
_ FCNKEY_SPECS.FCNKEYS = FCNKEY_MSG('NEW_EMPLOYEE'); | 1
_ INSERT FCNKEY_SPECS('NEW_EMPLOYEE'); | 2
_ CALL $SETCOLOUR('NEW_EMPLOYEE', 'FCNKEY_SPECS', 'FCNKEYS', | 3
_ 'F', 'RED'); |
_ UNTIL EXIT_DISPLAY DISPLAY NEW_EMPLOYEE: | 4
_ CALL PROCESS_FCNKEY('NEW_EMPLOYEE'); |
_ END; |
_ ------------------------------------------------------------------------

 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved