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:

markieren

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;

Canvas Problem...

Canvas Problem...

Forumregeln