| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Прозрачнисть битмепки ири загрузке в ToolBar.

GrayFace ©   (2006-05-19 17:12:00) 

Пытаюсь добавить битмепку в тулбар. У битмепки, как положено, в левом нижнем углу цвет фона, да и в других углах тоже. Но прозрачным фон не станосится.


type int = integer;

var h:hwnd; i:int; tb:TTBBUTTON; bit:TTBADDBITMAP; bi:TBitmap; ic:TIcon;
 
 bi:=TBitmap.Create;
 bi.LoadFromFile(AppPath+'Props.bmp');
 bi.PixelFormat:=pf32bit;
 with bit do
 begin
   hInst:=0;
   nID:=bi.Handle;
 end;

 i:=SendMessage(h, TB_ADDBITMAP, 1, int(@bit));
 if i=-1 then RaiseLastOSError;

  // Вот, заодно, код добавления кнопки:
 with tb do
 begin
   iBitmap:=i;
   idCommand:=$ff;
   fsState:=TBSTATE_ENABLED;
   fsStyle:=TBSTYLE_BUTTON;
   iString:=5;
 end;
 SendMessage(h, TB_INSERTBUTTON, 13, int(@tb));

---

GrayFace   (2006-05-26 10:13:00) [1]

Жаль, что кроме "Создание пустых сообщений" никто ничего не может сказать. Я ведь их создаю потому что вопрос важен. Кто работал с ToolBar'ом?

---

GrayFace   (2006-05-25 13:10:00) [2]

Удалено модератором
Примечание: Создание пустых сообщений

---

GrayFace   (2006-05-22 17:46:00) [3]

Удалено модератором
Примечание: Создание пустых сообщений

---

Наверх