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


Chapter 3 Tools : $GETCOLOUR

$GETCOLOUR
Queries the current color of a screen field. (F)
Invocation
color = $GETCOLOUR(screen, table, field, color_type)
 
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.
A character string specifying the screen. Its syntax is C (fixed-length character string) with length 16.
Usage Notes
Not all display devices can support background color. If your display device does not support background color, the specification is ignored.
$GETCOLOUR 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, $GETCOLOUR returns an empty string.
Example
The following rule queries the color of the FCNKEYS field of the example screen, displays the screen, and reports the color of the field:

 
GETCOLOUR_1;
_ LOCAL COLOUR;
_ ------------------------------------------------------------------------
_ ------------------------------------------------------------+-----------
_ FCNKEY_SPECS.FCNKEYS = FCNKEY_MSG('NEW_EMPLOYEE'); | 1
_ INSERT FCNKEY_SPECS('NEW_EMPLOYEE'); | 2
_ COLOUR= $GETCOLOUR('NEW_EMPLOYEE', 'FCNKEY_SPECS', | 3
_ 'FCNKEYS', 'F',); |
_ DISPLAY NEW_EMPLOYEE: | 4
_ CALL ENDMSG('COLOUR IS '|| COLOUR); | 5
_ ------------------------------------------------------------------------

 

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