Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Прозрачный Bitmap в STATIC?


Автор: WIN32API 23.12.2005, 15:38
Как в STATIC загрузить BMP-картинку из ресурсов программы и установить прозрачный цвет? Вообщем с загрузкой из ресурсов проблем нет (см. код ниже), а вот с установкой прозрачности...

Код

...

var
 ImLogo: HBITMAP;
begin
 ImLogo := LoadImage(hInstance, 'LOGO', IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR);
 SendDlgItemMessage(hwPage5, 945, STM_SETIMAGE, IMAGE_BITMAP, ImLogo); 

...

Автор: JoyEx 23.12.2005, 16:51
Static Style: SS_CENTERIMAGE

Для битмапа:
- если изображение меньше, чем сам контрол, то остальное место вокруг заполняется цветом первого пикселя левого верхнего угла битмапа

Для иконки:
- если изображение меньше, чем сам контрол, то остальное место вокруг заполняется цветом фона контрола

Автор: WIN32API 23.12.2005, 17:12
2JoyEx

В моем изображении этот пиксель черный. Если все сделать так, как ты сказал, то пустое пространство СТАТИКА заполняется черным цветом. А мне надо, чтобы картинка стала прозрачной. Т.е. черный цвет изображения должен стать прозрачным.

Автор: JoyEx 23.12.2005, 18:45
используй тогда .ico (иконку)
в инете есть куча программ для конвертирования битмапа в .ico
Добавлено @ 18:46
можно и на лету (программно) делать из .bmp иконку, но зачем?!

Автор: WIN32API 23.12.2005, 20:34
2JoyEx
Из bmp иконку делать считаю неправильным решением. К тому же это будет немаленькая иконка. Может быть следующий вариант мне поможет?

Я нашел в сети интересную процедуру DrawTransparentBitmap. Но, при применении, ничего не смог добится. Где ошибка и как исправить? Ошибка точно где-то в применении (см. ниже). Я в HDC дуб.

Код

procedure DrawTransparentBitmap(DC: HDC; hBmp: HBITMAP; xStart: integer; yStart: integer; cTransparentColor: TCOLORREF);
var
 bm: pBITMAP;
 cColor: COLORREF;
 bmAndBack, bmAndObject, bmAndMem, bmSave: HBITMAP;
 bmBackOld, bmObjectOld, bmMemOld, bmSaveOld: HBITMAP;
 hdcMem, hdcBack, hdcObject, hdcTemp, hdcSave: HDC;
 ptSize: TPOINT;
