SetColorRed

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

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

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

{Pascal Script}   Var     currentColor: Integer = clPurple;     res: Integer;   Begin      res := GetColorRed(currentColor);      AddToDebugLog('Доля красного цвета в текущем цвете ДО:  ' + intToStr(res));      currentColor := SetColorRed(currentColor, 107);      res := GetColorRed(currentColor);      AddToDebugLog('Доля красного цвета в текущем цвете ПОСЛЕ:  ' + intToStr(res));        end.

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