SetMenuItemBitmaps

← →
LDV (2008-12-30 18:39) [0]

Не добавляется иконка к пункту системного меню. Вот код:

B := TPicture.Create; try B.LoadFromFile("D:\Help.bmp"); SetMenuItemBitmaps(GetSystemMenu(Handle, False), 5, MF_BYPOSITION, B.Bitmap.Handle, B.Bitmap.Handle); DrawMenuBar(Handle); finally B.Free; end;

← →
Johnmen © (2008-12-30 22:36) [1]

1. А что ещё ожидать, когда B.Free?
2. Из каких соображений здесь TPicture, а не TBitmap?
3. Пункт пятый - это разделитель :)))

← →
LDV (2008-12-31 14:08) [2]

С добавление иконки как-никак разобрался. По ходу возникла еще одна проблема, как сделать чтобы при выборе моего пункта в системном меню не происходило обращение цвета значка;

hSysMenu := GetSystemMenu(Handle, False); InsertMenu(hSysMenu, 0, MF_STRING, SC_HELP, PChar(default_name_help)); FBtpHelp := TBitmap.Create; FBtpHelp.Width := default_width_Help; FBtpHelp.Height := default_height_Help; _GetHelpImage.DrawSize(FBtpHelp.Canvas, -1, -1, FBtpHelp.Width, FBtpHelp.Height, default_index_Help); FillChar(miInfo, SizeOf(TMenuItemInfo), #0); miInfo.cbSize := SizeOf(TMenuItemInfo); miInfo.fMask := MIIM_BITMAP; miInfo.hbmpItem := FBtpHelp.Handle; SetMenuItemInfo(hSysMenu, SC_HELP, False, miInfo);

SetMenuItemBitmaps Найти похожие ветки