Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по 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;};
Передаешь туда цвет фона, цвет который налаживаешь, прозрачность, получаешь нужный цвет, а дальше шуруешь напрямую на Canvas.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)