SetColorBlue

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

SetColorBlue(Color): Integer
Color: Integer	Числовой код цвета, либо наименование цветовой константы
Blue: Integer	Устанавливаемая величина синего цвета
Функция возвращает код полученного цвета

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

{Pascal Script}
Var
    currentColor: Integer = clPurple;
    res: Integer;

Begin
     res := GetColorBlue(currentColor);
     AddToDebugLog('Доля синего цвета в текущем цвете ДО: ' + intToStr(res));

     currentColor := SetColorBlue(currentColor, 17);

     res := GetColorBlue(currentColor);
     AddToDebugLog('Доля синего цвета в текущем цвете ПОСЛЕ: ' + intToStr(res));
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.