Создание миниатюр изображений в ListView с помощью TImageList в Delphi XE

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

Если вы работаете с библиотекой компонентов TImageList в Delphi XE и хотите отобразить изображения в виде миниатюр в элементе ListView, вам необходимо учитывать, что TImageList поддерживает только иконки в формате ICO. Это может создать определенные трудности, поскольку исходные изображения могут быть в различных форматах, таких как PNG, JPG и GIF.

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

Для решения этой проблемы можно использовать пример кода, который позволяет преобразовать изображения в формат, поддерживаемый TImageList. Ниже приведен пример кода на языке Object Pascal, который демонстрирует, как можно подготовить изображения к использованию в TImageList с последующей установкой их в качестве миниатюр в ListView.

var
  Img: TImage;
  BmImg: TBitmap;
  Bmp: TBitmap;
  BmpMask: TBitmap;
  IconInfo: TIconInfo;
  Ico: TIcon;
begin
  Img := TImage.Create(nil);
  Img.Picture.LoadFromFile(...); // Загрузите изображение из файла

  BmImg := TBitmap.Create;
  BmImg.Assign(Img.Picture.Graphic);
  Img.Free;

  Bmp := TBitmap.Create;
  Bmp.SetSize(SizeOfImage, SizeOfImage); // Установите размер миниатюры
  SetStretchBltMode(Bmp.Canvas.Handle, HALFTONE);
  StretchBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
            BmImg.Canvas.Handle, 0, 0, BmImg.Width, BmImg.Height, SRCCOPY);
  BmImg.Free;

  BmpMask := TBitmap.Create;
  BmpMask.SetSize(Bmp.Width, Bmp.Height);
  BmpMask.Canvas.Brush.Color := clBlack;
  // ... инициализируйте маску, если необходимо

  FillChar(IconInfo, SizeOf(IconInfo), 0);
  IconInfo.cbSize := SizeOf(IconInfo);
  IconInfo.fIcon := True;
  IconInfo.hbmColor := Bmp.Handle;
  IconInfo.hbmMask := BmpMask.Handle;
  // ... установите дополнительные параметры, если необходимо

  Ico := TIcon.Create;
  Ico.Handle := CreateIconIndirect(IconInfo); // Создание иконки

  ImageList1.AddIcon(Ico); // Добавление иконки в TImageList

  Bmp.Free;
  BmpMask.Free;
  Ico.Free; // Освобождение ресурсов
end;

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

var
  Img: TImage;
  BmImg: TBitmap;
  Bmp: TBitmap;
begin
  Img := TImage.Create(nil);
  Img.Picture.LoadFromFile(...); // Загрузите изображение из файла

  BmImg := TBitmap.Create;
  BmImg.Assign(Img.Picture.Graphic);
  Img.Free;

  Bmp := TBitmap.Create;
  Bmp.SetSize(SizeOfImage, SizeOfImage); // Установите размер миниатюры
  SetStretchBltMode(Bmp.Canvas.Handle, HALFTONE);
  StretchBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
            BmImg.Canvas.Handle, 0, 0, BmImg.Width, BmImg.Height, SRCCOPY);
  BmImg.Free;

  ImageList1.AddMasked(Bmp, clNone); // Добавление изображения в маскированном виде
  Bmp.Free;
end;

Следует отметить, что начиная с Delphi 2009, TImageList также поддерживает изображения в формате PNG напрямую, что может быть альтернативным решением для более новых версий Delphi.

Важные замечания

• При работе с GDI-объектами важно правильно освобождать ресурсы, чтобы избежать утечек памяти.
• В случае возникновения ошибок, связанных с исчерпанием системных ресурсов, стоит убедиться, что все GDI-объекты корректно освобождаются.
• Использование блоков try-finally может помочь гарантировать освобождение ресурсов.

Используя предложенный код, вы сможете преобразовать изображения в формат, совместимый с TImageList, и отобразить их в виде миниатюр в ListView в приложении на Delphi XE.

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

Приведен пример кода для преобразования изображений в формат, совместимый с `TImageList`, чтобы отобразить их в виде миниатюр в элементе `ListView` в Delphi XE.

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

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

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