Значки заставляют TPopupMenu к OwnerDraw?

Question

Я назначил некоторые значки для TPopUpMenu, но похоже, что он изменился на ownerdraw (установлен на false)... Я также использую манифест XP, но он все еще выглядит очень старым (стиль Win2000)... Возможно ли сделать его похожим на в windows/explorer? Может быть, компонент?

Вот изображение, отображающее проблему:

Спасибо за помощь.

Answer 1

Это просто проблема с Delphi 7, который крайне устарел. Это было фантастически в то время, когда это было выпущено, но это - десятилетие теперь, и его возраст показывает.

Вы можете найти Toolbar2000 полезным. Несмотря на название, он включает в себя действительно гибкую замену TMenu а также TPopupMenu функциональность, которая позволяет вам сделать ваши меню похожими на те, что в Office 2000. (См. примечание на связанной странице с пунктом маркера Office 2000 style menusкоторый гласит:

Меню в стиле Office 2000 Нет четкого различия между меню и панелями инструментов, что обеспечивает максимальную гибкость. Панели инструментов могут содержать меню, панели меню могут содержать кнопки, и они могут использовать одни и те же элементы.

Он был выпущен как бесплатное (с исходным кодом), поэтому он доступен, и AFAICT по-прежнему поддерживает Delphi 7. Если это не так, Toolbar97 (доступно по тому же URL) обеспечит аналогичную функциональность.