Получить оттенок серого из RGB-цветаDelphi , Графика и Игры , Цвета и ПалитраПолучить оттенок серого из RGB-цвета
Оформил: DeeCo { 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-цвета раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Цвета и Палитра ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |