Форум: "Начинающим";
Текущий архив: 2009.02.15;
Скачать: [xml.tar.bz2];
Вниз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);
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.02.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.028 c