Thema: Delphi art eeg mit canvas

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#13

Re: art eeg mit canvas

  Alt 13. Nov 2004, 13:15
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat