Всем привет. Регистрирую ком для расширения меню explorer. Решил вот красоты добавить - иконку к пункту меню

Глобальное обьявление




В инициализации юнита




В QueryContextMenu




Иконка рисуется, но не прозрачная, а с фоном, хотя флаг LR_LOADTRANSPARENT стоит

Пробовал еще вариант с TBitmap

MyBitmap := TBitmap.Create;
MyBitmap .LoadFromResourceName(HInstance,'mybitmap');
MyBitmap .Transparent := True;
MyBitmap .TransparentColor := BitMap.Canvas.Pixels[0,0];
MyBitmap .TransparentMode := tmAuto;

Далее точно также

SetMenuItemBitmaps(Menu,indexMenu,MF_BYPOSITION,MyBitmap.Handle,MyBitmap.Handle)

И опять не прозрачный. Что я делаю не так? Система Win8 64, дельфи XE8

Да, битмап 24 бит, первый пиксель "правильный" - прозрачный фон

Короче нашел сишный код, перевел на дельфи. Там просто тупо массив пикселей заменяется в самом битмэп. А потом уже на меню рисуется через SetMenuItemBitmaps

т.е

MyBitmap := LoadImage(hInstance, 'mybitmap', IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR)
MyBitmap := ConvertBitmap(MyBitmap);

...

SetMenuItemBitmaps(Menu,indexMenu,MF_BYPOSITION,MyBitmap ,MyBitmap)

ps: как достало велосипеды изобретать

> maxsvt ©   (12.05.16 04:14) [1]
> Да, битмап 24 бит, первый пиксель "правильный" - прозрачный
> фон

а в остальных двух что?

В остальных картинка)

> Eraser ©   (12.05.16 22:22) [3]

новый формат битмапа изобрели? )