Bewegte Objekte

[jaenicke]

Du kannst z.B. auf deiner PaintBox einfach mal eine horizontal wandernde Linie zeichnen:

Delphi-Quellcode:

var
  i, j: Integer;
begin
  for j := 0 to 50 do
  begin
    pbDisplay.Canvas.Pen.Color := clBlack;
    pbDisplay.Canvas.MoveTo(0, 0);
    pbDisplay.Canvas.LineTo(0, pbDisplay.Height - 1);
    for i := 1 to pbDisplay.Width - 1 do
    begin
      Sleep(2);
      // Alte Linie ünberschreiben
      pbDisplay.Canvas.Pen.Color := clWhite;
      pbDisplay.Canvas.MoveTo(i - 1, 0);
      pbDisplay.Canvas.LineTo(i - 1, pbDisplay.Height - 1);
      // Neue zeichnen
      pbDisplay.Canvas.Pen.Color := clBlack;
      pbDisplay.Canvas.MoveTo(i, 0);
      pbDisplay.Canvas.LineTo(i, pbDisplay.Height - 1);
    end;
    pbDisplay.Canvas.Pen.Color := clWhite;
    pbDisplay.Canvas.MoveTo(i - 1, 0);
    pbDisplay.Canvas.LineTo(i - 1, pbDisplay.Height - 1);
  end;