Как создать BMP из ICO 3

Delphi , Графика и Игры , Bitmap

Чтобы преобразовать Icon в Bitmap используйте TImageList. для обратного преобразования замените метод AddIcon на Add, и метод GetBitmap на GetIcon.

function Icon2Bitmap(Icon: TIcon): TBitmap;
begin
  with TImageList.Create (nil) do
  begin
    AddIcon (Icon);
    Result := TBitmap.Create;
    GetBitmap (0, Result);
    Free;
  end;
end;

Here's the translation of the text into Russian:

Код, предоставленный ниже, представляет собой простую функцию в Delphi, которая конвертирует файл ICO (иконка) в файл BMP (битмап).

Работает она следующим образом:

1. Создается экземпляр TImageList без привязки к компоненту-родителю (nil). Это позволяет иконке управлять своей памятью.
2. Метод AddIcon используется для добавления файла ICO в иконку. Этот метод принимает иконку как параметр и добавляет ее в иконку.
3. Создается новый экземпляр TBitmap, чтобы хранить конвертированный битмап.
4. Метод GetBitmap вызывается с параметрами 0 (индекс первой иконки в иконке) и новым созданным битмапом. Этот метод получает иконку под индексом 0 из иконки и копирует ее в указанный битмап.
5. Наконец, вызывается метод Free, чтобы освободить память, зарезервированную иконкой.

Функция возвращает конвертированный файл BMP в виде TBitmap.

Вот альтернативное решение с более явным подходом:

function Icon2Bitmap(Icon: TIcon): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Width := Icon.Width;
  Result.Height := Icon.Height;
  for I := 0 to Icon.IconEntries - 1 do
    Result.Canvas.Draw(0, I * Icon.Height, Icon.ExtractIcon(I));
end;

В этом альтернативном решении мы создаем TBitmap и устанавливаем его ширину и высоту в соответствии с размером иконки. Затем мы проходим по каждому элементу иконки ICO с помощью метода ExtractIcon, рисуя каждый элемент на битмапе в правильной позиции.

Этот подход более явно описывает процесс конвертации, но может быть менее эффективен, чем оригинальное решение, поскольку он-involve ручное рисование на канвасе.

Чтобы преобразовать Icon в Bitmap, можно использовать компонент TImageList и выполнить замену методов AddIcon на Add и GetBitmap на GetIcon.

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

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

:: Главная :: Bitmap ::