Программирование на Delphi и не только Как конвертировать цвет в оттенок серого? | Программирование на Delphi и не только

Delphi FAQ >> Графика

Данная функция на Delphi позволяет преобразовать любой цвет в оттенок серого:

function RgbToGray(Source: TColor): TColor;
var
  Target: Byte;
begin
  Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source))+(0.11 * GetBValue(Source)));   Result := RGB(Target, Target, Target);

end;

С распространением компьютеров стали популярны USB гаджеты — от простого светильника — до перчатоr с подогревом.