SET RGB COLORS

version 6.0

SET RGB COLORS ({*; }object; foregroundColor; backgroundColor)

Parameter	Type		Description
*			If specified, Object is an Object Name (String)
			If omitted, Object is a Field or a Variable
object	Form Object		Object Name (if * is specified), or
			Field or Variable (if * is omitted)
foregroundColor	Number		RGB color value for Foreground color
backgroundColor	Number		RGB color value for Background color

The command SET RGB COLORS changes the foreground and background colors of the objects specified by object and the optional * parameters.

If you specify the optional * parameter, you indicate an object name (a string) in object. If you omit the optional * parameter, you indicate a field or a variable in object. In this case, you specify a field or variable reference (field or variable objects only) instead of a string. For more information about object names, see the section Object Properties.

You indicate RGB color values in foreground and background. An RGB value is a 4-byte Long Integer whose format (0x00RRGGBB) is described in the following table (bytes are numbered from 0 to 3, from right to left):

Byte	Description
3	Must be zero if absolute RGB color
2	Red component of the color (0..255)
1	Green component of the color (0..255)
0	Blue component of the color (0..255)

The following table shows some examples of RGB color values:

Alternatively, you can specify one of the four automatic colors used by 4th Dimension for drawing objects whose colors are set automatically. The following predefined constants are provided by 4th Dimension:

These colors (on a standard system) are shown here:

WARNING: On Windows, these automatic colors are system dependent. If you change your system colors in the Colors Windows Control Panel, 4th Dimension will adjust its automatic colors accordingly. Use the automatic color values for setting objects to the system colors, not for setting them to the example colors shown above.

This form contains the two non-enterable variables vsColorValue and vsColor as well as the three thermometers: thRed, thGreen, and thBlue.

Here are the methods for these objects:

      ` vsColorValue non-enterable Object Method
   Case of 
      : (Form event=On Load)
         vsColorValue:="0x00000000"
   End case 

      ` vsColor non-enterable variable Object Method
   Case of 
      : (Form event=On Load)
         vsColor:=""
         SET RGB COLORS(vsColor;0x00FFFFFF;0x0000)
   End case 
 
      ` thRed Thermometer Object Method
   CLICK IN COLOR THERMOMETER 

      ` thGreen Thermometer Object Method
   CLICK IN COLOR THERMOMETER 

      ` thBlue Thermometer Object Method
   CLICK IN COLOR THERMOMETER 

The project method called by the three thermometers is:

      ` CLICK IN COLOR THERMOMETER Project Method
   SET RGB COLORS(vsColor;0x00FFFFFF;(thRed << 16)+(thGreen << 8)+thBlue)
   vsColorValue:=String((thRed << 16)+(thGreen << 8)+thBlue;"&x")
   If (thRed=0)
      vsColorValue:=Substring(vsColorValue;1;2)+"0000"+Substring(vsColorValue;3)
   End if 

Note the use of the Bitwise operators for calculating the color value from the thermometer values.

In the User or Custom Menus environments, the form looks like this:

Bitwise Operators, SET COLOR.