E2035 Not enough actual parameters????? не могу понять в чем ошибка

[Alfa.Shadow]

не могу понять в чем ошибка?!

procedure TForm1.Image1Click(Sender: TObject);
var xc, yc, a: integer;
    t, x, y: real;
begin
  a:=100;
  xc:=100;
  yc:=150;
  t:=0;
while t<=2*pi do
begin
x:=a*cos(t)*(1+cos(t));
y:=a*sin(t)*(1+cos(t));
image1.canvas.pixels[xc+round(x)+round(y)]:=clred;
t:=t+0,0001;
end;
end;

end.

[Pascal Error] Unit1.pas(38): E2035 Not enough actual parameters

[Аватар]

TCanvas + F1 см. свойство Pixels

[Gagarik]

Сообщение от Alfa.Shadow

image1.canvas.pixels[xc+round(x)+round(y)]:=clred;

Пиксел задается двумя точками Х и У.
image1.canvas.pixels[x,y] := clred;
У тебя только одна точка.
Возможно очепятка, и вместо +round(y) должно быть ,round(y)

[Alfa.Shadow]

Возможно очепятка, и вместо +round(y) должно быть ,round(y)

программа запускается, но изображения нет

[Gagarik]

Только вместо t:=t+0,0001; написал t:=t+0.0001;

procedure TForm1.Image1Click(Sender: TObject);
var xc, yc, a: integer;
t, x, y: real;
begin
  a:=100;
  xc:=100;
  yc:=150;
  t:=0;
  while t<=2*pi do
  begin
  x:=a*cos(t)*(1+cos(t));
  y:=a*sin(t)*(1+cos(t));
  image1.canvas.pixels[xc+round(x),round(y)]:=clred;
  t:=t+0.0001;
  end;
end;

[Alfa.Shadow]

я эту ошибку исправляла. запускается, изображения нет((

[Gagarik]

хм... почему же тогда рисует у меня?
Какой размер Image1 на форме. у меня 350 на 250

[Alfa.Shadow]

я поняла, это я ошиблась.=)) не в размере image1 дело))

[chertovich]

1. Посмотрите внимательно куда вы кинули код.
2. Для графика, лучше всего соединять точки при помощи метода LineTo

[Alfa.Shadow]

Если можно еще небольшой вопрос. как сделать, чтобы это изображение по центру было?=)