SetColorBlue

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

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

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

Var
    res, currentColor : Integer;
    s : String;

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