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.