VPF::Shell_NotifyIcon не использует маску :(

dmsmeat

Дата 16.3.2009, 04:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.11.2008

Репутация: нет
Всего: нет

Здраствуй уважаемый ALL

Беда. Уже который день пытаюсь рисовать на BITMAP, создавать из него ICON и запихивать его в tray. Иконка в трее появляется, но абсолютно на черном фоне, хотя должна была учитывать маску прозрачности.

user posted image

Вот так создаю битмап рисунка и маски:

Код


  ScreenDC:= GetDC(0);

  MainDC:= CreateCompatibleDC(ScreenDC); 
  MainBitmap:= CreateCompatibleBitmap(ScreenDC, 16, 16); // рисунок иконки
  SelectObject(MainDC, MainBitmap);

  MaskDC:= CreateCompatibleDC(0);
  MainMask:= CreateCompatibleBitmap(MaskDC, 16, 16); // маска иконки
  SelectObject(MaskDC, MainMask);

рисую на MainBitmap и генерирую иконку

Код


function RenderToIcon : HICON;
var
  IconInfo: TIconInfo;
begin
  UpdateBitmapMask;

  IconInfo.fIcon:= true;
  IconInfo.xHotspot:= 0;
  IconInfo.yHotspot:= 0;
  IconInfo.hbmMask:= MainMask;
  IconInfo.hbmColor:= MainBitmap;

  Result:= CreateIconIndirect(IconInfo);
end;

вывожу в трей

Код


A:= RenderToIcon;
ShellIconData.hIcon:= A;
Shell_NotifyIcon(NIM_MODIFY, @ShellIconData);

В не зависимости от содержимого IconInfo.hbmMask иконка выводится на черном фоне без прозрачности :( уже мозги сломал. Подскажите в чем трабла!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »