Change the increment step on X Date Axis

[vasilis]

Hi,
I would like to change the increment step on X Axis
that has every single day from 2019 year.
Hence, the X axis has a Date Format & I would like
to have an one month step for each Bar on graph.
Thank you
Vasilis

[Yeray]

Hello Vasilis,

You could set the Increment to DateTimeStep[dtOneMonth]. Ie:

Project3_2022-11-07_16-29-35.png (22.28 KiB) Viewed 5078 times

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
    d: TDateTime;
begin
  Chart1.View3D:=False;
  Chart1.Gradient.Visible:=False;
  Chart1.Color:=clWhite;
  Chart1.Walls.Back.Gradient.Visible:=False;
  Chart1.Walls.Back.Color:=clWhite;
  Chart1.Legend.Hide;

  with TBarSeries(Chart1.AddSeries(TBarSeries)) do
  begin
    Marks.Hide;
    XValues.DateTime:=True;

    d:=EncodeDate(2019, 1, 1);
    AddXY(d, 100+random*10);
    for i:=1 to 30*6 do
    begin
      AddXY(d, YValue[i-1]+random*10-5);
      d:=d+1;
    end;
  end;

  Chart1.Axes.Bottom.Increment:=DateTimeStep[dtOneMonth];
end;