Tags:
create new tag
view all tags

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:

You can use this group field in the same way you use the individual color fields. This allows you to pass all 6 color groups at once.

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

Edit | Attach | Watch | Print version | History: r3 < r2 < r1 | Backlinks | Raw View | Raw edit | More topic actions
Topic revision: r3 - 2013-12-31 - JeanNeron
 
This site is powered by the TWiki collaboration platform Powered by PerlCopyright © 2008-2024 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback