Исправление ошибок отображения элементов списка с OwnerDraw в Delphi после изменения размера столбца

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

Исправление ошибок отображения элементов списка с OwnerDraw в Delphi

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

Описание проблемы

Пользователь столкнулся с проблемой, при которой при изменении размера столбцов в TListView и последующей прокрутке списка, элементы отображались некорректно. Это происходило из-за того, что свойства Rect.Left и Rect.Right изменялись неверно при прокрутке. В результате, при скролле на 50 пикселей вправо, Rect.Right увеличивался на 50, а Rect.Left становился равным -50, что приводило к сдвигу отрисовываемых элементов.

Пример кода до исправления

procedure TDownloadFrame.DownloadListDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
  i: integer;
  x1, x2: integer;
  R: TRect;
  s: string;
  ...
begin
  ...
  x1 := 0;
  x2 := 0;
  R := Rect;
  ...
  for i := 0 to DownloadList.Columns.Count - 1 do
  begin
    Inc(x2, ListView_GetColumnWidth(DownloadList.Handle, DownloadList.Columns[i].Index));
    R.Left := x1;
    R.Right := x2;
    ...
    if i = 0 then
    begin
      s := Item.Caption;
      R.Left := 16 + 6;
    end
    ...
  end;
end;

Исправление кода

Для решения проблемы необходимо изменить начальные значения x1 и x2, а также корректно установить начальные координаты для отрисовки иконки:

1. Исправьте инициализацию переменных x1 и x2:

pascal x1 := Rect.Left; x2 := Rect.Left;

1. Измените позицию отрисовки иконки, используя координаты Rect:

pascal MainForm.Icons_16x16.Draw(DownloadList.Canvas, R.Left+3, R.Top + (R.Bottom - R.Top - 16) div 2, ImgIndex, true);

1. Убедитесь, что при отрисовке первого столбца учитываются начальные координаты Rect:

pascal if i = 0 then begin s := Item.Caption; R.Left := R.Left + 16 + 6; end

Пример кода после исправления

procedure TDownloadFrame.DownloadListDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
var
  i: integer;
  x1, x2: integer;
  R: TRect;
  s: string;
  ...
begin
  ...
  x1 := Rect.Left;
  x2 := Rect.Left;
  ...
  for i := 0 to DownloadList.Columns.Count - 1 do
  begin
    Inc(x2, ListView_GetColumnWidth(DownloadList.Handle, DownloadList.Columns[i].Index));
    ...
    if i = 0 then
    begin
      s := Item.Caption;
      R.Left := R.Left + 16 + 6;
    end
    ...
    MainForm.Icons_16x16.Draw(DownloadList.Canvas, R.Left+3, R.Top + (R.Bottom - R.Top - 16) div 2, ImgIndex, true);
    ...
  end;
end;

Заключение

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

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

Контекст: Разработчики в Delphi сталкиваются с проблемами отображения элементов списка `TListView` при изменении размера столбцов и прокрутке в режиме OwnerDraw, и ищут способы исправить эти ошибки.

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

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

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