New Group Around Widget Color Fields

There is a new group field around --- WIDGET color fields for the designer to use.

Overview:

There is a new group field around --- WIDGET color fields for the designer to use.

The group field is called --- WIDGET COLOR FG/BG/RO, which is a group around:

WIDGET COLOR EN FG R/G/B/NL
WIDGET COLOR EN BG R/G/B/NL
WIDGET COLOR DB FG R/G/B/NL
WIDGET COLOR DB BG R/G/B/NL
WIDGET COLOR RO FG R/G/B/NL
WIDGET COLOR RO BG R/G/B/NL

Usage:

For example, you could remap the 24 colour fields to a work field with 24 occurences. To do this, define a one-rec, working storage file with the following fields:

                               Fld                   D --Stored---   -Options--
Seq No  Field Name             Typ Format            S Start Len     D DL AA KC
------- ---------------------- --- ----------------- - ----- -----   ----------
100     COLOUR GROUP           Hdr                         1    24
200     COLOUR COLOURS         Num 9(3) Oc 24              1     1         AA
300     COLOUR GROUP END       Trl

When defining the field to contain the 24 occurences, make sure you set the storage type to 'Binary' and put a range check of 'LE 255'. This will make sure each occurrence is a 1 byte binary field.

Once defined, you can PASS --- WIDGET COLOR FG/BG/RO into a subroutine which RECEIVEs COLOUR GROUP and then refer to the colors by occurence number instead of field name. The occurrences map as follows:

WIDGET COLOR EN FG (R/G/B/NL) are occurrences 1-4

WIDGET COLOR EN BG (R/G/B/NL) are occurrences 5-8

WIDGET COLOR DB FG (R/G/B/NL) are occurrences 9-12

WIDGET COLOR DB BG (R/G/B/NL) are occurrences 13-16

WIDGET COLOR RO FG (R/G/B/NL) are occurrences 17-21

WIDGET COLOR RO BG (R/G/B/NL) are occurrences 21-24

Comments:

Read what other users have said about this page or add your own comments.

-- JeanNeron - 2013-11-28