Пульсирующий круг на канаве

[lubov_morkov]

мне нужно Создать приложение в делфи , позволяющее:
Рисовать круг зеленого цвета диаметром 10 пикселов в середине формы. При нажатии на кнопку "Старт" круг должен начать "пульсировать": сначала увеличиваться, но как только сторона его коснется одной из сторон формы - он должен начать постепенно сживаться, пока не достигнет первоначального размера - 10 пикселов. Это программа есть на этом сайте, только страничка удалена......

[ArtInt]

Примерно такой код будет:

procedure TForm1.Button1Click(Sender: TObject);
var
  k: Integer;
begin
  Form1.Canvas.Pen.Color:=clGreen;
  k:=10;
  Form1.Canvas.Rectangle(0,0,Form1.Width,Form1.Height);
  while (k<Form1.Width) and (k<Form1.Height) do
  begin
    Form1.Canvas.Rectangle(0,0,Form1.Width,Form1.Height);
    k:=k+2;
    Form1.Canvas.Ellipse((Form1.Width  div 2)-(k div 2),(Form1.Height div 2)- (k div 2),(Form1.Width  div 2)+(k div 2),(Form1.Height div 2)+(k div 2));
  end;    // while
//  showmessage('касание');
  while (k>10) do
  begin
    Form1.Canvas.Rectangle(0,0,Form1.Width,Form1.Height);
    k:=k-2;
    Form1.Canvas.Ellipse((Form1.Width  div 2)-(k div 2),(Form1.Height div 2)- (k div 2),(Form1.Width  div 2)+(k div 2),(Form1.Height div 2)+(k div 2));
  end;    // while

end;

[lubov_morkov]

Спасибки большое

[qwerra]

Ахтунг!

Нужно:

!) Написать комментарий к каждому шагу исходного кода указанного выше.
2) Пошагово расписать дальнейшие действия в 7-й дельфи для создания этого project

Жду.
Надеюсь.
Договоримсо

[Вавел из ГМТУ]

Укажите цену, а там дальше народ посмотрит.. ДоговоримсО или нет

[ArtInt]

Могу описать все пошагово. Оплата Web money в 100 рублей. Напишите в личку или на почту intel-art@ya.ru
Укажите там свою почту куда скидывать описание.
P.S. Кстати, как заметили данный код Я писал.

[qwerra]

ArtInt
Биг сенкс за ответ,согласен и всё такое.
3 WMZ кидаю,но нужен кошель))
Пошту кинул в репу,но мона и в асику)

Вавел из ГМТУ
Договоримсо-оно и в Африке ДоговоримсО)
Не бог весть какой сложности вопрос,чтобы торги устраивать,нет?

[ArtInt]

Сообщение от qwerra

ArtInt
Биг сенкс за ответ,согласен и всё такое.
3 WMZ кидаю,но нужен кошель))
Пошту кинул в репу,но мона и в асику)

Вавел из ГМТУ
Договоримсо-оно и в Африке ДоговоримсО)
Не бог весть какой сложности вопрос,чтобы торги устраивать,нет?

Хорошо, заказ принят, номер кошелька отослал на почту.

[qwerra]

ArtInt
Всё норм,большое спасибо)