Исправление погрешности альфа-канала PNG иконок в TImageList Delphi XE3

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

Разработчики, работающие с Delphi, часто сталкиваются с проблемами, связанными с отображением изображений. Одной из таких проблем является некорректное отображение альфа-канала в PNG иконках, добавленных в TActionToolbar через TImageList. Это может привести к тому, что иконки в пользовательском интерфейсе будут выглядеть не так, как ожидалось, и это особенно заметно при использовании полупрозрачных элементов.

Описание проблемы

Разработчик столкнулся с проблемой, когда PNG иконки, предназначенные для панели инструментов в приложении на Delphi XE3, отображались слишком темными после добавления в TActionToolbar через TImageList. Проблема заключалась в том, что альфа-канал иконок отображался темнее, чем это было необходимо, что делало иконки неэстетичными. Исходя из настройки свойств TImageList, проблема не была связана с параметром BlendColor.

Пример некорректного отображения

На представленном макете в Photoshop (фото недоступно для просмотра из-за ограничений прокси, через который осуществляется доступ) видно, что альфа-канал отображается корректно. Однако, после добавления иконок в TActionToolbar (фото также недоступно), альфа-канал становится темнее, что особенно заметно на примере заполнения папки темно-синим цветом.

Возможные решения

Альтернативный ответ: Изменение глубины цвета

Одно из возможных решений заключается в изменении глубины цвета TImageList.ColorDepth на cd32bit. Это может помочь в корректном отображении альфа-канала, так как 32-битное изображение поддерживает большее количество цветовых оттенков и прозрачность.

Подтвержденный ответ: Предварительная обработка изображения

Лучший способ решения проблемы — это предварительная обработка изображений. В Photoshop можно покрасить фоновый цвет панели инструментов Delphi (или другого UI элемента) под каждым пикселем, который содержит прозрачность, до сохранения PNG файла. Это делает иконки панели инструментов полностью непрозрачными, за исключением полностью прозрачных пикселей, таким образом, исключая альфа-смешивание и возможные погрешности.

Пример кода

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

procedure TForm1.FormCreate(Sender: TObject);
var
  Image: TBitmap;
  Color: TAlphaColor;
begin
  // Здесь должен быть ваш код для создания или инициализации Image как необходимого объекта TBitmap
  // ...

  with Color do
  begin
    R := 128;
    G := 128;
    B := 128;
    Alpha := 128; // 128 для 50% прозрачности
  end;
  Image drawing
    with
    Transparent := True, // Установить в True для 32-битного BitBlt
    Brush.Color := Color;
  DrawRectangle(0, 0, Image.Width, Image.Height);
  // Примените к ImageList, как необходимо
end;

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

Заключение

При работе с TImageList в Delphi важно обращать внимание на глубину цвета и корректное использование альфа-канала. Изменение глубины цвета на cd32bit и предварительная обработка изображений в графических редакторах, таких как Photoshop, могут помочь в решении проблем с отображением PNG иконок. Приведенные примеры кода и методы позволяют разработчикам сэкономить время и усилия, избегая необходимости ручного редактирования изображений в формате BMP.

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

Разработчик сталкивается с некорректным отображением альфа-канала PNG иконок в `TImageList` на Delphi XE3, что приводит к искажению внешнего вида иконок в пользовательском интерфейсе.

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

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

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