Как сохранить тему оформления главного меню с иконками в Delphi 7

Delphi , Компоненты и Классы , Меню

При работе с Delphi 7 и использовании главного меню с иконками может возникнуть проблема, когда тема оформления меню исчезает после добавления списка изображений. Это происходит из-за особенностей реализации меню в Delphi 7, которые были разработаны с учетом возможностей операционной системы Windows XP.

Почему тема оформления исчезает при использовании иконок?

Когда в главное меню не добавлены иконки, Delphi 7 использует системное тематическое оформление для меню. Однако, как только к главному меню присваивается список изображений, VCL-код Delphi 7 переходит в режим владельского рисования (owner drawing), используя функции, предназначенные для Windows XP, что приводит к отключению тематического оформления.

Почему главное меню тематизируется даже без использования XPManifest?

Тематическое оформление главного меню в Delphi 7 работает независимо от использования XPManifest, так как Delphi 7 был разработан с учетом возможностей XP, в которых тематическое оформление меню было реализовано, но не имело большого значения до Windows Vista.

Как сохранить тему оформления главного меню с иконками?

Для сохранения тематического оформления главного меню с иконками в Delphi 7 необходимо использовать следующий подход:

1. Не переходить в режим владельского рисования для Windows Vista и выше.
2. Создать версии иконок в формате PARGB32.
3. Использовать эти битмапы в поле hbmpItem и позволить системе нарисовать меню.

Пример кода на Object Pascal (Delphi) для создания класса TMyImageList, который предоставляет функционал для получения битмапов в формате PARGB32:

type
  TMyImageList = class(TImageList, IImageListConvertIconToPARGB32Bitmap)
  private
    FPARGB32BitmapHandles: array of HBITMAP;
    procedure DestroyPARGB32BitmapHandles;
    function CreatePARGB32BitmapFromIcon(ImageIndex: Integer): HBITMAP;
  protected
    procedure Change; override;
  public
    destructor Destroy; override;
    function GetPARGB32Bitmap(ImageIndex: Integer): HBITMAP;
  end;

Важно отметить, что для реализации данного подхода потребуется модификация исходного кода модуля Menus, что выходит за рамки стандартного использования Delphi. Это потребует от разработчика определенных навыков и понимания внутреннего устройства VCL.

Дополнительные ресурсы и примеры кода можно найти в следующих ссылках:

• Themed Menus with Icons: A Complete Vista/XP Solution
• TortoiseSVN source code
• Vista-Style Menus, Part 1: Adding Icons to Standard Menus

Используя эти рекомендации, можно добиться сохранения тематического оформления главного меню с иконками в Delphi 7.

Создано по материалам из источника по ссылке.

При работе с Delphi 7 необходимо использовать специальные подходы для сохранения тематического оформления главного меню с иконками, так как стандартные функции могут отключать тему из-за перехода в режим владельского рисования.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::