如何在已过滤的TVirtualStringTree上设置适当的替代行颜色

procedure SetAlternateRowColor(VST: TVirtualStringTree; AlternateColor: TColor);
var
  Node: PVirtualNode;
  RowCount: Integer;
begin
  Node := VST.GetFirst;
  RowCount := 0;

  while Assigned(Node) do
  begin
    if VST.IsVisible[Node] then
    begin
      if RowCount mod 2 = 1 then
        VST.Canvas.Brush.Color := AlternateColor
      else
        VST.Canvas.Brush.Color := VST.Color;

      VST.DefaultDrawNode(Node);
      Inc(RowCount);
    end;

    Node := VST.GetNext(Node);
  end;
end;

// 设置TVirtualStringTree的过滤器
VST.Header.FilteredColumns.Add(0); // 假设第一列为过滤列
VST.OnAfterItemErase := VSTAfterItemErase;

// 在OnAfterItemErase事件中设置替代行颜色
procedure TForm1.VSTAfterItemErase(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect; var ItemColor: TColor; var EraseAction: TItemEraseAction);
begin
  if Sender.IsVisible[Node] then
  begin
    if Node.Index mod 2 = 1 then
      ItemColor := clSilver
    else
      ItemColor := Sender.Color;
  end;
end;

// 在过滤器发生变化时重新设置替代行颜色
procedure TForm1.VSTHeaderFilterChanged(Sender: TVTHeader; Column: TColumnIndex; Changed: Boolean);
begin
  SetAlternateRowColor(VST, clSilver);
end;