Да вы правы
Кнопа1
Цитата:
procABC(x1,x2,x3,y1,y2,y3,a,b,c);
for i:=x1 downto x2 do Canvas.Pixels[i,Round(a*i*i+b*i+c)]:=clRed;
Timer1.Enabled:=True;
x:=x1;
|
Возможно теперь парабола нарисовалась с права налево (если верить теории );
Таймер1
Цитата:
procedure TForm1.Timer1Timer(Sender: TObject);
var y:Integer;
begin
if x<x2 then Exit;
y:=Round(a*x*x+b*x+c);
Canvas.Brush.Color:=Color;
Canvas.Ellipse(x,y,x+5,y+5);
//Canvas.FillRect(Canvas.ClipRect); - это пока , что болванка , потом все будет норм.
;
x:=x+10;
|
По логике таймера , уменьшать до тех пор ( двигаться до тех пор ) пока х1 (680) не станут меньше х2(60).
-----------
Эллипс отправился в ад
