Delphi-PRAXiS - Delphi TChart: Histogramm: Einzelne Marks verschieben

Hallo,
leider habe ich wieder ein Problem im TChart im Histogramm:
In der 2D-Version ist nur der Wert des obersten Balkens zu sehen, die anderen werden verdeckt (Bild1). In einem anderen Forum hatte ich den Hinweis gefunden, die Marks mit

Delphi-Quellcode:

			(olBar.Items[iCount] as TBarSeries).Marks.Arrowlength   := -20;

(olBar.Items[iCount] as TBarSeries).Marks.Arrow.Visible := false;

nach unten zu verschieben. Das klappte auch, nur sind dann die Monate nicht mehr sichtbar (Bild2).
Dann habe ich gefunden, dass es mit 3D gehen soll, was ja auch stimmt -> siehe Bild 3.

Aber jetzt ist im März der untere Wert durch den Wert darüber (0) verdeckt.

Nun wollte ich diesen Wert einfach nicht mitzeichnen. Das Ergebnis war ein völliges Chaos (Bild 4). Es fehlt wirklich nur 1x AddBar für März.

Nun hatte ich diesen Artikel mit dem anschließenden Code gefunden:

http://www.teechart.net/support/viewtopic.php?f=3&t=106

Delphi-Quellcode:

			Var APosition:TSeriesMarkPosition;

APosition:=TSeriesMarkPosition.Create;

try

  APosition.Custom:=True;

  APosition.LeftTop.X:=100;

  Series1.Marks.Positions[Index]:=APosition;

  ....

  APosition.LeftTop.X:=200;

  Series1.Marks.Positions[OtherIndex]:=APosition;

finally

  APosition.Free;

end;

Leider ist

Delphi-Quellcode:

(olBar.Items[iCount] as TBarSeries).Marks.Positions.Count

immer 0 bzw. Positions leer. :shock:

Könnt ihr mir sagen, wie ich entweder alle Nullen (Bild3) ausblende, um Überlappungen wenigstens nur mit Werten zu haben? Oder wie kommt man an die Positionen, um dann den zweiten Wert etwas höher zu setzen? Danke.

Ich habe noch Delphi 6 im Einsatz.