Sets the color of a modern dialog color button. Set all colors to 0 for black. Set all colors to 65535 for white.
PROCEDURE SetColorButton(
dialogID : LONGINT;
itemID : LONGINT;
red : LONGINT;
green : LONGINT;
blue : LONGINT);def vs.SetColorButton(dialogID, itemID, red, green, blue):
return None| Name | Type | Description |
|---|---|---|
| dialogID | LONGINT | The index of the dialog layout containing the control. |
| itemID | LONGINT | The index of the color button. |
| red | LONGINT | The red component of the color. |
| green | LONGINT | The green component of the color. |
| blue | LONGINT | The blue component of the color. |
PROCEDURE SetColorControl(dialogID, controlID :LONGINT; colorIndex :STRING);
VAR
r, g, b :LONGINT;
BEGIN
IF colorIndex <> '' THEN BEGIN
ColorIndexToRGB(Str2Num(colorIndex), r, g, b);
SetColorButton(dialogID, controlID, r, g, b);
END;
END;VS Functions: GetColorButton
Availability: from VectorWorks10.0