Я пытаюсь нарисовать дугу и заставить ее двигаться. Но получается что часть дуги движется, а другая стоит на месте. Подскажите в чем проблема, вот код
var Form1: TForm1; x1:integer=-5; x2:integer=160;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin with Form1.Canvas do begin brush.color:=clgray; rectangle(0,Form1.Height div 2,10000,10000); brush.color:=claqua; rectangle(0,0,10000,Form1.Height div 2); brush.color:=clwhite; x1:=x1+5; x2:=x2+10; Canvas.Arc(x1,30,50,60,50,30,20,x2); end; end; end.
|