Misschien heb je hier nog iets aan.
Bij het laden van je Series met Add(X, Y) moet je voor X de wortel van de tijd nemen ipv de tijd zelf.
Vervolgens schrijf je een OnGetAxisLabel voor je TChart waarbij je de LabelText vervangt door het kwadraat van de X waarde die je hebt toegevoegd.
Ik zet daar ook nog de LabelStyle, maar dat kun je ook standaard in het object zetten.
Je stapgrootte op de X-as is dan gelijk maar je labels lopen kwadratisch op.
Code:
procedure TForm.ChartGetAxisLabel(Sender: TChartAxis;
Series: TChartSeries; ValueIndex: Integer; var LabelText: string);
begin
if (Sender = Chart.Axes.Bottom) then
begin
Sender.LabelStyle := talText;
if Assigned(Series) then
LabelText := Format('%.1f', [Sqr(Series.XValue[ValueIndex])])
end
end;
Bookmarks