Steema Central

Code: Select all

procedure TfrmPsrGraph.SetupGraph(const v1,v2,v3:shortstring);
var
  xBar3:TBarSeries;
  xTrend:TTrendFunction;
  m, b: Double;
begin
  xTrend:=TTrendFunction.Create(self);

  xBar3:=TBarSeries.Create(chtPSR);
  xBar3.ParentChart:=chtPSR;
  xBar3.SetFunction(xTrend);
  xBar3.DataSource:=fPSRTable;
  xBar3.CheckDataSource;
  xTrend.CalculateTrend(m,b,xBar3,0,xBar3.Count);

  xBar3.YValues.ValueSource:=v3;
  xBar3.XValues.ValueSource:='psrdate';
  xBar3.XValues.DateTime:=true;
  xBar3.ShowInLegend:=false;
  xBar3.Marks.Visible:=false;
  xBar3.color:=clBlue;
  xBar3.RefreshSeries;
  xBar3.Title:='s3';
  xBar3.ShowInLegend:=true;

  chtPSR.BottomAxis.ExactDateTime:=true;
  chtPSR.BottomAxis.DateTimeFormat:='m/d';
  chtPSR.BottomAxis.Increment:= DateTimeStep[dtOneDay];

end;

Code: Select all

uses Series, CurvFitt;

procedure TForm1.FormCreate(Sender: TObject);
var
  xBar:TBarSeries;
  xTrend:TTrendFunction;
  xLine: TLineSeries;
  m, b: Double;
begin
  xTrend:=TTrendFunction.Create(Self);

  xBar:=TBarSeries.Create(Self);
  xBar.ParentChart:=Chart1;
  //xBar.SetFunction(xTrend);
  xBar.FillSampleValues;
  //xBar.DataSource:=fPSRTable;
  //xBar.CheckDataSource;
  xTrend.CalculateTrend(m,b,xBar,0,xBar.Count);

  //xBar.YValues.ValueSource:=v3;
  //xBar.XValues.ValueSource:='psrdate';
  xBar.XValues.DateTime:=true;
  xBar.ShowInLegend:=false;
  xBar.Marks.Visible:=false;
  xBar.color:=clBlue;
  xBar.RefreshSeries;
  xBar.Title:='s3';
  xBar.ShowInLegend:=true;

  Chart1.BottomAxis.ExactDateTime:=true;
  Chart1.BottomAxis.DateTimeFormat:='m/d';
  Chart1.BottomAxis.Increment:= DateTimeStep[dtOneDay];

  xLine:=TLineSeries.Create(Self);
  xLine.ParentChart:=Chart1;
  xLine.SetFunction(xTrend);
  xLine.DataSource:=xBar;
  //xTrend.Period:=2;  //note you can change the period
end;