TVirtualStringTree - Hintergrundfarbe für bestimmte Zeilen ?

[karl der große]

Hallo an Alle,

hab schon wieder ein kniffliges Problem, bei dem ich trotz intensiver Suche keine wirklich verständliche und funktionierende Lösung finde.

Für eine Auswertung von Artikelverkäufen hab ich eine Anzeige der Verkäufe im VirtualStringTree gemacht. Funzt soweit super!

Material1 Summe1 Summe2
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Material2 Summe1 Summe2
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Verkaufsdatum Menge Mengeneinheit Preis Betrag
Material3 Summe1 Summe2
...


wobei Summe1 jeweils die Summe der darunterliegenden Mengen, Summe2 der darunterliegenden Beträge ist.
Um das ganze übersichtlich zu machen, würde ich gerne die Zeilen mit den Summen mit einer anderen Hintergrundfarbe belegen.

Könnt Ihr mir helfen?

Vielen Dank schon im Voraus!

Karl

[Gruber_Hans_12345]

kannst im Event OnBeforeItemErase machen

Delphi-Quellcode:

    if Sender.GetNodeLevel(Node) = 0 then begin
        ItemColor   := clRed;
        EraseAction := eaColor;
    end;

Färbt alle Root Elemente rot ein.

[karl der große]

Danke - genau das wollte ich.

Gruss Karl