Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];

Вниз

Bitmap. Mask. не отображается.   Найти похожие ветки 

 
DevilDevil ©   (2008-05-06 11:13) [0]

Непонимание вот в чём... думаю, меня быстро ткнут носом в упущение...

есть TBitmap, устанавливаю ему Transparent, у него появляется Маска. Проверяю, действительно создаётся, действительно PixelFormat = pf1bit:

procedure SaveMask(Bmp: TBitmap);
var
 B: TBitmap;
begin
 B := TBitmap.Create;
 B.Handle := Bmp.MaskHandle;
 B.SaveToFile("Mask.bmp");
 B.Free;
end;

Ставлю перед собой задачу отобразить маску на другом битмапе... вместо маски отображается чёрный прямоугольник, не понимаю, почему.

Что-то типа этого:


MaskDC := CreateCompatibleDC(0{DestBitmap.Canvas.Handle});
try
 SelectObject(MaskDC, Bitmap.MaskHandle);

 BitBlt(DestBitmap.Canvas.Handle, X, Y, R.Width, R.Height,  MaskDC, 0, 0, SRCCOPY);
finally
 DeleteObject(MaskDC);
end;


 
DevilDevil ©   (2008-05-06 11:14) [1]

извиняюсь, с тегами напартачил


 
tesseract ©   (2008-05-06 17:04) [2]


>  B.Handle := Bmp.MaskHandle;
> B.SaveToFile("Mask.bmp");


Странная такая операция присваивания. Тебе надо не handle присваивать, а маску на B.Canvas отрисовать.


 
DevilDevil ©   (2008-05-07 14:19) [3]

> tesseract ©   (06.05.08 17:04) [2]

ты недополнял... но это уже не имеет значения.
Вообще говоря, я так и не узнал, как отображать маску... Но я узнад как отображать битмап с учётом маски (функция MaskBlt), что мне в конечном счёте и нужно было.

Тема закрыта.



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

Форум: "Начинающим";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
2-1210064880
дюха
2008-05-06 13:08
2008.06.01
Графика


2-1209925848
ChaosAD
2008-05-04 22:30
2008.06.01
авторизация в приложении на FireBird


2-1210157112
Mishenka
2008-05-07 14:45
2008.06.01
Как вывести монитор из стендбая?


8-1181160626
Дима_З
2007-06-07 00:10
2008.06.01
Иконки 256Х256, сжатые vista-форматом


2-1210068606
Эд
2008-05-06 14:10
2008.06.01
Нужен совет мастера





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский