Как конвертировать цвет в оттенок серого?

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 с подогревом.