Улучшение отображения иконок в приложениях Delphi: решение проблемы с неправильным размером иконок в Delphi 2010

Delphi , Компоненты и Классы , TImage и TImageList

При разработке приложений на Delphi часто возникают вопросы, связанные с отображением иконок. В данной статье мы рассмотрим проблему, с которой сталкиваются разработчики при работе с иконками стандартного размера 16x16 пикселей для отображения сообщений об ошибках, предупреждениях или информации. Используя функции LoadIcon и LoadImage, разработчики обнаруживают, что иконки загружаются в размере 32x32 пикселей, что не соответствует их ожиданиям.

Проблема и её причины

Разработчики, работающие с компонентом TImage в Delphi 2010, сталкиваются с трудностями при загрузке системных иконок. Функции LoadIcon(0, IDI_*) и LoadImage(0, OIC_*, IMAGE_ICON, 16, 16, LR_SHARED) всегда возвращают иконки в размере 32x32 пикселей, даже если указан размер 16x16. Это происходит из-за того, что система кэширует первую загруженную версию иконки, которая обычно имеет больший размер.

Поиск решения

Разработчики, которым необходимо поддерживать совместимость с Windows XP, сталкиваются с ограничениями, так как функция ShGetStockIconInfo доступна только начиная с Windows Vista. Однако, существует альтернативный подход, который заключается в использовании функции LoadImage с указанием идентификатора ресурса из библиотеки user32.dll.

Решение проблемы

Чтобы загрузить иконку в нужном размере, можно использовать следующий код на Object Pascal:

LoadImage(GetModuleHandle('user32'), MAKEINTRESOURCE(103), IMAGE_ICON,
    16, 16, LR_DEFAULTCOLOR);

Здесь 103 - это идентификатор ресурса для иконки ошибки. Вместо жестко заданного размера в 16x16 пикселей, лучше использовать функцию GetSystemMetrics(SM_CXSMICON) для получения текущего размера иконок в системе.

Подтверждение и дополнительные соображения

Разработчики подтверждают, что данный подход работает на всех платформах, начиная с Windows XP, включая Server 2003 и 2008. Идентификаторы ресурсов для user32.dll можно получить, используя утилиту ResourceHacker для обратной инженерии библиотеки.

Заключение

Использование описанного метода позволяет загружать системные иконки в нужном размере, что решает проблему отображения иконок 16x16 пикселей в приложениях Delphi 2010. Это улучшает пользовательский интерфейс и повышает качество отображения сообщений в приложениях, разработанных с использованием Delphi и Pascal.

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

Проблема с отображением иконок в стандартном размере 16x16 пикселей в приложениях Delphi 2010, связанная с неправильной загрузкой иконок в размере 32x32 пикселей, и поиск решения для корректного отображения.

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

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

:: Главная :: TImage и TImageList ::