Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Страсти по SetMenuItemBitmaps.


Mazenrat ©   (2002-09-28 15:39:00) 

Доброго времени суток.

Помогите поместить Bitmap в ресурсное меню. Bitmap тоже находится в ресурсах программы. Вообщем бьсь, как рыба, а в итоге ничего не надыбал, то есть нет в пункте меню Bitmap. Где моя ошибка, наставьте на путь истинный, уважаемые программеры?

ID_STOPCD - идентификатор пункта меню

var
Menu: hMenu;
bmp: hBitmap;
...
Bmp := LoadBitmap(hInstance, "HELP");
SetMenuItemBitmaps(Menu, ID_STOPCD, MF_BYPOSITION, Bmp, Bmp);
...
DeleteObject(Bmp);
...


Poirot   (2002-09-28 17:16:00) [1]

Мой код работает???
Проверь ID_STOPCD - это у вас что номер пункта меню, куда вы хотите картинку вставить или просто то, что возвращает WM_SYSCOMMAND... Вы указываете Бай поз!!!


Mazenrat   (2002-09-28 16:51:00) [2]


> ПОяснять не буду, но ты картинку удаляешь... нафиг


А картинку я удаляю уже при убийстве программы.


Poirot   (2002-09-28 16:45:00) [3]

SetMenuItemBitmaps(GetSystemMenu(handle,False),
6,MF_BYPOSITION,
LoadBitmap(hInstance,"W1"),
LoadBitmap(hInstance,"W2"));

А да а ты ДелетОбжект убери и всё работает...
ПОяснять не буду, но ты картинку удаляешь... нафиг


Наверх

Титульная страница Поиск, карта сайта Написать письмо