art eeg mit canvas

[Luckie]

Also ein EEG sieht bei mir so aus:

Delphi-Quellcode:

type
  TPTArray = array of TPoint;

var
  Form1: TForm1;
  PTArray: TPTArray;
  Index: Integer = 0;

implementation

{$R *.dfm}

procedure DrawPixel(Canvas: TCanvas; Color: TColor; pt: TPoint);
begin
  Canvas.Pixels[pt.X, pt.Y] := Color;
end;

procedure DeletePixels(Canvas: TCanvas; Color: TColor; ptArray: TPTArray);
var
  i: Integer;
begin
  for i := 0 to length(ptArray) - 1 do
    Canvas.Pixels[ptArray[i].X, ptArray[i].Y] := Color;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Setlength(PTArray, Paintbox1.Width);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  pt: TPoint;
begin
  pt.X := Index;
  pt.Y := Paintbox1.height div 2;
  ptArray[Index] := pt;
  DrawPixel(Paintbox1.Canvas, clGreen, pt);
  Inc(Index);
  if Index = length(ptArray) then
  begin
    DeletePixels(Paintbox1.Canvas, clbtnFace, ptArray);
    Index := 0;
  end;
end;

Ein Button, ein Timer und eine Paintbox. Den y-Wert kannst du ja entsprechend variiren.