Kbase P40212: How to access the colors used by the Progress session using
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
02/09/2003 |
|
Status: Unverified
GOAL:
How to access the colors used by the Progress session using the 4GL?
FACT(s) (Environment):
Windows 32 Intel
FACT(s) (Environment):
Windows NT 32 Intel/Windows 2000
FIX:
Colors used by the Progress session are stored in the COLOR-TABLE.
You can access to it using the COLOR-TABLE system handle and its methods. For example, this code displays the colors that the current Progress session is using:
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DO i = 0 TO COLOR-TABLE:NUM-ENTRIES WITH DOWN :
DISPLAY i
COLOR-TABLE:GET-RED-VALUE(i) LABEL "R"
COLOR-TABLE:GET-GREEN-VALUE(i) LABEL "G"
COLOR-TABLE:GET-BLUE-VALUE(i) LABEL "B".
END.