Создание пользовательского интерфейса с миниатюрами изображений в Delphi XE: использование `tListView` для сортируемого списка файлов `.jpg`

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

Создание пользовательского интерфейса с миниатюрами изображений в Delphi XE

Вопрос пользователя связан с необходимостью отображения миниатюр изображений в списке tListBox в среде разработки Delphi XE. Пользователь хочет создать интерфейс, похожий на панель просмотра файлов в Windows Explorer, где рядом с именем файла отображается его миниатюра. Для решения этой задачи можно использовать событие OnDrawItem компонента tListBox, однако пользователь столкнулся с трудностями в реализации.

Подход с использованием tListBox

Для начала рассмотрим пример, который демонстрирует использование OnDrawItem для создания миниатюр в списке. Этот подход может быть удобен, если нет необходимости в сложной логике сортировки элементов, но в случае с пользовательской сортировкой через перетаскивание, такой подход может быть затруднительным.

procedure TForm4.ListBox1DrawItem(Sender: TObject; Item: TListItem; State: TOwnerDrawState);
var
  Image: TBitmap;
begin
  with Sender as TListBox do
  begin
    Image := thumbs[Item.Index];
    Canvas.Draw(0, 0, Image);
    // Здесь можно добавить дополнительный код для отображения имени файла
  end;
end;

Альтернативный подход с использованием tListView

Более удобным решением для задач, связанных с сортировкой и отображением миниатюр, является использование компонента tListView. Пользователь уже начал работу в этом направлении, и на основе его кода можно создать функциональный пример.

procedure TForm1.CreateThumbnails;
var
  i: Integer;
  FJpeg: TJpegImage;
  R: TRect;
begin
  for i := 0 to imageCount - 1 do
  begin
    FJpeg := TJpegImage.Create;
    thumbs[i] := TBitmap.Create;
    FJpeg.LoadFromFile(Concat(imgFolderLabel.Caption, photoList.Items.Strings[i]));
    // Пропорционально изменяем размер изображения для отображения миниатюры
    // ...
    thumbs[i].SetSize(64, 64);
    // Добавляем миниатюру в ImageList, который используется ListView
  end;
  imgListView.LargeImages := ImageList1;
  FJpeg.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Инициализация ListView и ImageList
  // ...
  CreateThumbnails;
  // Создание элементов списка с указанием индекса миниатюры
  // ...
end;

Пример использования tListView с созданием элементов списка

procedure TForm1.CreateListItems;
var
  i: Integer;
begin
  for i := 0 to imageCount - 1 do
  begin
    with ListView1.Items.Add do
    begin
      Caption := photoList.Items.Strings[i];
      ImageIndex := i; // Указываем индекс миниатюры в ImageList
    end;
  end;
end;

Заключение

Использование tListView для отображения миниатюр изображений является более предпочтительным решением, поскольку оно обеспечивает лучшую совместимость с пользовательской сортировкой и предоставляет более удобные возможности для работы с элементами списка. Подход с использованием OnDrawItem в tListBox может быть более сложным в реализации и поддержке. Пользователю рекомендуется продолжить работу с tListView, следуя приведенным примерам кода.

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

Вопрос связан с разработкой пользовательского интерфейса в среде Delphi XE, где необходимо отобразить миниатюры изображений в `tListBox` или `tListView`, используя события `OnDrawItem` или создание элементов списка соответственно,

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

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

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