Функция устанавливает долю красного цвета в указанном цвете в абсолютных цифрах. Цвет может указываться цифровым значением или наименованием цветовой константы (например, "clSilver").
Синтаксис | ||
SetColorRed(Color: Integer; Red: Integer): Integer | ||
Входные параметры | ||
Имя параметра | Тип параметра | Описание |
Color | Integer | Числовой код цвета, либо наименование предопределенной цветовой константы: clLime, clSilver, ... |
Red | Integer | Устанавливаемая величина красного цвета |
Выходные параметры | ||
Тип параметра | Описание | |
Integer | Код полученного цвета |
Var res, currentColor : Integer; s : String; Begin currentColor := clPurple; res := GetColorRed(currentColor); s := 'Доля красного цвета в текущем цвете ДО: ' + IntToStr(res) + #10; res := SetColorRed(currentColor, 17); res := GetColorRed(res); s := s + 'Доля красного цвета в текущем цвете ПОСЛЕ: ' + IntToStr(res) + #10; WriteValue('Virtual channel 99', s); end. |