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
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.
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?