GetColorRed

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

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

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

{Pascal Script}
Var
    res : Integer;

Begin
     res := GetColorRed(clPurple);
     AddToDebugLog('Доля красного цвета в "clPurple" = ' + intToStr(res));
end.

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