Цветные строки для TListView

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 begin
   with ListView1.Canvas.Brush do
   begin
     case Item.Index of
       0: Color := clYellow;
       1: Color := clGreen;
       2: Color := clRed;
     end;
   end;
 end;

Программный код на Delphi, который настраивает отображение элементов в контроле TListView. Метод ListView1CustomDrawItem вызывается для каждого элемента в списке и позволяет настроить его внешний вид.

В этом конкретном реализации цвет фона кисти устанавливается в зависимости от индекса элемента. Если индекс равен 0, то цвет кисти установлен в желтый (clYellow). Если индекс равен 1, то цвет кисти установлен в зеленый (clGreen). Если индекс равен 2 или больше, то цвет кисти установлен в красный (clRed).

Схема работы кода следующая:

1. with ListView1.Canvas.Brush do: Это задает область видимости для свойства Brush объекта Canvas, связанного с контролем ListView1.
2. case Item.Index of: Это начинает заявление case, которое проверяет индекс текущего элемента (Item.Index) и устанавливает цвет кисти соответственно.
3. 0: Color := clYellow;: Если индекс равен 0, то устанавливается цвет кисти в желтый (clYellow).
4. 1: Color := clGreen;: Если индекс равен 1, то устанавливается цвет кисти в зеленый (clGreen).
5. 2: Color := clRed;: Если индекс равен 2 или больше, то устанавливается цвет кисти в красный (clRed).

Параметр DefaultDraw установлен в False, что означает, что стандартное поведение отображения элемента не будет выполняться.

В целом, этот код предоставляет простой способ настройки внешнего вида элементов в контроле TListView, устанавливая цвета фона в зависимости от их индексов.

Программный код на Delphi, который позволяет изменять цвет строк в компоненте TListView в зависимости от индекса строки.

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

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

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