COLOR-TABLE system handle

(Windows only; Graphical interfaces only)

A handle to the current color table.

Note: Does not apply to SpeedScript programming.

Syntax

COLOR-TABLE [ :attribute | :method ]
attribute
An attribute of the COLOR-TABLE handle.
method
A method of the COLOR-TABLE handle.

Attributes

Methods

Example

This procedure sets the number of entries in the color table, makes color ix + 1 dynamic, then sets the red, green, and blue values for this entry:

r-colhan.p

DEFINE VARIABLE red   AS INTEGER NO-UNDO.
DEFINE VARIABLE blue  AS INTEGER NO-UNDO INITIAL 127.
DEFINE VARIABLE green AS INTEGER NO-UNDO INITIAL 127.
DEFINE VARIABLE ix    AS INTEGER NO-UNDO.

ix = COLOR-TABLE:NUM-ENTRIES
COLOR-TABLE:NUM-ENTRIES = ix + 1.

COLOR-TABLE:SET-DYNAMIC(ix, TRUE).
COLOR-TABLE:SET-RED-VALUE(ix, red).
COLOR-TABLE:SET-GREEN-VALUE(ix, green).
COLOR-TABLE:SET-BLUE-VALUE(ix, blue).

DISPLAY COLOR-TABLE:GET-RED-VALUE(ix).
DISPLAY COLOR-TABLE:GET-GREEN-VALUE(ix).
DISPLAY COLOR-TABLE:GET-BLUE-VALUE(ix).
Note: In this procedure, you can replace the SET-RED-VALUE( ), SET-GREEN-VALUE( ), and SET-BLUE-VALUE( ) methods with the SET-RGB-VALUE( ) method as follows: COLOR-TABLE:SET-RGB-VALUE(ix, RGB-VALUE(red, green, blue)).

Notes

See also

GET-KEY-VALUE statement, PUT-KEY-VALUE statement, SYSTEM-DIALOG COLOR statement, USE statement