Для более полного контроля за отрисовкой пунктов меню Вы можете воспользоваться также событиями OnMeasureItem и OnDrawItem.
ВНИМАНИЕ
В 16-разрядной версии компоненты существует ограничение, вызванное поведением
системы Windows. Сообщение WM_DRAWITEM не посылается 16-разрядным приложениям
для тех пунктов меню, которые содержат в себе подменю. Следовательно, для таких
пунктов меню не вызываются события OnGetItemParams, OnMeasureItem и OnDrawItem.
Description
Свойство Style определяет, будет ли отрисовка меню производиться стандартными
средствами Windows, или же Вы можете использовать свой собственный код для отрисовки
пунктов меню (owner-draw), например, для помещения в меню графических изображений.
Для создания owner-draw меню задайте значение свойству Style, отличное от msStandard.
В этом случае Вы сможете обработать события OnMeasureItem, OnDrawItem и OnGetItemParams.
Declaration
property OnGetItemParams: TItemParamsEvent;
Description
Событие происходит перед отрисовкой каждого пункта меню, если свойство Style
установлено в значение, отличное от msStandard.
В обработчике события OnGetItemParams Вы можете изменить шрифт и фоновый цвет
пункта меню, а также задать графическое изображение (битовое изображение, иконку,
метафайл и т.д.) для отображения в левой части пункта меню. Параметр NumGlyphs
определяет, сколько картинок содержит графическое изображение Graphic. Если
он отличен от 1, то второе изображение используется при отрисовке запрещенного
пункта меню, третье — при отрисовке выбранного пункта меню, четвертое — отмеченного
(checked), остальные картинки не используются.
Событие не происходит, если свойство Style = msStandard.
Примечание
В 32-битной версии, если задано свойство Images и обработчик события OnGetImageIndex
возвращает допустимое значение параметра ImageIndex, то для отрисовки пункта
меню используется изображение из image-list'а, а параметры Graphic и NumGlyphs
игнорируются.
Declaration
property OnMeasureItem: TMeasureMenuItemEvent;
Description
Событие OnMeasureItem происходит когда приложению необходимо перерисовать пункт
меню, имеющего стиль owner-draw. Используйте это событие для изменения высоты
и ширины пункта меню.
Событие OnMeasureItem имеет тип TMeasureMenuItemEvent и имеет 4 паратметра:
• Sender — меню, содержащее пункт, который надо перерисовать;
• Item — пункт меню;
• Width — ширина пункта меню;
• Height — высота пункта меню.
Параметры Width и Height являются var-параметрами, которые изначально имеют
значения по-умолчанию, определенные в соответствии с высотой используемого шрифта,
длины текста и, возможно, по результатам обработки события OnGetItemParams.
Обработчик события OnMeasureItem может изменить эти значения.
После вызова события OnMeasureItem происходит вызов события OnDrawItem.
Событие OnMeasureItem не происходит, если свойство Style = msStandard.
Declaration
property OnDrawItem: TDrawMenuItemEvent;
Description
Событие OnDrawItem происходит при отрисовке каждого пункта меню, если значение
свойства Style не равно msStandard.
В обработчике этого события Вы можете произвести необходимые действия по отрисовке
пункта меню, заданного параметром Item. Отрисовку надо производить в прямоугольнике,
заданном параметром Rect, пользуясь значением свойства Canvas.
Параметр State определяет состояние пункта меню (выбранный, запрещенный или помеченный).