Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


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

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