Delphi-PRAXiS

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 [TChart] Zeichnen von Custom Axes (https://www.delphipraxis.net/14118-%5Btchart%5D-zeichnen-von-custom-axes.html)

Dagon 2. Jan 2004 17:43


[TChart] Zeichnen von Custom Axes
 
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?


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz