Содержание:


SetColorCreen

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

Синтаксис

SetColorGreen(Color: Integer; Green: Integer): Integer

Входные параметры
Имя параметра
Тип параметра
Описание
Color Integer  Числовой код цвета,
 либо наименование
 предопределенной
 цветовой константы:
 clLime, clSilver, ...
Green Integer
 Устанавливаемая
 величина зеленого
 цвета
Выходные параметры
Тип параметра  
Описание 
Integer  Код полученного
 цвета

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

 
  Var
    res, currentColor : Integer;
    s : String;
 
  Begin
     currentColor := clPurple;
     res := GetColorGreen(currentColor);
     s := 'Доля зеленого цвета в текущем цвете ДО:  ' + IntToStr(res) + #10;
     res := SetColorGreen(currentColor, 17);
     res := GetColorGreen(res);
     s := s + 'Доля зеленого цвета в текущем цвете ПОСЛЕ:  ' + IntToStr(res) + #10;  
     WriteValue('Virtual channel 99', s);
  end.