SetColorRed

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

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

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

Var
    res, currentColor : Integer;
    s : String;

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