Tchart, komisches Plotten beim Zoomen

Question

Also habe ich dieses schöne ältere Delphi 5 Projekt mit einem Tchart mit vertikalen Balken entlang einer Datetime Bottomaxis. Es funktioniert sehr gut. Jetzt möchte ich bis zu drei horizontale "Warn" -Zeilen mit jeweils bis zu drei umschaltbaren Beschriftungen hinzufügen. Die Idee besteht darin, drei rote Begrenzungslinien (drei 3-Elemente-Linienserien) und Beschriftungen ganz links, mittig und ganz rechts zu zeigen, die Y-Wertgrenzen zeigen. Beschriftungen sind umschaltbar, um Daten nicht zu stören. Und es funktioniert auch. Diese Labels müssen auch beim Scrollen auf xmin, mid und xmax stehen. Ich habe es gelöst, indem ich einen Timer gestartet habe, als die ersten Dataseries neu gezeichnet wurden, und dann die drei Labelseries mit den neuen xmin, mid und xmax des Charts zurücksetzte. Beim Scrollen folgen die Labels. Aber wenn ich zoome, ist etwas verloren. Ich drucke die Xmin, Xmax und Linienkoordinaten in der Statusleiste, wie es neu berechnet wird (zum Debuggen), es sieht ganz richtig aus, aber die drei horizontalen Linien gleiten nach links. Der am weitesten links liegende Punkt ist nicht zu sehen, ganz rechts driftet nach links, schlimmer ist der vergrößerte Zoom. Yvalues ​​sind korrekt.

Gibt es eine beste Möglichkeit, plot-eventdriven Neuberechnung von Plotdaten zu machen? (Oder muss ich alles in meinem XE10.2 neu erstellen?)

Answer 1

Ich habe es nur zu Hause ausgeführt, das gleiche Phänomen erscheint in XE10.2. Wenn ich heranzoome, schleicht sich die zweite Reihe (horizontale Linie, Endpunkte neu berechnet an den Kanten des Graphen) zur Seite weg. Allerdings wenn ich series2 an Topaxis anschließen, dann ist alles in Ordnung. Felsfest. Scheint wie eine natürliche Sache. Wie dumm von mir.

procedure TForm1.Series1AfterDrawValues(Sender: TObject); 
var a,b :Double; 
begin 
a:=(Chart1.LeftAxis.Minimum+chart1.leftAxis.maximum)/2; 
b:=chart1.TopAxis.Minimum; 
series2.Clear; 
series2.addxy(b,a,'Left'); 
series2.addxy(b+(chart1.topAxis.Maximum-b)/2,a,'Mid'); 
series2.addxy(chart1.topAxis.Maximum,a,'Right'); 
end; 

Running,line stays put when scrolling