Steema Central

Code: Select all

uses Series, DateUtils;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: Integer;
    tmpDate: TDateTime;
begin
  Chart1.Axes.Bottom.LabelStyle:=talPointValue;

  for i:=0 to 2 do
    with Chart1.AddSeries(TBarSeries) as TBarSeries do
    begin
      XValues.DateTime:=true;

      for j:=0 to 3 do
      begin
        tmpDate:=IncDay(Today, j);
        AddXY(tmpDate, 25+random*75);
      end;
    end;
end;

Code: Select all

procedure TfrmPsrGraph.SetupGraph(const v1,v2,v3:shortstring);
var
  xBar1,xBar2,xBar3:TBarSeries;
  xLine1,xLine2,xLine3:TLineSeries;
  xTrend:TTrendFunction;
  i:integer;
  m, b: Double;
begin
  xTrend:=TTrendFunction.Create(self);

  for i := chtPSR.SeriesCount -1 downto 0 do
     chtPSR.Series[i].Free;

  CalcScrapPercent;

//  chtPSR.Axes.Bottom.LabelStyle:=talPointValue;  //only show dates with data

  xBar3:=TBarSeries.Create(chtPSR);
  xBar3.ParentChart:=chtPSR;
  xBar3.DataSource:=fPSRTable;
  xBar3.YValues.ValueSource:=v3;
  xBar3.XValues.ValueSource:='psrdate';
  xBar3.XValues.DateTime:=true;
  xBar3.ShowInLegend:=false;
  xBar3.Marks.Visible:=false;
  xBar3.color:=clAqua;
  xBar3.RefreshSeries;
  xBar3.Title:='s3 ';
  xBar3.ShowInLegend:=true;

  xBar1:=TBarSeries.Create(chtPSR);
  xBar1.ParentChart:=chtPSR;
  xBar1.DataSource:=fPSRTable;
  xBar1.YValues.ValueSource:=v1;
  xBar1.XValues.ValueSource:='psrdate';
  xBar1.XValues.DateTime:=true;
  xBar1.ShowInLegend:=false;
  xBar1.Marks.Visible:=false;
  xBar1.color:=clRed;
  xBar1.RefreshSeries;
  xBar1.Title:='s1 ';
  xBar1.ShowInLegend:=true;

  xBar2:=TBarSeries.Create(chtPSR);
  xBar2.ParentChart:=chtPSR;
  xBar2.DataSource:=fPSRTable;
  xBar2.YValues.ValueSource:=v2;
  xBar2.XValues.ValueSource:='psrdate';
  xBar2.XValues.DateTime:=true;
  xBar2.ShowInLegend:=false;
  xBar2.Marks.Visible:=false;
  xBar2.color:=clGreen;
  xBar2.RefreshSeries;
  xBar2.Title:='s2 ';
  xBar2.ShowInLegend:=true;

  if pos('scrap',v1)>0 then begin
    MakeTitle('SCRAP: ');
    xBar3.Title:='s3 '+formatfloat('0.00%',fScrap.s3);
    xBar1.Title:='s1 '+formatfloat('0.00%',fScrap.s1);
    xBar2.Title:='s2 '+formatfloat('0.00%',fScrap.s2);
  end
  else MakeTitle('PRODUCTION: ');


  if cb3rd.Checked then AddTrend(xBar3,xLine3);
  if cb1st.Checked then AddTrend(xBar1,xLine1);
  if cb2nd.Checked then AddTrend(xBar2,xLine2);

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

end;