Canvas Problem...

[150gozilla]

Hallo, ich habe ein Problem.
Und zwar, habe ich eine Form, und da bewegt sich ein Kreis von Links nach Rechts.
So wie bekomm ich es hin, das er am ende der Form wieder in die andere richtung läuft?

Hier mal mein Code:

Code:

var
  Form1: TForm1;
  x1: Integer = 10;
  x2: Integer = 60;
  y1: Integer = 100;
  y2: Integer = 150;

##############################################

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Canvas.Ellipse(x1,y1,x2,y2);
 Inc(x1,2);
 Inc(x2,2);
 Canvas.Ellipse(x1,y1,x2,y2)
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
 Canvas.Pen.Mode := pmCopy;
 Canvas.Brush.Color := clRed;
 Canvas.Rectangle(200,50,400,200);
 Canvas.Pen.Mode := pmXOR;
 Canvas.Ellipse(x1,y1,x2,y2 );
 Timer1.enabled := True
end;

[himitsu]

Schau dir mal das Thema an, dort wirst du berstimmt fündig :zwinker:

Ball bewegen mit Canvas

und falls nicht ... es gibt noch viel mehr dazu in der DP zu finden :)