procedure TForm1.ChartTool1Change(Sender: TCursorTool; x, y: Integer; const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer); begin Chart1.Title.Text.Text:=FormatFloat('#.00',YValue); end; Hi Narcís, Code like this, I've tried first. :-) But the YValue is the value of the mouse cu...

Hi, procedure TForm1.ChartTool1Change(Sender: TCursorTool; x, y: Integer; const XValue, YValue: Double; Series: TChartSeries; ValueIndex: Integer); begin if (Series1.Clicked(X,Y)<>-1) then Chart1.Title.Text.Text:=FloatToStr(Series.YValues[Series.Clicked(X,Y)]); end; Unfortunately 'Clicked' dosen't ...

I'm using TAreaSeries. How can I calculate the YValue on the drawn Line by a given XValue? Example: Point 1 in the Serie: X=1 Y=10 Point 2 in the Serie: X=3 Y=30 I'm geting the XValue=2 by the Cursortool(between two points). The result must be Y=20 if stairs:=false. I've tried to calulate it myself,...

Put a TChart with a TAreaSeries to a form. Use following code and zoom with the mouse. The Leftaxis-Minimum/maximum change every time you zoom. procedure TForm4.Button1Click(Sender: TObject); var i:integer; begin for i := 0 to 100 do Series1.AddXY(i,i); Chart1.Zoom.Direction:=tzdHorizontal; Chart1.L...

Put a TChart with a TAreaSeries to a form. Then use following code: procedure TForm4.Button2Click(Sender: TObject); begin Chart1.View3D:=false; Series1.Transparency:=100; Series1.AreaLinesPen.Visible:=false; Series1.AddXY(now -0.1 ,10); Series1.AddXY(now +0.1 ,10); Series1.AddXY(now ,10); Chart1.Bot...