Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.18;
Скачать: CL | DM;

Вниз

Вывод картинки с полупрозрачностью   Найти похожие ветки 

 
race1   (2005-07-18 15:22) [0]

Как нарисовать данный bitmap на какой-то канве с прозрачностью, например, 45%? Что-то никак найти не могу алгоритм смешивания цветов...


 
Чапаев ©   (2005-07-18 15:28) [1]

> Что-то никак найти не могу алгоритм смешивания цветов
Вот проблема-то...


var
 C1,C2:TColor;
 R,G,B:Byte;
...
 C1:=BackGround.Pixels[X,Y];
 C2:=Bitmap.Pixels[X,Y];
 R:=Round(GetRValue(C2)*0.45+GetRValue(C1)*(1-0.45));
 ...
 Result.Pixels[X,Y]:=RGB(R,G,B);


 
Магнитон Борыч   (2005-07-18 17:44) [2]

http://delphibase.spb.ru/?action=viewfunc&topic=mediaimg&id=10300



Страницы: 1 вся ветка

Текущий архив: 2005.12.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.043 c
3-1130932156
Ega23
2005-11-02 14:49
2005.12.18
Не обновляются данные после EnableControls


8-1121117343
АСК1
2005-07-12 01:29
2005.12.18
pfDevice - это сколько байт на пиксель в TBitMap ?


2-1133514762
ЖСВ
2005-12-02 12:12
2005.12.18
Есть ли в Delphi6 объявления типа записи таблицы?


3-1130856634
Mouse_Rat
2005-11-01 17:50
2005.12.18
Backup таблицы из FireBird


14-1133020939
Cerberus
2005-11-26 19:02
2005.12.18
Подскажите текстовый редактор.