Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Прозрачный Bitmap в STATIC? Как установить прозрачность цвета? 
:(
    Опции темы
WIN32API
  Дата 23.12.2005, 15:38 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Как в 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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дядя
**


Профиль
Группа: Участник
Сообщений: 323
Регистрация: 21.6.2005
Где: Москва, РФ

Репутация: 1
Всего: 12
Static Style: SS_CENTERIMAGE

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

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



--------------------
Если ты уже никого не боишься, значит ты самый страшный 
PM IM ICQ AOL YIM MSN   Вверх
WIN32API
Дата 23.12.2005, 17:12 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
2JoyEx

В моем изображении этот пиксель черный. Если все сделать так, как ты сказал, то пустое пространство СТАТИКА заполняется черным цветом. А мне надо, чтобы картинка стала прозрачной. Т.е. черный цвет изображения должен стать прозрачным.
  Вверх
JoyEx
Дата 23.12.2005, 18:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дядя
**


Профиль
Группа: Участник
Сообщений: 323
Регистрация: 21.6.2005
Где: Москва, РФ

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


--------------------
Если ты уже никого не боишься, значит ты самый страшный 
PM IM ICQ AOL YIM MSN   Вверх
WIN32API
Дата 23.12.2005, 20:34 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
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 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дядя
**


Профиль
Группа: Участник
Сообщений: 323
Регистрация: 21.6.2005
Где: Москва, РФ

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


--------------------
Если ты уже никого не боишься, значит ты самый страшный 
PM IM ICQ AOL YIM MSN   Вверх
WIN32API
Дата 24.12.2005, 14:19 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Так я именно через LoadImage (...) и делаю. А константы LR_LOADMAP3DCOLORS и LR_LOADTRANSPARENT бесполезны. Прозрачности нет!
  Вверх
JoyEx
Дата 24.12.2005, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дядя
**


Профиль
Группа: Участник
Сообщений: 323
Регистрация: 21.6.2005
Где: Москва, РФ

Репутация: 1
Всего: 12
WIN32API

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

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



--------------------
Если ты уже никого не боишься, значит ты самый страшный 
PM IM ICQ AOL YIM MSN   Вверх
WIN32API
Дата 28.12.2005, 16:43 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
2JoyEx
Спасибо! Все действительно работает. Вся загвоздка у меня была в глубине цвета. Еще раз спасибо!
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0469 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.