Содержание:


SetColorRed

Функция устанавливает долю красного цвета в указанном цвете в абсолютных цифрах. Цвет может указываться цифровым значением или наименованием цветовой константы (например, "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.