Текущий архив: 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
