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

Вниз

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

← →
GrayFace ©   (2006-05-19 17:12) [0]

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


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-22 17:46) [1]

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

---

← →
GrayFace ©   (2006-05-25 13:10) [2]

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

---

← →
GrayFace ©   (2006-05-26 10:13) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.046 c