Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Графика и Игры \ Цвета и Палитра \ Получить оттенок серого из RGB-цвета

Получить оттенок серого из RGB-цвета

{ 
  The following function helps you to convert a RGB Color to Grayscale. 
  It works after the american NTSC (National Televisision Standards Committee) 
  system. 
}

 { 
  Mit Hilfe des folgenden Codes lasst sich die Graustufe einer 
  beliebigen RGB Farbe herausfinden. Das System arbeitet nach dem 
  vom amerikanischem NTSC (National Televisision Standards Committee) 
  vorgelschlagenem System. 
  Es kann unteranderem dazu verwendet werden ein Bild in Graustufen 
  darzustellen. (siehe dazu Tipp http://www.swissdelphicenter.ch/de/showcode.php?id=437) 
}


 function GetGreyScale(red, blue, green: TColor): TColor;
 var
    Color: Integer;
 begin
   Color := Round(red * 0.56 + green * 0.33 + blue * 0.11);
   Result := RGB(Color, Color, Color);
 end;

Название: Получить оттенок серого из RGB-цвета
Дата публикации: 2004-08-31 (2614 Прочтено)

 
 

 

Page generation 0.029 seconds