Steema Central

Code: Select all

procedure TForm1.RealTimeAdd(Series: TChartSeries);
var
  XValue,YValue : Double;
  aIndex: integer;
begin
  if Series.Count = 0 then begin  // First random point
    YValue := Random(50);
    XValue := now;
  end else begin
    // Next point
    YValue := Series.YValues.Last + Random(10) - 4.5;
    YValue := Max(Min(YValue, 100), 0);
    XValue := now;
  end;

  // Add new point
  aIndex := Series.AddXY(XValue, YValue);

  //For every 50th value add a mark
  if Series.Count mod 50 = 0 then begin
    Series.Marks.Item[aIndex].Text.Text := 'A'; //Just show an 'A' for now
  end;

end;

Code: Select all

procedure TForm1.chMainAfterDraw(Sender: TObject);
var
  APosition: TSeriesMarkPosition;
  i: Integer;
begin
  inherited;
  APosition := TSeriesMarkPosition.Create;
  try
    begin
      for i := 0 to Series1.Count - 1 do begin
        APosition.Custom := true;
        APosition.LeftTop.x := Series1.CalcXPos(i);
        APosition.LeftTop.y := Series1.CalcYPosValue(8); //Static 
        Series1.Marks.Positions[i] := APosition;
      end;
    end;
  finally
    APosition.Free;
  end;
end;

Code: Select all

uses Series, Math, TeeConst;

procedure TForm1.Chart1AfterDraw(Sender: TObject);
var
  APosition: TSeriesMarkPosition;
  i: Integer;
begin
  inherited;
  APosition := TSeriesMarkPosition.Create;
  try
  begin
    with Chart1[0] do
    begin
      for i := 0 to Chart1[0].Count - 1 do begin
        APosition.Custom := true;
        APosition.LeftTop.x := CalcXPos(i);
        APosition.LeftTop.y := CalcYPosValue(8); //Static
        Marks.Positions[i] := APosition;
      end;
    end;
  end;
  finally
    APosition.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Title.Text.Text:=TeeMsg_Version;
  Chart1.View3D:=false;
  Chart1.Legend.Visible:=false;
  Chart1.Axes.Bottom.DateTimeFormat:='hh:mm:ss';

  with Chart1.AddSeries(TFastLineSeries)do
  begin
    XValues.DateTime:=true;
    Marks.Visible:=true;
    Marks.Style:=smsLabel;
  end;

  Timer1.Interval:=100;
  Timer1.Enabled:=true;
end;

procedure TForm1.RealTimeAdd(Series: TChartSeries);
var
  XValue,YValue : Double;
  aIndex: integer;
begin
  if Series.Count = 0 then begin  // First random point
    YValue := Random(50);
    XValue := now;
  end else begin
    // Next point
    YValue := Series.YValues.Last + Random(10) - 4.5;
    YValue := Max(Min(YValue, 100), 0);
    XValue := now;
  end;

  // Add new point
  aIndex := Series.AddXY(XValue, YValue);

  //For every 50th value add a mark
  if Series.Count mod 50 = 0 then begin
    Series.Marks.Item[aIndex].Text.Text := 'A'; //Just show an 'A' for now
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  RealTimeAdd(Chart1[0]);
end;

Code: Select all

      APosition.Width:=Chart1.Canvas.TextWidth(Labels[i])+7;
      APosition.Height:=Chart1.Canvas.TextHeight(Labels[i])+5;

Code: Select all

Chart1[0].Marks.Transparent:=true;

Code: Select all

Procedure TForm1.SeriesGetMarkText(Sender:TChartSeries; ValueIndex:Integer; var MarkText:String);
var
  APosition: TSeriesMarkPosition;
begin
  inherited;
  APosition := TSeriesMarkPosition.Create;
  try
  begin
    with Chart1[0] do
    begin
      APosition.Custom := true;
      APosition.LeftTop.x := CalcXPos(ValueIndex);
      APosition.LeftTop.y := CalcYPosValue(8); //Static
      Marks.Positions[ValueIndex] := APosition;
    end;
  end;
  finally
    APosition.Free;
  end;
end;

Code: Select all

procedure TfrmMain.chMainAfterDraw(Sender: TObject);
var i: Integer;
    tmpX, tmpY: Integer;
begin
  for i := 0 to aSeries.Count - 1 do begin
    if chMain[0].Marks.Item[i].Text.Text <> '' then
    begin
      tmpX:=chMain[0].CalcXPos(i);
      tmpY:=chMain[0].CalcYPosValue(8);
      chMain.Canvas.TextOut(tmpX, tmpY,chMain[0].Marks.Item[i].Text.Text,False);
    end;
  end;
end;

Code: Select all

procedure TfrmMain.chMainAfterDraw(Sender: TObject);
var i: Integer;
    tmpX, tmpY: Integer;
    tmpDiff: TDateTime;
begin
  for i := 0 to aSeries.Count - 1 do begin
    if chMain[0].Marks.Item[i].Text.Text <> '' then
    begin
      tmpX:=chMain[0].CalcXPos(i);
      tmpY:=chMain[0].CalcYPosValue(8);
      chMain.Canvas.TextOut(tmpX, tmpY, 'A', False);
      chMain.Canvas.VertLine3D(tmpX, chMain.ChartRect.Top, chMain.ChartRect.Bottom, 0);

      Dec(tmpY, 30);
      chMain.Canvas.TextOut(tmpX, tmpY, FormatDateTime(chMain.Axes.Bottom.DateTimeFormat, chMain[0].XValue[i]), False);

      if i>=50 then
      begin
        tmpDiff:=chMain[0].XValue[i] - chMain[0].XValue[i-50];
        Inc(tmpY, 15);
        chMain.Canvas.TextOut(tmpX, tmpY, '+'+FormatDateTime('s', tmpDiff)+'s', False);
      end;
    end;
  end;
end;

Code: Select all

var lastLabelIndex: Integer;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FNumOfEntries := 0;
  lastLabelIndex:=0;
//..

procedure TfrmMain.RealTimeAdd(Series: TChartSeries);
var
  XValue,YValue : Double;
  CurrentIndex: integer;
begin
  if Series.Count = 0 then begin  // First random point
    YValue := Random(50);
    XValue := now;
  end else begin
    // Next point
    YValue := Series.YValues.Last + Random(10) - 4.5;
    YValue := Max(Min(YValue, 100), 0);
    XValue := now;
  end;

  // Add new point
  CurrentIndex := Series.AddXY(XValue,YValue);
  if Series.XValue[CurrentIndex]-Series.XValue[lastLabelIndex] >= DateTimeStep[dtOneSecond]*9 then
  begin
    Series.Marks.Item[CurrentIndex].Text.Text:='A';
    lastLabelIndex:=CurrentIndex;
  end;
end;

procedure TfrmMain.DoScrollPoints(Series: TChartSeries);
begin
  // Delete 'past' points.
  if Series.XValues.Count > 0 then begin
    while Series.XValues.First < IncSecond(now, -NUM_OF_SEC_T0_VEIW) do begin
      Series.Delete(0);
      Dec(lastLabelIndex);
    end;
  end;

  // Adjust 'view'
  AdjustView(Series);
end;