begin
 hdcTemp := CreateCompatibleDC(dc);
 SelectObject(hdcTemp, hBmp); // Select the bitmap
 GetObject(hBmp, sizeof(hBITMAP), @bm);
 ptSize.x := bm.bmWidth; // Get width of bitmap
 ptSize.y := bm.bmHeight; // Get height of bitmap
 DPtoLP(hdcTemp, ptSize, 1); // Convert from device to logical points
 // Create some DCs to hold temporary data.
 hdcBack   := CreateCompatibleDC(dc);
 hdcObject := CreateCompatibleDC(dc);
 hdcMem    := CreateCompatibleDC(dc);
 hdcSave   := CreateCompatibleDC(dc);
 // Create a bitmap for each DC. DCs are required for a number of GDI functions. Monochrome DC
 bmAndBack   := CreateBitmap(ptSize.x, ptSize.y, 1, 1, nil);
 // Monochrome DC
 bmAndObject := CreateBitmap(ptSize.x, ptSize.y, 1, 1, nil);
 bmAndMem    := CreateCompatibleBitmap(dc, ptSize.x, ptSize.y);
 bmSave      := CreateCompatibleBitmap(dc, ptSize.x, ptSize.y);
 // Each DC must select a bitmap object to store pixel data.
 bmBackOld   := SelectObject(hdcBack, bmAndBack);
 bmObjectOld := SelectObject(hdcObject, bmAndObject);
 bmMemOld    := SelectObject(hdcMem, bmAndMem);
 bmSaveOld   := SelectObject(hdcSave, bmSave);
 // Set proper mapping mode.
 SetMapMode(hdcTemp, GetMapMode(dc));
 // Save the bitmap sent here, because it will be overwritten.
 BitBlt(hdcSave, 0, 0, ptSize.x, ptSize.y, hdcTemp, 0, 0, SRCCOPY);
 // Set the background color of the source DC to the color.
 // contained in the parts of the bitmap that should be transparent
 cColor := SetBkColor(hdcTemp, cTransparentColor);
 // Create the object mask for the bitmap by performing a BitBlt
 // from the source bitmap to a monochrome bitmap.
 BitBlt(hdcObject, 0, 0, ptSize.x, ptSize.y, hdcTemp, 0, 0, SRCCOPY);
 // Set the background color of the source DC back to the original color.
 SetBkColor(hdcTemp, cColor);
 // Create the inverse of the object mask.
 BitBlt(hdcBack, 0, 0, ptSize.x, ptSize.y, hdcObject, 0, 0, NOTSRCCOPY);
 // Copy the background of the main DC to the destination.
 BitBlt(hdcMem, 0, 0, ptSize.x, ptSize.y, dc, xStart, yStart, SRCCOPY);
 // Mask out the places where the bitmap will be placed.
 BitBlt(hdcMem, 0, 0, ptSize.x, ptSize.y, hdcObject, 0, 0, SRCAND);
 // Mask out the transparent colored pixels on the bitmap.
 BitBlt(hdcTemp, 0, 0, ptSize.x, ptSize.y, hdcBack, 0, 0, SRCAND);
 // XOR the bitmap with the background on the destination DC.
 BitBlt(hdcMem, 0, 0, ptSize.x, ptSize.y, hdcTemp, 0, 0, SRCPAINT);
 // Copy the destination to the screen.
 BitBlt(dc, xStart, yStart, ptSize.x, ptSize.y, hdcMem, 0, 0, SRCCOPY);
 // Place the original bitmap back into the bitmap sent here.
 BitBlt(hdcTemp, 0, 0, ptSize.x, ptSize.y, hdcSave, 0, 0, SRCCOPY);
 // Delete the memory bitmaps.
 DeleteObject(SelectObject(hdcBack, bmBackOld));
 DeleteObject(SelectObject(hdcObject, bmObjectOld));
 DeleteObject(SelectObject(hdcMem, bmMemOld));
 DeleteObject(SelectObject(hdcSave, bmSaveOld));
 // Delete the memory DCs.
 DeleteDC(hdcMem);
 DeleteDC(hdcBack);
 DeleteDC(hdcObject);
 DeleteDC(hdcSave);
 DeleteDC(hdcTemp);
end;



ПРИМЕНЕНИЕ:
Код

...

var
 ImLogo: HBITMAP;
 PS : TPaintStruct;
 DC: HDC;
begin
 BeginPaint(ID_STATIC, ps);
 DC := CreateCompatibleDC(ps.hDC);
 ImLogo := LoadImage(hInstance, 'LOGO', IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR);
 DrawTransparentBitmap(DC, ImLogo, 1, 1, RGB(255, 255, 255));
 DeleteDC(DC);
 EndPaint(ID_STATIC, ps);

...

Автор: JoyEx 24.12.2005, 13:16
Проще всего сделать с помощью LoadImage (,,, LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT)
Подробности смотрите в MSDN
Добавлено @ 13:17
Вам нужен COLOR_3DFACE

Автор: WIN32API 24.12.2005, 14:19
Так я именно через LoadImage (...) и делаю. А константы LR_LOADMAP3DCOLORS и LR_LOADTRANSPARENT бесполезны. Прозрачности нет!

Автор: JoyEx 24.12.2005, 15:42
WIN32API

Только что проверил свой вариант, т.е. то что советовал Вам. Всё работает!
Вот так делайте:

1) Сделайте битмап глубиной цвета не более 8bpp (256 цветов)
2) В любом графическом редакторе измените первый пиксель (в битмапе) на тот цвет, который должен быть прозрачен
3) Для STATIC установите стили SS_BITMAP и SS_CENTERIMAGE
4) LoadImage(,,,,,LR_LOADTRANSPARENT | LR_LOADMAP3DCOLORS)
5) Через сообщение STM_SETIMAGE установите новый битмап на STATIC контрол

Автор: WIN32API 28.12.2005, 16:43
2JoyEx
Спасибо! Все действительно работает. Вся загвоздка у меня была в глубине цвета. Еще раз спасибо!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)