Исправление размера изображений под ImageList в Delphi

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

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

Проблема

Пользователь столкнулся с проблемой, когда изображения большего размера, чем размеры ImageList (например, 32x32 пикселей), добавлялись в ImageList, но отображались некорректно. Вместо ожидаемого растяжения изображений, они обрезались, что не соответствовало желаемому поведению, как в редакторе ImageList.

Решение

Для решения проблемы можно использовать растяжение изображений перед добавлением их в ImageList. Важно использовать TMemoryStream вместо работы с файлами на диске. Вот пример кода на Object Pascal, который решает данную задачу:

var
  StretchedBMP: TBitmap;
  MS: TMemoryStream;
begin
  ImageList.Clear;
  ItemsDts.First;
  StretchedBMP := TBitmap.Create;
  try
    // Подготовка размера растянутого изображения
    StretchedBMP.Width := ImageList.Width;
    StretchedBMP.Height := ImageList.Height;
    // Подготовка потока памяти
    MS := TMemoryStream.Create;
    try
      ImageBitmap := TBitmap.Create;
      try
        while not ItemsDts.Eof do
        begin
          if not ItemsDtsPicture.IsNull then
          begin
            MS.Size := 0;
            ItemsDtsPicture.SaveToStream(MS);
            MS.Position := 0;
            ImageBitmap.LoadFromStream(MS);
            // Растягивание изображения
            StretchedBMP.Canvas.StretchDraw(Rect(0, 0, StretchedBMP.Width-1, StretchedBMP.Height-1), ImageBitmap);
            ImageList.Add(StretchedBMP, nil);
          end;
          ItemsDts.Next;
        end;
      finally
        ImageBitmap.Free;
      end;
    finally
      MS.Free;
      StretchedBMP := nil; // Вызов метода Free в деструкторе TBitmap
    end;
    // Освобождение памяти для TBitmap перед его выходом из области видимости

Обратите внимание на прозрачность изображений

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

Заключение

Таким образом, при правильном подходе, можно корректно добавить изображения различного размера в ImageList, чтобы они отображались с нужным разрешением в компонентах, использующих данный список изображений. Использование TMemoryStream ускоряет работу с данными и упрощает код по сравнению с операцией чтения и записи на диск.

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

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

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

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

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