Steema Central

Code: Select all

 
with MyFastLineSeries do begin
    tmpTch:=XValues[1]-XValues[0];
    if (Count>100) then repeat Delete(count-1) until count<= 100;
    AddXY(XValues.First-tmpTch,ValueTobePlotted,'',clBlack)
end;

Code: Select all

with MyHorizLineSeries do begin
    tmpTch:=YValues[1]-YValues[0];  // << Please note that I have exchanged the place of X and Y
    if (Count>100) then repeat Delete(count-1) until count<= 100;
    AddXY(ValueTobePlotted,YValues.First-tmpTch,'',clBlack) // << Please note that I have exchanged the place of X and Y
end;

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=False;
  Chart1.Legend.Visible:=False;

  with Chart1.AddSeries(THorizLineSeries) do
  begin
    AddXY(100+random*50,0,'',clBlack);
    for i:=1 to 99 do
      AddXY(XValues[i-1]+random*10-5,i,'',clBlack);
  end;
end;

Code: Select all

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, VclTee.TeeGDIPlus, Vcl.StdCtrls,
  Vcl.Buttons, VCLTee.TeEngine, VCLTee.Series, Vcl.ExtCtrls, VCLTee.TeeProcs,
  VCLTee.Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    CheckBox2: TCheckBox;
    Label2: TLabel;
    Chart2: TChart;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Series1: TFastLineSeries; Series2: THorizLineSeries;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k: integer; tmp: double;
begin
  i:= 0;
  repeat
    with Series1 do begin
      tmp:= Xvalues[1]-Xvalues[0];
      AddXY(XValues.First-tmp,sin(2*pi/100*i),'',clBlack);
      if count>200 then delete(count-1);
    end;
    inc(i); Label1.Caption:= IntToStr(i);
    if i>2000 then i:= 0;
    Application.ProcessMessages;
  until checkbox1.Checked=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j,k: integer; tmp: double;
begin
  i:= 0;
  repeat
    with Series2 do begin
      tmp:= Yvalues[1]-Yvalues[0];
      AddXY(sin(2*pi/100*i),YValues.First-tmp,'',clBlack);
      if count>200 then delete(count-1);
    end;
    inc(i); Label2.Caption:= IntToStr(i);
    if i>200 then i:= 0;
    Application.ProcessMessages;
  until checkbox2.Checked=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  Series1:= TFastLineSeries.Create(nil);
  //Series1.FillSampleValues(20);
  for i:= 0 to 200 do Series1.AddXY(i,sin(2*pi/100*i),'',clRed);
  Chart1.AddSeries(Series1);
  Series2:= THorizLineSeries.Create(nil);
  //Series2.FillSampleValues(20);
  for i:= 0 to 200 do Series2.AddXY(sin(2*pi/100*i),i,'',clRed);
  Chart2.AddSeries(Series2);
end;

end.

Code: Select all

procedure TForm1.BitBtn2Click(Sender: TObject);
var i,j,k: integer; tmp: double;
begin
  i:= 0;
  repeat
    with Series2 do begin
      tmp:= Yvalues[1]-Yvalues[0];
      AddXY(sin(2*pi/100*i),YValues.First-tmp,'',clBlack);
      YValues.Sort;
      if count>200 then delete(count-1);
    end;
    inc(i); Label2.Caption:= IntToStr(i);
    if i>200 then i:= 0;
    Application.ProcessMessages;
  until checkbox2.Checked=false;
end;