Центрирование изображений в подэлементах `TListView` без обрезки

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

Центрирование изображений в подэлементах TListView без обрезки

При работе с компонентом TListView в среде разработки Delphi может возникнуть проблема, когда изображения в подэлементах отображаются с обрезкой с левой стороны. Это может быть вызвано неправильной настройкой свойств компонента или некорректным отображением при использовании стандартного рисования элементов списка. Для решения этой проблемы можно использовать режим владельского рисования (OwnerDraw).

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

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

Пример кода

Ниже представлен пример кода, который позволяет центрировать изображения в подэлементах TListView:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem; Rect: TRect;
  State: TOwnerDrawState);
var
  Bmp: TBitmap;
  Image: TBitmap;
  R: TRect;
  CenterH, CenterV, ImageIndex, ItemWidth: Integer;
  i: Integer;
begin
  // Инициализация размеров и создания битмапов для рисования
  ItemWidth := Sender.Column[0].Width;
  R := Rect;
  Bmp := TBitmap.Create;
  try
    Image := TBitmap.Create;
    Bmp.SetSize(R.Width, R.Height);
    // Заливка фона элемента
    if Item.Selected then
      Bmp.Canvas.Brush.Color := clWebOrange
    else
      Bmp.Canvas.Brush.Color := clMoneyGreen;
    Bmp.Canvas.FillRect(Bmp.Canvas.ClipRect);
    // Рисование изображения для фиксированного столбца
    TListView(Sender).SmallImages.GetBitmap(Item.ImageIndex, Image);
    CenterH := (Sender.Column[0].Width - Image.Width) div 2;
    CenterV := (R.Height - Image.Height) div 2;
    Bmp.Canvas.Draw(CenterH, CenterV, Image);
    // Дополнительный код для рисования текста и подэлементов
    // ...
    // Перерисовка готового элемента на канвасе компонента
    Sender.Canvas.Draw(R.Left, R.Top, Bmp);
  finally
    Image.Free;
    Bmp.Free;
  end;
end;

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

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

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

Рисование текста подэлементов оставлено разработчику в качестве домашнего задания.

Заключение

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

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

### Описание контекста: Проблема центрирования изображений в подэлементах `TListView` без обрезки в среде разработки Delphi, решаемая через активацию режима владельского рисования.

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

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

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