Исправление отображения иконок в `ActionMainMenuBar` для Delphi XE4

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

Исправление отображения иконок в ActionMainMenuBar для Delphi XE4

В статье рассматривается проблема отображения иконок в компоненте ActionMainMenuBar в среде разработки Delphi XE4. Проблема заключается в том, что при использовании иконок размером 32x32 пикселей, а также при применении стандартного стиля оформления "Windows", текст элементов меню может выходить за пределы икон. В статье будет рассмотрен метод решения данной проблемы, а также приведены примеры кода на Object Pascal для демонстрации исправления.

Диагностика проблемы

Пользователи, столкнувшиеся с данной проблемой, отмечают, что при использовании VCL стилей оформления иконки отображаются корректно. Однако, при применении стандартного стиля "Windows", текст элементов меню смещается и может частично или полностью скрываться за иконками. Это связано с тем, что компонент ActionMainMenuBar в Delphi XE4 некорректно обрабатывает размеры иконок, превышающие стандартные 16x16 пикселей.

Подтвержденное решение

В коде компонента TCustomMenuItem присутствует ошибка, которая заключается в использовании жестко заданного смещения в 24 пикселя вместо динамически рассчитанного смещения, основанного на размере иконки. Это приводит к неправильному выравниванию текста относительно иконки. Для исправления данной проблемы необходимо заменить жестко заданное смещение на рассчитанное значение, которое определяется в той же функции CalcBounds.

procedure TCustomMenuItem.CalcBounds;
var
  AWidth, AHeight: Integer;
  NewTextBounds: TRect;
  ImageSize: TPoint;
  ImageOffset: Integer;
begin
  // ... (инициализация переменных)
  if ImageSize.X <= 16 then
    ImageOffset := 24
  else
    ImageOffset := ImageSize.X + 6; // Leave room for an image frame
  // ... (расчет размеров текстовых областей)
  OffsetRect(NewTextBounds, ImageOffset - TextBounds.Left, // <--- Исправленная строка
    AHeight div 2 - TextBounds.Bottom div 2 - 1);
  // ... (дальнейший код)
end;

После внесения данного исправления, текст элементов меню должен корректно отображаться относительно иконок, вне зависимости от их размера.

Альтернативные варианты решения

Пользователи также отмечали, что проблема может быть связана с использованием иконок, предназначенных для оформления в стиле XP, и что они могут не отображаться корректно в темированных меню Vista. В качестве альтернативного решения предлагается использовать стандартные размеры иконок, которые лучше поддерживаются в различных стилях оформления.

Заключение

Исправление, описанное выше, должно устранить проблему отображения иконок в ActionMainMenuBar для Delphi XE4. Важно помнить, что внесение изменений в системные компоненты может повлечь за собой дополнительные риски, поэтому перед применением данного решения рекомендуется создать резервную копию проекта.

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

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

Статья описывает проблему и предлагает решение для корректного отображения иконок в компоненте `ActionMainMenuBar` в Delphi XE4, связанную с неправильной обработкой размеров иконок и смещением текста при использовании стандартного стиля 'Windows'.

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

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

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