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

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

procedure TIconShow.FileListBox1Click(Sender: TObject);
var

  MyIcon: TIcon;
  MyBitMap: TBitmap;
begin

  MyIcon := TIcon.Create;
  MyBitMap := TBitmap.Create;

  try
    { получаем имя файла и связанную с ним иконку}
    strFileName := FileListBox1.Items[FileListBox1.ItemIndex];
    StrPCopy(cStrFileName, strFileName);
    MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);

    { рисуем иконку на bitmap в speedbutton }
    SpeedButton1.Glyph := MyBitMap;
    SpeedButton1.Glyph.Width := MyIcon.Width;
    SpeedButton1.Glyph.Height := MyIcon.Height;
    SpeedButton1.Glyph.Canvas.Draw(0, 0, MyIcon);

    SpeedButton1.Hint := strFileName;

  finally
    MyIcon.Free;
    MyBitMap.Free;
  end;
end;

Перевод контента на русский язык:

Это процедура Delphi, которая создает изображение BMP из файла ICO (иконка). Вот шаг за шагом, что код делает:

1. Создает два объекта: MyIcon типа TIcon и MyBitMap типа TBitmap.
2. Извлекает имя выбранного файла из компонента FileListBox1 с помощью свойства ItemIndex.
3. Извлекает иконку, связанную с файлом, используя функцию ExtractIcon, которая принимает три параметра: handle экземпляра (hInstance), имя файла (cStrFileName) и желаемый размер (0 для стандартного размера).
4. Устанавливает свойство Glyph компонента SpeedButton1 на MyBitMap. Это означает, что иконка будет отображаться как глиф кнопки.
5. Устанавливает свойства ширины и высоты MyBitMap.Glyph в соответствии с размерами извлеченной иконки.
6. Рисует иконку на канвасе битмапа с помощью метода Draw, указывая начало рисования (0, 0).
7. Наконец, устанавливает свойство подсказки на кнопке с именем файла.

Альтернативное решение использует класс TIcon для конвертации изображения ICO в формат BMP:

procedure TIconShow.FileListBox1Click(Sender: TObject);
var
  MyIcon: TIcon;
  MyBitMap: TBitmap;
begin
  MyIcon := TIcon.Create;
  MyBitMap := TBitmap.Create;

  try
    strFileName := FileListBox1.Items[FileListBox1.ItemIndex];
    StrPCopy(cStrFileName, strFileName);
    MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);

    // Convert ICO to BMP
    MyBitMap.Width := MyIcon.Width;
    MyBitMap.Height := MyIcon.Height;
    MyBitMap.Canvas.Draw(0, 0, MyIcon);

    SpeedButton1.Glyph := MyBitmap;

    SpeedButton1.Hint := strFileName;

  finally
    MyIcon.Free;
    MyBitMap.Free;
  end;
end;

В этом альтернативном решении иконка ICO рисуется напрямую на объект TBitmap с помощью метода Canvas.Draw. Это создает изображение BMP, которое можно присвоить свойству Glyph кнопки.

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

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

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

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