Добавление элементов в TListView с использованием DynamicAppearance в реальном времени на Delphi

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

Добавление элементов в TListView с использованием DynamicAppearance в реальном времени на Delphi

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

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

Разработчики часто сталкиваются с необходимостью динамически изменять элементы списка в пользовательском интерфейсе. В случае использования TListView с DynamicAppearance, задача усложняется тем, что необходимо правильно установить текст и другие свойства для TTextObjectAppearance в режиме времени выполнения.

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

Для решения поставленной задачи необходимо использовать методы объекта TListView для добавления новых элементов и последующего доступа к объектам TListItemText, которые представляют собой текстовые элементы в DynamicAppearance. Вот пример кода, который демонстрирует, как это можно сделать:

var
  list : TListViewItem;
  ldes, lOrder, lLegal : TListItemText;
begin
  list := ListView1.Items.Add;
  ldes := list.Objects.FindObjectT<TListItemText>('Description');
  lOrder := list.Objects.FindObjectT<TListItemText>('OrderId');
  lLegal := list.Objects.FindObjectT<TListItemText>('LegalCode');
  ldes.Text := 'Mouri';
  lOrder.Text := 'Love';
  lLegal.Text := 'You';
  // Не забудьте обновить ListView, чтобы отразить изменения
  ListView1.Update;
end;

Важно помнить, что после изменения свойств элементов списка, необходимо вызвать метод Update компонента TListView, чтобы изменения вступили в силу и отобразились в интерфейсе.

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

Кроме вышеуказанного способа, существует еще один подход, который может быть использован для динамического обновления текста элементов списка. В этом случае используется процедура lvwReportsUpdateObjects, которая вызывается при обновлении объектов списка:

procedure TReportsForm.lvwReportsUpdateObjects(const Sender: TObject; const AItem: TListViewItem);
var
  drw: TListItemDrawable;
  cpt: string;
begin
  drw := AItem.Objects.FindDrawable('Concept');
  if (drw <> nil) then begin
    cpt := AItem.Data['Concept'].AsString;
    if (cpt = 'BAD') then
      (drw as TListItemText).TextColor := TAlphaColorRec.Indianred
    else
      (drw as TListItemText).TextColor := TAlphaColorRec.Cadetblue;
  end;
end;

Также можно использовать прямой доступ к данным элементов списка, но этот метод не рекомендуется для использования с DynamicAppearance, так как он предназначен больше для статических элементов:

for i := 0 to ListView1.ItemCount - 1 do
begin
  ListView1.Items.AppearanceItem[i].Data['Description'] := 'Mouri';
  ListView1.Items.AppearanceItem[i].Data['OrderID'] := 'loves';
  ListView1.Items.AppearanceItem[i].Data['LegalCode'] := 'YOU!';
  // Не забудьте обновить отображение элементов списка
  ListView1.Invalidate;
end;

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

Заключение

В данной статье мы рассмотрели проблему добавления элементов в TListView с DynamicAppearance в реальном времени на Delphi. Мы представили подтвержденный ответ, который демонстрирует, как правильно работать с объектами TListItemText, а также альтернативный подход с использованием процедуры обновления объектов. Важно помнить, что после изменения свойств элементов, необходимо вызвать методы обновления, чтобы изменения отразились в интерфейсе пользователя.

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

Вопрос связан с добавлением элементов в компонент `TListView` с использованием `DynamicAppearance` в реальном времени при разработке на Delphi.

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

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

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