Delphi-PRAXiS - Delphi TVirtualStringTree - Knotensumme

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TVirtualStringTree - Knotensumme - wie geht das (https://www.delphipraxis.net/43018-tvirtualstringtree-knotensumme-wie-geht-das.html)

TVirtualStringTree - Knotensumme - wie geht das

Hallo an Alle,

ich hab ein kniffliges Problem

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

Folgendes Layout hab ich:

Delphi-Quellcode:

			Material1

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

Material2

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

   Verkaufsdatum   Menge Mengeneinheit Preis Betrag

Material3 

   ...

Es ist nun sehr unkomfortabel, wenn man die Beträge mit der Rechenmaschine zusammenzählen muss

Dazu würd ich gern folgenden VST aufbauen:

Delphi-Quellcode:

			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 anzeigen soll.
Damit wär auch im eingeklappten Zustand der Knoten eine sinnvolle Anzeige möglich.

Vielen Dank für Eure Hilfe!

Karl

Re: TVirtualStringTree - Knotensumme - wie geht das

gibt 2 möglichkeiten - einen performaten und einen einfachen

der einfache sieht so aus:
wenn der summen knoten gemalt wird (onGetText) iterierst du einfach durch die unterknoten und summierst und dann anzeigst.
kleiner tipp: vst.IterateSubtree() ist ne nette funktion

andere variante ist das du beim füllen des vst schon die summe bildest und dann im summenknoten speicherst.

Re: TVirtualStringTree - Knotensumme - wie geht das

Oder so

http://www.delphipraxis.net/download.php?id=7436

Ich kann Dir nacher mal einen Code posten, wie ich die Summen bilde - ich mache das, nachdem der Baum komplett aufgebaut wurde (hat bei mir aber auch noch einen anderen Hintergrund)

Gruß Igotcha