Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.044 c
3-1153144203
samalex
2006-07-17 17:50
2006.10.01
Имена большими буквами в IBExpert


2-1158085490
Doma
2006-09-12 22:24
2006.10.01
Работа с кодом проекта в design-time


1-1155977843
Strech
2006-08-19 12:57
2006.10.01
Активная форма


3-1154110257
Игорь__
2006-07-28 22:10
2006.10.01
Paradox: проблема с фильтрацией.


15-1157833274
Andryk
2006-09-10 00:21
2006.10.01
Кто нибудь пользовался глянцевыми TFT мониторами?....