Изменение цвета фона отдельных элементов TListView в Delphi: динамическое управление стилями

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

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

Введение

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

Проблема

Вопрос поступил от пользователя Ertan, который хотел динамически изменять цвет фона отдельного элемента TListViewItem в режиме выполнения программы. Он заметил, что использование стилябуков (StyleBook) изменяет цвет фона для всех элементов, а не только для одного.

Решение с использованием настраиваемого изображения

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

Код

Вот пример кода, который демонстрирует, как это можно сделать:

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure ListView1UpdateObjects(const Sender: TObject;
      const AItem: TListViewItem);
    procedure FormDestroy(Sender: TObject);
  private
    FCustomItem : TListViewItem;
    FBitmap     : TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Добавляем несколько элементов в ListView
  for var i := 1 to 25 do
    ListView1.Items.Add.Text := Format('item #%u', [i]);

  // Выбираем пятый элемент для изменения его фона
  FCustomItem := ListView1.Items[4];
  FCustomItem.Text := 'Custom Background Item';

  // Создаем битмап с желтым цветом с прозрачностью
  var c := TAlphaColorRec.OrangeRed;
  TAlphaColorRec(c).A := 64; // Устанавливаем прозрачность

  FBitmap := TBitmap.Create(8, 8);
  FBitmap.Clear(c);

  // Обновляем объекты ListView при изменении структуры
  ListView1.UpdateObjects;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FBitmap.Free;
end;

procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
  // Если элемент равен FCustomItem, добавляем настраиваемое изображение
  if AItem = FCustomItem then
  begin
    var Bkgnd := TListItemImage.Create(nil);
    Bkgnd.ScalingMode := TImageScalingMode.Stretch;
    Bkgnd.OwnsBitmap := False;
    Bkgnd.Bitmap := FBitmap;

    AItem.View.Insert(0, Bkgnd);
  end;
end;

Работа кода

1. В методе FormCreate мы добавляем несколько элементов в ListView1.
2. Мы выбираем пятый элемент (FCustomItem) и изменяем его текст на 'Custom Background Item'.
3. Создаем битмап с желтым цветом (TAlphaColorRec.OrangeRed) с прозрачностью.
4. В методе ListView1UpdateObjects проверяем, если текущий элемент равен FCustomItem, добавляем настраиваемое изображение с использованием битмапа.

Альтернативное решение: использование стилябуков

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

Создание настраиваемого стиля

1. Откройте редактор стилябуков и создайте новый стиль для элементов TListViewItem.
2. В этом стиле измените свойства фона, например, цвет фона и прозрачность.
3. Примените этот стиль к нужному элементу в режиме выполнения программы.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Добавляем несколько элементов в ListView
  for var i := 1 to 25 do
    ListView1.Items.Add.Text := Format('item #%u', [i]);

  // Выбираем пятый элемент для изменения его фона
  FCustomItem := ListView1.Items[4];
  FCustomItem.Text := 'Custom Background Item';

  // Применяем настраиваемый стиль к элементу
  FCustomItem.StyleBook := TStyleBook1;
end;

Заключение

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

Если у вас есть дополнительные вопросы или нужна помощь с конкретными примерами кода, не стесняйтесь задавать их в разделе комментариев.

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

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

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

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

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