SetColorCreen

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

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

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

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

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

     currentColor := SetColorGreen(currentColor, 117);

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

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