Понимание прозрачности в системном ImageList для Delphi

Delphi , Графика и Игры , Изображения

Вопрос пользователя связан с использованием прозрачных икон в TImageList в среде Delphi. При добавлении икон в TImageList во время выполнения программы, прозрачность икон теряется. Пользователь пытается понять, в чем особенность системного ImageList, который поддерживает прозрачность, и как его можно создать.

Оригинальный заголовок:

Imagelist с альфа-прозрачными икониками теряет прозрачность

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

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

Контекст для написания статьи:

В материале, предоставленном пользователем, уже содержится решение проблемы. Оно заключается в использовании функции ImageList_Create с версией 6.0, которая позволяет создать ImageList с поддержкой альфа-прозрачности. Также упоминается возможность использования системного ImageList, который не требует наличия манифеста XP.

Пример кода на Object Pascal (Delphi):

function ImageList_Create_V6(CX, CY: Integer; Flags: UINT; Initial, Grow: Integer): HIMAGELIST;
var
  h: HMODULE;
  _ImageList_Create: function(CX, CY: Integer; Flags: UINT; Initial, Grow: Integer): HIMAGELIST; stdcall;
begin
  // ...
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // ...
  ImageList1.Handle := ImageList_Create_V6(ImageList1.Width, ImageList1.Height, ILC_COLOR32 or ILC_MASK, 0, ImageList1.AllocBy);
  // ...
end;

Подтвержденный ответ:

Системный ImageList использует версию 6.0 контролов, в то время как приложение может использовать либо версию 5.8, либо 6.0 в зависимости от наличия манифеста. Чтобы создать ImageList с поддержкой альфа-прозрачности, не изменяя остальную часть приложения, можно использовать API активации контекста для локального использования версий 6.0 контролов только во время создания ImageList.

Статья:

Работа с прозрачными иконками в среде Delphi может быть непростой задачей, особенно если требуется сохранить альфа-прозрачность при добавлении икон в TImageList во время выполнения программы. В данной статье мы рассмотрим, как можно решить эту проблему, используя системный ImageList, а также как создать собственный ImageList с поддержкой альфа-прозрачности.

Шаг 1: Использование системного ImageList

Системный ImageList в операционной системе Windows использует версию 6.0 контролов, которая поддерживает альфа-прозрачность. Вы можете использовать этот ImageList, не включая в ваше приложение манифест XP. Пример использования системного ImageList показан в коде Button2Click пользовательского примера.

procedure TForm1.Button2Click(Sender: TObject);
begin
  // ...
  ImageList1.Handle := SysImageList;
  ImageList1.ShareImages := True;
  // ...
end;

Шаг 2: Создание собственного ImageList с альфа-прозрачностью

Если вы хотите создать собственный ImageList, который поддерживал бы альфа-прозрачность, вам необходимо использовать функцию ImageList_Create версии 6.0. Это позволяет установить флаги, такие как ILC_COLOR32 и ILC_MASK, которые необходимы для поддержки альфа-прозрачности.

function ImageList_Create_V6(CX, CY: Integer; Flags: UINT; Initial, Grow: Integer): HIMAGELIST;
begin
  // Код для загрузки библиотеки comctl32.dll версии 6 и получения адреса функции ImageList_Create
end;

Шаг 3: Использование активации контекста

Для создания ImageList с поддержкой альфа-прозрачности без изменения остальной части приложения, можно использовать активацию контекста. Это позволяет локально использовать версии 6.0 контролов только во время создания ImageList.

Пример кода для вызова ImageList_Create версии 6.0 с использованием активации контекста можно найти в коде Button1Click пользовательского примера, а также в альтернативном ответе на Pastebin, предоставленного пользователем @David.

В заключение, для создания иконок с альфа-прозрачностью в Delphi, важно понимать, что ключевым моментом является создание ImageList с правильными флагами, такими как ILC_COLOR32 и ILC_MASK, и по возможности использовать активацию контекста для работы с версией 6.0 контролов. Это позволит сохранить прозрачность иконок в вашем приложении.

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

Пользователь столкнулся с проблемой потери прозрачности икон при их добавлении в `TImageList` в среде Delphi и ищет способ создать `ImageList`, поддерживающий альфа-прозрачность, аналогично системному.

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

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

:: Главная :: Изображения ::