Как сделать пункты меню с картинками?
Falk0ner, вс, 06/07/2008 - 15:34.
Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.
var
hHandle: THandle;
x: integer;
// visual controls:
hMenu: TMenuItem;
Image1: TImage;
...
x:= 10; // десятый пункт меню
hHandle := GetMenuItemID(hMenu.handle, x);
ModifyMenu(hMenu.handle, hHandle, MF_BYCOMMAND Or MF_BITMAP, hHandle,
PChar(Image1.picture.bitmap.handle))
hHandle: THandle;
x: integer;
// visual controls:
hMenu: TMenuItem;
Image1: TImage;
...
x:= 10; // десятый пункт меню
hHandle := GetMenuItemID(hMenu.handle, x);
ModifyMenu(hMenu.handle, hHandle, MF_BYCOMMAND Or MF_BITMAP, hHandle,
PChar(Image1.picture.bitmap.handle))
Взято из http://forum.sources.ru
Отправить комментарий