Вниз
Скачать: CL | DM;

BitBlt и прозрачность   Найти похожие ветки 

← →
BladeMaster   (2004-07-07 13:02) [0]

Вот понадобилось с помощью BitBlt вывести картинку с прозрачными участками.
Посмотрел на DelphiGFX и нашел следующее:
...
var
Wizard, WizardMask,Buffer:Tbitmap;
X,Y:integer;
...
Wizard:=Tbitmap.Create;
Wizard.Loadfromfile("spr1.bmp");
WizardMask:=Tbitmap.Create;
WizardMask.Loadfromfile("spr2.bmp");
Buffer:=Tbitmap.Create; // Копируем маску в буфер
BitBlt(Buffer.Canvas.Handle,X,Y,50,50, WizardMask.Canvas.Handle,0,0,SrcPaint);
// Копируем спрайт в буфер
BitBlt(Buffer.Canvas.Handle,X,Y,50,50, Wizard.Canvas.Handle,0,0,SrcAnd);
...
// Перемещаем буфер на форму BitBlt(Form1.Canvas.Handle,0,0,320,240,Buffer.Canvas.Handle,0,0,SrcCopy);

Так вот, если прозрачный цвет белый, то все работает. А если любой другой то этот цвет становится не прозрачным, а полупрозрачным. Как от этого избавиться?

PS
Видео: GeForce4 MX400


← →
Servelat ©   (2004-07-07 23:48) [1]

Если у тебя картинка маски - монохромная, то сделай её не монохромной, а 24"битной (или столько битной, сколько и основное изображение). Должно помочь.



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c
14-1098273465
Ega23
2004-10-20 15:57
2004.11.07
Приятель только что приятель прислал :о)


6-1093466977
Flagman
2004-08-26 00:49
2004.11.07
Читать/писать в определенный порт...


14-1098349334
AlexG
2004-10-21 13:02
2004.11.07
Мне нужен метод остановить работу компа на N сек


1-1098463016
maximka
2004-10-22 20:36
2004.11.07
Сохранение данных в бинарный файл


4-1095749888
secret
2004-09-21 10:58
2004.11.07
Как в “Delphi 6” поменять шрифт, в котором выводится надпись на з




   Наверх