uses Series;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.AddSeries(TLineSeries.Create(Self));
Chart1[0].FillSampleValues;
Chart1.Axes.Left.Axis.Color:=clRed;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Chart1.Axes.Left.Axis.Color:=clBlack;
end;

Users browsing this forum: No registered users and 1 guest