Смешиваем два цветаDelphi , Графика и Игры , Цвета и ПалитраСмешиваем два цвета
Автор: Vit Самый простой способ смешать два цвета c1 и c2, это вычислить средние значения rgb-значений. Данный пример не отличается особой быстротой, поэтому если Вам нужно быстро смешивать цвета, то прийдётся пошевелить мозгами... function GetMixColor(c1, c2: TColor): TColor; begin // вычисляем средние значения Красного, Синего и Зелёного значений // цветов c1 и c2: Result := RGB( (GetRValue(c1) + GetRValue(c2)) div 2, (GetGValue(c1) + GetGValue(c2)) div 2, (GetBValue(c1) + GetBValue(c2)) div 2 ); end; Статья Смешиваем два цвета раздела Графика и Игры Цвета и Палитра может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Цвета и Палитра ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |