[TChart] Zeichnen von Custom Axes

**Dagon**

Hallo Leute

Ich habe wieder einmal ein kleines Problemchen, bei dem ich eure Hilfe benötige.

Mit folgendem Code will ich in einer TChart Kompo die Achsen in der Mitte des Diagramms anzeigen lassen (der Code stammt aus einem der mitgelieferten Beispiele):

zusammenfalten · markieren

Delphi-Quellcode:

			  // im OnAfterDrawValues-Ereignis einer beliebigen LinienArt (Serie)

  With Chart1 do

  begin

    PosAxis := ChartRect.Left + Trunc(ChartWidth*50/100.0);

    LeftAxis.CustomDraw(posaxis-10, posaxis-40, posaxis, false);

    PosAxis := ChartRect.Left + Trunc(ChartWidth*(100.0-50)/100.0);

    LeftAxis.CustomDraw(posaxis-10, posaxis-40, posaxis, false);

    PosAxis := ChartRect.Top + Trunc(ChartHeight*50/100.0);

    BottomAxis.CustomDraw(posaxis+10, posaxis+40, posaxis, false);

    PosAxis := ChartRect.Top + Trunc(ChartHeight*(100.0-50)/100.0);

    BottomAxis.CustomDraw(posaxis+10, posaxis+40, posaxis, false);

  end;

So weit läuft auch alles ganz gut; die Achsen werden tatsächlich in der Mitte angezeigt.

Verscheibe ich nun das Diagramm mittels Mauszeiger oder sonst auf irgend eine Weise nach links (sodass die positiven Werte grösser werden), verschwinden die beiden Achsen in der Mitte plötzlich. Schiebe ich das Diagramm jedoch wieder zurück, erscheinen sie wieder.
Wenn ich das selbe aber in Richtung negative Werte mache, bleiben die Achsen (egal wie weit ich nach links gehe).

Nun meine Frage: Warum? Und was kann/muss ich ändern, damit die Achsen in der Mitte immer angezeigt werden?

[TChart] Zeichnen von Custom Axes

[TChart] Zeichnen von Custom Axes

Forumregeln