Чередующиеся цвета строк в TVirtualStringTree: пошаговое руководство

Delphi , Синтаксис , Деревья

При работе с компонентом TVirtualStringTree в Delphi нередко возникает потребность в чередовании цветов строк для облегчения восприятия информации. Однако при использовании фильтрации узлов стандартный подход на основе индекса узла (Node.Index) перестает работать. В этой статье мы рассмотрим, как решить эту проблему и добиться правильного чередования цветов строк даже при применении фильтрации.

Проблема

При отображении всех узлов компонента TVirtualStringTree мы можем использовать индекс узла (Node.Index) для проверки четности или нечетности строк внутри события OnBeforeCellPaint. Однако при фильтрации узлов этот подход перестает работать, так как индекс узла остается прежним, в то время как сами узлы могут быть скрыты. В результате чередование цветов строк нарушается.

Решение

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

Ниже приведен пример кода на Object Pascal (Delphi), демонстрирующий реализацию метода GetVisibleIndex для компонента TVirtualStringTree:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    VirtualStringTree1: TVirtualStringTree;
    procedure VirtualStringTree1BeforeCellPaint(Sender: TObject; Node: TVirtualNode;
      Canvas: TCanvas; ARect: TRect; State: TVSTCellState);
  private
    { Private declarations }
    function GetVisibleIndex(Node: TVirtualNode): Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.VirtualStringTree1BeforeCellPaint(Sender: TObject; Node: TVirtualNode;
  Canvas: TCanvas; ARect: TRect; State: TVSTCellState);
begin
  if Node.Level = 0 then
  begin
    if (GetVisibleIndex(Node) mod 2) = 0 then
      Canvas.Brush.Color := clWhite
    else
      Canvas.Brush.Color := clLightGray;
    Canvas.FillRect(ARect);
  end;
end;

function TForm1.GetVisibleIndex(Node: TVirtualNode): Integer;
var
  VisibleNodesCount: Integer;
begin
  VisibleNodesCount := 0;
  with VirtualStringTree1 do
  begin
    for var i := 0 to Root.Nodes.Count - 1 do
    begin
      if Root.Nodes[i].Visible then
        Inc(VisibleNodesCount);
      if Node = Root.Nodes[i] then
        Break;
    end;
  end;
  Result := VisibleNodesCount;
end;

end.

В этом примере мы переопределяем событие OnBeforeCellPaint компонента TVirtualStringTree и внутри него вызываем функцию GetVisibleIndex, которая возвращает видимый индекс текущего узла. Затем мы проверяем четность или нечетность видимого индекса и устанавливаем соответствующий цвет фона для текущей строки.

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

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

Заключение

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

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

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

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

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

:: Главная :: Деревья ::