SetColorCreen

Функция устанавливает долю зеленого цвета в указанном цвете в абсолютных цифрах. Цвет может указываться цифровым значением или наименованием цветовой константы (например, "clSilver").

Синтаксис
SetColorGreen(Color: Integer; Green: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
Color	Integer	Числовой код цвета, либо наименование предопределенной цветовой константы: clLime, clSilver, ...
Green	Integer	Устанавливаемая величина зеленого цвета
Выходные параметры
Тип параметра		Описание
Integer		Код полученного цвета

Пример вызова:

Var
    res, currentColor : Integer;
    s : String;

Begin
     currentColor := clPurple;
     res := GetColorGreen(currentColor);
     s := 'Доля зеленого цвета в текущем цвете ДО: ' + IntToStr(res) + #10;
     res := SetColorGreen(currentColor, 17);
     res := GetColorGreen(res);
     s := s + 'Доля зеленого цвета в текущем цвете ПОСЛЕ: ' + IntToStr(res) + #10;
     WriteValue('Virtual channel 99', s);
end.