Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.035 c
10-1059006618
MMax
2003-07-24 04:30
2004.11.07
Утечка памяти COM сервера реализованного на Delphi 4-7.


1-1098647524
MegaBonus
2004-10-24 23:52
2004.11.07
Почему замедляется работа процедуры?


1-1098340163
AntonSh
2004-10-21 10:29
2004.11.07
Строка


6-1093497971
Sollo
2004-08-26 09:26
2004.11.07
Многопотоковая отправлялка SMS


1-1098446890
ALEKCEY
2004-10-22 16:08
2004.11.07
Чтение строки из фаила выдаёт страшную ошибку