Вниз
Скачать: 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.021 c
14-1098092835
Gari
2004-10-18 13:47
2004.11.07
Как много изменений в новой версии Delphi


3-1096373594
NewGuest
2004-09-28 16:13
2004.11.07
проблема соединения с базой (dbase через ADO) на разных компах


4-1096617499
Expl
2004-10-01 11:58
2004.11.07
Как заюзать библиотеку?


3-1097061190
Its
2004-10-06 15:13
2004.11.07
SQL - запрос


1-1098742630
saNat
2004-10-26 02:17
2004.11.07
Прокрутка в Мемо




   Наверх