So, habe mich in diesem Problem durch Doku, andere Foren etc durchgebissen und
habe eine Lösung für mich gefunden.
Sieht dann, leicht gekürzt, etwa so aus:
Delphi-Quellcode:
for i_Serie := 0 to cxBZ_WertePie.CountActiveSeries - 1 do
begin
with cxBZ_WertePie do
begin
case i_Serie of
0 : i_KurzText := 'GS'; { Gesamt }
(..)
end;
{ der erste Werteblock }
if SeriesList[i_Serie].XLabel[0] = '0' then
begin
SeriesList[i_Serie].XLabel[0] := i_KurzText+' zu niedrig';
SeriesList[i_Serie].ValueColor[0] := cxStyleLow.Color;
end;
(..)
{ und alles Neuzeichnen }
SeriesList[i_Serie].Repaint;
end;
end;
Am Ende der gesamte Routine stand noch ein RefreshData auf die gesamte Grafik. Das habe
ich entfernt, weil dann immer wieder der Zustand hergestellt wurde, den ich in der
IDE
beim Erstellen der uswertung eingegeben hatte.
Das scheint mir aber auch nicht ganz
ohne Fehler zu sein, aber egal so klappt es bei mir. Und nur das zählt.