Создание пользовательских миниатюр для TListView в режиме просмотра иконок с помощью событий OnCustomDrawItem

Delphi , Компоненты и Классы , TListView

Создание пользовательских миниатюр для TListView в режиме просмотра иконок

При работе с компонентом TListView в режиме просмотра иконок (Viewstyle = vsIcon) может возникнуть необходимость создания пользовательских миниатюр, размер которых отличается от стандартного. Вопрос, поставленный пользователем, заключается в том, как нарисовать кастомные миниатюры размером 120x120 пикселей без использования свойства LargeImages и с применением события OnCustomDrawItem.

Подтвержденный ответ

Для решения этой задачи необходимо настроить размеры элементов в списке, так как по умолчанию TListView использует размеры, заданные в TImageList. Чтобы обойти это, можно создать "для галочки" TImageList с нужными размерами изображений, но использовать его только для установки размеров элементов. Все рисование миниатюр будет происходить в событии OnCustomDrawItem.

Вот пример кода на Object Pascal (Delphi), который демонстрирует, как это можно реализовать:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListViewItem; Drawing: TListViewCustomDraw);
var
  Rect: TRect;
begin
  with Drawing do
  begin
    if OwnerDrawItem = odStateCut or OwnerDrawItem = odStateSelected then
      Exit; // Пропускаем выделенные и вырезанные элементы

    // Устанавливаем размеры прямоугольника для элемента
    Rect := RectItem;
    Rect.Inflate(0, 0, 120, 120);

    // Здесь должен быть ваш код для рисования миниатюры
    // Например, рисование изображения вручную
    // Drawing.DrawImage(Item.Image, Rect, clDefault);

    // Устанавливаем, что элемент обработан
    Result := cdItemDraw;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ImageList: TImageList;
begin
  // Создаем новый TImageList с нужным размером изображения
  ImageList := TImageList.Create;
  try
    ImageList.Handle := GetDC(0);
    ImageList.ReadFromFile('C:\Windows\system32\shell32.dll');
    ImageList.SetSize(120, 120, ImageList.ColorDepth);
    ImageList.SetBkColor(0x00FFFFFF);
    ListView1.LargeImages := ImageList;
    ListView1.ViewStyle := vsIcon;
    ListView1.OwnerDraw := True;
  finally
    ImageList.Free;
    ReleaseDC(0, ImageList.Handle);
  end;
end;

Этот код позволяет установить размер элементов TListView в 120x120 пикселей, не используя LargeImages для хранения изображений, а лишь для определения их размеров. Все кастомное рисование происходит внутри события OnCustomDrawItem.

Альтернативный ответ

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

Создание пользовательских миниатюр для TListView в режиме просмотра иконок с помощью событий OnCustomDrawItem требует тщательной настройки размеров элементов и ручного рисования, что открывает широкие возможности для кастомизации внешнего вида элементов списка.

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

Description: При работе с компонентом `TListView` в режиме просмотра иконок, пользователю требуется создать пользовательские миниатюры размером 120x120 пикселей, не используя стандартный механизм `LargeImages` и применяя событие `OnCustomDrawItem` для ка

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

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

:: Главная :: TListView ::