Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Мар

Как сделать смешивание цветов

Posted by Chas under Пост-обзор

Freezer:

вариант конечно не очень хороший но можно самому реализовать смешивание цветов, вот функция:

//=============================================================================================

function MixBytes(FG, BG, TRANS: byte): byte;//змішує 1 канал двох кольорів з даданою прозорістю

//---------------------------------------------------------------------------------------------

begin

  Result := round(bg + (fg - bg)/255*TRANS);

end{function MixBytes(FG, BG, TRANS: byte): byte;};
//=============================================================================================

function MixColors(FG, BG: TColor; T: byte): TColor;

//---------------------------------------------------------------------------------------------

var r,g,b:byte;

begin

  R := MixBytes(FG and 255,BG and 255,T); // extracting and mixing Red

  G := MixBytes((FG shr 8) and 255,(BG shr 8) and 255,T); // the same with green

  B := MixBytes((FG shr 16) and 255,(BG shr 16) and 255,T); // and blue, of course

  Result := r+g*256+b*65536; // finishing with combining all channels together

end {function MixColors(FG, BG: TColor; T: byte): TColor;};