Virtualstringtree: colrize odd row problem

**semo**

Ich möchte in einem Virtualtree jede 2. Zeile einfärben.

Dies kann ich auf zweierlei Arten tun:

Delphi-Quellcode:

			procedure TForm.VSTBeforeItemErase(Sender: TBaseVirtualTree;

  TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect;

  var ItemColor: TColor; var EraseAction: TItemEraseAction);

begin

  if Odd(Sender.AbsoluteIndex(Node)) then

  begin

    ItemColor := clBlue;

  end;

  EraseAction:=eaColor;

end;

oder

markieren

Delphi-Quellcode:

			procedure TForm.VSTBeforeCellPaint(Sender: TBaseVirtualTree;

  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;

  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);

begin

  if Odd(Sender.AbsoluteIndex(Node)) then

  begin

    Canvas.Brush.Color := clBlue;

    Canvas.FillRect(CellRect);

  end;

end;

Wobei ich ersteres bevorzugen würde, da dieses Event nur bei jedem Knoten und das 2. Event bei jeder Zelle gefeuert wird.

Problem:
bei hidden Nodes wird das Konzept der unterschiedlich eingefärbten sichtbaren Knoten über den Haufen geworfen.
Man müsste hier sowas wie einen sichtbaren AbsoluteIndex oder ähnliches haben.

Ich hab da zwar schon Versuche angestellt, bin damit aber neoch nicht wirklich zufrieden,
weil bei jeder Überprüfung maximal alle sichtbaren Knoten durchlaufen werden müssen.
Dies wird besonders bei großen Listen (> 100.000) ein Problem während des Scrollens.

zusammenfalten · markieren

Delphi-Quellcode:

			function TMyVirtualStringTree.GetVisibleIndex(ANode: PVirtualNode): Integer;

var

  VisibleIndex: Integer;

  VisibleNode: PVirtualNode;

begin

  Result := -1;

  VisibleIndex := 0;

  VisibleNode  := GetFirstVisible();

  while Assigned(VisibleNode) do

  begin

    if VisibleNode = ANode then

    begin

      Result := VisibleIndex;

      Break;

    end

    else

    begin

      Inc(VisibleIndex);

      VisibleNode := Self.GetNextVisible(VisibleNode);

    end;

  end;

end;

Hat da jemand eine andere Idee?

Virtualstringtree: colrize odd row problem

Virtualstringtree: colrize odd row problem

Forumregeln