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;