Einzelnen Beitrag anzeigen

Dagon

Registriert seit: 13. Jul 2003
505 Beiträge
 
Delphi 7 Professional
 
#1

[TChart] Zeichnen von Custom Axes

  Alt 2. Jan 2004, 17:43
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):

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?
  Mit Zitat antworten Zitat